4 use Test::More tests => 5;
7 use_ok('SQL::Abstract') or BAIL_OUT( "$@" );
9 my $sqla = SQL::Abstract->create(1);
12 $sqla->quote_chars('[]');
13 } "coercion of quote_chars from Str works";
16 is $sqla->dispatch( { -type => 'name', args => [qw/me id/] }),
21 is $sqla->dispatch( { -type => 'name', args => [qw/me */] }),
26 is $sqla->dispatch( { -type => 'name', args => [qw/*/] }),