]> gitweb.factorcode.org Git - factor.git/blob - core/layouts/layouts-tests.factor
f38d0aaa1ae9de83b0f77d6485f4400d7123b68f
[factor.git] / core / layouts / layouts-tests.factor
1 USING: layouts math tools.test ;\r
2 IN: system.tests\r
3 \r
4 [ t ] [ cell integer? ] unit-test\r
5 [ t ] [ bootstrap-cell integer? ] unit-test\r
6 \r
7 ! Smoke test\r
8 [ t ] [ max-array-capacity cell-bits 2^ < ] unit-test\r
9 \r
10 [ t ] [ most-negative-fixnum fixnum? ] unit-test\r
11 [ t ] [ most-positive-fixnum fixnum? ] unit-test\r