t/05bgep-re.t

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