/[cvs.andrew.net.au]/uni/COMP2310/lab1/queue_test_exceptions.adb
ViewVC logotype

Contents of /uni/COMP2310/lab1/queue_test_exceptions.adb

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Wed Jul 27 12:07:25 2005 UTC (17 years, 6 months ago) by apollock
Branch: MAIN
CVS Tags: HEAD
Working exception handling

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;

  ViewVC Help
Powered by ViewVC 1.1.22