reactos/modules/rostests/win32/cmd/test_builtins.cmd

572 lines
13 KiB
Batchfile
Raw Normal View History

@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
::
:: ERRORLEVEL tests for special commands.
::
:: For some commands, the errorlevel is set differently,
:: whether or not they are run within a .BAT, a .CMD, or
:: directly from the command-line.
::
:: These commands are:
:: APPEND/DPATH, ASSOC, FTYPE, PATH, PROMPT, SET.
::
:: See https://ss64.com/nt/errorlevel.html for more details.
::
echo ---------- Testing ERRORLEVEL in .BAT and .CMD ----------
:: Use an auxiliary CMD file
mkdir foobar && cd foobar
echo --- In .BAT file
call :outputErrLvlTestToBatch tmp.bat
cmd /c tmp.bat
del tmp.bat
echo --- In .CMD file
call :outputErrLvlTestToBatch tmp.cmd
cmd /c tmp.cmd
del tmp.cmd
:: Cleanup
cd .. & rmdir /s/q foobar
:: Go to the next tests below.
goto :continue
:: ERRORLEVEL test helper function
:outputErrLvlTestToBatch (filename)
echo @echo off> %1
echo setlocal enableextensions>> %1
:: Reset the errorlevel
echo call :zeroErrLvl>> %1
:: dpath
:: echo %errorlevel%
:: dpath xxx
:: echo %errorlevel%
:: dpath
:: echo %errorlevel%
echo assoc^>NUL>> %1
echo echo %%errorlevel%%>> %1
echo assoc .nonexisting^>NUL>> %1
echo echo %%errorlevel%%>> %1
echo assoc .nonexisting^=^>NUL>> %1
echo echo %%errorlevel%%>> %1
:: ftype
:: echo %errorlevel%
:: ftype xxx
:: echo %errorlevel%
:: ftype
:: echo %errorlevel%
echo path^>NUL>> %1
echo echo %%errorlevel%%>> %1
echo path^;^>NUL>> %1
echo echo %%errorlevel%%>> %1
echo prompt^>NUL>> %1
echo echo %%errorlevel%%>> %1
echo prompt ^$p^$g^>NUL>> %1
echo echo %%errorlevel%%>> %1
echo prompt foobar^>NUL>> %1
echo echo %%errorlevel%%>> %1
echo set^>NUL>> %1
echo echo %%errorlevel%%>> %1
echo set nonexisting^>NUL>> %1
echo echo %%errorlevel%%>> %1
echo set nonexisting^=^>NUL>> %1
echo echo %%errorlevel%%>> %1
echo set nonexisting^=trololol^>NUL>> %1
echo echo %%errorlevel%%>> %1
echo set nonexisting^=^>NUL>> %1
echo echo %%errorlevel%%>> %1
echo goto :eof>> %1
:: Zero ERRORLEVEL
echo :zeroErrLvl>> %1
echo exit /B 0 >> %1
goto :eof
::
:: Next suite of tests.
::
:continue
:: Testing different ERRORLEVELs from the SET command.
:: See https://ss64.com/nt/set.html for more details.
echo ---------- Testing SET /A ERRORLEVELs ----------
echo --- Success
call :setError 0
set /a "total=1+1"
call :checkErrorLevel 0
echo %errorlevel%
echo %total%
echo --- Unbalanced parentheses
call :setError 0
set /a "total=(2+1"
call :checkErrorLevel 1073750988
echo %errorlevel%
echo %total%
echo --- Missing operand
call :setError 0
set /a "total=5*"
call :checkErrorLevel 1073750989
echo %errorlevel%
echo %total%
echo --- Syntax error
call :setError 0
set /a "total=7$3"
call :checkErrorLevel 1073750990
echo %errorlevel%
echo %total%
echo --- Invalid number
call :setError 0
set /a "total=0xdeadbeeg"
call :checkErrorLevel 1073750991
echo %errorlevel%
echo %total%
echo --- Number larger than 32-bits
call :setError 0
set /a "total=999999999999999999999999"
call :checkErrorLevel 1073750992
echo %errorlevel%
echo %total%
echo --- Division by zero
call :setError 0
set /a "total=1/0"
call :checkErrorLevel 1073750993
echo %errorlevel%
echo %total%
::
:: 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.