]> gitweb.factorcode.org Git - factor.git/commitdiff
fix some tests for the sets:set change.
authorJohn Benediktsson <mrjbq7@gmail.com>
Wed, 30 Mar 2016 03:43:46 +0000 (20:43 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Wed, 30 Mar 2016 03:43:46 +0000 (20:43 -0700)
basis/compiler/cfg/linear-scan/linear-scan-tests.factor
basis/compiler/cfg/ssa/construction/tdmsc/tdmsc-tests.factor
core/alien/alien-tests.factor
core/graphs/graphs-tests.factor

index e087dbfb6e0e5fce566c893125692cad1d6ca37a..1b95c1bc42582b4c22d0a33c7437b3213cfe35aa 100644 (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
index 20577afb968d5d613d91e4407ca0b3fc7df0bd7d..fbfaa50289ff6a1582bf4ac4cdf0bb18549d15a4 100644 (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
index 766d42bd15e575e0bd15d3cccfda16a54081366d..ec44ed1accfc7962d7b2285148e67df25607bcb6 100644 (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.
index 807d347d6a97cdcbb9a7ee02672093e65b67bb84..8b559648fe485feaad3795804359206c0c13b8a1 100644 (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