Build report for macos/x86.64
Timings
| boot-time | 00:04:01 |
| load-time | 00:12:55 |
| test-time | 00:30:23 |
| help-lint-time | 00:00:28 |
| benchmark-time | 00:18:46 |
| html-help-time | 00:09:47 |
Unit test failures
- resource:basis/io/sockets/secure/openssl/tests/audit.factor
- resource:basis/openssl/libssl/libssl-tests.factor
- resource:extra/gdbm/gdbm-tests.factor
Details:
==== resource:basis/io/sockets/secure/openssl/tests/audit.factor
resource:basis/io/sockets/secure/openssl/tests/audit.factor: 32
Unit Test: {
{ { t f t f f t f t t f } }
[
[
{
"GOOD.EXAMPLE"
"cn-only.example"
"a.wild.example"
"wild.example"
"a.b.wild.example"
"127.0.0.1"
"127.0.0.2"
"::1"
"0:0:0:0:0:0:0:1"
"::2"
} swap [ certificate-matches-legacy? ] curry map
] with-identity-certificate
]
}
Cannot resolve C library function
Library: DLL" libcrypto.46.dylib"
Symbol: OPENSSL_sk_num
DlError: dlsym(0x6bb8bbb48, OPENSSL_sk_num): symbol not 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) [
{ ~array~ } [ ~quotation~ with-identity-certificate ]
\ (unit-test) 22 experiment
{ ~array~ } [ ~quotation~ with-identity-certificate ]
\ (unit-test) 32 experiment =>
{ "cn-only.example" }
[ ~quotation~ with-identity-certificate ] \ (unit-test) 36
experiment
{ ~array~ } [ ~quotation~ with-identity-certificate ]
\ (unit-test) 40 experiment
{ f } [ ".example" "*.example" subject-names-match? ]
\ (unit-test) 42 experiment
{ ~byte-array~ } [ ~array~ alpn-wire-format ] \ (unit-test)
46 experiment
[ ~array~ alpn-wire-format ] [ invalid-alpn-protocol? ]
\ (must-fail-with) 47 experiment
[ 256 97 <string> 1array alpn-wire-format ]
[ invalid-alpn-protocol? ] \ (must-fail-with) 49 experiment
{ t 2 0 } [ ~quotation~ with-destructors ] \ (unit-test) 69
experiment
{ 3 ~byte-array~ } [ ~quotation~ with-destructors ]
\ (unit-test) 83 experiment
{ 1 0 } [ ~quotation~ with-destructors ] \ (unit-test) 103
experiment
{ "h2" 0 } [ ~array~ ~array~ select-test-alpn ]
\ (unit-test) 127 experiment
{ f 2 } [ ~array~ ~array~ select-test-alpn ] \ (unit-test)
128 experiment
]
(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) [ over [ ~quotation~ dip call ] dip => like ]
new-like
(U) [ over [ call ] dip => ]
keep
(U) [ [ nip call ] 3keep => [ 1 + ] 2dip each-integer-from ]
(U) [ swap [ 2dip ] dip => ]
3dip
(U) [ swap [ dip ] dip => ]
2dip
(U) [ swap [ call ] dip => ]
dip
(U) [ [ keep ] dip => set-nth-unsafe ]
(U) [ over [ call ] dip => ]
keep
(O) certificate-matches-legacy?
(O) alternative-dns-names
(O) alternative-names
(O) name-stack>sequence
(O) sk-num
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:basis/io/sockets/secure/openssl/tests/audit.factor: 40
Unit Test: {
{ { "good.example" "*.wild.example" } }
[ [ alternative-dns-names ] with-identity-certificate ]
}
Cannot resolve C library function
Library: DLL" libcrypto.46.dylib"
Symbol: OPENSSL_sk_num
DlError: dlsym(0x6bb8bbb48, OPENSSL_sk_num): symbol not 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) [
{ ~array~ } [ ~quotation~ with-identity-certificate ]
\ (unit-test) 22 experiment
{ ~array~ } [ ~quotation~ with-identity-certificate ]
\ (unit-test) 32 experiment
{ "cn-only.example" }
[ ~quotation~ with-identity-certificate ] \ (unit-test) 36
experiment
{ ~array~ } [ ~quotation~ with-identity-certificate ]
\ (unit-test) 40 experiment =>
{ f } [ ".example" "*.example" subject-names-match? ]
\ (unit-test) 42 experiment
{ ~byte-array~ } [ ~array~ alpn-wire-format ] \ (unit-test)
46 experiment
[ ~array~ alpn-wire-format ] [ invalid-alpn-protocol? ]
\ (must-fail-with) 47 experiment
[ 256 97 <string> 1array alpn-wire-format ]
[ invalid-alpn-protocol? ] \ (must-fail-with) 49 experiment
{ t 2 0 } [ ~quotation~ with-destructors ] \ (unit-test) 69
experiment
{ 3 ~byte-array~ } [ ~quotation~ with-destructors ]
\ (unit-test) 83 experiment
{ 1 0 } [ ~quotation~ with-destructors ] \ (unit-test) 103
experiment
{ "h2" 0 } [ ~array~ ~array~ select-test-alpn ]
\ (unit-test) 127 experiment
{ f 2 } [ ~array~ ~array~ select-test-alpn ] \ (unit-test)
128 experiment
]
(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* ]
(O) alternative-dns-names
(O) alternative-names
(O) name-stack>sequence
(O) sk-num
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
==== resource:basis/openssl/libssl/libssl-tests.factor
resource:basis/openssl/libssl/libssl-tests.factor: 45
Unit Test: {
{ t }
[
[
new-tls-ctx tls-opts
[ [ set-opt ] [ has-opt ] 2bi ] with map
[ t = ] count
] with-destructors ssl-new-api? get-global 0 4 ? =
]
}
=== Expected:
t
=== Got:
f
(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) [
maybe-init-ssl
{ t } [ ~quotation~ with-destructors ~quotation~ all? ]
\ (unit-test) 36 experiment
{ t } [
~quotation~ with-destructors
ssl-new-api? get-global 0 4 ? =
] \ (unit-test) 45 experiment =>
{ t } [
~quotation~ with-destructors
ssl-new-api? get-global "before SSL initialization"
"before/connect initialization" ? =
] \ (unit-test) 52 experiment
{ t 1 } [ ~quotation~ with-destructors ] \ (unit-test) 62
experiment
{ f } [ ~quotation~ with-destructors ] \ (unit-test) 68
experiment ssl-new-api? get-global
[ ~array~ ~quotation~ \ (unit-test) 83 experiment ] when
"SSL_CTX_set_ciphersuites" "libssl" dlsym?
[ ~array~ ~quotation~ \ (unit-test) 91 experiment ] when
{ t } [ ~quotation~ with-destructors ] \ (unit-test) 99
experiment
{ 0 0 } [ ~quotation~ with-destructors ERR_clear_error ]
\ (unit-test) 111 experiment
]
(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)
(O) assert-sequence=
(O) assert-sequence
(O) M\ object throw
(U) [
OBJ-CURRENT-THREAD special-object error-thread set-global
current-continuation => error-continuation set-global
[ original-error set-global ] [ rethrow ] bi
]
resource:basis/openssl/libssl/libssl-tests.factor: 52
Unit Test: {
{ t }
[
[ new-tls-ctx new-ssl SSL_state_string_long ]
with-destructors
ssl-new-api? get-global "before SSL initialization"
"before/connect initialization" ? =
]
}
=== Expected:
t
=== Got:
f
(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) [
maybe-init-ssl
{ t } [ ~quotation~ with-destructors ~quotation~ all? ]
\ (unit-test) 36 experiment
{ t } [
~quotation~ with-destructors
ssl-new-api? get-global 0 4 ? =
] \ (unit-test) 45 experiment
{ t } [
~quotation~ with-destructors
ssl-new-api? get-global "before SSL initialization"
"before/connect initialization" ? =
] \ (unit-test) 52 experiment =>
{ t 1 } [ ~quotation~ with-destructors ] \ (unit-test) 62
experiment
{ f } [ ~quotation~ with-destructors ] \ (unit-test) 68
experiment ssl-new-api? get-global
[ ~array~ ~quotation~ \ (unit-test) 83 experiment ] when
"SSL_CTX_set_ciphersuites" "libssl" dlsym?
[ ~array~ ~quotation~ \ (unit-test) 91 experiment ] when
{ t } [ ~quotation~ with-destructors ] \ (unit-test) 99
experiment
{ 0 0 } [ ~quotation~ with-destructors ERR_clear_error ]
\ (unit-test) 111 experiment
]
(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)
(O) assert-sequence=
(O) assert-sequence
(O) M\ object throw
(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
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.dylib"
Symbol: gdbm_open
DlError: dlopen(libgdbm.dylib, 0x0009): tried: '/usr/local/opt/lua/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libyaml/lib/libgdbm.dylib' (no such file), '/usr/local/opt/glib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zstd/lib/libgdbm.dylib' (no such file), '/usr/local/opt/udis86/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zeromq/lib/libgdbm.dylib' (no such file), '/usr/local/opt/raylib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libmagic/lib/libgdbm.dylib' (no such file), '/usr/local/opt/snappy/lib/libgdbm.dylib' (no such file), '/usr/local/opt/postgresql@14/lib/postgresql@14/libgdbm.dylib' (no such file), '/usr/local/opt/cairo/lib/libgdbm.dylib' (no such file), '/usr/local/opt/gdk-pixbuf/lib/libgdbm.dylib' (no such file), '/libgdbm.dylib' (no such file), 'libgdbm.dylib' (no such file), '/System/Volumes/Preboot/Cryptexes/OSlibgdbm.dylib' (no such file), '/usr/lib/libgdbm.dylib' (no such file, not in dyld cache), 'libgdbm.dylib' (no such file)
(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.dylib"
Symbol: gdbm_open
DlError: dlopen(libgdbm.dylib, 0x0009): tried: '/usr/local/opt/lua/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libyaml/lib/libgdbm.dylib' (no such file), '/usr/local/opt/glib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zstd/lib/libgdbm.dylib' (no such file), '/usr/local/opt/udis86/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zeromq/lib/libgdbm.dylib' (no such file), '/usr/local/opt/raylib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libmagic/lib/libgdbm.dylib' (no such file), '/usr/local/opt/snappy/lib/libgdbm.dylib' (no such file), '/usr/local/opt/postgresql@14/lib/postgresql@14/libgdbm.dylib' (no such file), '/usr/local/opt/cairo/lib/libgdbm.dylib' (no such file), '/usr/local/opt/gdk-pixbuf/lib/libgdbm.dylib' (no such file), '/libgdbm.dylib' (no such file), 'libgdbm.dylib' (no such file), '/System/Volumes/Preboot/Cryptexes/OSlibgdbm.dylib' (no such file), '/usr/lib/libgdbm.dylib' (no such file, not in dyld cache), 'libgdbm.dylib' (no such file)
(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.dylib"
Symbol: gdbm_open
DlError: dlopen(libgdbm.dylib, 0x0009): tried: '/usr/local/opt/lua/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libyaml/lib/libgdbm.dylib' (no such file), '/usr/local/opt/glib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zstd/lib/libgdbm.dylib' (no such file), '/usr/local/opt/udis86/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zeromq/lib/libgdbm.dylib' (no such file), '/usr/local/opt/raylib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libmagic/lib/libgdbm.dylib' (no such file), '/usr/local/opt/snappy/lib/libgdbm.dylib' (no such file), '/usr/local/opt/postgresql@14/lib/postgresql@14/libgdbm.dylib' (no such file), '/usr/local/opt/cairo/lib/libgdbm.dylib' (no such file), '/usr/local/opt/gdk-pixbuf/lib/libgdbm.dylib' (no such file), '/libgdbm.dylib' (no such file), 'libgdbm.dylib' (no such file), '/System/Volumes/Preboot/Cryptexes/OSlibgdbm.dylib' (no such file), '/usr/lib/libgdbm.dylib' (no such file, not in dyld cache), 'libgdbm.dylib' (no such file)
(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.dylib"
Symbol: gdbm_open
DlError: dlopen(libgdbm.dylib, 0x0009): tried: '/usr/local/opt/lua/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libyaml/lib/libgdbm.dylib' (no such file), '/usr/local/opt/glib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zstd/lib/libgdbm.dylib' (no such file), '/usr/local/opt/udis86/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zeromq/lib/libgdbm.dylib' (no such file), '/usr/local/opt/raylib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libmagic/lib/libgdbm.dylib' (no such file), '/usr/local/opt/snappy/lib/libgdbm.dylib' (no such file), '/usr/local/opt/postgresql@14/lib/postgresql@14/libgdbm.dylib' (no such file), '/usr/local/opt/cairo/lib/libgdbm.dylib' (no such file), '/usr/local/opt/gdk-pixbuf/lib/libgdbm.dylib' (no such file), '/libgdbm.dylib' (no such file), 'libgdbm.dylib' (no such file), '/System/Volumes/Preboot/Cryptexes/OSlibgdbm.dylib' (no such file), '/usr/lib/libgdbm.dylib' (no such file, not in dyld cache), 'libgdbm.dylib' (no such file)
(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.dylib"
Symbol: gdbm_open
DlError: dlopen(libgdbm.dylib, 0x0009): tried: '/usr/local/opt/lua/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libyaml/lib/libgdbm.dylib' (no such file), '/usr/local/opt/glib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zstd/lib/libgdbm.dylib' (no such file), '/usr/local/opt/udis86/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zeromq/lib/libgdbm.dylib' (no such file), '/usr/local/opt/raylib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libmagic/lib/libgdbm.dylib' (no such file), '/usr/local/opt/snappy/lib/libgdbm.dylib' (no such file), '/usr/local/opt/postgresql@14/lib/postgresql@14/libgdbm.dylib' (no such file), '/usr/local/opt/cairo/lib/libgdbm.dylib' (no such file), '/usr/local/opt/gdk-pixbuf/lib/libgdbm.dylib' (no such file), '/libgdbm.dylib' (no such file), 'libgdbm.dylib' (no such file), '/System/Volumes/Preboot/Cryptexes/OSlibgdbm.dylib' (no such file), '/usr/lib/libgdbm.dylib' (no such file, not in dyld cache), 'libgdbm.dylib' (no such file)
(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.dylib"
Symbol: gdbm_open
DlError: dlopen(libgdbm.dylib, 0x0009): tried: '/usr/local/opt/lua/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libyaml/lib/libgdbm.dylib' (no such file), '/usr/local/opt/glib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zstd/lib/libgdbm.dylib' (no such file), '/usr/local/opt/udis86/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zeromq/lib/libgdbm.dylib' (no such file), '/usr/local/opt/raylib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libmagic/lib/libgdbm.dylib' (no such file), '/usr/local/opt/snappy/lib/libgdbm.dylib' (no such file), '/usr/local/opt/postgresql@14/lib/postgresql@14/libgdbm.dylib' (no such file), '/usr/local/opt/cairo/lib/libgdbm.dylib' (no such file), '/usr/local/opt/gdk-pixbuf/lib/libgdbm.dylib' (no such file), '/libgdbm.dylib' (no such file), 'libgdbm.dylib' (no such file), '/System/Volumes/Preboot/Cryptexes/OSlibgdbm.dylib' (no such file), '/usr/lib/libgdbm.dylib' (no such file, not in dyld cache), 'libgdbm.dylib' (no such file)
(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.dylib"
Symbol: gdbm_open
DlError: dlopen(libgdbm.dylib, 0x0009): tried: '/usr/local/opt/lua/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libyaml/lib/libgdbm.dylib' (no such file), '/usr/local/opt/glib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zstd/lib/libgdbm.dylib' (no such file), '/usr/local/opt/udis86/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zeromq/lib/libgdbm.dylib' (no such file), '/usr/local/opt/raylib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libmagic/lib/libgdbm.dylib' (no such file), '/usr/local/opt/snappy/lib/libgdbm.dylib' (no such file), '/usr/local/opt/postgresql@14/lib/postgresql@14/libgdbm.dylib' (no such file), '/usr/local/opt/cairo/lib/libgdbm.dylib' (no such file), '/usr/local/opt/gdk-pixbuf/lib/libgdbm.dylib' (no such file), '/libgdbm.dylib' (no such file), 'libgdbm.dylib' (no such file), '/System/Volumes/Preboot/Cryptexes/OSlibgdbm.dylib' (no such file), '/usr/lib/libgdbm.dylib' (no such file, not in dyld cache), 'libgdbm.dylib' (no such file)
(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.dylib"
Symbol: gdbm_open
DlError: dlopen(libgdbm.dylib, 0x0009): tried: '/usr/local/opt/lua/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libyaml/lib/libgdbm.dylib' (no such file), '/usr/local/opt/glib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zstd/lib/libgdbm.dylib' (no such file), '/usr/local/opt/udis86/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zeromq/lib/libgdbm.dylib' (no such file), '/usr/local/opt/raylib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libmagic/lib/libgdbm.dylib' (no such file), '/usr/local/opt/snappy/lib/libgdbm.dylib' (no such file), '/usr/local/opt/postgresql@14/lib/postgresql@14/libgdbm.dylib' (no such file), '/usr/local/opt/cairo/lib/libgdbm.dylib' (no such file), '/usr/local/opt/gdk-pixbuf/lib/libgdbm.dylib' (no such file), '/libgdbm.dylib' (no such file), 'libgdbm.dylib' (no such file), '/System/Volumes/Preboot/Cryptexes/OSlibgdbm.dylib' (no such file), '/usr/lib/libgdbm.dylib' (no such file, not in dyld cache), 'libgdbm.dylib' (no such file)
(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.dylib"
Symbol: gdbm_open
DlError: dlopen(libgdbm.dylib, 0x0009): tried: '/usr/local/opt/lua/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libyaml/lib/libgdbm.dylib' (no such file), '/usr/local/opt/glib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zstd/lib/libgdbm.dylib' (no such file), '/usr/local/opt/udis86/lib/libgdbm.dylib' (no such file), '/usr/local/opt/zeromq/lib/libgdbm.dylib' (no such file), '/usr/local/opt/raylib/lib/libgdbm.dylib' (no such file), '/usr/local/opt/libmagic/lib/libgdbm.dylib' (no such file), '/usr/local/opt/snappy/lib/libgdbm.dylib' (no such file), '/usr/local/opt/postgresql@14/lib/postgresql@14/libgdbm.dylib' (no such file), '/usr/local/opt/cairo/lib/libgdbm.dylib' (no such file), '/usr/local/opt/gdk-pixbuf/lib/libgdbm.dylib' (no such file), '/libgdbm.dylib' (no such file), 'libgdbm.dylib' (no such file), '/System/Volumes/Preboot/Cryptexes/OSlibgdbm.dylib' (no such file), '/usr/lib/libgdbm.dylib' (no such file, not in dyld cache), 'libgdbm.dylib' (no such file)
(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
]
Benchmarks
| Benchmark | Time (seconds) |
| benchmark.3d-matrix-scalar | 0.634 |
| benchmark.3d-matrix-vector | 0.014 |
| benchmark.ant | 0.092 |
| benchmark.backtrack | 0.093 |
| benchmark.base16 | 0.277 |
| benchmark.base32 | 0.221 |
| benchmark.base58 | 1.193 |
| benchmark.base64 | 0.033 |
| benchmark.base85 | 0.163 |
| benchmark.base91 | 0.104 |
| benchmark.beust1 | 0.403 |
| benchmark.beust2 | 0.385 |
| benchmark.binary-search | 0.093 |
| benchmark.binary-trees | 0.741 |
| benchmark.bloom-filters | 0.106 |
| benchmark.bootstrap1 | 9.222 |
| benchmark.busy-loop | 3.464 |
| benchmark.chameneos-redux | 0.178 |
| benchmark.combinatorics | 0.037 |
| benchmark.completion | 0.383 |
| benchmark.continuations | 0.288 |
| benchmark.crc32 | 0.121 |
| benchmark.csv | 0.055 |
| benchmark.cuckoo-filters | 2.754 |
| benchmark.dawes | 0.068 |
| benchmark.dispatch1 | 0.657 |
| benchmark.dispatch2 | 0.905 |
| benchmark.dispatch3 | 0.925 |
| benchmark.dispatch4 | 1.165 |
| benchmark.dispatch5 | 0.377 |
| benchmark.dispatch6 | 1.985 |
| benchmark.dlists | 0.285 |
| benchmark.e-decimals | 0.228 |
| benchmark.e-ratios | 0.034 |
| benchmark.empty-loop-0 | 0.052 |
| benchmark.empty-loop-1 | 0.151 |
| benchmark.empty-loop-2 | 0.103 |
| benchmark.euler150 | 2.702 |
| benchmark.fannkuch | 0.401 |
| benchmark.farkup | 0.180 |
| benchmark.fasta | 1.160 |
| benchmark.fib1 | 0.030 |
| benchmark.fib2 | 0.031 |
| benchmark.fib3 | 0.085 |
| benchmark.fib4 | 0.046 |
| benchmark.fib5 | 0.144 |
| benchmark.fib6 | 2.484 |
| benchmark.fib7 | 0.177 |
| benchmark.fib8 | 0.129 |
| benchmark.find-pi | 0.468 |
| benchmark.flip | 0.269 |
| benchmark.futures1 | 0.402 |
| benchmark.futures2 | 0.246 |
| benchmark.gc0 | 1.059 |
| benchmark.gc1 | 0.019 |
| benchmark.gc2 | 10.673 |
| benchmark.gc3 | 0.162 |
| benchmark.hash-sets | 0.677 |
| benchmark.hashtables | 0.645 |
| benchmark.heaps | 0.143 |
| benchmark.interval-sets | 0.545 |
| benchmark.iteration | 0.655 |
| benchmark.json | 0.179 |
| benchmark.k-nn | 4.546 |
| benchmark.knucleotide | 1.307 |
| benchmark.lcs | 0.240 |
| benchmark.lexer | 4.480 |
| benchmark.linked-assocs | 0.477 |
| benchmark.mailbox | 0.030 |
| benchmark.make | 0.871 |
| benchmark.mandel | 0.039 |
| benchmark.matrix-exponential-scalar | 2.043 |
| benchmark.matrix-exponential-simd | 0.051 |
| benchmark.md5 | 0.046 |
| benchmark.memoize | 0.222 |
| benchmark.msgpack | 0.919 |
| benchmark.mt | 0.091 |
| benchmark.namespaces | 0.426 |
| benchmark.nbody | 1.366 |
| benchmark.nbody-simd | 0.165 |
| benchmark.neon | 0.760 |
| benchmark.nested-empty-loop-1 | 0.399 |
| benchmark.nested-empty-loop-2 | 0.194 |
| benchmark.nsieve | 0.145 |
| benchmark.nsieve-bits | 0.436 |
| benchmark.nsieve-bytes | 0.120 |
| benchmark.parse-bignum | 0.422 |
| benchmark.parse-fixnum | 0.345 |
| benchmark.parse-float | 0.319 |
| benchmark.parse-ratio | 0.163 |
| benchmark.partial-sums | 0.453 |
| benchmark.pidigits | 0.168 |
| benchmark.random | 0.098 |
| benchmark.randomize | 0.829 |
| benchmark.raytracer | 0.916 |
| benchmark.raytracer-simd | 0.137 |
| benchmark.recursive | 0.382 |
| benchmark.regex-dna | 0.451 |
| benchmark.regexp | 0.162 |
| benchmark.reverse-complement | 1.074 |
| benchmark.ring | 0.261 |
| benchmark.sfmt | 0.058 |
| benchmark.sha1 | 0.090 |
| benchmark.sieve | 1.003 |
| benchmark.simd-1 | 0.172 |
| benchmark.sockets | 2.834 |
| benchmark.sort | 1.009 |
| benchmark.spawn-cat | 50.411 |
| benchmark.spectral-norm | 0.949 |
| benchmark.spectral-norm-simd | 0.313 |
| benchmark.splay | 0.145 |
| benchmark.splitting | 0.346 |
| benchmark.stack | 0.371 |
| benchmark.struct-arrays | 0.182 |
| benchmark.sum-file | 0.288 |
| benchmark.tasks | 7.108 |
| benchmark.tcp-echo0 | 0.025 |
| benchmark.tcp-echo1 | 0.461 |
| benchmark.tcp-echo2 | 0.477 |
| benchmark.terrain-generation | 0.038 |
| benchmark.timers | 0.010 |
| benchmark.tuple-arrays | 0.298 |
| benchmark.typecheck1 | 0.384 |
| benchmark.typecheck2 | 0.396 |
| benchmark.typecheck3 | 0.440 |
| benchmark.udp-echo0 | 0.511 |
| benchmark.udp-echo1 | 0.543 |
| benchmark.udp-echo2 | 0.684 |
| benchmark.ui-panes | 0.045 |
| benchmark.unicode | 0.207 |
| benchmark.utf16 | 8.912 |
| benchmark.utf8 | 15.482 |
| benchmark.wrap | 0.080 |
| benchmark.xml | 0.374 |
| benchmark.yield | 0.027 |
| benchmark.yuv-to-rgb | 0.048 |