mirror of
https://github.com/reactos/reactos.git
synced 2024-10-21 21:34:17 +00:00
414 lines
9.7 KiB
Batchfile
414 lines
9.7 KiB
Batchfile
@echo off
|
|
|
|
::
|
|
:: Some basic tests
|
|
::
|
|
|
|
echo ------------ Testing FOR loop ------------
|
|
echo --- Multiple lines
|
|
for %%i in (A
|
|
B
|
|
C) do echo %%i
|
|
|
|
echo --- Lines and spaces
|
|
for %%i in (D
|
|
E
|
|
F) do echo %%i
|
|
|
|
echo --- Multiple lines and commas
|
|
for %%i in (G,
|
|
H,
|
|
I
|
|
) do echo %%i
|
|
|
|
echo --- Multiple lines and %%I
|
|
:: The FOR-variable is case-sensitive
|
|
for %%i in (J
|
|
K
|
|
L) do echo %%I
|
|
|
|
echo --- Multiple lines and %%j
|
|
for %%i in (M,
|
|
N,
|
|
O
|
|
) do echo %%j
|
|
|
|
echo --- FOR /F token parsing
|
|
:: This test requires extensions being enabled
|
|
setlocal enableextensions
|
|
|
|
set TEST_STRING="_ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ ? @ [ \ ] _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ ? @ [ \ ]"
|
|
set "ECHO_STRING=?=%%? @=%%@ A=%%A B=%%B C=%%C D=%%D E=%%E F=%%F G=%%G H=%%H I=%%I J=%%J K=%%K L=%%L M=%%M N=%%N O=%%O P=%%P Q=%%Q R=%%R S=%%S T=%%T U=%%U V=%%V W=%%W X=%%X Y=%%Y Z=%%Z [=%%[ \=%%\ ]=%%] ^^=%%^^ _=%%_ `=%%` a=%%a b=%%b c=%%c d=%%d e=%%e f=%%f g=%%g h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m n=%%n o=%%o p=%%p q=%%q r=%%r s=%%s t=%%t u=%%u v=%%v w=%%w x=%%x y=%%y z=%%z {=%%{ ^|=%%^| }=%%} ^~=%%^~"
|
|
|
|
echo.
|
|
|
|
:: Bug 1: Ranges that are not specified in increasing order are ignored.
|
|
:: Token numbers strictly greater than 31 are just ignored, and if they
|
|
:: appear in a range, the whole range is ignored.
|
|
|
|
for /f "tokens=30-32" %%? in (%TEST_STRING%) do echo %ECHO_STRING%
|
|
echo.
|
|
for /f "tokens=5-1" %%? in (%TEST_STRING%) do echo %ECHO_STRING%
|
|
echo.
|
|
|
|
:: Bug 2: Ranges that partially overlap: too many variables are being allocated,
|
|
:: while only a subset is actually used. This leads to the extra variables returning
|
|
:: empty strings.
|
|
|
|
for /f "tokens=1-31,31,31" %%? in (%TEST_STRING%) do echo %ECHO_STRING%
|
|
echo.
|
|
for /f "tokens=1-31,1-31" %%? in (%TEST_STRING%) do echo %ECHO_STRING%
|
|
echo.
|
|
for /f "tokens=1-5,3,5,6" %%? in (%TEST_STRING%) do echo %ECHO_STRING%
|
|
echo.
|
|
for /f "tokens=1-31,* tokens=1-31 tokens=1-20,*" %%? in (%TEST_STRING%) do echo %ECHO_STRING%
|
|
echo.
|
|
|
|
:: For comparison, this works:
|
|
for /f "tokens=1-5,6" %%? in (%TEST_STRING%) do echo %ECHO_STRING%
|
|
echo.
|
|
for /f "tokens=1-5,6-10" %%? in (%TEST_STRING%) do echo %ECHO_STRING%
|
|
echo.
|
|
|
|
endlocal
|
|
|
|
|
|
echo ---------- Testing AND operator ----------
|
|
:: Test for TRUE condition - Should be displayed
|
|
ver | find "Ver" > NUL && echo TRUE AND condition
|
|
|
|
:: Test for FALSE condition - Should not display
|
|
ver | find "1234" > NUL && echo FALSE AND condition
|
|
|
|
echo ---------- Testing OR operator -----------
|
|
:: Test for TRUE condition - Should not display
|
|
ver | find "Ver" > NUL || echo TRUE OR condition
|
|
|
|
:: Test for FALSE condition - Should be displayed
|
|
ver | find "1234" > NUL || echo FALSE OR condition
|
|
|
|
|
|
|
|
::
|
|
:: Testing CMD exit codes and errorlevels.
|
|
::
|
|
:: Observations:
|
|
:: - OR operator || converts the LHS error code to ERRORLEVEL only on failure;
|
|
:: - Pipe operator | converts the last error code to ERRORLEVEL.
|
|
::
|
|
:: See https://stackoverflow.com/a/34987886/13530036
|
|
:: and https://stackoverflow.com/a/34937706/13530036
|
|
:: for more details.
|
|
::
|
|
setlocal enableextensions
|
|
|
|
echo ---------- Testing CMD exit codes and errorlevels ----------
|
|
|
|
:: Tests for CMD returned exit code.
|
|
|
|
echo --- CMD /C Direct EXIT call
|
|
|
|
call :setError 0
|
|
cmd /c "exit 42"
|
|
call :checkErrorLevel 42
|
|
|
|
call :setError 111
|
|
cmd /c "exit 42"
|
|
call :checkErrorLevel 42
|
|
|
|
echo --- CMD /C Direct EXIT /B call
|
|
|
|
call :setError 0
|
|
cmd /c "exit /b 42"
|
|
call :checkErrorLevel 42
|
|
|
|
call :setError 111
|
|
cmd /c "exit /b 42"
|
|
call :checkErrorLevel 42
|
|
|
|
:: Non-existing ccommand, or command that only changes
|
|
:: the returned code (but NOT the ERRORLEVEL) and EXIT.
|
|
|
|
echo --- CMD /C Non-existing command
|
|
|
|
:: EXIT alone does not change the ERRORLEVEL
|
|
call :setError 0
|
|
cmd /c "nonexisting & exit"
|
|
call :checkErrorLevel 9009
|
|
|
|
call :setError 111
|
|
cmd /c "nonexisting & exit"
|
|
call :checkErrorLevel 9009
|
|
|
|
call :setError 0
|
|
cmd /c "nonexisting & exit /b"
|
|
call :checkErrorLevel 9009
|
|
|
|
call :setError 111
|
|
cmd /c "nonexisting & exit /b"
|
|
call :checkErrorLevel 9009
|
|
|
|
echo --- CMD /C RMDIR (no ERRORLEVEL set)
|
|
|
|
call :setError 0
|
|
cmd /c "rmdir nonexisting & exit"
|
|
call :checkErrorLevel 0
|
|
|
|
call :setError 111
|
|
cmd /c "rmdir nonexisting & exit"
|
|
call :checkErrorLevel 0
|
|
|
|
call :setError 0
|
|
cmd /c "rmdir nonexisting & exit /b"
|
|
call :checkErrorLevel 0
|
|
|
|
call :setError 111
|
|
cmd /c "rmdir nonexisting & exit /b"
|
|
call :checkErrorLevel 0
|
|
|
|
:: Failing command (sets ERRORLEVEL to 1) and EXIT
|
|
echo --- CMD /C DIR (sets ERRORLEVEL) - With failure
|
|
|
|
:: EXIT alone does not change the ERRORLEVEL
|
|
call :setError 0
|
|
cmd /c "dir nonexisting>NUL & exit"
|
|
call :checkErrorLevel 1
|
|
|
|
call :setError 111
|
|
cmd /c "dir nonexisting>NUL & exit"
|
|
call :checkErrorLevel 1
|
|
|
|
call :setError 0
|
|
cmd /c "dir nonexisting>NUL & exit /b"
|
|
call :checkErrorLevel 1
|
|
|
|
call :setError 111
|
|
cmd /c "dir nonexisting>NUL & exit /b"
|
|
call :checkErrorLevel 1
|
|
|
|
:: Here EXIT changes the ERRORLEVEL
|
|
call :setError 0
|
|
cmd /c "dir nonexisting>NUL & exit 42"
|
|
call :checkErrorLevel 42
|
|
|
|
call :setError 111
|
|
cmd /c "dir nonexisting>NUL & exit 42"
|
|
call :checkErrorLevel 42
|
|
|
|
call :setError 0
|
|
cmd /c "dir nonexisting>NUL & exit /b 42"
|
|
call :checkErrorLevel 42
|
|
|
|
call :setError 111
|
|
cmd /c "dir nonexisting>NUL & exit /b 42"
|
|
call :checkErrorLevel 42
|
|
|
|
:: Succeeding command (sets ERRORLEVEL to 0) and EXIT
|
|
echo --- CMD /C DIR (sets ERRORLEVEL) - With success
|
|
|
|
call :setError 0
|
|
cmd /c "dir>NUL & exit"
|
|
call :checkErrorLevel 0
|
|
|
|
call :setError 111
|
|
cmd /c "dir>NUL & exit"
|
|
call :checkErrorLevel 0
|
|
|
|
call :setError 0
|
|
cmd /c "dir>NUL & exit 42"
|
|
call :checkErrorLevel 42
|
|
|
|
call :setError 111
|
|
cmd /c "dir>NUL & exit 42"
|
|
call :checkErrorLevel 42
|
|
|
|
call :setError 0
|
|
cmd /c "dir>NUL & exit /b 42"
|
|
call :checkErrorLevel 42
|
|
|
|
call :setError 111
|
|
cmd /c "dir>NUL & exit /b 42"
|
|
call :checkErrorLevel 42
|
|
|
|
|
|
:: Same sorts of tests, but now from within an external batch file:
|
|
:: Tests for CALL command returned exit code.
|
|
|
|
:: Use an auxiliary CMD file
|
|
mkdir foobar && cd foobar
|
|
|
|
:: Non-existing ccommand, or command that only changes
|
|
:: the returned code (but NOT the ERRORLEVEL) and EXIT.
|
|
|
|
echo --- CALL Batch Non-existing command
|
|
|
|
:: EXIT alone does not change the ERRORLEVEL
|
|
echo nonexisting ^& exit /b> tmp.cmd
|
|
call :setError 0
|
|
call tmp.cmd
|
|
call :checkErrorLevel 9009
|
|
|
|
echo nonexisting ^& exit /b> tmp.cmd
|
|
call :setError 111
|
|
call tmp.cmd
|
|
call :checkErrorLevel 9009
|
|
|
|
:: These tests show that || converts the returned error code
|
|
:: from RMDIR on failure, and converts it to an ERRORLEVEL
|
|
:: (first two tests: no ||, thus no ERRORLEVEL set;
|
|
:: last two tests: ||used and ERRORLEVEL is set).
|
|
::
|
|
|
|
echo --- CALL Batch RMDIR (no ERRORLEVEL set)
|
|
|
|
:: This test shows that if a batch returns error code 0 from CALL,
|
|
:: then CALL will keep the existing ERRORLEVEL (here, 111)...
|
|
echo rmdir nonexisting> tmp.cmd
|
|
echo exit /b>> tmp.cmd
|
|
call :setError 0
|
|
call tmp.cmd
|
|
call :checkErrorLevel 0
|
|
|
|
echo rmdir nonexisting> tmp.cmd
|
|
echo exit /b>> tmp.cmd
|
|
call :setError 111
|
|
call tmp.cmd
|
|
call :checkErrorLevel 111
|
|
|
|
echo --- CALL Batch RMDIR with ^|^| (sets ERRORLEVEL)
|
|
|
|
:: ... but if a non-zero error code is returned from CALL,
|
|
:: then CALL uses it as the new ERRORLEVEL.
|
|
echo rmdir nonexisting ^|^| rem> tmp.cmd
|
|
echo exit /b>> tmp.cmd
|
|
call :setError 0
|
|
call tmp.cmd
|
|
call :checkErrorLevel 2
|
|
:: This gives the same effect, since the last command's error code
|
|
:: is returned and transformed by CALL into an ERRORLEVEL:
|
|
echo rmdir nonexisting> tmp.cmd
|
|
call :setError 0
|
|
call tmp.cmd
|
|
call :checkErrorLevel 2
|
|
|
|
echo rmdir nonexisting ^|^| rem> tmp.cmd
|
|
echo exit /b>> tmp.cmd
|
|
call :setError 111
|
|
call tmp.cmd
|
|
call :checkErrorLevel 2
|
|
:: This gives the same effect, since the last command's error code
|
|
:: is returned and transformed by CALL into an ERRORLEVEL:
|
|
echo rmdir nonexisting> tmp.cmd
|
|
call :setError 111
|
|
call tmp.cmd
|
|
call :checkErrorLevel 2
|
|
|
|
|
|
:: Failing command (sets ERRORLEVEL to 1) and EXIT
|
|
echo --- CALL Batch DIR (sets ERRORLEVEL) - With failure
|
|
|
|
echo dir nonexisting^>NUL> tmp.cmd
|
|
call :setError 0
|
|
call tmp.cmd
|
|
call :checkErrorLevel 1
|
|
|
|
echo dir nonexisting^>NUL> tmp.cmd
|
|
call :setError 111
|
|
call tmp.cmd
|
|
call :checkErrorLevel 1
|
|
|
|
echo dir nonexisting^>NUL ^& goto :eof> tmp.cmd
|
|
call :setError 0
|
|
call tmp.cmd
|
|
call :checkErrorLevel 1
|
|
|
|
echo dir nonexisting^>NUL ^& goto :eof> tmp.cmd
|
|
call :setError 111
|
|
call tmp.cmd
|
|
call :checkErrorLevel 1
|
|
|
|
echo dir nonexisting^>NUL ^& exit /b> tmp.cmd
|
|
call :setError 0
|
|
call tmp.cmd
|
|
call :checkErrorLevel 1
|
|
|
|
echo dir nonexisting^>NUL ^& exit /b> tmp.cmd
|
|
call :setError 111
|
|
call tmp.cmd
|
|
call :checkErrorLevel 1
|
|
|
|
echo dir nonexisting^>NUL ^& exit /b 42 > tmp.cmd
|
|
call :setError 0
|
|
call tmp.cmd
|
|
call :checkErrorLevel 42
|
|
|
|
echo dir nonexisting^>NUL ^& exit /b 42 > tmp.cmd
|
|
call :setError 111
|
|
call tmp.cmd
|
|
call :checkErrorLevel 42
|
|
|
|
:: Succeeding command (sets ERRORLEVEL to 0) and EXIT
|
|
echo --- CALL Batch DIR (sets ERRORLEVEL) - With success
|
|
|
|
echo dir^>NUL> tmp.cmd
|
|
call :setError 0
|
|
call tmp.cmd
|
|
call :checkErrorLevel 0
|
|
|
|
echo dir^>NUL> tmp.cmd
|
|
call :setError 111
|
|
call tmp.cmd
|
|
call :checkErrorLevel 0
|
|
|
|
echo dir^>NUL ^& goto :eof> tmp.cmd
|
|
call :setError 0
|
|
call tmp.cmd
|
|
call :checkErrorLevel 0
|
|
|
|
echo dir^>NUL ^& goto :eof> tmp.cmd
|
|
call :setError 111
|
|
call tmp.cmd
|
|
call :checkErrorLevel 0
|
|
|
|
echo dir^>NUL ^& exit /b> tmp.cmd
|
|
call :setError 0
|
|
call tmp.cmd
|
|
call :checkErrorLevel 0
|
|
|
|
echo dir^>NUL ^& exit /b> tmp.cmd
|
|
call :setError 111
|
|
call tmp.cmd
|
|
call :checkErrorLevel 0
|
|
|
|
echo dir^>NUL ^& exit /b 42 > tmp.cmd
|
|
call :setError 0
|
|
call tmp.cmd
|
|
call :checkErrorLevel 42
|
|
|
|
echo dir^>NUL ^& exit /b 42 > tmp.cmd
|
|
call :setError 111
|
|
call tmp.cmd
|
|
call :checkErrorLevel 42
|
|
|
|
|
|
:: Cleanup
|
|
del tmp.cmd
|
|
cd .. & rmdir /s/q foobar
|
|
|
|
|
|
::
|
|
:: Finished!
|
|
::
|
|
echo --------- Finished --------------
|
|
goto :EOF
|
|
|
|
:checkErrorLevel
|
|
if %errorlevel% neq %1 (echo Unexpected errorlevel %errorlevel%, expected %1) else echo OK
|
|
goto :eof
|
|
|
|
:: Subroutine to set errorlevel and return
|
|
:: in windows nt 4.0, this always sets errorlevel 1, since /b isn't supported
|
|
:setError
|
|
exit /B %1
|
|
:: This line runs under cmd in windows NT 4, but not in more modern versions.
|