TEST.LOG

TO DOTEST
PRINT [TESTING SHUFFLE]
REPEAT 10 [PRINT SHUFFLE [0 1 2 3 4 5 6 7 8 9 A B C D E F]]
PRINT [TESTING SORT]
REPEAT 10 [PRINT SORT SHUFFLE [0 1 2 3 4 5 6 7 8 9 A B C D E F]]

MAKE "A [TESTING .REPLACE FAILED]
.REPLACE 3 :A "PASSED
PRINT :A

MAKE "A [TESTING .REPTAIL FAILED FAILED]
.REPTAIL 2 :A "PASSED
PRINT :A

TYPE [TESTING ASCII# ]
IF ASCII "E = 69 [PRINT "PASSED]

PRINT BUTFIRST [FAILED TESTING BUTFIRST]
PRINT BUTLAST [TESTING BUTLAST FAILED]

TYPE [TESTING EMPTYP# ]
PRINT IF (LIST EMPTYP " EMPTYP [] EMPTYP [X]) = [TRUE TRUE FALSE] ["PASSED] ["FAILED]

TYPE [TESTING FIRST# ]
PRINT FIRST [PASSED FAIL FAIL FAIL]

PRINT (LIST "TESTING "LIST "PASSED)

PRINT LPUT "PASSED [TESTING LPUT]

PRINT SE "TESTING SE "SENTENCE "PASSED

PRINT [TESTING POTL]
POTL

PRINT [TESTING RECYCLE]
RECYCLE

END

DOTEST