[dbsrgits/SQL-Translator.git] / t / 05bgep-re.t

#!/usr/bin/perl
# vim: set ft=perl:
#

BEGIN { print "1..1\n"; }

use strict;
use Data::Dumper;
use SQL::Translator;
use SQL::Translator::Parser::MySQL;
use SQL::Translator::Producer::XML;

$SQL::Translator::DEBUG = 0;

my $tr = SQL::Translator->new(parser => "MySQL", producer => "XML");

my $datafile = "t/data/mysql/BGEP-RE-create.sql";
my $data;
open FH, $datafile or die "Can't open $datafile: $!";
read(FH, $data, -s $datafile);
close FH;


print $tr->translate(\$data);
print "ok 1\n";
Commit	Line	Data
35bab742	1	#!/usr/bin/perl
	2	# vim: set ft=perl:
	3	#
	4
046f18e5	5	BEGIN { print "1..1\n"; }
8c1f4165	6
35bab742	7	use strict;
	8	use Data::Dumper;
	9	use SQL::Translator;
8c1f4165	10	use SQL::Translator::Parser::MySQL;
8c1f4165	11	use SQL::Translator::Producer::XML;
35bab742	12
	13	$SQL::Translator::DEBUG = 0;
	14
8c1f4165	15	my $tr = SQL::Translator->new(parser => "MySQL", producer => "XML");
35bab742	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
35bab742	23
8c1f4165	24	print $tr->translate(\$data);
dd2ef5ae	25	print "ok 1\n";
dd2ef5ae	26