t/05bgep-re.t

   1 #!/usr/bin/perl
   2 # vim: set ft=perl:
   3 #
   4
   5 use strict;
   6 use Data::Dumper;
   7 use SQL::Translator;
   8 use SQL::Translator::Parser::MySQL qw(parse);
   9
  10 $SQL::Translator::DEBUG = 0;
  11
  12 my $tr = SQL::Translator->new;
  13
  14 my $datafile = "t/data/mysql/BGEP-RE-create.sql";
  15 my $data;
  16 open FH, $datafile or die "Can't open $datafile: $!";
  17 read(FH, $data, -s $datafile);
  18 close FH;
  19
  20 print "Data is ", length $data, " bytes\n";
  21 #print $data;
  22
  23 my $val = parse($tr, $data);
  24 print Dumper($val);