Added Chris Hilton's patch so version number test is based on current version and...

[dbsrgits/SQL-Translator.git] / t / 30sqlt-diff.t

diff --git a/t/30sqlt-diff.t b/t/30sqlt-diff.t
index ca459a1..c745dae 100644 (file)
--- 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");