From: Mark Addison <grommit@users.sourceforge.net>
Date: Fri, 14 May 2004 03:36:32 +0000 (+0000)
Subject: Tweaked to use the default reading of __DATA__
X-Git-Tag: v0.06~53
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f28712a452a3d19bbe9083d603107e0ab6a0eac9;p=dbsrgits%2FSQL-Translator.git

Tweaked to use the default reading of __DATA__
---

diff --git a/t/34tt-base.t b/t/34tt-base.t
index 3841268..fc67484 100644
--- a/t/34tt-base.t
+++ b/t/34tt-base.t
@@ -38,9 +38,6 @@ $obj = SQL::Translator->new(
     from           => "XML-SQLFairy",
     filename       => "$Bin/data/xml/schema-basic.xml",
     to             => "Producer::BaseTest::produce",
-    producer_args  => {
-        ttfile => "$Bin/data/template/basic.tt",
-    },
 );
 my $out;
 lives_ok { $out = $obj->translate; }  "Translate ran";
diff --git a/t/lib/Producer/BaseTest.pm b/t/lib/Producer/BaseTest.pm
index a0e76c2..a31c682 100644
--- a/t/lib/Producer/BaseTest.pm
+++ b/t/lib/Producer/BaseTest.pm
@@ -9,7 +9,8 @@ use base qw/SQL::Translator::Producer::TT::Base/;
 # Make sure we use our new class as the producer
 sub produce { return __PACKAGE__->new( translator => shift )->run; };
 
-sub tt_schema { local $/ = undef; \<DATA>; }
+# Note: we don't need to impliment tt_schema as the default will use the DATA
+# section by default.
 
 sub tt_vars { ( foo => "bar" ); }