bwBASIC/bwbtest/SYNTAX/F_FP_X_N.BAS

REM ------------------------------------------------------------
REM   PURPOSE: TEST THE PARAMETER RANGE CHECKS
REM    AUTHOR: HOWARD WULF, AF5NE
REM GENERATED: 03/12/2017 09:09:04
REM  FILENAME: F_FP_X_N.BAS
REM    SYNTAX: N  = FP( X )
REM  UNIQUEID: F_FP_X_N
REM  FUNCTION: FP
REM 
REM            VARIABLE       DESCRIPTION
REM            I              CURRENT  TESTCASE NUMBER
REM            E              EXPECTED ERROR FLAG
REM            F              ACTUAL   ERROR FLAG
REM            R              EXPECTED FUNCTION RESULT
REM            N              ACTUAL   FUNCTION RESULT
REM            X              ACTUAL   FUNCTION PARAMETER
REM 
RESTORE 2000
REM GET TESTCASE #
READ  I
WHILE I > 0
REM GET TESTCASE DATA
READ  E, R, X
REM DISPLAY TESTCASE DATA
PRINT "TESTCASE #";I,"E=";E,"R=";R, "X=";X
REM EXECUTE TESTCASE
N =  0 
S$ = ""
ON ERROR GOTO 9000
F = 0
999 N  = FP( X )
ERROR 0
REM DISPLAY TESTCASE RESULTS
PRINT ,"F=";F,"N=";N
REM VERIFY EXPECTED ERROR
IF E <> F THEN
  PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***"
  STOP
END IF
REM VERIFY EXPECTED RESULT
IF R > 0 THEN
  LET RMIN = 0.99 * R
  IF R > MAXNUM / 1.012 THEN
    LET RMAX = MAXNUM
  ELSE
    LET RMAX = 1.01 * R
  END IF
END IF
IF R < 0 THEN
  IF R < - MAXNUM / 1.012 THEN
    LET RMIN = -MAXNUM
  ELSE
    LET RMIN = 1.01 * R
  END IF
  LET RMAX = 0.99 * R
END IF
IF R = 0 THEN
  LET RMIN = -.01
  LET RMAX = +.01
END IF
IF N < RMIN THEN
  PRINT "*** TEST FAILED, RESULT MISMATCH ***"
  STOP
END IF
IF N > RMAX THEN
  PRINT "*** TEST FAILED, RESULT MISMATCH ***"
  STOP
END IF
PRINT "*** TEST PASSED ***"
REM GET NEXT TESTCASE #
READ  I
WEND
PRINT "*** ALL TESTS PASSED ***"
GOTO 9999
1999 REM TESTCASE, EXPECTED ERROR, EXPECTED RESULT, PARAMETERS...
DATA  1 ,  0 ,  0 ,  0 
DATA  2 ,  0 ,  0 ,  1 
DATA  3 ,  0 ,  0 , -1 
DATA  4 ,  0 ,  .4 ,  .4 
DATA  5 ,  0 , -.4 , -.4 
DATA  6 ,  0 ,  .6 ,  .6 
DATA  7 ,  0 , -.6 , -.6 
DATA  8 ,  0 ,  0 ,  254 
DATA  9 ,  0 ,  0 ,  255 
DATA  10 ,  0 ,  0 ,  256 
DATA  11 ,  0 ,  0 ,  32000 
DATA  12 ,  0 , -.227229 , -.227229 
DATA  13 ,  0 , -.239157 , -.239157 
DATA  14 ,  0 , -.213586 , -.213586 
DATA  15 ,  0 ,  .274675 ,  .274675 
DATA  16 ,  0 ,  .169766 ,  .169766 
DATA  17 ,  0 ,  .318766 ,  .318766 
DATA  18 ,  0 ,  2.06658E-2 ,  2.06658E-2 
DATA  19 ,  0 ,  .188257 ,  .188257 
DATA  20 ,  0 , -.277537 , -.277537 
DATA  21 ,  0 , -.481303 , -.481303 
DATA  22 ,  0 ,  .43556 ,  .43556 
DATA  23 ,  0 , -.210971 , -.210971 
DATA  24 ,  0 , -.455216 , -.455216 
DATA  25 ,  0 , -.907 , -110.907 
DATA  26 ,  0 ,  .632 ,  105.632 
DATA  27 ,  0 , -.341 , -114.341 
DATA  28 ,  0 ,  .706 ,  109.706 
DATA  29 ,  0 ,  .198 ,  109.198 
DATA  30 ,  0 ,  .8773 ,  85.8773 
DATA  31 ,  0 , -.3548 , -58.3548 
DATA  32 ,  0 ,  .6397 ,  29.6397 
DATA  33 ,  0 , -.36 , -108.36 
DATA  34 ,  0 , -.5199 , -46.5199 
DATA  35 ,  0 ,  .521 ,  112.521 
DATA  36 ,  0 ,  .4151 ,  45.4151 
DATA  37 ,  0 ,  .129 ,  101.129 
DATA  38 ,  0 ,  .0473 ,  65.0473 
DATA  39 ,  0 ,  .4012 ,  48.4012 
DATA  40 ,  0 ,  .294 ,  122.294 
DATA  41 ,  0 , -.1094 , -56.1094 
DATA  42 ,  0 , -.087 , -121.087 
DATA  43 ,  0 , -.517 , -123.517 
DATA  44 ,  0 , -.6301 , -97.6301 
DATA  45 ,  0 , -.0001 , -64.0001 
DATA  46 ,  0 , -.6888 , -25.6888 
DATA  47 ,  0 ,  .8006 ,  14.8006 
DATA  48 ,  0 , -.0877 , -61.0877 
DATA  49 ,  0 , -.6381 , -66.6381 
DATA  50 ,  0 , -.5 , -5476.5 
DATA  51 ,  0 , -.3 , -21210.3 
DATA  52 ,  0 , -.2 , -28757.2 
DATA  53 ,  0 , -.2 , -28732.2 
DATA  54 ,  0 ,  .3 ,  12730.3 
DATA  55 ,  0 , -.69 , -1830.69 
DATA  56 ,  0 ,  .39 ,  5486.39 
DATA  57 ,  0 ,  .9 ,  22405.9 
DATA  58 ,  0 ,  .8 ,  30809.8 
DATA  59 ,  0 , -.6 , -28930.6 
DATA  60 ,  0 , -.53 , -6014.53 
DATA  61 ,  0 ,  .6 ,  17414.6 
DATA  62 ,  0 , -.3 , -10538.3 
DATA  63 ,  0 , -.3 , -17536.3 
DATA  64 ,  0 , -.62 , -8856.62 
DATA  65 ,  0 , -.12 , -5140.12 
DATA  66 ,  0 , -.31 , -8595.31 
DATA  67 ,  0 , -.87 , -3382.87 
DATA  68 ,  0 , -.07 , -5002.07 
DATA  69 ,  0 , -.72 , -5800.72 
DATA  70 ,  0 ,  .4 ,  29686.4 
DATA  71 ,  0 ,  0 ,  2571. 
DATA  72 ,  0 ,  0 ,  31091. 
DATA  73 ,  0 ,  0 ,  14819. 
DATA  74 ,  0 ,  .9 ,  3790.9 
DATA  75 ,  0 ,  0 , -4.2981E+9 
DATA  76 ,  0 ,  0 , -7.05453E+8 
DATA  77 ,  0 ,  0 , -3.10179E+9 
DATA  78 ,  0 ,  0 , -4.86159E+9 
DATA  79 ,  0 ,  0 , -8.62908E+8 
DATA  80 ,  0 ,  0 , -3.4101E+9 
DATA  81 ,  0 ,  0 ,  3.3889E+9 
DATA  82 ,  0 ,  0 ,  2.49826E+9 
DATA  83 ,  0 ,  0 ,  2.3491E+9 
DATA  84 ,  0 ,  0 ,  1.94745E+8 
DATA  85 ,  0 ,  0 ,  2.02475E+9 
DATA  86 ,  0 ,  0 , -2.26748E+9 
DATA  87 ,  0 ,  0 , -2.10587E+9 
DATA  88 ,  0 ,  0 ,  4.23585E+9 
DATA  89 ,  0 ,  0 , -2.66524E+9 
DATA  90 ,  0 ,  0 ,  4.01052E+9 
DATA  91 ,  0 ,  0 , -4.87912E+9 
DATA  92 ,  0 ,  0 ,  1.77556E+9 
DATA  93 ,  0 ,  0 ,  2.87705E+8 
DATA  94 ,  0 ,  0 ,  1.99977E+8 
DATA  95 ,  0 ,  0 , -3.39941E+9 
DATA  96 ,  0 ,  0 , -3.49119E+9 
DATA  97 ,  0 ,  0 , -2.86324E+9 
DATA  98 ,  0 ,  0 ,  4.20418E+9 
DATA  99 ,  0 ,  0 , -3.1518E+9 
DATA  100 ,  0 ,  0 ,  4.60615E+9 
DATA 0
9000 REM ERROR HANDLER
IF ERL = 999 THEN
  F = ABS(SGN(ERR))
  RESUME NEXT
END IF
PRINT "*** UNEXPECTED ERROR ON LINE ";ERL;" ***"
9999 END