From: Darren Chamberlain <dlc@sevenroot.org>
Date: Thu, 21 Mar 2002 15:50:10 +0000 (+0000)
Subject: Removed warns and debugging, so this test will actually pass when run as part of... 
X-Git-Tag: v0.01~58^2~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=30df963a7a827b63b279087e60634f5699dd4f49;p=dbsrgits%2FSQL-Translator.git

Removed warns and debugging, so this test will actually pass when run as part of make test.
---

diff --git a/t/04file,fh,string.t b/t/04file,fh,string.t
index 494142d..7674f4e 100644
--- a/t/04file,fh,string.t
+++ b/t/04file,fh,string.t
@@ -17,6 +17,8 @@ use SQL::Translator;
 # How many tests
 BEGIN { print "1..3\n"; }
 
+$SQL::Translator::DEBUG = 0;
+
 # Our object; uses the default parser and producer
 my $tr = SQL::Translator->new;
 
@@ -27,12 +29,12 @@ my $fh = IO::File->new($datafile);
 
 # Pass filename: simplest way
 my $translated_datafile = $tr->translate($datafile);
-warn "Data from filename method is\n$translated_datafile\n\n\n";
+#warn "Data from filename method is\n$translated_datafile\n\n\n";
 
 # Pass string reference
 read($fh, $data, -s $datafile);
 my $translated_data = $tr->translate(\$data);
-warn "Data from string is\n$translated_data\n\n\n";
+#warn "Data from string is\n$translated_data\n\n\n";
 
 print "not " unless length $translated_datafile;
 print "ok 1 # passing string (filename) works\n";