COMP2310/lab1/queue_test_exceptions.adb

with Queue_Pack_Exceptions; use Queue_Pack_Exceptions;
with Ada.Text_IO; use Ada.Text_IO;
procedure Queue_Test_Exceptions is
   Queue : Queue_Type;
   Item : Element;
begin
   Enqueue (Turn, Queue);
   Dequeue (Item, Queue);
   --Dequeue (Item, Queue);
exception
   when Queueunderflow => Put("Queue underflow");
   when Queueoverflow  => Put("Queue overflow");

end Queue_Test_Exceptions;
1	with Queue_Pack_Exceptions; use Queue_Pack_Exceptions;
2	with Ada.Text_IO; use Ada.Text_IO;
3	procedure Queue_Test_Exceptions is
4	Queue : Queue_Type;
5	Item : Element;
6	begin
7	Enqueue (Turn, Queue);
8	Dequeue (Item, Queue);
9	--Dequeue (Item, Queue);
10	exception
11	when Queueunderflow => Put("Queue underflow");
12	when Queueoverflow => Put("Queue overflow");
13
14	end Queue_Test_Exceptions;