From: Mark Addison <grommit@users.sourceforge.net>
Date: Mon, 29 Mar 2004 09:58:45 +0000 (+0000)
Subject: Added test of field schema shortcut and table stringify.
X-Git-Tag: v0.06~117
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=57fd48f1198ca38902a801a323f62522f9b5d6c5;p=dbsrgits%2FSQL-Translator.git

Added test of field schema shortcut and table stringify.
---

diff --git a/t/13schema.t b/t/13schema.t
index e9050e5..bbb002e 100644
--- a/t/13schema.t
+++ b/t/13schema.t
@@ -4,7 +4,7 @@
 $| = 1;
 
 use strict;
-use Test::More tests => 197;
+use Test::More tests => 199;
 use SQL::Translator::Schema::Constants;
 
 require_ok( 'SQL::Translator::Schema' );
@@ -106,6 +106,8 @@ require_ok( 'SQL::Translator::Schema' );
     is( $f1->is_nullable, 1, 'Field can be NULL' );
     is( $f1->default_value, undef, 'Field default is undefined' );
     is( $f1->comments, '', 'No comments' );
+    is( $f1->table, 'person', 'Field table is person' );
+    is( $f1->schema->database, 'PostgreSQL', 'Field schema shortcut works' );
 
     my $f2 = SQL::Translator::Schema::Field->new (
         name     => 'f2',