2 # vim: set ft=perl ts=4 et:
8 use Test::More 'no_plan'; #tests => 1;
10 use SQL::Translator::Parser::Sybase qw(parse);
12 my $file = "$Bin/data/sybase/create.sql";
14 ok( -e $file, "File exists" );
16 my $t = SQL::Translator->new;
18 my $val = parse($t, $file);
20 my $schema = $t->schema;
21 is( $schema->is_valid, 1, 'Schema is valid' );
22 my @tables = $schema->get_tables;