2004-12-23 01:14:07 -05:00
|
|
|
IN: scratchpad
|
|
|
|
|
USE: alien
|
|
|
|
|
USE: kernel
|
|
|
|
|
USE: test
|
|
|
|
|
|
|
|
|
|
[ t ] [ 0 <alien> 0 <alien> = ] unit-test
|
|
|
|
|
[ f ] [ 0 <alien> local-alien? ] unit-test
|
2004-12-23 02:14:40 -05:00
|
|
|
[ f ] [ 0 <alien> 1024 <local-alien> = ] unit-test
|
|
|
|
|
[ f ] [ 0 <alien> 1024 <alien> = ] unit-test
|
|
|
|
|
[ f ] [ "hello" 1024 <alien> = ] unit-test
|
2004-12-23 01:14:07 -05:00
|
|
|
[ t ] [ 1024 <local-alien> local-alien? ] unit-test
|
