1. -- 
  2. -- Uwe R. Zimmer, Australia, 2015 
  3. -- 
  4.  
  5. with Queue_Pack_Private; use Queue_Pack_Private; 
  6. with Ada.Text_IO;        use Ada.Text_IO; 
  7.  
  8. procedure Queue_Test_Private is 
  9.  
  10.    Queue_1, 
  11.    Queue_2      : Queue_Type; 
  12.    Current_Item : Element; 
  13.  
  14. begin 
  15.    Queue_2 := Queue_1;
  16.  
  17.    Enqueue (Item => 1_000, Queue => Queue_1); 
  18.  
  19.    Dequeue (Current_Item, Queue_1); 
  20.    Put_Line ("Current_Item: " & Element'Image (Current_Item)); 
  21.  
  22.    Enqueue (Current_Item, Queue_2); 
  23.  
  24.    Dequeue (Current_Item, Queue_1); 
  25.    Put_Line ("Current_Item: " & Element'Image (Current_Item)); 
  26.  
  27.    Put_Line ("Queue_1 is " & (if Is_Empty (Queue_1) then "" else "not ") & "empty on exit"); 
  28.    Put_Line ("Queue_2 is " & (if Is_Empty (Queue_2) then "" else "not ") & "empty on exit"); 
  29.  
  30. exception 
  31.    when Queue_underflow => Put ("Queue underflow"); 
  32.    when Queue_overflow  => Put ("Queue overflow"); 
  33. end Queue_Test_Private;