using SQLA2

diff --git a/sql-test.pl b/sql-test.pl
new file mode 100644 (file)
index 0000000..4027451
--- /dev/null
+++ b/sql-test.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+
+use lib "$ENV{HOME}/wdir/SQL-Abstract/lib";
+use lib "$ENV{HOME}/wdir/SQL-Abstract/t/lib";
+
+use Test::SQL::Abstract::Util qw(
+  mk_name
+  mk_value
+  mk_alias
+  mk_expr
+  :dumper_sort
+);
+
+use SQL::Abstract;
+
+my $sqla = SQL::Abstract->create(1);
+
+warn $sqla->dispatch(
+  { -type => 'list', args => [
+    mk_name('foo')
+  ] });