gdbm: don't run tests on 64-bit Windows since there's no gdbm there

diff --git a/extra/gdbm/gdbm-tests.factor b/extra/gdbm/gdbm-tests.factor
index 4a102deeb1561d583a00bb8bc17bd9ced721ad29..a588d4d6503f26a418d48ff79705c4da8645a252 100644 (file)
--- a/extra/gdbm/gdbm-tests.factor
+++ b/extra/gdbm/gdbm-tests.factor
@@ -12,52 +12,53 @@ IN: gdbm.tests
 
 : with-test.db ( quot -- ) test.db swap with-gdbm ; inline
 
+os windows? cpu x86.64? and [
+    CLEANUP
 
-CLEANUP
 
+    [
+        test.db reader >>role [ ] with-gdbm
+    ] [ gdbm-file-open-error = ] must-fail-with
 
-[
-    test.db reader >>role [ ] with-gdbm
-] [ gdbm-file-open-error = ] must-fail-with
-
-[ f ] [ [ "foo" exists? ] with-test.db ] unit-test
+    [ f ] [ [ "foo" exists? ] with-test.db ] unit-test
 
-[ ] [ [ "foo" 41 insert ] with-test.db ] unit-test
+    [ ] [ [ "foo" 41 insert ] with-test.db ] unit-test
 
-[
-    db-path [ "foo" 42 insert ] with-gdbm-writer
-] [ gdbm-cannot-replace = ] must-fail-with
+    [
+        db-path [ "foo" 42 insert ] with-gdbm-writer
+    ] [ gdbm-cannot-replace = ] must-fail-with
 
-[ ]
-[
+    [ ]
     [
-        "foo" 42 replace
-        "bar" 43 replace
-        "baz" 44 replace
-    ] with-test.db
-] unit-test
+        [
+            "foo" 42 replace
+            "bar" 43 replace
+            "baz" 44 replace
+        ] with-test.db
+    ] unit-test
 
-[ 42 t ] [ db-path [ "foo" fetch* ] with-gdbm-reader ] unit-test
+    [ 42 t ] [ db-path [ "foo" fetch* ] with-gdbm-reader ] unit-test
 
-[ f f ] [ [ "unknown" fetch* ] with-test.db ] unit-test
+    [ f f ] [ [ "unknown" fetch* ] with-test.db ] unit-test
 
-[
     [
-        300 set-cache-size 300 set-cache-size
-    ] with-test.db
-] [ gdbm-option-already-set = ] must-fail-with
+        [
+            300 set-cache-size 300 set-cache-size
+        ] with-test.db
+    ] [ gdbm-option-already-set = ] must-fail-with
 
-[ t ]
-[
-    V{ } [ [ 2array append ] each-record ] with-test.db
-    V{ "foo" "bar" "baz" 42 43 44 } set=
+    [ t ]
+    [
+        V{ } [ [ 2array append ] each-record ] with-test.db
+        V{ "foo" "bar" "baz" 42 43 44 } set=
 
-] unit-test
+    ] unit-test
 
-[ f ]
-[
-    test.db newdb >>role [ "foo" exists? ] with-gdbm
-] unit-test
+    [ f ]
+    [
+        test.db newdb >>role [ "foo" exists? ] with-gdbm
+    ] unit-test
 
 
-CLEANUP
+    CLEANUP
+] unless