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";