X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F13schema.t;h=497ea751930c126fb08e7df2f290b8a133e780c0;hb=f24e48939a15ba970f17440b616c078b093db945;hp=e5ae3cbc2bf4e6df1179b766c687819368e04434;hpb=bef58619a6ef471ea9e8bdcfd907127347f1fe5c;p=dbsrgits%2FSQL-Translator-2.0-ish.git diff --git a/t/13schema.t b/t/13schema.t index e5ae3cb..497ea75 100644 --- a/t/13schema.t +++ b/t/13schema.t @@ -202,6 +202,7 @@ require_ok( 'SQL::Translator::Object::View' ); is( $f1->data_type('varchar'), 'varchar', 'Field data type is "varchar"' ); is( $f1->size('30'), '30', 'Field size is "30"' ); is( $f1->is_primary_key(0), '0', 'Field is_primary_key is negative' ); + $person_table->add_field( $f1 ); my %extra = $f1->extra; is( $extra{'foo'}, 'bar', 'Field extra "foo" is "bar"' );