Simple test of coercion on quote_char accessor

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index e04c863..18e799b 100644 (file)
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -77,7 +77,6 @@ class SQL::Abstract {
     is => 'rw', 
     isa => NameSeparator,
     default => '.',
-    coerece => 1,
     required => 1,
   );
 
@@ -91,9 +90,9 @@ class SQL::Abstract {
   has quote_chars => (
     is => 'rw', 
     isa => QuoteChars,
-    coerece => 1,
     predicate => 'is_quoting',
     clearer => 'disable_quoting', 
+    coerce => 1,
   );
 
   has binds => (

diff --git a/t/003_quote.t b/t/003_quote.t
new file mode 100644 (file)
index 0000000..61df9dc
--- /dev/null
+++ b/t/003_quote.t
@@ -0,0 +1,13 @@
+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";