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

fix some tests for the sets:set change.

locals-and-roots
John Benediktsson 2016-03-29 20:43:46 -07:00
parent 90b53e3054
commit 1721f9e314
4 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/cfg/linear-scan/linear-scan-tests.factor
View File

@ -1,4 +1,4 @@
USING: tools.test random sorting sequences sets hashtables assocs USING: tools.test random sorting sequences hashtables assocs
kernel fry arrays splitting namespaces math accessors vectors locals kernel fry arrays splitting namespaces math accessors vectors locals
math.order grouping strings strings.private classes layouts math.order grouping strings strings.private classes layouts
cpu.architecture cpu.architecture

5
basis/compiler/cfg/ssa/construction/tdmsc/tdmsc-tests.factor
View File

@ -1,6 +1,7 @@
USING: accessors arrays compiler.cfg compiler.cfg.debugger USING: accessors arrays compiler.cfg compiler.cfg.debugger
compiler.cfg.ssa.construction.tdmsc compiler.cfg.utilities compiler.cfg.ssa.construction.tdmsc compiler.cfg.utilities
kernel namespaces sequences sets tools.test ; kernel namespaces sequences tools.test ;
QUALIFIED: sets
IN: compiler.cfg.ssa.construction.tdmsc.tests IN: compiler.cfg.ssa.construction.tdmsc.tests
: test-tdmsc ( -- ) : test-tdmsc ( -- )
@ -46,7 +47,7 @@ V{ } 6 test-bb
{ t } [ { t } [
2 get 3 get 2array merge-set 2 get 3 get 2array merge-set
4 get 6 get 2array set= 4 get 6 get 2array sets:set=
] unit-test ] unit-test
V{ } 0 test-bb V{ } 0 test-bb

5
core/alien/alien-tests.factor
View File

@ -1,7 +1,8 @@
USING: accessors alien alien.accessors alien.c-types alien.libraries USING: accessors alien alien.accessors alien.c-types alien.libraries
alien.syntax arrays byte-arrays continuations fry kernel kernel.private alien.syntax arrays byte-arrays continuations fry kernel kernel.private
layouts libc math namespaces prettyprint sequences sets system tools.memory layouts libc math namespaces prettyprint sequences system tools.memory
tools.test ; tools.test ;
QUALIFIED: sets
IN: alien.tests IN: alien.tests
{ t } [ -1 <alien> alien-address 0 > ] unit-test { t } [ -1 <alien> alien-address 0 > ] unit-test
@ -84,7 +85,7 @@ f initialize-test set-global
{ 7575 } [ initialize-test [ 7575 ] initialize-alien ] unit-test { 7575 } [ initialize-test [ 7575 ] initialize-alien ] unit-test
{ { BAD-ALIEN } } [ { BAD-ALIEN BAD-ALIEN BAD-ALIEN } members ] unit-test { { BAD-ALIEN } } [ { BAD-ALIEN BAD-ALIEN BAD-ALIEN } sets:members ] unit-test
! Generate callbacks until the whole callback-heap is full, then free ! Generate callbacks until the whole callback-heap is full, then free
! them. Do it ten times in a row for good measure. ! them. Do it ten times in a row for good measure.

7
core/graphs/graphs-tests.factor
View File

@ -1,11 +1,12 @@
USING: assocs graphs kernel namespaces sets sorting tools.test ; USING: assocs graphs kernel namespaces sorting tools.test ;
QUALIFIED: sets
H{ } "g" set H{ } "g" set
{ 1 2 3 } "v" set { 1 2 3 } "v" set
{ } [ "v" dup get "g" get add-vertex ] unit-test { } [ "v" dup get "g" get add-vertex ] unit-test
{ { "v" } } [ 1 "g" get at members ] unit-test { { "v" } } [ 1 "g" get at sets:members ] unit-test
H{ H{
{ 1 HS{ 1 2 } } { 1 HS{ 1 2 } }
@ -14,5 +15,5 @@ H{
} "g" set } "g" set
{ { 2 3 4 5 } } [ { { 2 3 4 5 } } [
2 [ "g" get at members ] closure members natural-sort 2 [ "g" get at sets:members ] closure sets:members natural-sort
] unit-test ] unit-test