5 # For now, all this is testing is that Parse::RecDescent does not
6 # die with an error! I am not verifying the validity of the data
7 # returned here, just that the parser actually completed its parsing!
12 use SQL::Translator::Parser::MySQL qw(parse);
14 my $datafile = "t/data/mysql/Apache-Session-MySQL.sql";
18 open $fh, $datafile or die "Can't open '$datafile' for reading: $!";
19 read($fh, $data, -s $datafile);
20 close $fh or die "Can't close '$datafile': $!";
22 BEGIN { print "1..1\n"; }
24 eval { parse($data); };