[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', 'Class::MakeMethods');
}

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

    local $SIG{__WARN__} = sub {
      warn @_ unless $_[0] =~ /SQL::Translator::Schema::Graph appears to be dead unmaintained and untested code/
    };

    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 {
0f35a00d	12	maybe_plan(3, 'SQL::Translator', 'Class::MakeMethods');
726cd28f	13	}
	14
	15	{
	16	my $tr = SQL::Translator->new(
	17	parser => "PostgreSQL",
	18	);
	19
1abbbee1	20	local $SIG{__WARN__} = sub {
	21	warn @_ unless $_[0] =~ /SQL::Translator::Schema::Graph appears to be dead unmaintained and untested code/
	22	};
	23
b13c0e37	24	ok( $tr->translate('t/data/pgsql/turnkey.sql'), 'Translate PG' );
726cd28f	25	ok( my $schema = $tr->schema, 'Got Schema' );
	26	ok( my $graph = $schema->as_graph, 'Graph made');
	27	}