From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 6 Apr 2002 18:50:17 +0000 (+0000)
Subject: Be explicit about the two DB_File tests croaking
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3ebf01372cf06407542ef8b2a7803d95d2819cd5;p=p5sagit%2Fp5-mst-13.2.git

Be explicit about the two DB_File tests croaking
in Mac OS X.

p4raw-id: //depot/perl@15769
---

diff --git a/ext/DB_File/t/db-btree.t b/ext/DB_File/t/db-btree.t
index 74b0cba..668e94a 100755
--- a/ext/DB_File/t/db-btree.t
+++ b/ext/DB_File/t/db-btree.t
@@ -18,6 +18,17 @@ BEGIN {
             exit 0;
         }
     }
+    if ($^O eq 'darwin'
+	&& $Config{db_version_major} == 1
+	&& $Config{db_version_minor} == 0
+	&& $Config{db_version_patch} == 0) {
+	warn <<EOM;
+#
+# This test is known to crash in Mac OS X versions 10.1.3 (or earlier)
+# because of the buggy Berkeley DB version included with the OS.
+#
+EOM
+    }
 }
 
 use DB_File; 
diff --git a/ext/DB_File/t/db-recno.t b/ext/DB_File/t/db-recno.t
index ae1a455..bd7ba83 100755
--- a/ext/DB_File/t/db-recno.t
+++ b/ext/DB_File/t/db-recno.t
@@ -91,10 +91,22 @@ sub docat_del
 
 sub bad_one
 {
-    print STDERR <<EOM unless $bad_ones++ ;
+    unless ($bad_ones++) {
+	print STDERR <<EOM ;
 #
-# Some older versions of Berkeley DB version 1 will fail tests 61,
-# 63 and 65.
+# Some older versions of Berkeley DB version 1 will fail db-recno
+# tests 61, 63 and 65.
+EOM
+        if ($^O eq 'darwin') {
+	print STDERR <<EOM ;
+#
+#  For example Mac OS X 10.1.3 (or earlier) has such an old
+#  version of Berkeley DB.
+#
+EOM
+	}
+
+	print STDERR <<EOM ;
 #
 # You can safely ignore the errors if you're never going to use the
 # broken functionality (recno databases with a modified bval). 
@@ -105,6 +117,7 @@ sub bad_one
 # being updated -- Check out http://www.sleepycat.com/ for more details.
 #
 EOM
+    }
 }
 
 sub normalise