Template config is now passed using tt_conf producer arg. Deprecated passing

[dbsrgits/SQL-Translator.git] / t / 13schema.t

diff --git a/t/13schema.t b/t/13schema.t
index 8f787f3..1c776e6 100644 (file)
--- a/t/13schema.t
+++ b/t/13schema.t
@@ -4,9 +4,10 @@
 $| = 1;
 
 use strict;
-use Test::More tests => 202;
+use Test::More tests => 206;
 use SQL::Translator::Schema::Constants;
 
+require_ok( 'SQL::Translator' );
 require_ok( 'SQL::Translator::Schema' );
 
 {
@@ -339,6 +340,20 @@ require_ok( 'SQL::Translator::Schema' );
 
     my @views = $schema->get_views;
     is( scalar @views, 2, 'Found 1 view' );
+
+}
+
+#
+# Graph
+#
+{
+    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');
 }
 
 #