X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F003_quote.t;h=6f26fb67df5637b98c9635d4b150de227457ec4b;hb=8b398780f00bb3e9c43ed749d86a1dd01af59716;hp=61df9dc9590a31e4acb9a404fd0cd2471b6f9443;hpb=00f4d23ea59473d3ae702760fc7dba4478c1d871;p=dbsrgits%2FSQL-Abstract-2.0-ish.git

diff --git a/t/003_quote.t b/t/003_quote.t
index 61df9dc..6f26fb6 100644
--- a/t/003_quote.t
+++ b/t/003_quote.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
  
-use Test::More tests => 2;
+use Test::More tests => 5;
 use Test::Exception;
  
 use_ok('SQL::Abstract') or BAIL_OUT( "$@" );
@@ -11,3 +11,18 @@ my $sqla = SQL::Abstract->create(1);
 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/*/] }), 
+   "*",
+   "*";