From: Ken Youens-Clark <kclark@cpan.org>
Date: Mon, 20 Dec 2004 16:36:40 +0000 (+0000)
Subject: Tests moved from 13graph.t.
X-Git-Tag: v0.11008~582
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=726cd28faa3af40be07fffe1019fb540212b0c1f;p=dbsrgits%2FSQL-Translator.git

Tests moved from 13graph.t.
---

diff --git a/t/37-translator-graph.t b/t/37-translator-graph.t
new file mode 100644
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');
+}