From: Mark Addison <grommit@users.sourceforge.net>
Date: Mon, 29 Mar 2004 12:26:34 +0000 (+0000)
Subject: Added test of Table::field_names()
X-Git-Tag: v0.06~109
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=81e0fe82b27c56b2f778761b4950a31cb5ee2dc6;p=dbsrgits%2FSQL-Translator.git

Added test of Table::field_names()
---

diff --git a/t/13schema.t b/t/13schema.t
index 981c252..8f787f3 100644
--- a/t/13schema.t
+++ b/t/13schema.t
@@ -4,7 +4,7 @@
 $| = 1;
 
 use strict;
-use Test::More tests => 201;
+use Test::More tests => 202;
 use SQL::Translator::Schema::Constants;
 
 require_ok( 'SQL::Translator::Schema' );
@@ -151,6 +151,8 @@ require_ok( 'SQL::Translator::Schema' );
 
     is( $fields[0]->name, 'foo', 'First field is "foo"' );
     is( $fields[1]->name, 'f2', 'Second field is "f2"' );
+    is( join(",",$person_table->field_names), 'foo,f2',
+        'field_names is "foo,f2"' );
 
     #
     # Field methods