contrib/bc/vs/tests/tests_bc.bat

   1 @echo off
   2
   3 set scripts=..\..\tests\bc
   4 set bc=%~dp0\bc.exe
   5 set args=-ql
   6
   7 del /f /q *.txt > NUL
   8
   9
  10 rem excluded: all, errors, read_errors, posix_errors, misc6, misc7, recursive_arrays
  11
  12 for %%i in (
  13 abs
  14 add
  15 arctangent
  16 arrays
  17 assignments
  18 bitfuncs
  19 boolean
  20 comp
  21 cosine
  22 decimal
  23 divide
  24 divmod
  25 engineering
  26 exponent
  27 functions
  28 globals
  29 length
  30 letters
  31 lib2
  32 log
  33 misc
  34 misc1
  35 misc2
  36 misc3
  37 misc4
  38 misc5
  39 modexp
  40 modulus
  41 multiply
  42 pi
  43 places
  44 power
  45 print2
  46 rand
  47 read
  48 scale
  49 scientific
  50 shift
  51 sine
  52 sqrt
  53 stdin
  54 stdin1
  55 stdin2
  56 strings
  57 subtract
  58 trunc
  59 vars
  60 void
  61 leadingzero
  62 ) do (
  63 if exist "%scripts%\%%i.txt" (
  64         "%bc%" "%args%" < "%scripts%\%%i.txt" > "%%i_results.txt"
  65
  66         if errorlevel 1 (
  67                 echo FAIL_RUNTIME: %%i
  68                 goto :eof
  69         )
  70
  71         fc.exe "%scripts%\%%i_results.txt" "%%i_results.txt" > NUL
  72
  73         if errorlevel 1 (
  74                 echo FAIL_RESULTS: %%i
  75                 goto :eof
  76         )
  77
  78         echo PASS: %%i
  79 ) else (
  80         echo FAIL_NOT_EXIST: %%i
  81         goto :eof
  82 )
  83 )
  84
  85 if exist "%scripts%\leadingzero.txt" (
  86         "%bc%" "%args%" -z < "%scripts%\leadingzero.txt" > "leadingzero_z_results.txt"
  87
  88         if errorlevel 1 (
  89                 echo FAIL_RUNTIME: leadingzero_z
  90                 goto :eof
  91         )
  92
  93         fc.exe "%scripts%\leadingzero_results.txt" "leadingzero_z_results.txt" > NUL
  94
  95         if errorlevel 1 (
  96                 echo FAIL_RESULTS: leadingzero_z
  97                 goto :eof
  98         )
  99
 100         echo PASS: leadingzero_z
 101 ) else (
 102         echo FAIL_NOT_EXIST: leadingzero_z
 103         goto :eof
 104 )