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
math.order grouping strings strings.private classes layouts
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
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
: test-tdmsc ( -- )
@ -46,7 +47,7 @@ V{ } 6 test-bb
{ t } [
2 get 3 get 2array merge-set
4 get 6 get 2array set=
4 get 6 get 2array sets:set=
] unit-test
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
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 ;
QUALIFIED: sets
IN: alien.tests
{ 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
{ { 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
! 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
{ 1 2 3 } "v" set
{ } [ "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{
{ 1 HS{ 1 2 } }
@ -14,5 +15,5 @@ H{
} "g" set
{ { 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