1. -- 
  2. -- Uwe R. Zimmer, Australia, 2013 
  3. -- 
  4.  
  5. with Ada.Text_IO;        use Ada.Text_IO; 
  6. with Queue_Pack_Generic; 
  7.  
  8. procedure Queue_Test_Generic is 
  9.  
  10.    package Queue_Pack_Character is 
  11.       new Queue_Pack_Generic (Element => Character, Queue_Size => 20); 
  12.    use Queue_Pack_Character; 
  13.  
  14.    Queue : Queue_Type; 
  15.    Current_Item  : Character; 
  16.  
  17. begin 
  18.    Enqueue (Item => 'x', Queue => Queue); 
  19.    Enqueue (Item => 'y', Queue => Queue); 
  20.    Enqueue (Item => 'z', Queue => Queue); 
  21.  
  22.    Dequeue (Current_Item, Queue); 
  23.    Put_Line ("Current_Item: " & Current_Item); 
  24.  
  25.    Put_Line ("Queue is " & (if Is_Empty (Queue) then "" else "not ") & "empty on exit"); 
  26.  
  27. exception 
  28.    when Queue_underflow => Put ("Queue underflow"); 
  29.    when Queue_overflow  => Put ("Queue overflow"); 
  30. end Queue_Test_Generic;