From: Rob Kinyon <rkinyon@rkinyon-lt-osx.local>
Date: Thu, 19 Mar 2009 00:50:17 +0000 (-0400)
Subject: Merge branch 'master' of git@github.com:ashb/sql-abstract
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f2c7290211c1a79e54922fb22d41c4213f5f3ec;hp=81cd86f1637cbe107854f7bb27ae79289490079d;p=dbsrgits%2FSQL-Abstract-2.0-ish.git

Merge branch 'master' of git@github.com:ashb/sql-abstract
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index e04c863..18e799b 100644
--- 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
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";