skip tests that need VMS::Filespec on other platforms

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

diff --git a/t/lib/odbm.t b/t/lib/odbm.t
index c5458d5..f8b8a11 100755 (executable)
--- a/t/lib/odbm.t
+++ b/t/lib/odbm.t
@@ -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 &&
@@ -391,3 +393,14 @@ EOM
    untie %h;
    unlink <Op.dbmx*>;
 }
+
+if ($^O eq 'hpux') {
+    print <<EOM;
+#
+# If you experience failures with the odbm test in HP-UX,
+# this is a well-known bug that's unfortunately very hard to fix.
+# The suggested course of action is to avoid using the ODBM_File,
+# but to use instead the NDBM_File extension.
+#
+EOM
+}