use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More tests => 5;
use Test::Exception;
use_ok('SQL::Abstract') or BAIL_OUT( "$@" );
lives_ok {
$sqla->quote_chars('[]');
} "coercion of quote_chars from Str works";
+
+
+is $sqla->dispatch( { -type => 'name', args => [qw/me id/] }),
+ "[me].[id]",
+ "me.id";
+
+
+is $sqla->dispatch( { -type => 'name', args => [qw/me */] }),
+ "[me].*",
+ "me.*";
+
+
+is $sqla->dispatch( { -type => 'name', args => [qw/*/] }),
+ "*",
+ "*";