t/19sybase-parser.t

   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;