REPEAT~UNTILを実装

2016-09-02 20:39:31 +09:00
parent 3e2cb7b8a7
commit 2f50fc5ba9
5 changed files with 103 additions and 22 deletions
--- a/SMILEBASIC/TEST.txt
+++ b/SMILEBASIC/TEST.txt
@@ -1,3 +1,35 @@
+'REPEAT TEST
+?"REPEAT(1)"
+VAR REPEATTEST
+REPEAT
+ REPEATTEST=TRUE
+ BREAK
+ ASSERT__ FALSE, "REPEAT"
+UNTIL FALSE
+ASSERT__ REPEATTEST, "REPEAT"
+
+?"REPEAT(2)"
+VAR REPEATTEST2
+REPEAT
+ REPEATTEST2=1
+ CONTINUE
+ ASSERT__ FALSE, "REPEAT"
+UNTIL REPEATTEST2
+ASSERT__ REPEATTEST2, "REPEAT"
+
+?"REPEAT(3)"
+REPEAT
+ CONTINUE
+ ASSERT__ FALSE, "REPEAT"
+UNTIL TRUE
+
+?"REPEAT(4)"
+VAR REPEATTEST4
+REPEAT
+ REPEATTEST4=TRUE
+UNTIL TRUE
+ASSERT__ REPEATTEST4, "REPEAT"
+

 VAR IFTEST=FALSE
 IF TRUE THEN