factor/core/alien/alien-tests.factor

59 lines
1.3 KiB
Factor
Raw Normal View History

2007-09-20 18:09:08 -04:00
IN: temporary
USING: alien byte-arrays
arrays kernel kernel.private namespaces tools.test sequences
libc math system prettyprint ;
[ t ] [ -1 <alien> alien-address 0 > ] unit-test
[ t ] [ 0 <alien> 0 <alien> = ] unit-test
[ f ] [ 0 <alien> 1024 <alien> = ] unit-test
[ f ] [ "hello" 1024 <alien> = ] unit-test
[ f ] [ 0 <alien> ] unit-test
[ f ] [ 0 f <displaced-alien> ] unit-test
! Testing the various bignum accessor
10 <byte-array> "dump" set
[ "dump" get alien-address ] unit-test-fails
[ 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
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
[ "ALIEN: 1234" ] [ 1234 <alien> unparse ] unit-test