diff --git a/core/alien/alien-tests.factor b/core/alien/alien-tests.factor index 6f2eaa1840..f50902b198 100644 --- a/core/alien/alien-tests.factor +++ b/core/alien/alien-tests.factor @@ -4,18 +4,18 @@ namespaces prettyprint sequences tools.memory tools.test ; QUALIFIED: sets IN: alien.tests -{ t } [ -1 alien-address 0 > ] unit-test +UNIT-TEST: [ -1 alien-address 0 > ] { t } -{ t } [ 0 0 = ] unit-test -{ f } [ 0 1024 = ] unit-test -{ f } [ "hello" 1024 = ] unit-test -{ f } [ 0 ] unit-test -{ f } [ 0 f ] unit-test +UNIT-TEST: [ 0 0 = ] { t } +UNIT-TEST: [ 0 1024 = ] { f } +UNIT-TEST: [ "hello" 1024 = ] { f } +UNIT-TEST: [ 0 ] { f } +UNIT-TEST: [ 0 f ] { f } ! Testing the various bignum accessor 10 "dump" set -[ "dump" get alien-address ] must-fail +MUST-FAIL: [ "dump" get alien-address ] { 123 } [ 123 "dump" get 0 set-alien-signed-1