1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/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');
}
|
