COMP2310/lab1/queue_test_simple.adb

with Queue_Pack_Simple; use Queue_Pack_Simple;
with Ada.Text_IO;
procedure Queue_Test_Simple is
   Queue : Queue_Type;
   Item : Element;
begin
   Enqueue (2000, Queue);
   Dequeue (Item, Queue);
   Ada.Text_IO.Put_Line("Got " & Item'Img & " from the queue");
   Dequeue (Item, Queue);
   Ada.Text_IO.Put_Line("Got " & Item'Img & " from the queue");
end Queue_Test_Simple;
1	with Queue_Pack_Simple; use Queue_Pack_Simple;
2	with Ada.Text_IO;
3	procedure Queue_Test_Simple is
4	Queue : Queue_Type;
5	Item : Element;
6	begin
7	Enqueue (2000, Queue);
8	Dequeue (Item, Queue);
9	Ada.Text_IO.Put_Line("Got " & Item'Img & " from the queue");
10	Dequeue (Item, Queue);
11	Ada.Text_IO.Put_Line("Got " & Item'Img & " from the queue");
12	end Queue_Test_Simple;