1. -- 
  2. -- Uwe R. Zimmer, Australia, 2013 
  3. -- 
  4.  
  5. with Ada.Text_IO;           use Ada.Text_IO; 
  6. with Queue_Pack_Exceptions; use Queue_Pack_Exceptions; 
  7.  
  8. procedure Queue_Test_Exceptions is 
  9.  
  10.    Queue : Queue_Type; 
  11.    Item  : Element; 
  12.  
  13. begin 
  14.    Enqueue (Turn, Queue); 
  15.  
  16.    Dequeue (Item, Queue); Put (Element'Image (Item)); 
  17.  
  18.    Dequeue (Item, Queue); -- will produce a 'Queue underflow' 
  19.    Put (Element'Image (Item)); 
  20.  
  21.    Put ("Queue is empty on exit: "); Put (Boolean'Image (Is_Empty (Queue))); 
  22.  
  23. exception 
  24.    when Queueunderflow => Put ("Queue underflow"); 
  25.    when Queueoverflow  => Put ("Queue overflow"); 
  26.  
  27. end Queue_Test_Exceptions;