steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

alien tests: use UNIT-TEST: for fun

modern-harvey3-triple
Doug Coleman 2018-08-10 08:54:10 -05:00
parent 9df90f9c87
commit 9c7fdc3a34
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
core/alien/alien-tests.factor
View File

@ -4,18 +4,18 @@ namespaces prettyprint sequences tools.memory tools.test ;
QUALIFIED: sets QUALIFIED: sets
IN: alien.tests IN: alien.tests
{ t } [ -1 <alien> alien-address 0 > ] unit-test UNIT-TEST: [ -1 <alien> alien-address 0 > ] { t }
{ t } [ 0 <alien> 0 <alien> = ] unit-test UNIT-TEST: [ 0 <alien> 0 <alien> = ] { t }
{ f } [ 0 <alien> 1024 <alien> = ] unit-test UNIT-TEST: [ 0 <alien> 1024 <alien> = ] { f }
{ f } [ "hello" 1024 <alien> = ] unit-test UNIT-TEST: [ "hello" 1024 <alien> = ] { f }
{ f } [ 0 <alien> ] unit-test UNIT-TEST: [ 0 <alien> ] { f }
{ f } [ 0 f <displaced-alien> ] unit-test UNIT-TEST: [ 0 f <displaced-alien> ] { f }
! Testing the various bignum accessor ! Testing the various bignum accessor
10 <byte-array> "dump" set 10 <byte-array> "dump" set
[ "dump" get alien-address ] must-fail MUST-FAIL: [ "dump" get alien-address ]
{ 123 } [ { 123 } [
123 "dump" get 0 set-alien-signed-1 123 "dump" get 0 set-alien-signed-1