From: Ken Youens-Clark <kclark@cpan.org>
Date: Tue, 9 Sep 2003 15:57:55 +0000 (+0000)
Subject: Added tests for alternate form of comments.
X-Git-Tag: v0.04~184
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2eb042e60216374c1c35396f1de40b85ee110be1;p=dbsrgits%2FSQL-Translator.git

Added tests for alternate form of comments.
---

diff --git a/t/15oracle-parser.t b/t/15oracle-parser.t
index 635313e..1c064d5 100644
--- a/t/15oracle-parser.t
+++ b/t/15oracle-parser.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
-use Test::More tests => 73;
+use Test::More tests => 76;
 use SQL::Translator;
 use SQL::Translator::Schema::Constants;
 use SQL::Translator::Parser::Oracle qw(parse);
@@ -32,11 +32,13 @@ my $sql = q[
         FOREIGN KEY ( qtl_trait_category_id ) REFERENCES qtl_trait_category
     );
 
+    /* qtl table comment */
     CREATE TABLE qtl
     (
+        /* qtl_id comment */
         qtl_id              NUMBER(11)      NOT NULL    
             CONSTRAINT pk_qtl PRIMARY KEY,
-        qtl_accession_id    VARCHAR2(20)    NOT NULL,
+        qtl_accession_id    VARCHAR2(20)    NOT NULL /* accession comment */,
         published_symbol    VARCHAR2(100),
         qtl_trait_id        NUMBER(11)      NOT NULL,
         linkage_group       VARCHAR2(32)    NOT NULL,
@@ -200,6 +202,15 @@ is( scalar @t3_fields, 8, '8 fields in table' );
 my @t3_constraints = $t3->get_constraints;
 is( scalar @t3_constraints, 3, '3 constraints on table' );
 
+is( $t3->comments, 'qtl table comment', 'Comment "qtl table comment" exists' );
+
+my $t3_f1     = shift @t3_fields;
+is( $t3_f1->comments, 'qtl_id comment', 'Comment "qtl_id comment" exists' );
+
+my $t3_f2     = shift @t3_fields;
+is( $t3_f2->comments, 'accession comment', 
+    'Comment "accession comment" exists' );
+
 #
 # qtl_trait_synonym
 #