Tests moved from 13graph.t.

diff --git a/t/37-translator-graph.t b/t/37-translator-graph.t
new file mode 100644 (file)
index 0000000..ad3779e
--- /dev/null
+++ b/t/37-translator-graph.t
@@ -0,0 +1,23 @@
+#!/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/wiki.sql'), 'Translate PG' );
+    ok( my $schema = $tr->schema, 'Got Schema' );
+    ok( my $graph = $schema->as_graph, 'Graph made');
+}