t/999dbic_parser.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use SQL::Translator;
   5 use SQL::Translator::Constants qw(:sqlt_types :sqlt_constants);
   6
   7 my $t   = SQL::Translator->new( trace => 0, from => 'DBIx::Class' );
   8 $| = 1;
   9
  10 my $sql = '';
  11
  12 my $data   = $t->parse( $sql );
  13 my $schema = $t->schema;
  14
  15 isa_ok( $schema, 'SQL::Translator::Object::Schema', 'Schema object' );
  16
  17 done_testing;