Add (now passing) test with file from RT#70473

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

diff --git a/t/02mysql-parser.t b/t/02mysql-parser.t
index 5277e65..2ac1a92 100644 (file)
--- a/t/02mysql-parser.t
+++ b/t/02mysql-parser.t
@@ -9,9 +9,10 @@ use SQL::Translator;
 use SQL::Translator::Schema::Constants;
 use SQL::Translator::Utils qw//;
 use Test::SQL::Translator qw(maybe_plan);
+use FindBin qw/$Bin/;
 
 BEGIN {
-    maybe_plan(333, "SQL::Translator::Parser::MySQL");
+    maybe_plan(337, "SQL::Translator::Parser::MySQL");
     SQL::Translator::Parser::MySQL->import('parse');
 }
 
@@ -902,3 +903,13 @@ ok ($@, 'Exception thrown on invalid version string');
       ok( (defined $def and $def eq ''), "Defaults on field $_ correct" );
     }
 }
+
+{
+    # test rt70437 and rt71468
+    my $file = "$Bin/data/mysql/cashmusic_db.sql";
+    ok (-f $file,"File exists");
+    my $tr = SQL::Translator->new( parser => 'MySQL');
+    ok ($tr->translate($file),'File translated');
+    ok (!$tr->error, 'no error');
+    ok (my $schema = $tr->schema, 'got schema');
+}