Cleaned up, fixed db events.
Ken Youens-Clark [Wed, 15 Apr 2009 18:20:31 +0000 (18:20 +0000)]
t/43xml-to-db2.t

index a8afc2f..223daf3 100644 (file)
@@ -4,12 +4,12 @@ use strict;
 use FindBin qw/$Bin/;
 use Test::More;
 use Test::SQL::Translator;
+use Test::Differences;
 use Test::Exception;
 use Data::Dumper;
 use SQL::Translator;
 use SQL::Translator::Schema::Constants;
 
-
 BEGIN {
     maybe_plan(1, 'SQL::Translator::Parser::XML::SQLFairy',
               'SQL::Translator::Producer::DB2');
@@ -32,7 +32,7 @@ my $sql = $sqlt->translate(
     filename => $xmlfile,
 ) or die $sqlt->error;
 
-is($sql, << "SQL");
+eq_or_diff($sql, << "SQL");
 DROP TABLE Basic;
 
 CREATE TABLE Basic (