2005-03-28 23:45:13 -05:00
|
|
|
IN: temporary
|
2006-02-13 02:46:07 -05:00
|
|
|
USING: alien arrays kernel kernel-internals namespaces test ;
|
2004-12-23 01:14:07 -05:00
|
|
|
|
|
|
|
|
[ t ] [ 0 <alien> 0 <alien> = ] unit-test
|
2004-12-23 02:14:40 -05:00
|
|
|
[ f ] [ 0 <alien> 1024 <alien> = ] unit-test
|
|
|
|
|
[ f ] [ "hello" 1024 <alien> = ] unit-test
|
2004-12-25 15:52:08 -05:00
|
|
|
|
2005-06-12 20:55:30 -04:00
|
|
|
! Testing the various bignum accessor
|
|
|
|
|
10 <byte-array> "dump" set
|
|
|
|
|
|
|
|
|
|
[ 123 ] [
|
|
|
|
|
123 "dump" get 0 set-alien-signed-1
|
|
|
|
|
"dump" get 0 alien-signed-1
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ 12345 ] [
|
|
|
|
|
12345 "dump" get 0 set-alien-signed-2
|
|
|
|
|
"dump" get 0 alien-signed-2
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ 12345678 ] [
|
|
|
|
|
12345678 "dump" get 0 set-alien-signed-4
|
|
|
|
|
"dump" get 0 alien-signed-4
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ 12345678901234567 ] [
|
|
|
|
|
12345678901234567 "dump" get 0 set-alien-signed-8
|
|
|
|
|
"dump" get 0 alien-signed-8
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ -1 ] [
|
|
|
|
|
-1 "dump" get 0 set-alien-signed-8
|
|
|
|
|
"dump" get 0 alien-signed-8
|
|
|
|
|
] unit-test
|
2005-12-04 22:29:55 -05:00
|
|
|
|
|
|
|
|
cell 8 = [
|
|
|
|
|
[ HEX: 123412341234 ] [
|
|
|
|
|
8 <byte-array>
|
|
|
|
|
HEX: 123412341234 over 0 set-alien-signed-8
|
|
|
|
|
0 alien-signed-8
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ HEX: 123412341234 ] [
|
|
|
|
|
8 <byte-array>
|
|
|
|
|
HEX: 123412341234 over 0 set-alien-signed-cell
|
|
|
|
|
0 alien-signed-cell
|
|
|
|
|
] unit-test
|
|
|
|
|
] when
|
2005-12-12 19:36:16 -05:00
|
|
|
|
|
|
|
|
[ "hello world" ]
|
|
|
|
|
[ "hello world" string>alien alien>string ] unit-test
|
2006-02-06 21:51:04 -05:00
|
|
|
|
2006-02-09 22:11:22 -05:00
|
|
|
[ t ] [ f expired? ] unit-test
|
