プチコンで遊ぼう! (はてなブログ版)

任天堂3DSのプチコンで遊ぼう! [twitter:@eida_s]

はてなダイアリーから移行しました。 はてなダイアリーのURLを開いても自動的にこちらにリダイレクトされますのでご了承ください。

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