Added BUG notes and test about single tags e.g. <foo/>

[dbsrgits/SQL-Translator.git] / t / 15oracle-parser.t

diff --git a/t/15oracle-parser.t b/t/15oracle-parser.t
index f969a25..1154f86 100644 (file)
--- a/t/15oracle-parser.t
+++ b/t/15oracle-parser.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
-use Test::More 'no_plan'; #tests => 105;
+use Test::More tests => 72;
 use SQL::Translator;
 use SQL::Translator::Schema::Constants;
 use SQL::Translator::Parser::Oracle qw(parse);
@@ -62,9 +62,6 @@ $| = 1;
 my $data   = parse( $t, $sql );
 my $schema = $t->schema;
 
-#use Data::Dumper;
-#print Dumper($schema), "\n";
-
 isa_ok( $schema, 'SQL::Translator::Schema', 'Schema object' );
 my @tables = $schema->get_tables;
 is( scalar @tables, 4, 'Found four tables' );
@@ -87,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"' );