From 9c7fdc3a345b6df174b6d4e9ed281bdda2a09f4c Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 10 Aug 2018 08:54:10 -0500
Subject: [PATCH] alien tests: use UNIT-TEST: for fun

---
 core/alien/alien-tests.factor | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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> alien-address 0 > ] unit-test
+UNIT-TEST: [ -1 <alien> alien-address 0 > ] { t }
 
-{ 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
+UNIT-TEST: [ 0 <alien> 0 <alien> = ] { t }
+UNIT-TEST: [ 0 <alien> 1024 <alien> = ] { f }
+UNIT-TEST: [ "hello" 1024 <alien> = ] { f }
+UNIT-TEST: [ 0 <alien> ] { f }
+UNIT-TEST: [ 0 f <displaced-alien> ] { f }
 
 ! Testing the various bignum accessor
 10 <byte-array> "dump" set
 
-[ "dump" get alien-address ] must-fail
+MUST-FAIL: [ "dump" get alien-address ]
 
 { 123 } [
     123 "dump" get 0 set-alien-signed-1