|
From: <fac...@gm...> - 2022-01-26 17:51:21
|
<div><h1>Build report for macosx/x86.64</h1>
<table>
<tr><td>Build machine:</td><td>macmini</td></tr>
<tr><td>Disk usage:</td><td>360.96Gi used, 570.59Gi avail, 931.55Gi total, 61.25% free</td></tr>
<tr><td>Build directory:</td><td>/Users/jbenedik/builds/2022-01-26-08-59</td></tr>
<tr><td>GIT ID:</td><td><a href="http://github.com/factor/factor/commit/39d21af5ff199d97ebb5f33aef23f40e2f666bf9">39d21af5ff199d97ebb5f33aef23f40e2f666bf9</a></td></tr>
</table><h2>Timings</h2> <table><tr><td>boot-time</td><td>00:03:34</td></tr><tr><td>load-time</td><td>00:09:00</td></tr><tr><td>test-time</td><td>00:24:45</td></tr><tr><td>help-lint-time</td><td>00:00:12</td></tr><tr><td>benchmark-time</td><td>00:09:59</td></tr><tr><td>html-help-time</td><td>00:02:49</td></tr></table><h1>Unit test failures</h1> <ul><li>resource:basis/cocoa/apple-script/apple-script-tests.factor</li><li>resource:basis/pack/pack-tests.factor</li><li>resource:extra/sequences/extras/extras-tests.factor</li></ul> Details: <pre>
==== resource:basis/cocoa/apple-script/apple-script-tests.factor
resource:basis/cocoa/apple-script/apple-script-tests.factor: 4
Unit Test: { { "\\\\" } [ "\\" quote-apple-script ] }
=== Expected:
"\\\\"
=== Got:
"\"\\\\\""
(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) [
{ "\\\\" } [ "\\" quote-apple-script ] \ (unit-test) 4
experiment =>
{ "hello\\nthere" } [ "hello\nthere" quote-apple-script ]
\ (unit-test) 6 experiment
{ "hello\\rthere" } [ "hello\rthere" quote-apple-script ]
\ (unit-test) 7 experiment
{ "hello\\tthere" } [ "hello\tthere" quote-apple-script ]
\ (unit-test) 8 experiment
{ "hello\\tthere" } [ "hello\tthere" quote-apple-script ]
\ (unit-test) 9 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/cocoa/apple-script/apple-script-tests.factor: 6
Unit Test: { { "hello\\nthere" } [ "hello\nthere" quote-apple-script ] }
=== Expected:
"hello\\nthere"
=== Got:
"\"hello\\nthere\""
(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) [
{ "\\\\" } [ "\\" quote-apple-script ] \ (unit-test) 4
experiment
{ "hello\\nthere" } [ "hello\nthere" quote-apple-script ]
\ (unit-test) 6 experiment =>
{ "hello\\rthere" } [ "hello\rthere" quote-apple-script ]
\ (unit-test) 7 experiment
{ "hello\\tthere" } [ "hello\tthere" quote-apple-script ]
\ (unit-test) 8 experiment
{ "hello\\tthere" } [ "hello\tthere" quote-apple-script ]
\ (unit-test) 9 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/cocoa/apple-script/apple-script-tests.factor: 7
Unit Test: { { "hello\\rthere" } [ "hello\rthere" quote-apple-script ] }
=== Expected:
"hello\\rthere"
=== Got:
"\"hello\\rthere\""
(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) [
{ "\\\\" } [ "\\" quote-apple-script ] \ (unit-test) 4
experiment
{ "hello\\nthere" } [ "hello\nthere" quote-apple-script ]
\ (unit-test) 6 experiment
{ "hello\\rthere" } [ "hello\rthere" quote-apple-script ]
\ (unit-test) 7 experiment =>
{ "hello\\tthere" } [ "hello\tthere" quote-apple-script ]
\ (unit-test) 8 experiment
{ "hello\\tthere" } [ "hello\tthere" quote-apple-script ]
\ (unit-test) 9 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/cocoa/apple-script/apple-script-tests.factor: 8
Unit Test: { { "hello\\tthere" } [ "hello\tthere" quote-apple-script ] }
=== Expected:
"hello\\tthere"
=== Got:
"\"hello\\tthere\""
(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) [
{ "\\\\" } [ "\\" quote-apple-script ] \ (unit-test) 4
experiment
{ "hello\\nthere" } [ "hello\nthere" quote-apple-script ]
\ (unit-test) 6 experiment
{ "hello\\rthere" } [ "hello\rthere" quote-apple-script ]
\ (unit-test) 7 experiment
{ "hello\\tthere" } [ "hello\tthere" quote-apple-script ]
\ (unit-test) 8 experiment =>
{ "hello\\tthere" } [ "hello\tthere" quote-apple-script ]
\ (unit-test) 9 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/cocoa/apple-script/apple-script-tests.factor: 9
Unit Test: { { "hello\\tthere" } [ "hello\tthere" quote-apple-script ] }
=== Expected:
"hello\\tthere"
=== Got:
"\"hello\\tthere\""
(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) [
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/pack/pack-tests.factor
resource:basis/pack/pack-tests.factor: 21
Unit Test: {
{ { 1 2 3 4 5 } }
[ { 1 2 3 4 5 } "cstiq" [ pack-le ] keep unpack-le ]
}
=== Expected:
{ 1 2 3 4 5 }
=== Got:
{ 1 2 50331648 4 5 }
(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) [
{ ~byte-array~ } [ ~array~ "cstiq" pack-be ] \ (unit-test) 7
experiment
{ ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-be ]
\ (unit-test) 12 experiment
{ ~byte-array~ } [ ~array~ "cstiq" pack-le ] \ (unit-test)
16 experiment
{ ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-le ]
\ (unit-test) 21 experiment =>
{ ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-le ]
\ (unit-test) 26 experiment
{ ~array~ } [ ~array~ "cstiqd" ~quotation~ keep unpack-be ]
\ (unit-test) 31 experiment
{ ~array~ }
[ ~array~ "cstiq" ~quotation~ keep unpack-native ]
\ (unit-test) 36 experiment
{ ~byte-array~ } [ ~array~ "4ci" pack-le ] \ (unit-test) 38
experiment
{ ~array~ } [ ~byte-array~ "4ci" unpack-le ] \ (unit-test)
39 experiment
{ 9 } [ "iic" packed-length ] \ (unit-test) 41 experiment
[ "iii" read-packed-le ] \ (must-infer) 42 experiment
[ "iii" read-packed-be ] \ (must-infer) 43 experiment
[ "iii" read-packed-native ] \ (must-infer) 44 experiment
[ "iii" unpack-le ] \ (must-infer) 45 experiment
[ "iii" unpack-be ] \ (must-infer) 46 experiment
[ "iii" unpack-native ] \ (must-infer) 47 experiment
[ "iii" pack ] \ (must-infer) 48 experiment
[ "iii" unpack ] \ (must-infer) 49 experiment
[ "iii" pack ] \ (must-infer) 51 experiment
{ "c" } [ "1c" expand-pack-format ] \ (unit-test) 53
experiment
{ "cccc" } [ "4c" expand-pack-format ] \ (unit-test) 54
experiment
{ "cccccccccccc" } [ "12c" expand-pack-format ] ~13 more~
]
(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/pack/pack-tests.factor: 26
Unit Test: {
{ { -1 -2 -3 -4 -5 } }
[ { -1 -2 -3 -4 -5 } "cstiq" [ pack-le ] keep unpack-le ]
}
=== Expected:
{ -1 -2 -3 -4 -5 }
=== Got:
{ -1 -2 281474926379008 -4 -5 }
(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) [
{ ~byte-array~ } [ ~array~ "cstiq" pack-be ] \ (unit-test) 7
experiment
{ ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-be ]
\ (unit-test) 12 experiment
{ ~byte-array~ } [ ~array~ "cstiq" pack-le ] \ (unit-test)
16 experiment
{ ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-le ]
\ (unit-test) 21 experiment
{ ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-le ]
\ (unit-test) 26 experiment =>
{ ~array~ } [ ~array~ "cstiqd" ~quotation~ keep unpack-be ]
\ (unit-test) 31 experiment
{ ~array~ }
[ ~array~ "cstiq" ~quotation~ keep unpack-native ]
\ (unit-test) 36 experiment
{ ~byte-array~ } [ ~array~ "4ci" pack-le ] \ (unit-test) 38
experiment
{ ~array~ } [ ~byte-array~ "4ci" unpack-le ] \ (unit-test)
39 experiment
{ 9 } [ "iic" packed-length ] \ (unit-test) 41 experiment
[ "iii" read-packed-le ] \ (must-infer) 42 experiment
[ "iii" read-packed-be ] \ (must-infer) 43 experiment
[ "iii" read-packed-native ] \ (must-infer) 44 experiment
[ "iii" unpack-le ] \ (must-infer) 45 experiment
[ "iii" unpack-be ] \ (must-infer) 46 experiment
[ "iii" unpack-native ] \ (must-infer) 47 experiment
[ "iii" pack ] \ (must-infer) 48 experiment
[ "iii" unpack ] \ (must-infer) 49 experiment
[ "iii" pack ] \ (must-infer) 51 experiment
{ "c" } [ "1c" expand-pack-format ] \ (unit-test) 53
experiment
{ "cccc" } [ "4c" expand-pack-format ] \ (unit-test) 54
experiment
{ "cccccccccccc" } [ "12c" expand-pack-format ] ~13 more~
]
(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/pack/pack-tests.factor: 36
Unit Test: {
{ { -1 -2 -3 -4 -5 } }
[
{ -1 -2 -3 -4 -5 } "cstiq" [ pack-native ] keep
unpack-native
]
}
=== Expected:
{ -1 -2 -3 -4 -5 }
=== Got:
{ -1 -2 281474926379008 -4 -5 }
(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) [
{ ~byte-array~ } [ ~array~ "cstiq" pack-be ] \ (unit-test) 7
experiment
{ ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-be ]
\ (unit-test) 12 experiment
{ ~byte-array~ } [ ~array~ "cstiq" pack-le ] \ (unit-test)
16 experiment
{ ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-le ]
\ (unit-test) 21 experiment
{ ~array~ } [ ~array~ "cstiq" ~quotation~ keep unpack-le ]
\ (unit-test) 26 experiment
{ ~array~ } [ ~array~ "cstiqd" ~quotation~ keep unpack-be ]
\ (unit-test) 31 experiment
{ ~array~ }
[ ~array~ "cstiq" ~quotation~ keep unpack-native ]
\ (unit-test) 36 experiment =>
{ ~byte-array~ } [ ~array~ "4ci" pack-le ] \ (unit-test) 38
experiment
{ ~array~ } [ ~byte-array~ "4ci" unpack-le ] \ (unit-test)
39 experiment
{ 9 } [ "iic" packed-length ] \ (unit-test) 41 experiment
[ "iii" read-packed-le ] \ (must-infer) 42 experiment
[ "iii" read-packed-be ] \ (must-infer) 43 experiment
[ "iii" read-packed-native ] \ (must-infer) 44 experiment
[ "iii" unpack-le ] \ (must-infer) 45 experiment
[ "iii" unpack-be ] \ (must-infer) 46 experiment
[ "iii" unpack-native ] \ (must-infer) 47 experiment
[ "iii" pack ] \ (must-infer) 48 experiment
[ "iii" unpack ] \ (must-infer) 49 experiment
[ "iii" pack ] \ (must-infer) 51 experiment
{ "c" } [ "1c" expand-pack-format ] \ (unit-test) 53
experiment
{ "cccc" } [ "4c" expand-pack-format ] \ (unit-test) 54
experiment
{ "cccccccccccc" } [ "12c" expand-pack-format ] ~13 more~
]
(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/sequences/extras/extras-tests.factor
resource:extra/sequences/extras/extras-tests.factor: 221
Unit Test: {
{ 1 "beef" }
[ { "chicken" "beef" "moose" } [ length ] infimum-by* ]
}
=== Expected:
1
"beef"
=== Got:
"chicken"
1
7
(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) [
{ ~vector~ } [ "hello" ~quotation~ find-all ] \ (unit-test)
5 experiment
{ ~array~ } [ "abcd" all-subseqs ] \ (unit-test) 7
experiment
{ ~array~ } [ ~quotation~ ~array~ make ] \ (unit-test) 10
experiment
{ ~byte-array~ } [ 1 2 "asdf" ~byte-array~ subseq-as ]
\ (unit-test) 12 experiment
{ "" } [ "abc" "def" longest-subseq ] \ (unit-test) 14
experiment
{ "abcd" } [ "abcd" "abcde" longest-subseq ] \ (unit-test)
15 experiment
{ "foo" } [ "foo" "foobar" longest-subseq ] \ (unit-test) 16
experiment
{ "foo" } [ "foobar" "foo" longest-subseq ] \ (unit-test) 17
experiment
{ "" "" } [ "" "" 63 pad-longest ] \ (unit-test) 19
experiment
{ "abc" "def" } [ "abc" "def" 63 pad-longest ] \ (unit-test)
20 experiment
{ " " "abc" } [ "" "abc" 32 pad-longest ] \ (unit-test) 21
experiment
{ "abc" " " } [ "abc" "" 32 pad-longest ] \ (unit-test) 22
experiment
{ "abc..." "foobar" } [ "abc" "foobar" 46 pad-longest ]
\ (unit-test) 23 experiment
{ ~array~ } [ "ABC" 8 <iota> ~quotation~ with map ]
\ (unit-test) 38 experiment
{ ~array~ } [ ~array~ ~array~ over ~quotation~ change-nths ]
\ (unit-test) 42 experiment
{ ~vector~ }
[ ~array~ ~quotation~ selector* ~quotation~ dip ]
\ (unit-test) 46 experiment
{ ~array~ } [ ~array~ ~quotation~ filter-index ]
\ (unit-test) 48 experiment
{ ~vector~ }
[ ~array~ ~quotation~ ~vector~ filter-index-as ]
\ (unit-test) 50 experiment
{ ~array~ } [ ~array~ even-indices ] \ (unit-test) 52
experiment
{ ~array~ } [ ~array~ odd-indices ] \ (unit-test) 54
~772 more~
]
(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/sequences/extras/extras-tests.factor: 222
Unit Test: {
{ 0 "chicken" }
[ { "chicken" "beef" "moose" } [ length ] supremum-by* ]
}
=== Expected:
0
"chicken"
=== Got:
"chicken"
0
"chicken"
(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) [
{ ~vector~ } [ "hello" ~quotation~ find-all ] \ (unit-test)
5 experiment
{ ~array~ } [ "abcd" all-subseqs ] \ (unit-test) 7
experiment
{ ~array~ } [ ~quotation~ ~array~ make ] \ (unit-test) 10
experiment
{ ~byte-array~ } [ 1 2 "asdf" ~byte-array~ subseq-as ]
\ (unit-test) 12 experiment
{ "" } [ "abc" "def" longest-subseq ] \ (unit-test) 14
experiment
{ "abcd" } [ "abcd" "abcde" longest-subseq ] \ (unit-test)
15 experiment
{ "foo" } [ "foo" "foobar" longest-subseq ] \ (unit-test) 16
experiment
{ "foo" } [ "foobar" "foo" longest-subseq ] \ (unit-test) 17
experiment
{ "" "" } [ "" "" 63 pad-longest ] \ (unit-test) 19
experiment
{ "abc" "def" } [ "abc" "def" 63 pad-longest ] \ (unit-test)
20 experiment
{ " " "abc" } [ "" "abc" 32 pad-longest ] \ (unit-test) 21
experiment
{ "abc" " " } [ "abc" "" 32 pad-longest ] \ (unit-test) 22
experiment
{ "abc..." "foobar" } [ "abc" "foobar" 46 pad-longest ]
\ (unit-test) 23 experiment
{ ~array~ } [ "ABC" 8 <iota> ~quotation~ with map ]
\ (unit-test) 38 experiment
{ ~array~ } [ ~array~ ~array~ over ~quotation~ change-nths ]
\ (unit-test) 42 experiment
{ ~vector~ }
[ ~array~ ~quotation~ selector* ~quotation~ dip ]
\ (unit-test) 46 experiment
{ ~array~ } [ ~array~ ~quotation~ filter-index ]
\ (unit-test) 48 experiment
{ ~vector~ }
[ ~array~ ~quotation~ ~vector~ filter-index-as ]
\ (unit-test) 50 experiment
{ ~array~ } [ ~array~ even-indices ] \ (unit-test) 52
experiment
{ ~array~ } [ ~array~ odd-indices ] \ (unit-test) 54
~772 more~
]
(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/sequences/extras/extras-tests.factor: 223
Unit Test: {
{ 2 "moose" }
[ { "chicken" "beef" "moose" } [ first ] supremum-by* ]
}
=== Expected:
2
"moose"
=== Got:
"chicken"
2
"moose"
(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) [
{ ~vector~ } [ "hello" ~quotation~ find-all ] \ (unit-test)
5 experiment
{ ~array~ } [ "abcd" all-subseqs ] \ (unit-test) 7
experiment
{ ~array~ } [ ~quotation~ ~array~ make ] \ (unit-test) 10
experiment
{ ~byte-array~ } [ 1 2 "asdf" ~byte-array~ subseq-as ]
\ (unit-test) 12 experiment
{ "" } [ "abc" "def" longest-subseq ] \ (unit-test) 14
experiment
{ "abcd" } [ "abcd" "abcde" longest-subseq ] \ (unit-test)
15 experiment
{ "foo" } [ "foo" "foobar" longest-subseq ] \ (unit-test) 16
experiment
{ "foo" } [ "foobar" "foo" longest-subseq ] \ (unit-test) 17
experiment
{ "" "" } [ "" "" 63 pad-longest ] \ (unit-test) 19
experiment
{ "abc" "def" } [ "abc" "def" 63 pad-longest ] \ (unit-test)
20 experiment
{ " " "abc" } [ "" "abc" 32 pad-longest ] \ (unit-test) 21
experiment
{ "abc" " " } [ "abc" "" 32 pad-longest ] \ (unit-test) 22
experiment
{ "abc..." "foobar" } [ "abc" "foobar" 46 pad-longest ]
\ (unit-test) 23 experiment
{ ~array~ } [ "ABC" 8 <iota> ~quotation~ with map ]
\ (unit-test) 38 experiment
{ ~array~ } [ ~array~ ~array~ over ~quotation~ change-nths ]
\ (unit-test) 42 experiment
{ ~vector~ }
[ ~array~ ~quotation~ selector* ~quotation~ dip ]
\ (unit-test) 46 experiment
{ ~array~ } [ ~array~ ~quotation~ filter-index ]
\ (unit-test) 48 experiment
{ ~vector~ }
[ ~array~ ~quotation~ ~vector~ filter-index-as ]
\ (unit-test) 50 experiment
{ ~array~ } [ ~array~ even-indices ] \ (unit-test) 52
experiment
{ ~array~ } [ ~array~ odd-indices ] \ (unit-test) 54
~772 more~
]
(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
]
</pre><h2>Benchmarks</h2>
<table>
<tr><th>Benchmark</th><th>Time (seconds)</th></tr>
<tr><td>benchmark.3d-matrix-scalar</td><td>0.583</td></tr><tr><td>benchmark.3d-matrix-vector</td><td>0.015</td></tr><tr><td>benchmark.ant</td><td>0.085</td></tr><tr><td>benchmark.backtrack</td><td>0.120</td></tr><tr><td>benchmark.base64</td><td>0.027</td></tr><tr><td>benchmark.beust1</td><td>0.373</td></tr><tr><td>benchmark.beust2</td><td>0.262</td></tr><tr><td>benchmark.binary-search</td><td>0.087</td></tr><tr><td>benchmark.binary-trees</td><td>0.700</td></tr><tr><td>benchmark.bloom-filters</td><td>0.112</td></tr><tr><td>benchmark.bootstrap1</td><td>5.912</td></tr><tr><td>benchmark.busy-loop</td><td>0.676</td></tr><tr><td>benchmark.chameneos-redux</td><td>0.713</td></tr><tr><td>benchmark.combinatorics</td><td>0.032</td></tr><tr><td>benchmark.completion</td><td>0.341</td></tr><tr><td>benchmark.continuations</td><td>0.341</td></tr><tr><td>benchmark.crc32</td><td>0.100</td></tr><tr><td>benchmark.csv</td><td>0.044</td></tr><tr><td>benchmark.cuckoo-filters</td><td>2.116</td></tr><tr><td>benchmark.dawes</td><td>0.034</td></tr><tr><td>benchmark.dispatch1</td><td>0.586</td></tr><tr><td>benchmark.dispatch2</td><td>0.631</td></tr><tr><td>benchmark.dispatch3</td><td>0.667</td></tr><tr><td>benchmark.dispatch4</td><td>0.971</td></tr><tr><td>benchmark.dispatch5</td><td>0.334</td></tr><tr><td>benchmark.dispatch6</td><td>1.923</td></tr><tr><td>benchmark.dlists</td><td>0.263</td></tr><tr><td>benchmark.e-decimals</td><td>0.217</td></tr><tr><td>benchmark.e-ratios</td><td>0.032</td></tr><tr><td>benchmark.empty-loop-0</td><td>0.052</td></tr><tr><td>benchmark.empty-loop-1</td><td>0.169</td></tr><tr><td>benchmark.empty-loop-2</td><td>0.082</td></tr><tr><td>benchmark.euler150</td><td>2.336</td></tr><tr><td>benchmark.fannkuch</td><td>0.352</td></tr><tr><td>benchmark.fasta</td><td>0.934</td></tr><tr><td>benchmark.fib1</td><td>0.029</td></tr><tr><td>benchmark.fib2</td><td>0.029</td></tr><tr><td>benchmark.fib3</td><td>0.081</td></tr><tr><td>benchmark.fib4</td><td>0.043</td></tr><tr><td>benchmark.fib5</td><td>0.146</td></tr><tr><td>benchmark.fib6</td><td>2.461</td></tr><tr><td>benchmark.fib7</td><td>0.168</td></tr><tr><td>benchmark.fib8</td><td>0.120</td></tr><tr><td>benchmark.find-pi</td><td>0.442</td></tr><tr><td>benchmark.flip</td><td>0.263</td></tr><tr><td>benchmark.gc0</td><td>1.118</td></tr><tr><td>benchmark.gc1</td><td>0.048</td></tr><tr><td>benchmark.gc2</td><td>11.275</td></tr><tr><td>benchmark.gc3</td><td>0.159</td></tr><tr><td>benchmark.hash-sets</td><td>0.562</td></tr><tr><td>benchmark.hashtables</td><td>0.461</td></tr><tr><td>benchmark.heaps</td><td>0.120</td></tr><tr><td>benchmark.interval-sets</td><td>0.487</td></tr><tr><td>benchmark.iteration</td><td>0.520</td></tr><tr><td>benchmark.json</td><td>0.143</td></tr><tr><td>benchmark.knucleotide</td><td>1.293</td></tr><tr><td>benchmark.lcs</td><td>0.218</td></tr><tr><td>benchmark.lexer</td><td>3.407</td></tr><tr><td>benchmark.linked-assocs</td><td>0.379</td></tr><tr><td>benchmark.make</td><td>1.247</td></tr><tr><td>benchmark.mandel</td><td>0.026</td></tr><tr><td>benchmark.matrix-exponential-scalar</td><td>1.764</td></tr><tr><td>benchmark.matrix-exponential-simd</td><td>0.050</td></tr><tr><td>benchmark.md5</td><td>0.014</td></tr><tr><td>benchmark.memoize</td><td>0.136</td></tr><tr><td>benchmark.msgpack</td><td>0.627</td></tr><tr><td>benchmark.mt</td><td>0.081</td></tr><tr><td>benchmark.namespaces</td><td>0.383</td></tr><tr><td>benchmark.nbody</td><td>1.034</td></tr><tr><td>benchmark.nbody-simd</td><td>0.076</td></tr><tr><td>benchmark.nested-empty-loop-1</td><td>0.024</td></tr><tr><td>benchmark.nested-empty-loop-2</td><td>0.183</td></tr><tr><td>benchmark.nsieve</td><td>0.115</td></tr><tr><td>benchmark.nsieve-bits</td><td>0.254</td></tr><tr><td>benchmark.nsieve-bytes</td><td>0.059</td></tr><tr><td>benchmark.parse-bignum</td><td>0.412</td></tr><tr><td>benchmark.parse-fixnum</td><td>0.332</td></tr><tr><td>benchmark.parse-float</td><td>3.580</td></tr><tr><td>benchmark.parse-ratio</td><td>0.189</td></tr><tr><td>benchmark.partial-sums</td><td>0.186</td></tr><tr><td>benchmark.pidigits</td><td>0.161</td></tr><tr><td>benchmark.random</td><td>0.084</td></tr><tr><td>benchmark.randomize</td><td>0.771</td></tr><tr><td>benchmark.raytracer</td><td>0.736</td></tr><tr><td>benchmark.raytracer-simd</td><td>0.118</td></tr><tr><td>benchmark.recursive</td><td>0.354</td></tr><tr><td>benchmark.regex-dna</td><td>0.458</td></tr><tr><td>benchmark.regexp</td><td>0.163</td></tr><tr><td>benchmark.reverse-complement</td><td>0.805</td></tr><tr><td>benchmark.ring</td><td>0.235</td></tr><tr><td>benchmark.sfmt</td><td>0.053</td></tr><tr><td>benchmark.sha1</td><td>0.099</td></tr><tr><td>benchmark.sieve</td><td>0.946</td></tr><tr><td>benchmark.simd-1</td><td>0.193</td></tr><tr><td>benchmark.sockets</td><td>2.461</td></tr><tr><td>benchmark.sort</td><td>0.805</td></tr><tr><td>benchmark.spectral-norm</td><td>0.276</td></tr><tr><td>benchmark.spectral-norm-simd</td><td>0.200</td></tr><tr><td>benchmark.splay</td><td>0.133</td></tr><tr><td>benchmark.splitting</td><td>0.195</td></tr><tr><td>benchmark.stack</td><td>0.282</td></tr><tr><td>benchmark.struct-arrays</td><td>0.197</td></tr><tr><td>benchmark.sum-file</td><td>0.243</td></tr><tr><td>benchmark.tcp-echo0</td><td>0.024</td></tr><tr><td>benchmark.tcp-echo1</td><td>0.390</td></tr><tr><td>benchmark.tcp-echo2</td><td>0.402</td></tr><tr><td>benchmark.terrain-generation</td><td>0.034</td></tr><tr><td>benchmark.timers</td><td>0.051</td></tr><tr><td>benchmark.tuple-arrays</td><td>0.224</td></tr><tr><td>benchmark.typecheck1</td><td>0.336</td></tr><tr><td>benchmark.typecheck2</td><td>0.355</td></tr><tr><td>benchmark.typecheck3</td><td>0.382</td></tr><tr><td>benchmark.udp-echo0</td><td>0.497</td></tr><tr><td>benchmark.udp-echo1</td><td>0.533</td></tr><tr><td>benchmark.udp-echo2</td><td>0.691</td></tr><tr><td>benchmark.ui-panes</td><td>0.068</td></tr><tr><td>benchmark.unicode</td><td>0.188</td></tr><tr><td>benchmark.wrap</td><td>0.067</td></tr><tr><td>benchmark.xml</td><td>0.212</td></tr><tr><td>benchmark.yield</td><td>0.238</td></tr><tr><td>benchmark.yuv-to-rgb</td><td>0.040</td></tr>
</table></div> |