test + fix for Oracle multi-column constraint generation

[dbsrgits/SQL-Translator.git] / t / 60roundtrip.t

diff --git a/t/60roundtrip.t b/t/60roundtrip.t
index 2f98ca9..857226e 100644 (file)
--- a/t/60roundtrip.t
+++ b/t/60roundtrip.t
@@ -16,7 +16,7 @@ use SQL::Translator;
 my $plan = [
   {
     engine => 'XML',
-    req => 'XML::LibXML',
+    req => 'XML::LibXML 1.69',
   },
   {
     engine => 'YAML',
@@ -55,24 +55,24 @@ my $plan = [
     parser_args => {},
   },
 
-  {
-    engine => 'Oracle',
-    producer_args => {},
-    parser_args => {},
-    todo => 'Needs volunteers',
-  },
-  {
-    engine => 'Sybase',
-    producer_args => {},
-    parser_args => {},
-    todo => 'Needs volunteers',
-  },
-  {
-    engine => 'DB2',
-    producer_args => {},
-    parser_args => {},
-    todo => 'Needs volunteers',
-  },
+#  {
+#    engine => 'Oracle',
+#    producer_args => {},
+#    parser_args => {},
+#    todo => 'Needs volunteers',
+#  },
+#  {
+#    engine => 'Sybase',
+#    producer_args => {},
+#    parser_args => {},
+#    todo => 'Needs volunteers',
+#  },
+#  {
+#    engine => 'DB2',
+#    producer_args => {},
+#    parser_args => {},
+#    todo => 'Needs volunteers',
+#  },
 
 # There is no Access producer
 #  {
@@ -111,7 +111,7 @@ for my $args (@$plan) {
     my @req = ref $args->{req} ? @{$args->{req}} : $args->{req}||();
     my @missing;
     for (@req) {
-      eval "require $_";
+      eval "use $_ ()";
       push @missing, $_ if ($@);
     }
     if (@missing) {