From: Ken Youens-Clark <kclark@cpan.org>
Date: Mon, 9 Jun 2003 02:16:25 +0000 (+0000)
Subject: Minor change to affect context.
X-Git-Tag: v0.02~52
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a378a96f5cf647dcf0e2dd08959ca5ed83c42a81;p=dbsrgits%2FSQL-Translator.git

Minor change to affect context.
---

diff --git a/t/15oracle-parser.t b/t/15oracle-parser.t
index 1a87477..1154f86 100644
--- a/t/15oracle-parser.t
+++ b/t/15oracle-parser.t
@@ -84,7 +84,7 @@ is( $f1->size, 11, 'Size is "11"' );
 is( $f1->is_nullable, 0, 'Field cannot be null' );
 is( $f1->default_value, undef, 'Default value is undefined' );
 is( $f1->is_primary_key, 1, 'Field is PK' );
-is( $f1->comments, 'the primary key!', 'Comment = "the primary key!"' );
+is( join(',', $f1->comments), 'the primary key!', 'Comment = "the primary key!"' );
 
 my $f2 = shift @t1_fields;
 is( $f2->name, 'trait_category', 'Second field is "trait_category"' );