Used code found http://www.mail-archive.com/perl-documentation@perl.org/msg00380...

[dbsrgits/SQL-Translator.git] / t / 02mysql-parser.t

diff --git a/t/02mysql-parser.t b/t/02mysql-parser.t
index 3aa829a..1839795 100644 (file)
--- a/t/02mysql-parser.t
+++ b/t/02mysql-parser.t
@@ -7,16 +7,11 @@ use strict;
 use Test::More;
 use SQL::Translator;
 use SQL::Translator::Schema::Constants;
+use Test::SQL::Translator qw(maybe_plan);
 
-eval {
-    require SQL::Translator::Parser::MySQL;
+BEGIN {
+    maybe_plan(180, "SQL::Translator::Parser::MySQL");
     SQL::Translator::Parser::MySQL->import('parse');
-};
-if ($@) {
-    plan skip_all => "$@";
-}
-else {
-    plan tests => 180;
 }
 
 {