From: Mark Addison <grommit@users.sourceforge.net>
Date: Sun, 12 Dec 2004 18:34:43 +0000 (+0000)
Subject: Clean up
X-Git-Tag: v0.11008~586
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=952b2663de03f2107f500b94a7f17135c7ec29a1;p=dbsrgits%2FSQL-Translator.git

Clean up
---

diff --git a/t/34tt-base.t b/t/34tt-base.t
index 57cd00d..7170260 100644
--- a/t/34tt-base.t
+++ b/t/34tt-base.t
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w 
+#!/usr/bin/perl -w
 # vim:filetype=perl
 
 # Before `make install' is performed this script should be runnable with
@@ -9,30 +9,21 @@ use Test::More;
 use Test::Exception;
 use Test::SQL::Translator qw(maybe_plan);
 
-use Data::Dumper;
-use vars '%opt';
-BEGIN { map { $opt{$_}=1 if s/^-// } @ARGV; }
-use constant DEBUG => (exists $opt{d} ? 1 : 0);
-
-use FindBin qw/$Bin/;
-use lib ("$Bin/lib");
-
-# Testing 1,2,3,4...
-#=============================================================================
-package main;
-
 BEGIN {
     maybe_plan(4, 'Template', 'Test::Differences')
 }
 use Test::Differences;
 
 use SQL::Translator;
-use SQL::Translator::Producer::TTSchema;
+use FindBin qw/$Bin/;
+# Access to test libs. We want Producer/BaseTest.pm from here.
+use lib ("$Bin/lib");
+
 
 # Parse the test XML schema
 my $obj;
 $obj = SQL::Translator->new(
-    debug          => DEBUG, #$opt{d},
+    debug          => 0,
     show_warnings  => 1,
     add_drop_table => 1,
     from           => "XML-SQLFairy",
@@ -46,8 +37,6 @@ ok $out ne ""                        ,"Produced something!";
 local $/ = undef; # slurp
 eq_or_diff $out, <DATA>              ,"Output looks right";
 
-print $out if DEBUG;
-#print "Debug:", Dumper($obj) if DEBUG;
 
 __DATA__
 Hello World