]> gitweb.factorcode.org Git - factor.git/commitdiff
Fix test failurs
authorSlava Pestov <slava@factorcode.org>
Wed, 12 Mar 2008 07:48:44 +0000 (02:48 -0500)
committerSlava Pestov <slava@factorcode.org>
Wed, 12 Mar 2008 07:48:44 +0000 (02:48 -0500)
core/alien/alien-tests.factor
core/inference/class/class-tests.factor
core/layouts/layouts-tests.factor [new file with mode: 0755]
core/system/system-tests.factor

index 72feca27cd72a2c1ad0762a3dfce28e403cc78f1..5f7b9fff210b3612b3f73f92690cd895bb399c09 100755 (executable)
@@ -1,7 +1,7 @@
 IN: alien.tests
 USING: alien alien.accessors byte-arrays arrays kernel
 kernel.private namespaces tools.test sequences libc math system
-prettyprint ;
+prettyprint layouts ;
 
 [ t ] [ -1 <alien> alien-address 0 > ] unit-test
 
index df90ac2291e002702362688cff19860f4c95a083..17197db66703bf6f12c6496c57d50c385e2e36c4 100755 (executable)
@@ -4,7 +4,7 @@ inference.dataflow optimizer tools.test kernel.private generic
 sequences words inference.class quotations alien
 alien.c-types strings sbufs sequences.private
 slots.private combinators definitions compiler.units
-system ;
+system layouts ;
 
 ! Make sure these compile even though this is invalid code
 [ ] [ [ 10 mod 3.0 /i ] dataflow optimize drop ] unit-test
diff --git a/core/layouts/layouts-tests.factor b/core/layouts/layouts-tests.factor
new file mode 100755 (executable)
index 0000000..cf50356
--- /dev/null
@@ -0,0 +1,5 @@
+IN: system.tests\r
+USING: layouts math tools.test ;\r
+\r
+[ t ] [ cell integer? ] unit-test\r
+[ t ] [ bootstrap-cell integer? ] unit-test\r
index ad0e5e07cb081484a46c19e9ee6cf21b2de322f6..4b074ed7aad9fc275a4ae451b7639b23884e29ee 100755 (executable)
@@ -1,9 +1,6 @@
 USING: math tools.test system prettyprint namespaces kernel ;
 IN: system.tests
 
-[ t ] [ cell integer? ] unit-test
-[ t ] [ bootstrap-cell integer? ] unit-test
-
 wince? [
     [ ] [ os-envs . ] unit-test
 ] unless