X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F61translator_agnostic.t;h=e706717c775f4db1f0d3e596162d863b4056ebfb;hb=d8cf2279bd5e25db979d6251c5648d69fc5a298d;hp=52c4678b282b3152bf2816ac5c73124c7f423f8a;hpb=cbceab6ae9d955b2747b99ffe88242a98fd3510e;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/61translator_agnostic.t b/t/61translator_agnostic.t
index 52c4678..e706717 100644
--- a/t/61translator_agnostic.t
+++ b/t/61translator_agnostic.t
@@ -2,10 +2,15 @@
 
 use warnings;
 use strict;
-use Test::More qw/no_plan/;
-use Test::Exception;
+use Test::More;
+use Test::SQL::Translator;
 use FindBin qw/$Bin/;
 
+BEGIN {
+    maybe_plan(1, 'SQL::Translator::Parser::XML',
+                  'SQL::Translator::Producer::XML');
+}
+
 use SQL::Translator;
 
 # Producing a schema with a Translator different from the one the schema was
@@ -31,8 +36,12 @@ my $sql = $new_t->translate (
   producer => 'SQLite'
 );
 
-like (
-  $sql,
-  qr/^\s*CREATE TABLE/m,  #assume there is at least one create table statement 
-  "Received some meaningful output from the producer",
-);
+TODO: {
+  local $TODO = 'This will probably not work before the rewrite';
+
+  like (
+    $sql,
+    qr/^\s*CREATE TABLE/m,  #assume there is at least one create table statement 
+    "Received some meaningful output from the producer",
+  );
+}