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
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
--- /dev/null
+IN: system.tests\r
+USING: layouts math tools.test ;\r
+\r
+[ t ] [ cell integer? ] unit-test\r
+[ t ] [ bootstrap-cell integer? ] unit-test\r
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