Minor change to affect context.
Ken Youens-Clark [Mon, 9 Jun 2003 02:16:25 +0000 (02:16 +0000)]
t/15oracle-parser.t

index 1a87477..1154f86 100644 (file)
@@ -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"' );