From: Ken Youens-Clark <kclark@cpan.org>
Date: Fri, 27 Feb 2004 18:37:34 +0000 (+0000)
Subject: Updated to match new output;  also had to remove "close STDERR;" to get working.
X-Git-Tag: v0.06~181
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9e1ed4abaf4dc11ab34b6a8fd4d37c24a2e2f68f;p=dbsrgits%2FSQL-Translator.git

Updated to match new output;  also had to remove "close STDERR;" to get working.
---

diff --git a/t/30sqlt-diff.t b/t/30sqlt-diff.t
index 8a6929b..4cba646 100644
--- a/t/30sqlt-diff.t
+++ b/t/30sqlt-diff.t
@@ -23,12 +23,13 @@ my $create2 = (-d "t")
     ? catfile($Bin, @create2)
     : catfile($Bin, "t", @create2);
 
-plan tests => 2;
+plan tests => 3;
 
-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");