Simple test of coercion on quote_char accessor
[dbsrgits/SQL-Abstract-2.0-ish.git] / t / 003_quote.t
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";