Ticket #142: test.adb

File test.adb, 412 bytes (added by andry.ogorodnik, 9 years ago)
Line 
1
2with Ada.Text_IO;
3with Ada.Exceptions;
4with GNAT.Traceback.Symbolic;
5
6with DB;
7
8procedure Test is
9begin
10 DB.Open;
11
12 DB.Add_Currency (1, 1, 1);
13 DB.Update_Currency (1, 2, 2);
14 DB.Delete_Currency (1);
15
16 DB.Close;
17exception
18 when E : others =>
19 Ada.Text_IO.Put_Line (Ada.Exceptions.Exception_Information (E));
20 Ada.Text_IO.Put_Line (GNAT.Traceback.Symbolic.Symbolic_Traceback (E));
21end Test;