#!/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')
  ] });
