From 6089c7e869658a94b6e3623287acc14e3b2de0bd Mon Sep 17 00:00:00 2001
From: otya128 <otya128@users.noreply.github.com>
Date: Sat, 8 Jul 2017 17:12:40 +0900
Subject: [PATCH] Add RND test

---
 SMILEBASIC/TEST.txt | 53 ++++++++++++++++++++++++---------------------
 1 file changed, 28 insertions(+), 25 deletions(-)

diff --git a/SMILEBASIC/TEST.txt b/SMILEBASIC/TEST.txt
index 7974aed..f8f1bfa 100644
--- a/SMILEBASIC/TEST.txt
+++ b/SMILEBASIC/TEST.txt
@@ -1,4 +1,18 @@
 '--no-direct-mode --file TEST.TXT
+DEF RANDOMTEST
+ VAR I
+ FOR I=0TO 7
+  RANDOMIZE I,1
+ ASSERT__ RND(I,100)==89,"RND(100)==89"
+ ASSERT__ RND(I,100)==33,"RND(100)==33"
+ ASSERT__ RND(I,100)==33,"RND(100)==33"
+ ASSERT__ RND(I,100)==52,"RND(100)==52"
+ ASSERT__ VAL(STR$(RNDF(I)))==0.836095,"VAL(STR$(RNDF()))==0.836095"
+ ASSERT__ RND(I,100)==66,"RND(100)==66"
+ NEXT
+END
+?"RANDOMTEST"
+RANDOMTEST
 DEF MAXMINTEST
  ASSERT__ MAX(0,1,2,3,4,5,4,3,2,1,0)==5,"MAX"
  ASSERT__ MIN(5,4,3,2,1,0,1,2,3,4,5)==0,"MIN"
@@ -13,6 +27,7 @@ DEF MAXMINTEST
  ASSERT__ MIN(2,4)*&H7FFFFFFF==-2,"MIN"
  ASSERT__ MIN(2,4,4)*&H7FFFFFFF==4294967294,"MIN"
 END
+?"MAXMINTEST"
 MAXMINTEST
 
 DEF SORTTEST
@@ -55,8 +70,9 @@ DEF SORTTEST2
  ASSERT__ A[8]==-1,"RSORT"
  ASSERT__ B[8]==12345,"RSORT"
 END
+?"SORTTEST"
 SORTTEST
-'SWAP TEST
+?"SWAPTEST"
 SWAPTEST
 DEF SWAPTEST
  VAR A=1
@@ -108,7 +124,7 @@ REPEAT
 UNTIL TRUE
 ASSERT__ REPEATTEST4, "REPEAT"
 
-
+?"IFTEST"
 VAR IFTEST=FALSE
 IF TRUE THEN
  IFTEST=TRUE
@@ -149,6 +165,7 @@ VAR ELSEIFTEST2=FALSE
 IF FALSE THEN ELSEIFTEST2=FALSE ELSEIF FALSE THEN ELSEIFTEST2=FALSE ELSEIF TRUE THEN ELSEIFTEST2=TRUE ELSEIF FALSE THEN ELSEIFTEST2=FALSE ELSE ELSEIFTEST2=FALSE ENDIF
 ASSERT__  ELSEIFTEST2, "ELSEIFTEST"
 
+?"CALLTEST"
 DEF CALLTEST(V)
  RETURN V
 END
@@ -162,11 +179,12 @@ DEF TESST X,A$
  IF X<0 THEN X=20-(LEN(A$)/2)
  AA
  ?X
- END
- DEF AA
+END
+DEF AA
   X=999
- END
- TESST -1,"AAAAAAAAAAAAAAAAAAAA"
+END
+TESST -1,"AAAAAAAAAAAAAAAAAAAA"
+?"FLOOT/CEIL/ROUND TEST"
 ASSERT__ FLOOR(0.5)==0, "FLOOR"
 ASSERT__ FLOOR(1)==1, "FLOOR"
 ASSERT__ FLOOR(1.5)==1, "FLOOR"
@@ -191,6 +209,7 @@ ASSERT__ ROUND(-1)==-1, "ROUND"
 ASSERT__ ROUND(-1.25)==-1, "ROUND"
 ASSERT__ ROUND(-1.5)==-2, "ROUND"
 
+?"VAL TEST"
 ASSERT__ VAL("0")==0, "VAL"
 ASSERT__ VAL("1")==1, "VAL"
 ASSERT__ VAL("-1")==-1, "VAL"
@@ -199,27 +218,15 @@ ASSERT__ VAL("&H-A")==0, "VAL"
 ASSERT__ VAL("&B10")==2, "VAL"
 ASSERT__ VAL("aa")==0, "VAL"
 
+?"RAD/DEG TEST"
 ASSERT__ RAD(180)==PI(), "RAD"
 ASSERT__ DEG(RAD(180)), "DEG"
+?"HEX$ TEST"
 ASSERT__ HEX$(65535, 8)=="0000FFFF", "HEX$"
+?"SUBST$ TEST"
 ASSERT__ SUBST$("0123456789",0,"B")=="B","SUBST$"
 ASSERT__ SUBST$("0123456789",0,4,"B")=="B456789","SUBST$"
 ASSERT__ SUBST$("",0,4,"B")=="B","SUBST$"
-WHILE 1
-WEND
-FOR I=0TO 511'-500
- SPSET I,I'304'-I+304
- SPOFS I, (I*16) MOD 400, FLOOR((I*16)/400)*16
- 'SPOFS I, 100,100
-NEXT
-WHILE TRUE
-WEND
-WHILE TRUE
-FOR I=0TO 511
- SPOFS I, RND(400), RND(240)
- GPSET RND(400), RND(240), -1
-NEXT
-WEND
 DIM ARRY[10]
 ?ARRY[0],FORMAT$("%D",100)
 GOSUB@A
@@ -327,10 +334,6 @@ ASSERT__ _2==2, "DATA"
 ASSERT__ _3==3, "DATA"
 ASSERT__ _4==4, "DATA"
 ASSERT__ ARY[1]==5, "DATA"
-?ARY[_1]
-INPUT$="HELLO"
-INPUT INPUT$,IN
-?INPUT$,IN
 LOCATE 10,
 COLOR 1,15
 PRINT "テスト正常終了"