| Build machine: | winmini |
| Disk usage: | 232.25Gi used, 1620.36Gi avail, 1852.61Gi total, 87.46% free |
| Build directory: | ~/builds64/2026-11-03-15-07 |
| GIT ID: | dd153a21b0db38040027968829358e2a9a8f0bd2 |
| boot-time | 00:05:44 |
| load-time | 00:16:34 |
| test-time | 00:30:45 |
| help-lint-time | 00:00:24 |
| benchmark-time | 00:23:56 |
| html-help-time | 00:35:36 |
==== resource:extra/gdbm/gdbm-tests.factor
resource:extra/gdbm/gdbm-tests.factor: 19
Must Fail With: {
[ test.db reader >>role [ ] with-gdbm ]
[ gdbm-file-open-error = ]
}
Cannot resolve C library function
Library: DLL" libgdbm-6.dll"
Symbol: gdbm_open
DlError: The specified module could not be found.
(U) [ c-to-factor => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
CLEANUP
[ test.db reader >>role ~quotation~ with-gdbm ]
[ gdbm-file-open-error = ] \ (must-fail-with) 19 experiment
=>
{ f } [ ~quotation~ with-test.db ] \ (unit-test) 21
experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 23 experiment
[ db-path ~quotation~ with-gdbm-writer ]
[ gdbm-cannot-replace = ] \ (must-fail-with) 27 experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 36 experiment
{ 42 t } [ db-path ~quotation~ with-gdbm-reader ]
\ (unit-test) 38 experiment
{ f f } [ ~quotation~ with-test.db ] \ (unit-test) 40
experiment
{ t } [ ~vector~ ~quotation~ with-test.db ~vector~ set= ]
\ (unit-test) 47 experiment
{ f } [ test.db newdb >>role ~quotation~ with-gdbm ]
\ (unit-test) 52 experiment CLEANUP
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 0 get-local -1 get-local [
2 load-locals -1 get-local 0 get-local ~quotation~ curry
curry ~quotation~ if 2 drop-locals
] curry curry [ 2drop "Warning: test skipped!" print ] if
3 drop-locals
]
experiment
(O) (must-fail-with)
(U) [
[ ~quotation~ dip swap ~quotation~ dip ] dip swap
[ call get-datastack ] dip => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(U) [ swap >n call => ndrop ]
with-variables
(U) [ [ '[ ~quotation~ dip rethrow ] recover ] keepd => call ]
cleanup
(U) [ 2keep => drop ]
keepd
(U) [ swap [ dip ] dip => ]
2dip
(U) [ swap [ call ] dip => ]
dip
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(U) [ uncompose [ call ] dip => call ]
M\ composed call
(U) [ gdbm-open => &gdbm-close current-dbf ]
(O) gdbm-open
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:extra/gdbm/gdbm-tests.factor: 21
Unit Test: { { f } [ [ "foo" gdbm-exists? ] with-test.db ] }
Cannot resolve C library function
Library: DLL" libgdbm-6.dll"
Symbol: gdbm_open
DlError: The specified module could not be found.
(U) [ c-to-factor => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
CLEANUP
[ test.db reader >>role ~quotation~ with-gdbm ]
[ gdbm-file-open-error = ] \ (must-fail-with) 19 experiment
{ f } [ ~quotation~ with-test.db ] \ (unit-test) 21
experiment =>
{ } [ ~quotation~ with-test.db ] \ (unit-test) 23 experiment
[ db-path ~quotation~ with-gdbm-writer ]
[ gdbm-cannot-replace = ] \ (must-fail-with) 27 experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 36 experiment
{ 42 t } [ db-path ~quotation~ with-gdbm-reader ]
\ (unit-test) 38 experiment
{ f f } [ ~quotation~ with-test.db ] \ (unit-test) 40
experiment
{ t } [ ~vector~ ~quotation~ with-test.db ~vector~ set= ]
\ (unit-test) 47 experiment
{ f } [ test.db newdb >>role ~quotation~ with-gdbm ]
\ (unit-test) 52 experiment CLEANUP
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 0 get-local -1 get-local [
2 load-locals -1 get-local 0 get-local ~quotation~ curry
curry ~quotation~ if 2 drop-locals
] curry curry [ 2drop "Warning: test skipped!" print ] if
3 drop-locals
]
experiment
(O) (unit-test)
(U) [
[ ~quotation~ dip swap ~quotation~ dip ] dip swap
[ call get-datastack ] dip => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(U) [ swap >n call => ndrop ]
with-variables
(U) [ [ '[ ~quotation~ dip rethrow ] recover ] keepd => call ]
cleanup
(U) [ 2keep => drop ]
keepd
(U) [ swap [ dip ] dip => ]
2dip
(U) [ swap [ call ] dip => ]
dip
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(U) [ uncompose [ call ] dip => call ]
M\ composed call
(U) [ gdbm-open => &gdbm-close current-dbf ]
(O) gdbm-open
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:extra/gdbm/gdbm-tests.factor: 23
Unit Test: { { } [ [ "foo" 41 gdbm-insert ] with-test.db ] }
Cannot resolve C library function
Library: DLL" libgdbm-6.dll"
Symbol: gdbm_open
DlError: The specified module could not be found.
(U) [ c-to-factor => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
CLEANUP
[ test.db reader >>role ~quotation~ with-gdbm ]
[ gdbm-file-open-error = ] \ (must-fail-with) 19 experiment
{ f } [ ~quotation~ with-test.db ] \ (unit-test) 21
experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 23 experiment
=>
[ db-path ~quotation~ with-gdbm-writer ]
[ gdbm-cannot-replace = ] \ (must-fail-with) 27 experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 36 experiment
{ 42 t } [ db-path ~quotation~ with-gdbm-reader ]
\ (unit-test) 38 experiment
{ f f } [ ~quotation~ with-test.db ] \ (unit-test) 40
experiment
{ t } [ ~vector~ ~quotation~ with-test.db ~vector~ set= ]
\ (unit-test) 47 experiment
{ f } [ test.db newdb >>role ~quotation~ with-gdbm ]
\ (unit-test) 52 experiment CLEANUP
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 0 get-local -1 get-local [
2 load-locals -1 get-local 0 get-local ~quotation~ curry
curry ~quotation~ if 2 drop-locals
] curry curry [ 2drop "Warning: test skipped!" print ] if
3 drop-locals
]
experiment
(O) (unit-test)
(U) [
[ ~quotation~ dip swap ~quotation~ dip ] dip swap
[ call get-datastack ] dip => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(U) [ swap >n call => ndrop ]
with-variables
(U) [ [ '[ ~quotation~ dip rethrow ] recover ] keepd => call ]
cleanup
(U) [ 2keep => drop ]
keepd
(U) [ swap [ dip ] dip => ]
2dip
(U) [ swap [ call ] dip => ]
dip
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(U) [ uncompose [ call ] dip => call ]
M\ composed call
(U) [ gdbm-open => &gdbm-close current-dbf ]
(O) gdbm-open
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:extra/gdbm/gdbm-tests.factor: 27
Must Fail With: {
[ db-path [ "foo" 42 gdbm-insert ] with-gdbm-writer ]
[ gdbm-cannot-replace = ]
}
Cannot resolve C library function
Library: DLL" libgdbm-6.dll"
Symbol: gdbm_open
DlError: The specified module could not be found.
(U) [ c-to-factor => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
CLEANUP
[ test.db reader >>role ~quotation~ with-gdbm ]
[ gdbm-file-open-error = ] \ (must-fail-with) 19 experiment
{ f } [ ~quotation~ with-test.db ] \ (unit-test) 21
experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 23 experiment
[ db-path ~quotation~ with-gdbm-writer ]
[ gdbm-cannot-replace = ] \ (must-fail-with) 27 experiment
=>
{ } [ ~quotation~ with-test.db ] \ (unit-test) 36 experiment
{ 42 t } [ db-path ~quotation~ with-gdbm-reader ]
\ (unit-test) 38 experiment
{ f f } [ ~quotation~ with-test.db ] \ (unit-test) 40
experiment
{ t } [ ~vector~ ~quotation~ with-test.db ~vector~ set= ]
\ (unit-test) 47 experiment
{ f } [ test.db newdb >>role ~quotation~ with-gdbm ]
\ (unit-test) 52 experiment CLEANUP
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 0 get-local -1 get-local [
2 load-locals -1 get-local 0 get-local ~quotation~ curry
curry ~quotation~ if 2 drop-locals
] curry curry [ 2drop "Warning: test skipped!" print ] if
3 drop-locals
]
experiment
(O) (must-fail-with)
(U) [
[ ~quotation~ dip swap ~quotation~ dip ] dip swap
[ call get-datastack ] dip => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(U) [
3 load-locals <gdbm> -2 get-local >>name -1 get-local >>role
0 get-local with-gdbm => 3 drop-locals
]
with-gdbm-role
(U) [ swap >n call => ndrop ]
with-variables
(U) [ [ '[ ~quotation~ dip rethrow ] recover ] keepd => call ]
cleanup
(U) [ 2keep => drop ]
keepd
(U) [ swap [ dip ] dip => ]
2dip
(U) [ swap [ call ] dip => ]
dip
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(U) [ uncompose [ call ] dip => call ]
M\ composed call
(U) [ gdbm-open => &gdbm-close current-dbf ]
(O) gdbm-open
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:extra/gdbm/gdbm-tests.factor: 36
Unit Test: {
{ }
[
[
"foo" 42 gdbm-replace "bar" 43 gdbm-replace
"baz" 44 gdbm-replace
] with-test.db
]
}
Cannot resolve C library function
Library: DLL" libgdbm-6.dll"
Symbol: gdbm_open
DlError: The specified module could not be found.
(U) [ c-to-factor => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
CLEANUP
[ test.db reader >>role ~quotation~ with-gdbm ]
[ gdbm-file-open-error = ] \ (must-fail-with) 19 experiment
{ f } [ ~quotation~ with-test.db ] \ (unit-test) 21
experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 23 experiment
[ db-path ~quotation~ with-gdbm-writer ]
[ gdbm-cannot-replace = ] \ (must-fail-with) 27 experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 36 experiment
=>
{ 42 t } [ db-path ~quotation~ with-gdbm-reader ]
\ (unit-test) 38 experiment
{ f f } [ ~quotation~ with-test.db ] \ (unit-test) 40
experiment
{ t } [ ~vector~ ~quotation~ with-test.db ~vector~ set= ]
\ (unit-test) 47 experiment
{ f } [ test.db newdb >>role ~quotation~ with-gdbm ]
\ (unit-test) 52 experiment CLEANUP
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 0 get-local -1 get-local [
2 load-locals -1 get-local 0 get-local ~quotation~ curry
curry ~quotation~ if 2 drop-locals
] curry curry [ 2drop "Warning: test skipped!" print ] if
3 drop-locals
]
experiment
(O) (unit-test)
(U) [
[ ~quotation~ dip swap ~quotation~ dip ] dip swap
[ call get-datastack ] dip => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(U) [ swap >n call => ndrop ]
with-variables
(U) [ [ '[ ~quotation~ dip rethrow ] recover ] keepd => call ]
cleanup
(U) [ 2keep => drop ]
keepd
(U) [ swap [ dip ] dip => ]
2dip
(U) [ swap [ call ] dip => ]
dip
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(U) [ uncompose [ call ] dip => call ]
M\ composed call
(U) [ gdbm-open => &gdbm-close current-dbf ]
(O) gdbm-open
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:extra/gdbm/gdbm-tests.factor: 38
Unit Test: { { 42 t } [ db-path [ "foo" gdbm-fetch* ] with-gdbm-reader ] }
Cannot resolve C library function
Library: DLL" libgdbm-6.dll"
Symbol: gdbm_open
DlError: The specified module could not be found.
(U) [ c-to-factor => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
CLEANUP
[ test.db reader >>role ~quotation~ with-gdbm ]
[ gdbm-file-open-error = ] \ (must-fail-with) 19 experiment
{ f } [ ~quotation~ with-test.db ] \ (unit-test) 21
experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 23 experiment
[ db-path ~quotation~ with-gdbm-writer ]
[ gdbm-cannot-replace = ] \ (must-fail-with) 27 experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 36 experiment
{ 42 t } [ db-path ~quotation~ with-gdbm-reader ]
\ (unit-test) 38 experiment =>
{ f f } [ ~quotation~ with-test.db ] \ (unit-test) 40
experiment
{ t } [ ~vector~ ~quotation~ with-test.db ~vector~ set= ]
\ (unit-test) 47 experiment
{ f } [ test.db newdb >>role ~quotation~ with-gdbm ]
\ (unit-test) 52 experiment CLEANUP
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 0 get-local -1 get-local [
2 load-locals -1 get-local 0 get-local ~quotation~ curry
curry ~quotation~ if 2 drop-locals
] curry curry [ 2drop "Warning: test skipped!" print ] if
3 drop-locals
]
experiment
(O) (unit-test)
(U) [
[ ~quotation~ dip swap ~quotation~ dip ] dip swap
[ call get-datastack ] dip => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(U) [
3 load-locals <gdbm> -2 get-local >>name -1 get-local >>role
0 get-local with-gdbm => 3 drop-locals
]
with-gdbm-role
(U) [ swap >n call => ndrop ]
with-variables
(U) [ [ '[ ~quotation~ dip rethrow ] recover ] keepd => call ]
cleanup
(U) [ 2keep => drop ]
keepd
(U) [ swap [ dip ] dip => ]
2dip
(U) [ swap [ call ] dip => ]
dip
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(U) [ uncompose [ call ] dip => call ]
M\ composed call
(U) [ gdbm-open => &gdbm-close current-dbf ]
(O) gdbm-open
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:extra/gdbm/gdbm-tests.factor: 40
Unit Test: { { f f } [ [ "unknown" gdbm-fetch* ] with-test.db ] }
Cannot resolve C library function
Library: DLL" libgdbm-6.dll"
Symbol: gdbm_open
DlError: The specified module could not be found.
(U) [ c-to-factor => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
CLEANUP
[ test.db reader >>role ~quotation~ with-gdbm ]
[ gdbm-file-open-error = ] \ (must-fail-with) 19 experiment
{ f } [ ~quotation~ with-test.db ] \ (unit-test) 21
experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 23 experiment
[ db-path ~quotation~ with-gdbm-writer ]
[ gdbm-cannot-replace = ] \ (must-fail-with) 27 experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 36 experiment
{ 42 t } [ db-path ~quotation~ with-gdbm-reader ]
\ (unit-test) 38 experiment
{ f f } [ ~quotation~ with-test.db ] \ (unit-test) 40
experiment =>
{ t } [ ~vector~ ~quotation~ with-test.db ~vector~ set= ]
\ (unit-test) 47 experiment
{ f } [ test.db newdb >>role ~quotation~ with-gdbm ]
\ (unit-test) 52 experiment CLEANUP
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 0 get-local -1 get-local [
2 load-locals -1 get-local 0 get-local ~quotation~ curry
curry ~quotation~ if 2 drop-locals
] curry curry [ 2drop "Warning: test skipped!" print ] if
3 drop-locals
]
experiment
(O) (unit-test)
(U) [
[ ~quotation~ dip swap ~quotation~ dip ] dip swap
[ call get-datastack ] dip => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(U) [ swap >n call => ndrop ]
with-variables
(U) [ [ '[ ~quotation~ dip rethrow ] recover ] keepd => call ]
cleanup
(U) [ 2keep => drop ]
keepd
(U) [ swap [ dip ] dip => ]
2dip
(U) [ swap [ call ] dip => ]
dip
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(U) [ uncompose [ call ] dip => call ]
M\ composed call
(U) [ gdbm-open => &gdbm-close current-dbf ]
(O) gdbm-open
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:extra/gdbm/gdbm-tests.factor: 47
Unit Test: {
{ t }
[
V{ } [ [ 2array append ] each-gdbm-record ] with-test.db
V{ "foo" "bar" "baz" 42 43 44 } set=
]
}
Cannot resolve C library function
Library: DLL" libgdbm-6.dll"
Symbol: gdbm_open
DlError: The specified module could not be found.
(U) [ c-to-factor => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
CLEANUP
[ test.db reader >>role ~quotation~ with-gdbm ]
[ gdbm-file-open-error = ] \ (must-fail-with) 19 experiment
{ f } [ ~quotation~ with-test.db ] \ (unit-test) 21
experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 23 experiment
[ db-path ~quotation~ with-gdbm-writer ]
[ gdbm-cannot-replace = ] \ (must-fail-with) 27 experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 36 experiment
{ 42 t } [ db-path ~quotation~ with-gdbm-reader ]
\ (unit-test) 38 experiment
{ f f } [ ~quotation~ with-test.db ] \ (unit-test) 40
experiment
{ t } [ ~vector~ ~quotation~ with-test.db ~vector~ set= ]
\ (unit-test) 47 experiment =>
{ f } [ test.db newdb >>role ~quotation~ with-gdbm ]
\ (unit-test) 52 experiment CLEANUP
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 0 get-local -1 get-local [
2 load-locals -1 get-local 0 get-local ~quotation~ curry
curry ~quotation~ if 2 drop-locals
] curry curry [ 2drop "Warning: test skipped!" print ] if
3 drop-locals
]
experiment
(O) (unit-test)
(U) [
[ ~quotation~ dip swap ~quotation~ dip ] dip swap
[ call get-datastack ] dip => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(U) [
V{ } [ ~quotation~ each-gdbm-record ] with-test.db =>
V{ "foo" "bar" "baz" 42 43 44 } set=
]
(U) [ swap >n call => ndrop ]
with-variables
(U) [ [ '[ ~quotation~ dip rethrow ] recover ] keepd => call ]
cleanup
(U) [ 2keep => drop ]
keepd
(U) [ swap [ dip ] dip => ]
2dip
(U) [ swap [ call ] dip => ]
dip
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(U) [ uncompose [ call ] dip => call ]
M\ composed call
(U) [ gdbm-open => &gdbm-close current-dbf ]
(O) gdbm-open
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:extra/gdbm/gdbm-tests.factor: 52
Unit Test: {
{ f }
[ test.db newdb >>role [ "foo" gdbm-exists? ] with-gdbm ]
}
Cannot resolve C library function
Library: DLL" libgdbm-6.dll"
Symbol: gdbm_open
DlError: The specified module could not be found.
(U) [ c-to-factor => ]
c-to-factor
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(O) command-line-startup
(O) do-all
(O) do-tests
(O) test-vocabs
(O) test-vocab
(O) run-test-file
(U) [
CLEANUP
[ test.db reader >>role ~quotation~ with-gdbm ]
[ gdbm-file-open-error = ] \ (must-fail-with) 19 experiment
{ f } [ ~quotation~ with-test.db ] \ (unit-test) 21
experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 23 experiment
[ db-path ~quotation~ with-gdbm-writer ]
[ gdbm-cannot-replace = ] \ (must-fail-with) 27 experiment
{ } [ ~quotation~ with-test.db ] \ (unit-test) 36 experiment
{ 42 t } [ db-path ~quotation~ with-gdbm-reader ]
\ (unit-test) 38 experiment
{ f f } [ ~quotation~ with-test.db ] \ (unit-test) 40
experiment
{ t } [ ~vector~ ~quotation~ with-test.db ~vector~ set= ]
\ (unit-test) 47 experiment
{ f } [ test.db newdb >>role ~quotation~ with-gdbm ]
\ (unit-test) 52 experiment => CLEANUP
]
(U) [
2 load-locals -1 get-local <experiment> load-local
silent-tests? get 0 get-local
[ load-local 0 get-local experiment. 1 drop-locals ] curry
unless -2 get-local execute => 0 get-local -1 get-local [
2 load-locals -1 get-local 0 get-local ~quotation~ curry
curry ~quotation~ if 2 drop-locals
] curry curry [ 2drop "Warning: test skipped!" print ] if
3 drop-locals
]
experiment
(O) (unit-test)
(U) [
[ ~quotation~ dip swap ~quotation~ dip ] dip swap
[ call get-datastack ] dip => swap [ set-datastack ] dip
]
(U) [ call => get-datastack ]
(U) [ swap >n call => ndrop ]
with-variables
(U) [ [ '[ ~quotation~ dip rethrow ] recover ] keepd => call ]
cleanup
(U) [ 2keep => drop ]
keepd
(U) [ swap [ dip ] dip => ]
2dip
(U) [ swap [ call ] dip => ]
dip
(U) [ [ (get-catchstack) push ] dip call => (get-catchstack) pop* ]
(U) [ uncompose [ call ] dip => call ]
M\ composed call
(U) [ gdbm-open => &gdbm-close current-dbf ]
(O) gdbm-open
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
| Benchmark | Time (seconds) |
|---|---|
| benchmark.3d-matrix-scalar | 0.667 |
| benchmark.3d-matrix-vector | 0.017 |
| benchmark.ant | 0.080 |
| benchmark.backtrack | 0.096 |
| benchmark.base16 | 0.268 |
| benchmark.base32 | 0.188 |
| benchmark.base58 | 0.683 |
| benchmark.base64 | 0.031 |
| benchmark.base85 | 0.153 |
| benchmark.base91 | 0.095 |
| benchmark.beust1 | 0.338 |
| benchmark.beust2 | 0.314 |
| benchmark.binary-search | 0.101 |
| benchmark.binary-trees | 1.152 |
| benchmark.bloom-filters | 0.075 |
| benchmark.bootstrap1 | 9.568 |
| benchmark.busy-loop | 2.549 |
| benchmark.chameneos-redux | 0.146 |
| benchmark.combinatorics | 0.036 |
| benchmark.completion | 0.368 |
| benchmark.continuations | 0.287 |
| benchmark.crc32 | 0.167 |
| benchmark.csv | 0.049 |
| benchmark.cuckoo-filters | 2.668 |
| benchmark.dawes | 0.047 |
| benchmark.dispatch1 | 0.478 |
| benchmark.dispatch2 | 0.739 |
| benchmark.dispatch3 | 0.687 |
| benchmark.dispatch4 | 1.379 |
| benchmark.dispatch5 | 0.354 |
| benchmark.dispatch6 | 2.530 |
| benchmark.dlists | 0.290 |
| benchmark.e-decimals | 0.256 |
| benchmark.e-ratios | 0.216 |
| benchmark.empty-loop-0 | 0.026 |
| benchmark.empty-loop-1 | 0.152 |
| benchmark.empty-loop-2 | 0.074 |
| benchmark.euler150 | 2.435 |
| benchmark.fannkuch | 0.416 |
| benchmark.farkup | 0.179 |
| benchmark.fasta | 0.898 |
| benchmark.fib1 | 0.030 |
| benchmark.fib2 | 0.031 |
| benchmark.fib3 | 0.088 |
| benchmark.fib4 | 0.036 |
| benchmark.fib5 | 0.150 |
| benchmark.fib6 | 2.543 |
| benchmark.fib7 | 0.347 |
| benchmark.fib8 | 0.142 |
| benchmark.find-pi | 10.026 |
| benchmark.flip | 0.355 |
| benchmark.futures1 | 0.469 |
| benchmark.futures2 | 0.282 |
| benchmark.gc0 | 1.632 |
| benchmark.gc1 | 0.020 |
| benchmark.gc2 | 9.203 |
| benchmark.gc3 | 0.141 |
| benchmark.hash-sets | 0.672 |
| benchmark.hashtables | 0.572 |
| benchmark.heaps | 0.156 |
| benchmark.interval-sets | 0.597 |
| benchmark.iteration | 0.764 |
| benchmark.json | 0.190 |
| benchmark.k-nn | 5.535 |
| benchmark.knucleotide | 1.907 |
| benchmark.lcs | 0.271 |
| benchmark.lexer | 5.102 |
| benchmark.linked-assocs | 0.516 |
| benchmark.mailbox | 0.028 |
| benchmark.make | 0.909 |
| benchmark.mandel | 0.045 |
| benchmark.matrix-exponential-scalar | 2.406 |
| benchmark.matrix-exponential-simd | 0.058 |
| benchmark.md5 | 0.051 |
| benchmark.memoize | 0.260 |
| benchmark.msgpack | 1.014 |
| benchmark.mt | 0.086 |
| benchmark.namespaces | 0.455 |
| benchmark.nbody | 1.546 |
| benchmark.nbody-simd | 0.135 |
| benchmark.neon | 0.891 |
| benchmark.nested-empty-loop-1 | 0.375 |
| benchmark.nested-empty-loop-2 | 0.172 |
| benchmark.nsieve | 0.202 |
| benchmark.nsieve-bits | 0.566 |
| benchmark.nsieve-bytes | 0.155 |
| benchmark.parse-bignum | 0.367 |
| benchmark.parse-fixnum | 0.302 |
| benchmark.parse-float | 0.382 |
| benchmark.parse-ratio | 0.167 |
| benchmark.partial-sums | 0.916 |
| benchmark.pidigits | 0.217 |
| benchmark.random | 0.085 |
| benchmark.randomize | 0.783 |
| benchmark.raytracer | 1.076 |
| benchmark.raytracer-simd | 0.147 |
| benchmark.recursive | 0.505 |
| benchmark.regex-dna | 0.485 |
| benchmark.regexp | 0.188 |
| benchmark.reverse-complement | 1.244 |
| benchmark.ring | 0.278 |
| benchmark.sfmt | 0.065 |
| benchmark.sha1 | 0.075 |
| benchmark.sieve | 1.151 |
| benchmark.simd-1 | 0.207 |
| benchmark.sockets | 7.419 |
| benchmark.sort | 1.065 |
| benchmark.spawn-cat | 55.438 |
| benchmark.spectral-norm | 1.059 |
| benchmark.spectral-norm-simd | 0.367 |
| benchmark.splay | 0.219 |
| benchmark.splitting | 0.489 |
| benchmark.stack | 0.524 |
| benchmark.struct-arrays | 0.254 |
| benchmark.sum-file | 0.352 |
| benchmark.tasks | 8.127 |
| benchmark.tcp-echo0 | 2.067 |
| benchmark.tcp-echo1 | 2.242 |
| benchmark.tcp-echo2 | 2.231 |
| benchmark.terrain-generation | 0.041 |
| benchmark.timers | 0.011 |
| benchmark.tuple-arrays | 0.355 |
| benchmark.typecheck1 | 0.531 |
| benchmark.typecheck2 | 0.522 |
| benchmark.typecheck3 | 0.603 |
| benchmark.udp-echo0 | 0.318 |
| benchmark.udp-echo1 | 0.358 |
| benchmark.udp-echo2 | 0.505 |
| benchmark.ui-panes | 0.050 |
| benchmark.unicode | 0.261 |
| benchmark.utf16 | 10.934 |
| benchmark.utf8 | 19.867 |
| benchmark.wrap | 0.095 |
| benchmark.xml | 0.419 |
| benchmark.yield | 0.022 |
| benchmark.yuv-to-rgb | 0.050 |