From: Rafael Kitover Date: Wed, 3 Feb 2010 16:56:29 +0000 (-0500) Subject: patch from Robert Bohne 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 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' });