2008年7月27日日曜日

gotoを使用したサブルーチン:テストコード

どこをどうすればきちんとテストできるのか
全然わかんなくて量は少しですが
一応、テストコードです
#include "FILE_manage_label.hsp"
m_init
call(*s_a,*l_a)
mes "OK"

stop
*s_a
mes "a"
call(*s_b,*l_b)
call(*s_d,*l_d)
back
*s_b
mes "b"
call(*s_c,*l_c)
back
*s_c
mes "c"
back
*s_d
mes "d"
back

0 件のコメント: