t/37-translator-graph.t

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