remove redundant part of change#1169 superseded by change#2061;
[p5sagit/p5-mst-13.2.git] / t / lib / odbm.t
index c5458d5..fc15d13 100755 (executable)
@@ -7,7 +7,7 @@ BEGIN {
     unshift @INC, '../lib';
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bODBM_File\b/) {
-       print "1..0\n";
+       print "1..0 # Skip: ODBM_File was not built\n";
        exit 0;
     }
 }
@@ -215,6 +215,8 @@ EOM
    sub checkOutput
    {
        my($fk, $sk, $fv, $sv) = @_ ;
+       print "# ", join('|', $fetch_key, $fk, $store_key, $sk,
+                       $fetch_value, $fv, $store_value, $sv, $_), "\n";
        return
            $fetch_key eq $fk && $store_key eq $sk && 
           $fetch_value eq $fv && $store_value eq $sv &&