[dbsrgits/SQL-Translator.git] / t / 37-translator-graph.t

#!/usr/bin/perl
# vim: set ft=perl:

use strict;

use Test::More;
use SQL::Translator;
use SQL::Translator::Schema::Constants;
use Test::SQL::Translator qw(maybe_plan);

BEGIN {
    maybe_plan(3, "SQL::Translator");
}

{
    my $tr = SQL::Translator->new(
        parser   => "PostgreSQL",
    );

    ok( $tr->translate('t/data/pgsql/turnkey.sql'), 'Translate PG' );
    ok( my $schema = $tr->schema, 'Got Schema' );
    ok( my $graph = $schema->as_graph, 'Graph made');
}
Commit	Line	Data
726cd28f	1	#!/usr/bin/perl
	2	# vim: set ft=perl:
	3
	4	use strict;
	5
	6	use Test::More;
	7	use SQL::Translator;
	8	use SQL::Translator::Schema::Constants;
	9	use Test::SQL::Translator qw(maybe_plan);
	10
	11	BEGIN {
	12	maybe_plan(3, "SQL::Translator");
	13	}
	14
	15	{
	16	my $tr = SQL::Translator->new(
	17	parser => "PostgreSQL",
	18	);
	19
b13c0e37	20	ok( $tr->translate('t/data/pgsql/turnkey.sql'), 'Translate PG' );
726cd28f	21	ok( my $schema = $tr->schema, 'Got Schema' );
	22	ok( my $graph = $schema->as_graph, 'Graph made');
	23	}