3号プログラミング スニペット(2) テストコード用スニペット

・テストコード用スニペット

VAR CASE=0,OK=0
?"TEST"
'      TEST EXPRESSTION       MUST BE
?TEST$(テスト式              ==想定値)
...
?"OK=";OK;"/";CASE
END

DEF TEST$(EXP)
 INC CASE
 ?"CASE"+FORMAT$("%2D",CASE)+":";
 IF EXP==0 THEN RETURN "NG"
 INC OK
 RETURN "OK"
END