[dbsrgits/SQL-Translator.git] / t / 19sybase-parser.t

#!/usr/bin/perl
# vim: set ft=perl ts=4 et:
#

use strict;

use FindBin qw/$Bin/;
use Test::More 'no_plan'; #tests => 1;
use SQL::Translator;
use SQL::Translator::Parser::Sybase qw(parse);

my $file = "$Bin/data/sybase/create.sql";

ok( -e $file, "File exists" );

my $t = SQL::Translator->new;

my $val = parse($t, $file);

my $schema = $t->schema;
is( $schema->is_valid, 1, 'Schema is valid' );
my @tables = $schema->get_tables;
Commit	Line	Data
88d2bfd8	1	#!/usr/bin/perl
	2	# vim: set ft=perl ts=4 et:
	3	#
	4
	5	use strict;
	6
	7	use FindBin qw/$Bin/;
	8	use Test::More 'no_plan'; #tests => 1;
	9	use SQL::Translator;
	10	use SQL::Translator::Parser::Sybase qw(parse);
	11
	12	my $file = "$Bin/data/sybase/create.sql";
	13
	14	ok( -e $file, "File exists" );
	15
	16	my $t = SQL::Translator->new;
	17
	18	my $val = parse($t, $file);
	19
	20	my $schema = $t->schema;
	21	is( $schema->is_valid, 1, 'Schema is valid' );
	22	my @tables = $schema->get_tables;