[Bps-public-commit] r14302 - in Prophet/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Fri Jul 18 19:49:09 2008
New Revision: 14302

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/Test.pm

Log:
 r64615 at onn:  sartak | 2008-07-18 19:48:15 -0400
 Ahhhh! if we had leftover expected lines, we didn't fail


Modified: Prophet/trunk/lib/Prophet/Test.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Test.pm	(original)
+++ Prophet/trunk/lib/Prophet/Test.pm	Fri Jul 18 19:49:09 2008
@@ -183,6 +183,10 @@
     my $ret = run3 [ @cmd, @$arg ], undef, _mk_cmp_closure( $exp_stdout, $stdout_err ),    # stdout
         _mk_cmp_closure( $exp_stderr, $stdout_err );                                       # stderr
 
+    for (@$exp_stdout) {
+        push @$stdout_err, "got nothing, expected: $_";
+    }
+
     my $test_name = join( ' ', $msg ? "$msg:" : '', $script, @$arg );
     is(scalar(@$stdout_err), 0, $test_name);
     if (@$stdout_err) {