use Test::More;
use Test::Exception;
+use Test::SQL::Translator qw(maybe_plan);
use SQL::Translator;
use SQL::Translator::Schema::Constants;
-plan tests => 8;
+maybe_plan(8,
+ 'SQL::Translator::Parser::XML::XMI',
+ 'SQL::Translator::Producer::MySQL');
my $testschema = "$Bin/data/xmi/Foo.poseidon2.xmi";
die "Can't find test schema $testschema" unless -e $testschema;