Ignore all TT test while TT is broken

diff --git a/Changes b/Changes
index cf1e5db..2398ef2 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,4 +1,16 @@
 # -----------------------------------------------------------
+# 0.08001 2007-09-26
+# ----------------------------------------------------------
+
+* Patched to ignore all TT versions >= 2.15 until TT is fixed :(
+
+# -----------------------------------------------------------
+# 0.08 2006-12-07
+# -----------------------------------------------------------
+
+* Patched 18ttschema-producer.t and 33tt-table-producter.t to skip on TT 2.15, thanks Ash!
+
+# -----------------------------------------------------------
 # 0.08_04 2006-11-10
 # -----------------------------------------------------------
 

diff --git a/lib/SQL/Translator.pm b/lib/SQL/Translator.pm
index aaaef66..88df169 100644 (file)
--- a/lib/SQL/Translator.pm
+++ b/lib/SQL/Translator.pm
@@ -1,7 +1,7 @@
 package SQL::Translator;
 
 # ----------------------------------------------------------------------
-# $Id: Translator.pm,v 1.71 2006-11-10 21:58:14 mwz444 Exp $
+# $Id: Translator.pm,v 1.72 2007-09-26 13:20:09 schiffbruechige Exp $
 # ----------------------------------------------------------------------
 # Copyright (C) 2002-4 The SQLFairy Authors
 #
@@ -26,8 +26,8 @@ use base 'Class::Base';
 
 require 5.004;
 
-$VERSION  = '0.08_04';
-$REVISION = sprintf "%d.%02d", q$Revision: 1.71 $ =~ /(\d+)\.(\d+)/;
+$VERSION  = '0.08001';
+$REVISION = sprintf "%d.%02d", q$Revision: 1.72 $ =~ /(\d+)\.(\d+)/;
 $DEBUG    = 0 unless defined $DEBUG;
 $ERROR    = "";
 

diff --git a/lib/SQL/Translator/Producer/GraphViz.pm b/lib/SQL/Translator/Producer/GraphViz.pm
index b86e844..74a52bd 100644 (file)
--- a/lib/SQL/Translator/Producer/GraphViz.pm
+++ b/lib/SQL/Translator/Producer/GraphViz.pm
@@ -1,7 +1,7 @@
 package SQL::Translator::Producer::GraphViz;
 
 # -------------------------------------------------------------------
-# $Id: GraphViz.pm,v 1.13 2007-05-07 20:58:56 mwz444 Exp $
+# $Id: GraphViz.pm,v 1.14 2007-09-26 13:20:09 schiffbruechige Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2002-4 SQLFairy Authors
 #
@@ -182,7 +182,7 @@ use SQL::Translator::Schema::Constants;
 use SQL::Translator::Utils qw(debug);
 
 use vars qw[ $VERSION $DEBUG ];
-$VERSION = sprintf "%d.%02d", q$Revision: 1.13 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.14 $ =~ /(\d+)\.(\d+)/;
 $DEBUG   = 0 unless defined $DEBUG;
 
 use constant VALID_LAYOUT => {
@@ -360,8 +360,8 @@ sub produce {
             } @fields
         ) . '\l';
         my $label = $show_fields ? "{$table_name|$field_str}" : $table_name;
-        $gv->add_node( $table_name, label => $label );
-
+#        $gv->add_node( $table_name, label => $label );
+        $gv->add_node( $table_name, label => $label, ($node_shape eq 'record' ? ( shape => $node_shape ) : ()) );
         debug("Processing table '$table_name'");
 
         debug("Fields = ", join(', ', map { $_->name } @fields));

diff --git a/t/33tt-table-producer.t b/t/33tt-table-producer.t
index c1ccfb7..9dda29b 100644 (file)
--- a/t/33tt-table-producer.t
+++ b/t/33tt-table-producer.t
@@ -21,6 +21,10 @@ use File::Temp qw/tempdir/;
 #=============================================================================
 
 BEGIN {
+    eval {require Template;};
+    plan skip_all => "Template v2.15+ is incompatible with SQL::Translator 0.08+"
+      if !$@ && Template->VERSION >= 2.15;
+
     maybe_plan(8, 'Template', 'Test::Differences')
 }
 use Test::Differences;