From: Rafael Kitover <rkitover@cpan.org>
Date: Wed, 3 Feb 2010 16:56:29 +0000 (-0500)
Subject: patch from Robert Bohne <rbo@cpan.org> to check default_value in common tests
X-Git-Tag: 0.05001~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aa63b6ff1529982a69ea37b71713c1d269f083ea;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

patch from Robert Bohne <rbo@cpan.org> to check default_value in common tests
---

diff --git a/t/lib/dbixcsl_common_tests.pm b/t/lib/dbixcsl_common_tests.pm
index 1bec30b..7b970ff 100644
--- a/t/lib/dbixcsl_common_tests.pm
+++ b/t/lib/dbixcsl_common_tests.pm
@@ -56,7 +56,7 @@ sub _monikerize {
 sub run_tests {
     my $self = shift;
 
-    plan tests => 139 + ($self->{extra}->{count} || 0);
+    plan tests => 140 + ($self->{extra}->{count} || 0);
 
     $self->create();
 
@@ -573,6 +573,7 @@ sub test_schema {
 
         ok($class10->column_info('loader_test11')->{is_foreign_key}, 'Foreign key detected');
         ok($class11->column_info('loader_test10')->{is_foreign_key}, 'Foreign key detected');
+        is($class11->column_info('message')->{default_value},'foo', 'Default value check');
 
         my $obj10 = $rsobj10->create({ subject => 'xyzzy' });