X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F34tt-base.t;h=d104dbeeeda00ded94957c46cad91a80f45cdeec;hb=8c4efd11b1888e7b99cdc302dbc66ace5037453d;hp=57cd00d92a45b8969865f0f66bbb01e539d0762e;hpb=7266dab2357ff83b669d8f5227b56fcd3647ff6d;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/34tt-base.t b/t/34tt-base.t
index 57cd00d..d104dbe 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,23 @@ 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')
+    maybe_plan(4, 'Template', 
+               'Test::Differences', 
+               'SQL::Translator::Parser::XML::SQLFairy')
 }
 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 +39,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