[dbsrgits/SQL-Translator-2.0-ish.git] / t / 999dbic_parser.t

use strict;
use warnings;
use Test::More;
use SQL::Translator;
use SQL::Translator::Constants qw(:sqlt_types :sqlt_constants);

my $t   = SQL::Translator->new( trace => 0, from => 'DBIx::Class' );
$| = 1;

my $sql = '';

my $data   = $t->parse( $sql );
my $schema = $t->schema;

isa_ok( $schema, 'SQL::Translator::Object::Schema', 'Schema object' );

done_testing;
Commit	Line	Data
885425c5	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;