_src/TestByFCBatAuto/vbs_inc/test/T_vbsinc/T_ALL_5_do_test.bat

   1 @echo off \r
   2 REM\r
   3 REM  Test by comparing stdout and stderr (FCBat style)\r
   4 REM\r
   5 \r
   6 if exist T_ALL_result.txt  del T_ALL_result.txt\r
   7 if "%1"=="" cmd /K "%0" /wnd\r
   8 set CL=cscript %2 //nologo\r
   9 \r
  10 \r
  11 set T=T_ErrInfo\r
  12 echo ((( [%T%] )))\r
  13 echo [ManualTest] %T% >> T_ALL_result.txt\r
  14 \r
  15 set T=sample on debugger\r
  16 echo ((( [%T%] )))\r
  17 echo [ManualTest] %T% >> T_ALL_result.txt\r
  18 \r
  19 set T=T_Func\r
  20 echo ((( [%T%] )))\r
  21 ( %CL% %T%.vbs 2>&1 ) > %T%_log.txt\r
  22 fc %T%_ans.txt %T%_log.txt\r
  23 if errorlevel 1  echo Fail in %T%.vbs>> T_ALL_result.txt&goto :last_of_test\r
  24 \r
  25 set T=T_GloVar\r
  26 echo ((( [%T%] )))\r
  27 ( %CL% %T%.vbs 2>&1 ) > %T%_log.txt\r
  28 fc %T%_ans.txt %T%_log.txt\r
  29 if errorlevel 1  echo Fail in %T%.vbs>> T_ALL_result.txt&goto :last_of_test\r
  30 \r
  31 set T=T_IncErr\r
  32 echo ((( [%T%] )))\r
  33 ( %CL% %T%.vbs 2>&1 ) > %T%_log.txt\r
  34 fc %T%_ans.txt %T%_log.txt\r
  35 if errorlevel 1  echo Fail in %T%.vbs>> T_ALL_result.txt&goto :last_of_test\r
  36 \r
  37 set T=T_DupFunc\r
  38 echo ((( [%T%] )))\r
  39 ( %CL% %T%.vbs 2>&1 ) > %T%_log.txt\r
  40 fc %T%_ans.txt %T%_log.txt\r
  41 if errorlevel 1  echo Fail in %T%.vbs>> T_ALL_result.txt&goto :last_of_test\r
  42 \r
  43 set T=T_DupClass\r
  44 echo ((( [%T%] )))\r
  45 ( %CL% %T%.vbs 2>&1 ) > %T%_log.txt\r
  46 fc %T%_ans.txt %T%_log.txt\r
  47 if errorlevel 1  echo Fail in %T%.vbs>> T_ALL_result.txt&goto :last_of_test\r
  48 \r
  49 set T=T_SynErr\r
  50 echo ((( [%T%] )))\r
  51 ( %CL% %T%.vbs 2>&1 ) > %T%_log.txt\r
  52 fc %T%_ans.txt %T%_log.txt\r
  53 if errorlevel 1  echo Fail in %T%.vbs>> T_ALL_result.txt&goto :last_of_test\r
  54 \r
  55 pushd T_SynErr2\r
  56 set T=T_SynErr2\r
  57 echo ((( [%T%] )))\r
  58 ( %CL% %T%.vbs 2>&1 ) > %T%_log.txt\r
  59 fc %T%_ans.txt %T%_log.txt\r
  60 popd\r
  61 if errorlevel 1  echo Fail in %T%.vbs>> T_ALL_result.txt&goto :last_of_test\r
  62 \r
  63 set T=T_Finalize\r
  64 echo ((( [%T%] )))\r
  65 ( %CL% %T%.vbs 2>&1 ) > %T%_log.txt\r
  66 fc %T%_ans.txt %T%_log.txt\r
  67 if errorlevel 1  echo Fail in %T%.vbs>> T_ALL_result.txt&goto :last_of_test\r
  68 \r
  69 set T=T_Finalize2\r
  70 echo ((( [%T%] )))\r
  71 ( %CL% %T%.vbs 2>&1 ) > %T%_log.txt\r
  72 fc %T%_ans.txt %T%_log.txt\r
  73 if errorlevel 1  echo Fail in %T%.vbs>> T_ALL_result.txt&goto :last_of_test\r
  74 \r
  75 set T=T_Err1\r
  76 echo ((( [%T%] )))\r
  77 echo.>Enter.txt\r
  78 ( %CL% %T%.vbs 2>&1 ) > %T%_log.txt <Enter.txt\r
  79 del Enter.txt\r
  80 fc %T%_ans.txt %T%_log.txt\r
  81 if errorlevel 1  echo Fail in %T%.vbs>> T_ALL_result.txt&goto :last_of_test\r
  82 \r
  83 set T=T_Err2\r
  84 echo ((( [%T%] )))\r
  85 ( %CL% %T%.vbs 2>&1 ) > %T%_log.txt\r
  86 fc %T%_ans.txt %T%_log.txt\r
  87 if errorlevel 1  echo Fail in %T%.vbs>> T_ALL_result.txt&goto :last_of_test\r
  88 \r
  89 :last_of_test\r
  90 set T=\r
  91 set CL=\r
  92 echo Test log compare ...>> T_ALL_result.txt\r
  93 if not errorlevel 1 echo Pass.>> T_ALL_result.txt\r
  94 if     errorlevel 1 echo Fail.>> T_ALL_result.txt\r
  95 type T_ALL_result.txt\r
  96 \r
  97  \r