Compression Modules Update for EBCDIC

[p5sagit/p5-mst-13.2.git] / t / lib / compress / multi.pl

diff --git a/t/lib/compress/multi.pl b/t/lib/compress/multi.pl
index 9daff1a..cfb5666 100644 (file)
--- a/t/lib/compress/multi.pl
+++ b/t/lib/compress/multi.pl
@@ -129,7 +129,7 @@ EOM
                     ok $gz->close(), "    close() ok"
                         or diag "errno $!\n" ;
 
-                    is $gz->streamCount(), $i +1, "    streamCount ok"
+                    is $gz->streamCount(), $i +1, "    streamCount ok " .  ($i +1)
                         or diag "Stream count is " . $gz->streamCount();
                     ok $un eq join('', @buffs), "    expected output" ;