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

use strict;
use warnings;
 
use Test::More tests => 2;
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";
Commit	Line	Data
8eda2119	1	use strict;
	2	use warnings;
	3
	4	use Test::More tests => 2;
	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";