bwBASIC/NBS2X/F_LTRIM_A_S.BAS

REM ------------------------------------------------------------
REM   PURPOSE: TEST THE PARAMETER RANGE CHECKS
REM    AUTHOR: HOWARD WULF, AF5NE
REM GENERATED: 02/21/2015 14:08:27
REM  FILENAME: F_LTRIM_A_S.BAS
REM    SYNTAX: S$ = LTRIM$( A$ )
REM  UNIQUEID: F_LTRIM_A_S
REM  FUNCTION: LTRIM$
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	S$	ACTUAL   FUNCTION RESULT
REM	A$	ACTUAL   FUNCTION PARAMETER
REM 
RESTORE 2000
REM GET TESTCASE #
READ  I
WHILE I > 0
REM GET TESTCASE DATA
READ  E, R$, A$
REM DISPLAY TESTCASE DATA
PRINT "TESTCASE #";I,"E=";E,"R$=[";R$;"]", "A$=[";A$;"]"
REM EXECUTE TESTCASE
N =  0 
S$ = ""
ON ERROR GOTO 9000
F = 0
999 S$ = LTRIM$( A$ )
ERROR 0
REM DISPLAY TESTCASE RESULTS
PRINT ,"F=";F,"S$=[";S$;"]"
REM VERIFY EXPECTED ERROR
IF E <> F THEN
  PRINT "*** TEST FAILED, EXCEPTION MISMATCH ***"
  STOP
END IF
REM VERIFY EXPECTED RESULT
IF R$ <> S$ 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 , "", ""
DATA  2 ,  0 , "", " "
DATA  3 ,  0 , "3", "3"
DATA  4 ,  0 , "z", "z"
DATA  5 ,  0 , "", "  "
DATA  6 ,  0 , "3", " 3"
DATA  7 ,  0 , "z", " z"
DATA  8 ,  0 , "3 ", "3 "
DATA  9 ,  0 , "z ", "z "
DATA  10 ,  0 , "3 ", " 3 "
DATA  11 ,  0 , "z ", " z "
DATA  12 ,  0 , "LLLL", " LLLL"
DATA  13 ,  0 , "''    ", "    ''    "
DATA  14 ,  0 , "oo     ", "   oo     "
DATA  15 ,  0 , "00  ", " 00  "
DATA  16 ,  0 , "\\\\  ", "   \\\\  "
DATA  17 ,  0 , "lllll  ", " lllll  "
DATA  18 ,  0 , "uuuu  ", "    uuuu  "
DATA  19 ,  0 , "a  ", "  a  "
DATA  20 ,  0 , "", "       "
DATA  21 ,  0 , "hh     ", " hh     "
DATA  22 ,  0 , "h   ", "  h   "
DATA  23 ,  0 , ")", " )"
DATA  24 ,  0 , "5   ", "    5   "
DATA  25 ,  0 , "2 ", "  2 "
DATA  26 ,  0 , "-   ", " -   "
DATA  27 ,  0 , "dd ", "dd "
DATA  28 ,  0 , "tttt   ", "  tttt   "
DATA  29 ,  0 , "::::   ", "  ::::   "
DATA  30 ,  0 , "___   ", "   ___   "
DATA  31 ,  0 , "", "     "
DATA  32 ,  0 , "", "       "
DATA  33 ,  0 , "_____  ", " _____  "
DATA  34 ,  0 , "S ", " S "
DATA  35 ,  0 , "FFFF ", "  FFFF "
DATA  36 ,  0 , "kkk", "    kkk"
DATA  37 ,  0 , "NNNN  ", "    NNNN  "
DATA  38 ,  0 , "mmmm  ", "   mmmm  "
DATA  39 ,  0 , ",,,,, ", "    ,,,,, "
DATA  40 ,  0 , "OO   ", "OO   "
DATA  41 ,  0 , "HHHH  ", "   HHHH  "
DATA  42 ,  0 , "< ", " < "
DATA  43 ,  0 , "j    ", "   j    "
DATA  44 ,  0 , "yyyy    ", "    yyyy    "
DATA  45 ,  0 , "+++ ", "  +++ "
DATA  46 ,  0 , "o  ", "o  "
DATA  47 ,  0 , "((", "    (("
DATA  48 ,  0 , "uu     ", "     uu     "
DATA  49 ,  0 , "00     ", "    00     "
DATA  50 ,  0 , "HH  ", "     HH  "
DATA  51 ,  0 , "", "     "
DATA  52 ,  0 , "G   ", "  G   "
DATA  53 ,  0 , "{{{{ ", "    {{{{ "
DATA  54 ,  0 , "]]]     ", "    ]]]     "
DATA  55 ,  0 , "CCC", "CCC"
DATA  56 ,  0 , "44  ", "     44  "
DATA  57 ,  0 , "^^  ", "^^  "
DATA  58 ,  0 , "QQ    ", "    QQ    "
DATA  59 ,  0 , "FFFF  ", "     FFFF  "
DATA  60 ,  0 , "n   ", " n   "
DATA  61 ,  0 , "hh  ", "    hh  "
DATA  62 ,  0 , "555    ", "555    "
DATA  63 ,  0 , "YYYY ", "    YYYY "
DATA  64 ,  0 , "w     ", "    w     "
DATA  65 ,  0 , "MMMM ", "MMMM "
DATA  66 ,  0 , "JJJJ    ", " JJJJ    "
DATA  67 ,  0 , "%%    ", "    %%    "
DATA  68 ,  0 , "*  ", "     *  "
DATA  69 ,  0 , "@@@   ", "    @@@   "
DATA  70 ,  0 , "I ", "I "
DATA  71 ,  0 , "ss  ", "    ss  "
DATA  72 ,  0 , "f ", "  f "
DATA  73 ,  0 , "D  ", "   D  "
DATA  74 ,  0 , "###    ", "###    "
DATA  75 ,  0 , "'     ", "    '     "
DATA  76 ,  0 , "dd    ", "  dd    "
DATA  77 ,  0 , "TT    ", " TT    "
DATA  78 ,  0 , "vvv ", "  vvv "
DATA  79 ,  0 , "X ", "    X "
DATA  80 ,  0 , "%   ", "    %   "
DATA  81 ,  0 , "", "  "
DATA  82 ,  0 , "5555   ", " 5555   "
DATA  83 ,  0 , "FFFF   ", "FFFF   "
DATA  84 ,  0 , "%%  ", "     %%  "
DATA  85 ,  0 , "", "     "
DATA  86 ,  0 , "~~~~    ", "  ~~~~    "
DATA  87 ,  0 , "||    ", "   ||    "
DATA  88 ,  0 , "SSS     ", "     SSS     "
DATA  89 ,  0 , "6666 ", "   6666 "
DATA  90 ,  0 , "ww   ", "    ww   "
DATA  91 ,  0 , "1111   ", "  1111   "
DATA  92 ,  0 , "K ", " K "
DATA  93 ,  0 , "ttttt ", "  ttttt "
DATA  94 ,  0 , "OOOOO   ", " OOOOO   "
DATA  95 ,  0 , "E  ", " E  "
DATA  96 ,  0 , "PPPPP   ", " PPPPP   "
DATA  97 ,  0 , "== ", "    == "
DATA  98 ,  0 , "VVVV    ", " VVVV    "
DATA  99 ,  0 , "c   ", " c   "
DATA  100 ,  0 , "yyyy     ", "    yyyy     "
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