X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FSQL-Translator.git;a=blobdiff_plain;f=t%2F16xml-parser.t;h=165d11fb25a8162b0591adec0f2d204472e02120;hp=c9628464a1a1a0a87c7c9d75fdf3f27a41a57950;hb=c0ec0e22d3f0e3852c00daac5ef5763010b410c3;hpb=5991fad4ab740ce45140eab7c6fe930a3d57241c

diff --git a/t/16xml-parser.t b/t/16xml-parser.t
index c962846..165d11f 100644
--- a/t/16xml-parser.t
+++ b/t/16xml-parser.t
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w 
+#!/usr/bin/perl -w
 # vim:filetype=perl
 
 # Before `make install' is performed this script should be runnable with
@@ -27,7 +27,7 @@ use constant DEBUG => (exists $opt{d} ? 1 : 0);
 #=============================================================================
 
 BEGIN {
-    maybe_plan(212, 'SQL::Translator::Parser::XML::SQLFairy');
+    maybe_plan(undef, 'SQL::Translator::Parser::XML::SQLFairy');
 }
 
 my $testschema = "$Bin/data/xml/schema.xml";
@@ -89,6 +89,7 @@ schema_ok( $scma, {
                     is_nullable => 0,
                     default_value => "hello",
                     size => 100,
+                    is_unique => 1,
                 },
                 {
                     name => "description",
@@ -162,6 +163,11 @@ schema_ok( $scma, {
                     fields => ["email"],
                 },
                 {
+                    name => 'very_long_index_name_on_title_field_which_should_be_truncated_for_various_rdbms',
+                    type => UNIQUE,
+                    fields => ["title"],
+                },
+                {
                     type => FOREIGN_KEY,
                     fields => ["another_id"],
                     reference_table => "Another",
@@ -199,6 +205,12 @@ schema_ok( $scma, {
                     is_primary_key => 1,
                     is_auto_increment => 1,
                 },
+                {
+                    name => "num",
+                    data_type => "numeric",
+                    default_value => undef,
+                    size => '10,2',
+                },
             ],
         }, # end table Another
     ], # end tables
@@ -206,7 +218,7 @@ schema_ok( $scma, {
     views => [
         {
             name => 'email_list',
-            sql => "SELECT email FROM Basic WHERE email IS NOT NULL",
+            sql => "SELECT email FROM Basic WHERE (email IS NOT NULL)",
             fields => ['email'],
             extra => {
                 foo => "bar",
@@ -223,6 +235,7 @@ schema_ok( $scma, {
             database_events     => 'insert',
             on_table            => 'Basic',
             action              => 'update modified=timestamp();',
+            scope               => 'row',
             extra => {
                 foo => "bar",
                 hello => "world",
@@ -235,6 +248,7 @@ schema_ok( $scma, {
             database_events     => 'insert,update',
             on_table            => 'Basic',
             action              => 'update modified2=timestamp();',
+            scope               => 'row',
             extra => {
                 hello => "aliens",
             },
@@ -257,3 +271,5 @@ schema_ok( $scma, {
     ],
 
 }); # end schema
+
+done_testing;