Ticket #140: test.adb

with Ada.Unchecked_Deallocation;

with SQL.Databases;
with Matreshka.Internals.SQL_Drivers.SQLite3.Factory;
with League.Strings;

with Ada.Text_IO;

   procedure Test is
   begin
      Ada.Text_IO.Put_Line ("Open");
      declare
         Connect : SQL.Databases.SQL_Database := SQL.Databases.Create
           (League.Strings.To_Universal_String ("SQLITE3"),
            League.Strings.To_Universal_String ("local.db"));
      begin
         Ada.Text_IO.Put_Line ("Created");
      end;
   end Test;