Updated version number and Change log for recent patches.

[dbsrgits/SQL-Translator.git] / t / 23xml-xmi-parser-rational.t

diff --git a/t/23xml-xmi-parser-rational.t b/t/23xml-xmi-parser-rational.t
index f1adb59..b7aa8fc 100644 (file)
--- a/t/23xml-xmi-parser-rational.t
+++ b/t/23xml-xmi-parser-rational.t
@@ -15,9 +15,16 @@ use constant DEBUG => (exists $opt{d} ? 1 : 0);
 
 use Test::More;
 use Test::Exception;
+use Test::SQL::Translator qw(maybe_plan);
 use SQL::Translator;
 use SQL::Translator::Schema::Constants;
 
+BEGIN {
+    maybe_plan(92,
+        'SQL::Translator::Parser::XML::XMI::Rational',
+        'SQL::Translator::Producer::MySQL');
+}
+
 # Usefull test subs for the schema objs
 #=============================================================================
 
@@ -90,13 +97,13 @@ sub constraint_ok {
        "    match_type is '$test->{match_type}'" )
        if exists $test->{match_type};
        
-       is( $con->on_delete_do, $test->{on_delete_do},
-       "    on_delete_do is '$test->{on_delete_do}'" )
-       if exists $test->{on_delete_do};
+       is( $con->on_delete, $test->{on_delete},
+       "    on_delete is '$test->{on_delete}'" )
+       if exists $test->{on_delete};
        
-       is( $con->on_update_do, $test->{on_update_do},
-       "    on_update_do is '$test->{on_update_do}'" )
-       if exists $test->{on_update_do};
+       is( $con->on_update, $test->{on_update},
+       "    on_update is '$test->{on_update}'" )
+       if exists $test->{on_update};
 }
 
 sub test_table {
@@ -128,8 +135,6 @@ sub test_table {
 # Testing 1,2,3,..
 #=============================================================================
 
-plan tests => 92;
-
 my $testschema = "$Bin/data/xmi/OrderDB.rationalprofile.poseidon2.xmi";
 die "Can't find test schema $testschema" unless -e $testschema;