X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F30sqlt-diff.t;h=c745dae93dbb5053c21e3daa0f8f48d50483cea6;hb=495c5c2f1485e707ed5e2e340df592eff37463d8;hp=ca459a15371eac4a06bf6d0336bb99d0892534dd;hpb=ed6f968ad762ce9a41863f27c0c37f1b13ec8248;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/30sqlt-diff.t b/t/30sqlt-diff.t
index ca459a1..c745dae 100644
--- a/t/30sqlt-diff.t
+++ b/t/30sqlt-diff.t
@@ -4,9 +4,9 @@
 use strict;
 
 use File::Spec::Functions qw(catfile updir tmpdir);
-use File::Temp qw(tempfile);
 use FindBin qw($Bin);
 use Test::More;
+use Test::SQL::Translator qw(maybe_plan);
 
 my @script = qw(blib script sqlt-diff);
 my @create1 = qw(data sqlite create.sql);
@@ -24,12 +24,18 @@ my $create2 = (-d "t")
     ? catfile($Bin, @create2)
     : catfile($Bin, "t", @create2);
 
-plan tests => 2;
+BEGIN {
+    maybe_plan(3,
+        'SQL::Translator::Parser::SQLite',
+        'SQL::Translator::Producer::YAML',
+        );
+}
 
-ok(-e $sqlt_diff); 
+ok(-e $sqlt_diff, 'Found sqlt-diff script'); 
 my @cmd = ($sqlt_diff, "$create1=SQLite", "$create2=SQLite");
 
-close STDERR;
 my $out = `@cmd`;
 
-like($out, qr/ is missing field/, "Detected missing field 'lemon'");
+like($out, qr/ALTER TABLE person CHANGE iq/, "Detected altered 'iq' field");
+like($out, qr/ALTER TABLE person ADD is_rock_star/, 
+    "Detected missing rock star field");