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 | } |