Use QuotedDefault in DBI::SQLite, fixed default value

prove -Ilib -v t/10sqlite_common.t
[..snipped..]
not ok 31 - Correct default value
   Failed test 'Correct default value'
   at t/lib/dbixcsl_common_tests.pm line 289.
          got: ''foo''
     expected: 'foo'

ok 32 - Find got the right row
[..snipped..]

diff --git a/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm b/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
index 80efba6..3b36e22 100644 (file)
--- a/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
+++ b/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
@@ -2,7 +2,10 @@ package DBIx::Class::Schema::Loader::DBI::SQLite;
 
 use strict;
 use warnings;
-use base qw/DBIx::Class::Schema::Loader::DBI/;
+use base qw/
+    DBIx::Class::Schema::Loader::DBI::Component::QuotedDefault
+    DBIx::Class::Schema::Loader::DBI
+/;
 use Carp::Clan qw/^DBIx::Class/;
 use Text::Balanced qw( extract_bracketed );
 use Class::C3;