test suite and fix input_line_number()

[p5sagit/p5-mst-13.2.git] / t / lib / odbm.t

diff --git a/t/lib/odbm.t b/t/lib/odbm.t
index c5458d5..0ef2592 100755 (executable)
--- a/t/lib/odbm.t
+++ b/t/lib/odbm.t
@@ -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 &&