#!/bin/sh

set -C -e -u

cd "$ADTTMP"

cat > p.adb <<EOF
with Gnatcoll.Sql.Exec;
with Gnatcoll.Sql.Sqlite;
procedure P is
   D : Gnatcoll.Sql.Exec.Database_Description;
begin
   D := Gnatcoll.Sql.Sqlite.Setup (":memory:");
end P;
EOF
cat > p.gpr <<EOF
with "gnatcoll_sqlite.gpr";
project P is
   for Main use ("p.adb");
end P;
EOF
gprbuild -v p.gpr
./p
