1
0

ASSERT関数を実装,関数定義の後のコードが実行されない問題を修正

This commit is contained in:
otya128
2015-07-12 15:08:10 +09:00
parent 2139875751
commit 6741600c33
6 changed files with 56 additions and 5 deletions

28
SMILEBASIC/TEST.txt Normal file
View File

@@ -0,0 +1,28 @@
ASSERT__ 1, "TRUE"
A$="A"
ASSERT__ A$=="A", "A$==A"
A$=A$+"B"
ASSERT__ A$=="AB", "A$==AA"
A=0
INC A
ASSERT__ A==1, "A==1"
INC A, 3
ASSERT__ A==4, "A==4"
DEC A, 3
ASSERT__ A==1, "A==1"
DEC A
ASSERT__ A==0, "A==0"
INCTEST 0
DEF INCTEST A
INC A
ASSERT__ A==1, "A==1"
INC A, 3
ASSERT__ A==4, "A==4"
DEC A, 3
ASSERT__ A==1, "A==1"
DEC A
ASSERT__ A==0, "A==0"
END
LOCATE 10,
COLOR 1,15
PRINT "テスト正常終了"