From: Rafael Kitover <rkitover@cpan.org>
Date: Tue, 23 Feb 2010 15:38:51 +0000 (-0500)
Subject: better is_nullable test for SQLite
X-Git-Tag: 0.06000~86
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b134b29ffc271920afc1a04249177c43cb2805a;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

better is_nullable test for SQLite
---

diff --git a/t/10sqlite_common.t b/t/10sqlite_common.t
index 2996738..c80ff53 100644
--- a/t/10sqlite_common.t
+++ b/t/10sqlite_common.t
@@ -45,7 +45,7 @@ my $tester = dbixcsl_common_tests->new(
             },
         ],
         drop  => [ qw/extra_loader_test1 extra_loader_test2 extra_loader_test3 extra_loader_test4 / ],
-        count => 7,
+        count => 8,
         run   => sub {
             my ($schema, $monikers, $classes) = @_;
 
@@ -57,8 +57,11 @@ my $tester = dbixcsl_common_tests->new(
             is_deeply [ $source->columns ], [ qw/id value/ ],
                 'retrieved quoted column names from quoted table';
 
+            ok ((exists $source->column_info('value')->{is_nullable}),
+                'is_nullable exists');
+
             is $source->column_info('value')->{is_nullable}, 0,
-                'is_nullable detection';
+                'is_nullable is set correctly';
 
             ok (($source = $schema->source($monikers->{extra_loader_test4})),
                 'verbose table');