Ticket #140: test.adb

File test.adb, 502 bytes (added by Maxim Reznik, 9 years ago)
Line 
1
2with Ada.Unchecked_Deallocation;
3
4with SQL.Databases;
5with Matreshka.Internals.SQL_Drivers.SQLite3.Factory;
6with League.Strings;
7
8with Ada.Text_IO;
9
10 procedure Test is
11 begin
12 Ada.Text_IO.Put_Line ("Open");
13 declare
14 Connect : SQL.Databases.SQL_Database := SQL.Databases.Create
15 (League.Strings.To_Universal_String ("SQLITE3"),
16 League.Strings.To_Universal_String ("local.db"));
17 begin
18 Ada.Text_IO.Put_Line ("Created");
19 end;
20 end Test;