X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F05bgep-re.t;h=1c55bc456a18c885cf4cc5dd1f3878d6c0214e77;hb=2d691ec135298f8a4523656dc0516dcb7af3e8cd;hp=435f8cebf888fd32fdfd2b2616742e2dcb40721c;hpb=49133ae73acfa89f849086f5c28fc9395cd2bebe;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/05bgep-re.t b/t/05bgep-re.t
index 435f8ce..1c55bc4 100644
--- a/t/05bgep-re.t
+++ b/t/05bgep-re.t
@@ -8,7 +8,8 @@ use File::Spec::Functions qw(catfile tmpdir);
 use File::Temp qw(tempfile);
 use FindBin qw($Bin);
 use SQL::Translator;
-use Test::More tests => 2;
+use Test::More;
+use Test::SQL::Translator qw(maybe_plan);
 
 # This aggravates me; XML::Writer produces tons of warnings.
 local $SIG{__WARN__} = sub {
@@ -16,6 +17,12 @@ local $SIG{__WARN__} = sub {
         unless $_[0] =~ m#XML/Writer#;
 };
 
+BEGIN {
+    maybe_plan(2, 
+        'SQL::Translator::Parser::MySQL',
+        'SQL::Translator::Producer::XML::SQLFairy');
+}
+
 my @data = qw(data mysql BGEP-RE-create.sql);
 my $test_data = (-d "t")
     ? catfile($Bin, @data)