\
\ Copyright 1994 3DO, Phil Burk
+INCLUDE? }T{ t_tools.fth
+
anew task-t_alloc.fth
decimal
THEN
;
-: TAF.TERM
+: TAF.TERM ( -- error , 0 if PASSED )
NUM_TAF_SLOTS 0
DO
i taf-addresses @
\
taf.max.alloc? dup ." Final MAX = " . cr
." Original MAX = " taf-max-alloc @ dup . cr
- = IF ." Test PASSED." ELSE ." Test FAILED!" THEN cr
+ = IF ." Test PASSED." 0
+ ELSE ." Test FAILED!" 1
+ THEN cr
;
;
.( Testing ALLOCATE and FREE) cr
-10000 taf.test
+
+TEST{
+
+T{ 10000 taf.test }T{ 0 }T
+
+}TEST