2005-08-12 18:02:03 -04:00
|
|
|
IN: scratchpad
|
2005-12-14 20:29:32 -05:00
|
|
|
USING: kernel kernel-internals math memory namespaces sequences
|
|
|
|
|
test ;
|
2005-08-12 18:02:03 -04:00
|
|
|
|
|
|
|
|
[ 0 ] [ f size ] unit-test
|
2005-09-18 01:37:28 -04:00
|
|
|
[ t ] [ [ \ = \ = ] all-equal? ] unit-test
|
2005-12-12 20:53:55 -05:00
|
|
|
|
|
|
|
|
! (clone) primitive was missing GC check
|
|
|
|
|
[ ] [ 1000000 [ drop H{ } clone >n n> drop ] each ] unit-test
|
2005-12-14 20:29:32 -05:00
|
|
|
|
|
|
|
|
[ cell ] [ cell ] unit-test
|
|
|
|
|
[ t ] [ cell get integer? ] unit-test
|
