[dbsrgits/SQL-Abstract-2.0-ish.git] / t / 003_quote.t

use strict;
use warnings;
 
use Test::More tests => 5;
use Test::Exception;
 
use_ok('SQL::Abstract') or BAIL_OUT( "$@" );
 
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/*/] }), 
   "*",
   "*";
Commit	Line	Data
8eda2119	1	use strict;
	2	use warnings;
	3
8b398780	4	use Test::More tests => 5;
8eda2119	5	use Test::Exception;
	6
	7	use_ok('SQL::Abstract') or BAIL_OUT( "$@" );
	8
	9	my $sqla = SQL::Abstract->create(1);
	10
	11	lives_ok {
	12	$sqla->quote_chars('[]');
	13	} "coercion of quote_chars from Str works";
8b398780	14
	15
	16	is $sqla->dispatch( { -type => 'name', args => [qw/me id/] }),
	17	"[me].[id]",
	18	"me.id";
	19
	20
	21	is $sqla->dispatch( { -type => 'name', args => [qw/me */] }),
	22	"[me].*",
	23	"me.*";
	24
	25
	26	is $sqla->dispatch( { -type => 'name', args => [qw/*/] }),
	27	"*",
	28	"*";