From: Ken Youens-Clark <kclark@cpan.org>
Date: Mon, 20 Dec 2004 16:36:22 +0000 (+0000)
Subject: Moved graph tests out.
X-Git-Tag: v0.11008~583
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0c879b5dbba1534791488cab3adab492517ce174;p=dbsrgits%2FSQL-Translator.git

Moved graph tests out.
---

diff --git a/t/13schema.t b/t/13schema.t
index ec08a02..53638f1 100644
--- a/t/13schema.t
+++ b/t/13schema.t
@@ -4,7 +4,7 @@
 $| = 1;
 
 use strict;
-use Test::More tests => 232;
+use Test::More tests => 229;
 use SQL::Translator::Schema::Constants;
 
 require_ok( 'SQL::Translator' );
@@ -411,19 +411,6 @@ require_ok( 'SQL::Translator::Schema' );
 }
 
 #
-# 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');
-}
-
-#
 # Test ability to introspect some values
 #
 { 
@@ -431,7 +418,7 @@ require_ok( 'SQL::Translator::Schema' );
         name     => 'foo',
         database => 'PostgreSQL',
     );
-    my $t = $s->add_table( name => 'person' ) or warn $s->erro;
+    my $t = $s->add_table( name => 'person' ) or warn $s->error;
     my $f = $t->add_field( name => 'person_id' ) or warn $t->error;
     $f->data_type('serial');