steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Slava Pestov 2010-07-22 14:34:59 -07:00
parent f7bd876cae
commit abf9efe731
1 changed files with 38 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
extra/gdbm/gdbm-tests.factor
View File

@ -12,52 +12,53 @@ IN: gdbm.tests
: with-test.db ( quot -- ) test.db swap with-gdbm ; inline : 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
[ f ] [ [ "foo" exists? ] 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
[ ]
[
[ [
"foo" 42 replace test.db reader >>role [ ] with-gdbm
"bar" 43 replace ] [ gdbm-file-open-error = ] must-fail-with
"baz" 44 replace
] with-test.db
] unit-test
[ 42 t ] [ db-path [ "foo" fetch* ] with-gdbm-reader ] unit-test [ f ] [ [ "foo" exists? ] with-test.db ] unit-test
[ f f ] [ [ "unknown" fetch* ] with-test.db ] unit-test [ ] [ [ "foo" 41 insert ] with-test.db ] unit-test
[
[ [
300 set-cache-size 300 set-cache-size db-path [ "foo" 42 insert ] with-gdbm-writer
] with-test.db ] [ gdbm-cannot-replace = ] must-fail-with
] [ gdbm-option-already-set = ] must-fail-with
[ t ] [ ]
[ [
V{ } [ [ 2array append ] each-record ] with-test.db [
V{ "foo" "bar" "baz" 42 43 44 } set= "foo" 42 replace
"bar" 43 replace
"baz" 44 replace
] with-test.db
] unit-test
] unit-test [ 42 t ] [ db-path [ "foo" fetch* ] with-gdbm-reader ] unit-test
[ f ] [ f f ] [ [ "unknown" fetch* ] with-test.db ] unit-test
[
test.db newdb >>role [ "foo" exists? ] with-gdbm [
] unit-test [
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=
] unit-test
[ f ]
[
test.db newdb >>role [ "foo" exists? ] with-gdbm
] unit-test
CLEANUP CLEANUP
] unless