Adds more tests for float functions, move/nmove and bit ops.

Author: dmsc

testsuite/tests/misc-fp.bas

@@ -0,0 +1,55 @@
+' Test miscellaneous floating-point functions
+? "Start"
+A%=VAL("-0.123") : ? A%
+A%=VAL("1E+10")  : ? A%
+A%=12.45   : B=INT(A%) : ? ERR(),B
+A%=12.50   : B=INT(A%) : ? ERR(),B
+A%=-12.45  : B=INT(A%) : ? ERR(),B
+A%=-12.50  : B=INT(A%) : ? ERR(),B
+A%=32767.0 : B=INT(A%) : ? ERR(),B
+A%=32767.5 : B=INT(A%) : ? ERR(),B
+A%=65535.5 : B=INT(A%) : ? ERR(),B
+
+A%=8E+97 : A% = A%+2E+97 : X%=0 : @check
+A%=2 : A% = A%^280 : X%=1.94266889E+84 : @check         ' Valid
+A%=2 : A% = A%^329 : X%=0 : @check                      ' Overflow on square
+A%=5 : A% = A%^141 : X%=0 : @check                      ' Overflow on multiplication
+A%=2 : A% = A%^-30 : X%=9.31322574615E-10 : @check      ' Valid small
+A%=2 : A% = A%^-326 : X%=0 : @check                     ' Underflow -> 0
+A%=2 : A% = A%^0   : X%=1 : @check                      ' One
+
+A%=2  : A% = SQR(A%) : X%=1.41421356237 : @check
+A%=-2 : A% = SQR(A%) : X%=-2            : @check
+A%=0  : A% = SQR(A%) : X%=0             : @check
+
+' Many random numbers
+FOR I=0 TO 199 : A%=RND() : IF A%<0 OR A%>=1 THEN EXIT : NEXT
+? I
+
+DEG
+A%=ATN(1)  : X%=45 : @check
+A%=SIN(1)  : X%=.01745240643728 : @check
+A%=SIN(-1) : X%=-.01745240643728 : @check
+A%=COS(1)  : X%=.99984769515639 : @check
+A%=COS(-1) : X%=.99984769515639 : @check
+A%=COS(1E12) : X%=0 : @check                    ' Arg too big
+RAD
+A%=ATN(1)    : X%=.78539816339 : @check
+A%=SIN(1)    : X%=.841470984807896: @check
+A%=SIN(-1)   : X%=-.841470984807896: @check
+A%=COS(1)    : X%=.54030230586814 : @check
+A%=COS(-1)   : X%=.54030230586814 : @check
+A%=COS(1234) : X%=-.798549        : @check
+
+
+
+
+PROC check
+  ? ERR(),
+  X% = (A% - X%)/X%
+  IF X% < -0.000001 OR X% > 0.000001
+    ? "BAD", A%
+  ELSE
+    ? "OK"
+  ENDIF
+ENDPROC

testsuite/tests/misc-fp.chk

@@ -0,0 +1,36 @@
+Name: Test miscellaneous floating-point functions
+Test: run-fp
+Output:
+Start
+-0.123
+1E+10
+1         12
+1         13
+1         -12
+1         -13
+1         32767
+3         -32768
+3         5376
+3         BAD       1E+98
+1         OK
+3         BAD       1
+3         BAD       1
+1         OK
+1         OK
+1         OK
+1         OK
+3         OK
+1         OK
+200
+1         OK
+1         OK
+1         OK
+1         OK
+1         OK
+3         BAD       1.11111111E+10
+1         OK
+1         OK
+1         OK
+1         OK
+1         OK
+1         OK

testsuite/tests/misc-int.bas

@@ -32,3 +32,4 @@ A=VAL("66500") : B=ERR()
 S$="000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000123400000000000000"
 ? VAL(S$)
 ? VAL("-0")
+A=3281 : B=2928 : ? A!B, A&B, A EXOR B

testsuite/tests/misc-int.chk

@@ -17,3 +17,4 @@ Start
 1         0         1         1
 12340
 0
+4081      2128      1953

testsuite/tests/stmt-move.bas

@@ -31,6 +31,12 @@ for x=249 to 260
   exec sum_a
 next
 
+' Test special case in calculation of division by 255:
+for x=505 to 515 : a(x) = x-505 : next
+? a(508);a(509);a(510);a(511);a(512)
+-move adr(a), adr(a)+1, 511
+? a(508);a(509);a(510);a(511);a(512)
+
 ' Test addresses about 256 / MOVE
 ad = ((adr(a) + 265) & $FF00) - adr(a)
 for x=ad-3 to ad+3

testsuite/tests/stmt-move.chk

@@ -21,6 +21,8 @@ initginginging number 1, all lowercase
 3108
 3120
 3132
+34567
+23457
 00000000101010101010101010101010101010101000000000000
 00000000010101010101010101010101010101010100000000000
 00000000001010101010101010101010101010101010000000000