1. -- 
  2. -- Uwe R. Zimmer, Australia, 2013 
  3. -- 
  4.  
  5. with Ada.Text_IO;       use Ada.Text_IO; 
  6. with Queue_Pack_Simple; use Queue_Pack_Simple; 
  7.  
  8. procedure Queue_Test_Simple is 
  9.  
  10.    Queue : Queue_Type; 
  11.    Item  : Element; 
  12.  
  13. begin 
  14.    Enqueue (2000, Queue); 
  15.  
  16.    Dequeue (Item, Queue); Put (Element'Image (Item)); 
  17.  
  18.    Dequeue (Item, Queue); -- will raise an 'invalid data' exception! 
  19.    Put (Element'Image (Item)); 
  20.  
  21.    Put ("Queue is empty on exit: "); Put (Boolean'Image (Is_Empty (Queue))); 
  22.  
  23. end Queue_Test_Simple;