Ticket #140: test.adb
File test.adb, 502 bytes (added by , 9 years ago) |
---|
Line | |
---|---|
1 | |
2 | with Ada.Unchecked_Deallocation; |
3 | |
4 | with SQL.Databases; |
5 | with Matreshka.Internals.SQL_Drivers.SQLite3.Factory; |
6 | with League.Strings; |
7 | |
8 | with 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; |