echo Tests for cmd's builtin commands @echo on echo ------------ Testing 'echo' [ON] ------------ echo word echo 'singlequotedword' echo "doublequotedword" @echo at-echoed-word echo "/?" echo. echo . echo.word echo .word echo: echo : echo:word echo :word echo off now echo word@space@ echo word@space@@space@ echo word echo@tab@word echo@tab@word @tab@ echo@tab@word@tab@@space@ @tab@echo word echo @tab@word echo @tab@word echo@tab@@tab@word echo @tab@ on @space@ @echo off echo off@tab@@space@ @echo noecho1 @echo noecho2 @@@@@echo echo3 echo ------------ Testing 'echo' [OFF] ------------ echo word echo 'singlequotedword' echo "doublequotedword" @echo at-echoed-word echo "/?" echo. echo . echo.word echo .word echo: echo : echo:word echo :word echo on again echo word@space@ echo word@space@@space@ echo word echo@tab@word echo@tab@word @tab@ echo@tab@word@tab@@space@ @tab@echo word echo @tab@word echo @tab@word echo@tab@@tab@word echo ------------ Testing mixed echo modes ------------ echo @echo on> mixedEchoModes.cmd echo if 1==1 echo foo>> mixedEchoModes.cmd echo if 1==1 @echo bar>> mixedEchoModes.cmd echo @echo off>> mixedEchoModes.cmd echo if 1==1 echo foo2>> mixedEchoModes.cmd echo if 1==1 @echo bar2>> mixedEchoModes.cmd type mixedEchoModes.cmd cmd /c mixedEchoModes.cmd del mixedEchoModes.cmd echo ------------ Testing parameterization ------------ call :TestParm a b c call :TestParm "a b c" call :TestParm "a b"\c call :TestParm a=~`+,.{}!+b call :TestParm a;b call :TestParm "a;b" call :TestParm a^;b call :TestParm a[b]{c}(d)e call :TestParm a&echo second line call :TestParm a b,,,c call :TestParm a==b;;c call :TestParm a,,, b goto :TestRem :TestParm echo '%1', '%2', '%3' goto :eof :TestRem echo ------------ Testing rem ------------ rem Hello rem Hello rem Hello || foo rem echo lol rem echo foo & echo bar rem @tab@ Hello rem@tab@ Hello rem@tab@echo foo & echo bar @echo on rem Hello rem Hello rem Hello || foo rem echo lol rem echo foo & echo bar rem @tab@ Hello rem@tab@ Hello rem@tab@echo foo & echo bar @echo off echo ------------ Testing redirection operators ------------ mkdir foobar & cd foobar echo --- stdout redirection echo foo>foo type foo echo foo 1> foo type foo echo foo@tab@1> foo type foo echo foo 1>@tab@foo type foo echo foo@tab@1>@tab@foo type foo echo foo7 7> foo type foo echo foo9 9> foo type foo echo foo1> foo type foo echo foo11> foo type foo echo foo12> foo type foo echo foo13>"foo" type foo echo foo14>."\foo" type foo echo foo15>."\f"oo type foo del foo echo1>foo type foo echo --- stdout appending echo foo>foo echo foo >>foo type foo del foo echo foob >> foo type foo echo fooc 1>>foo type foo echo food1>>foo type foo echo food2>>"foo" type foo del foo echo food21>>foo type foo del foo echo foo> foo echo foo7 7>> foo || (echo not supported & del foo) if exist foo (type foo) else echo not supported echo --- redirections within IF statements if 1==1 echo foo1>bar type bar & del bar echo ----- if 1==1 (echo foo2>bar) else echo baz2>bar type bar & del bar if 1==1 (echo foo3) else echo baz3>bar type bar || echo file does not exist, ok if 1==1 (echo foo4>bar) else echo baz4>bar type bar & del bar if 1==0 (echo foo5>bar) else echo baz5>bar type bar & del bar if 1==0 (echo foo6) else echo baz6 1>bar type bar & del bar if 1==0 (echo foo7 1>bar) else echo baz7>bar type bar & del bar if 1==0 (echo foo8 1>bar) else echo baz8>bak type bak if 1==1 (echo foo>bar & echo baz) type bar if 1==1 ( echo foo>bar echo baz ) type bar (if 1==1 (echo A) else echo B) > C type C (if 1==0 (echo A) else echo B) > C type C (if 1==0 (echo A > B) else echo C) cd .. & rd /s/q foobar echo ------------ Testing circumflex escape character ------------ rem Using something like "echo foo^" asks for an additional char after a "More?" prompt on the following line; it's not possible to currently test that non-interactively echo ^hell^o, world echo hell^o, world echo hell^^o, world echo hell^^^o, world echo hello^ world echo hello^ world echo hello^ echo finished mkdir foobar echo baz> foobar\baz type foobar\baz type foobar^\baz rd /s/q foobar echo foo ^| echo bar echo foo ^& echo bar call :setError 0 echo bak ^&& echo baz 2> nul echo %ErrorLevel% echo foo ^> foo echo ^<> foo type foo del foo set WINE_FOO=oof echo ff^%WINE_FOO% set WINE_FOO=bar ^| baz set WINE_FOO rem FIXME: echoing %WINE_FOO% gives an error (baz not recognized) but prematurely rem exits the script on windows; redirecting stdout and/or stderr doesn't help echo %ErrorLevel% call :setError 0 set WINE_FOO=bar ^^^| baz set WINE_FOO echo %WINE_FOO% echo %ErrorLevel% set WINE_FOO= echo ------------ Testing 'set' ------------ call :setError 0 rem Remove any WINE_FOO* WINE_BA* environment variables from shell before proceeding for /f "delims==" %%i in ('set WINE_ba') do set %%i= for /f "delims==" %%i in ('set WINE_foo') do set %%i= set WINE_FOOBAR 2> nul > nul echo %ErrorLevel% set WINE_FOOBAR = baz echo %ErrorLevel% echo %WINE_FOOBAR%WINE_FOOBAR not defined echo %WINE_FOOBAR % set WINE_FOOBAR 2> nul set WINE_FOOBAR = baz2 echo %ErrorLevel% echo %WINE_fOObAr % set WINE_FOOBAR= bar echo %ErrorLevel% echo %WINE_FOOBAR% set WINE_FOO set WINE_FOOBAR= set WINE_FOOB echo %WINE_FOOBAR%WINE_FOOBAR not defined set WINE_FOOBAR = set WINE_FOOBA 2> nul > nul echo %ErrorLevel% set WINE_FOO=bar echo %WINE_FOO% set WINE_FOO=foo set WINE_BAR=bar echo %WINE_FOO%%WINE_BAR% set WINE_BAR= set WINE_FOO= set WINE_FOO=%WINE_FOO% echo %WINE_FOO%WINE_FOO not defined set WINE_BAZ%=bazbaz set WINE_BA echo %WINE_BAZ%% set WINE_BAZ%= echo set "WINE_FOO=bar" should not include the quotes in the variable value set "WINE_FOO=bar" echo %WINE_FOO% set@tab@WINE_FOO=foo echo %WINE_FOO% set@tab@WINE_FOO= echo '%WINE_FOO%' set WINE_FOO=foo@space@ echo '%WINE_FOO%' set WINE_FOO=foo@tab@ echo '%WINE_FOO%' rem Space symbol must appear in `var` set WINE_FOO=value@space@ echo '%WINE_FOO%' rem Space symbol must NOT appear in `var` set "WINE_FOO=value"@space@ echo '%WINE_FOO%' rem Mixed examples: set WINE_FOO=jim fred echo '%WINE_FOO%' set WINE_FOO="jim" fred echo '%WINE_FOO%' set "WINE_FOO=jim fred" echo '%WINE_FOO%' set "WINE_FOO=jim" fred echo '%WINE_FOO%' rem Only the final quote ends the string set "WINE_FOO=apple"banana"grape"orange echo '%WINE_FOO%' set WINE_FOO= echo ------------ Testing variable expansion ------------ call :setError 0 echo ~p0 should be path containing batch file echo %~p0 mkdir dummydir cd dummydir echo %~p0 cd .. rmdir dummydir echo ~dp0 should be directory containing batch file echo %~dp0 mkdir dummydir cd dummydir echo %~dp0 cd .. rmdir dummydir echo CD value %CD% echo %% echo P% echo %P echo %WINE_UNKNOWN%S echo P%WINE_UNKNOWN% echo P%WINE_UNKNOWN%S echo %ERRORLEVEL echo %ERRORLEVEL% echo %ERRORLEVEL%%ERRORLEVEL% echo %ERRORLEVEL%ERRORLEVEL% echo %ERRORLEVEL%% echo %ERRORLEVEL%%% echo P%ERRORLEVEL% echo %ERRORLEVEL%S echo P%ERRORLEVEL%S echo ------------ Testing variable substrings ------------ set WINE_VAR=qwerty echo %WINE_VAR:~0,1% echo %WINE_VAR:~0,3% echo %WINE_VAR:~2,2% echo '%WINE_VAR:~-2,3%' echo '%WINE_VAR:~-2,1%' echo %WINE_VAR:~2,-1% echo %WINE_VAR:~2,-3% echo '%WINE_VAR:~-2,-4%' echo %WINE_VAR:~-3,-2% set WINE_VAR= echo ------------ Testing variable substitution ------------ echo --- in FOR variables for %%i in ("A B" C) do echo %%i rem check works when prefix with @ @for %%i in ("A B" C) do echo %%i rem quotes removal for %%i in ("A B" C) do echo '%%~i' rem fully qualified path for %%f in ("C D" E) do echo %%~ff rem drive letter for %%i in ("F G" H) do echo %%~di rem path for %%d in ("I J" K) do echo %%~pd rem filename for %%i in ("L M" N) do echo %%~ni rem file extension for %%i in ("O. P.OOL" Q.TABC hello) do echo '%%~xi' rem path with short path names for %%I in ("R S" T ABCDEFGHIJK.LMNOP) do echo '%%~sI' rem file attribute for %%i in ("U V" W) do echo '%%~ai' echo foo> foo for %%i in (foo) do echo '%%~ai' for %%i in (foo) do echo '%%~zi' del foo rem file date/time rem Not fully testable, until we can grep dir's output to get foo's creation time in an envvar... for %%i in ("a b" c) do echo '%%~ti' rem file size rem Similar issues as above for %%i in ("a b" c) do echo '%%~zi' rem combined options for %%i in ("d e" f) do echo %%~dpi for %%i in ("g h" i) do echo %%~sdi for %%i in ("g h" i) do echo %%~dsi for %%i in ("j k" l.eh) do echo '%%~xsi' for %%i in ("") do echo '%%~i,%%~fi,%%~di,%%~pi,%%~ni,%%~xi,%%~si,%%~ai,%%~ti,%%~zi' echo --- in parameters for %%i in ("A B" C) do call :echoFun %%i rem quotes removal for %%i in ("A B" C) do call :echoFunQ %%i rem fully qualified path for %%f in ("C D" E) do call :echoFunF %%f rem drive letter for %%i in ("F G" H) do call :echoFunD %%i rem path for %%d in ("I J" K) do call :echoFunP %%d rem filename for %%i in ("L M" N) do call :echoFunN %%i rem file extension for %%i in ("O. P.OOL" Q.TABC hello) do call :echoFunX %%i rem path with short path names for %%I in ("R S" T ABCDEFGHIJK.LMNOP) do call :echoFunS %%I rem NT4 aborts whole script execution when encountering ~a, ~t and ~z substitutions, preventing full testing rem combined options for %%i in ("d e" f) do call :echoFunDP %%i for %%i in ("g h" i) do call :echoFunSD %%i for %%i in ("g h" i) do call :echoFunDS %%i for %%i in ("j k" l.eh) do call :echoFunXS %%i goto :endEchoFuns :echoFun echo %1 goto :eof :echoFunQ echo '%~1' goto :eof :echoFunF echo %~f1 goto :eof :echoFunD echo %~d1 goto :eof :echoFunP echo %~p1 goto :eof :echoFunN echo %~n1 goto :eof :echoFunX echo '%~x1' goto :eof :echoFunS rem some NT4 workaround set WINE_VAR='%~s1' echo %WINE_VAR% set WINE_VAR= goto :eof :echoFunDP echo %~dp1 goto :eof :echoFunSD echo %~sd1 goto :eof :echoFunDS echo %~ds1 goto :eof :echoFunXS echo '%~xs1' goto :eof :endEchoFuns echo ------------ Testing variable delayed expansion ------------ rem NT4 doesn't support this echo --- default mode (load-time expansion) set WINE_FOO=foo echo %WINE_FOO% echo !WINE_FOO! if %WINE_FOO% == foo ( set WINE_FOO=bar if %WINE_FOO% == bar (echo bar) else echo foo ) set WINE_FOO=foo if %WINE_FOO% == foo ( set WINE_FOO=bar if !WINE_FOO! == bar (echo bar) else echo foo ) echo --- runtime (delayed) expansion mode setlocal EnableDelayedExpansion set WINE_FOO=foo echo %WINE_FOO% echo !WINE_FOO! if %WINE_FOO% == foo ( set WINE_FOO=bar if %WINE_FOO% == bar (echo bar) else echo foo ) set WINE_FOO=foo if %WINE_FOO% == foo ( set WINE_FOO=bar if !WINE_FOO! == bar (echo bar) else echo foo ) echo %ErrorLevel% setlocal DisableDelayedExpansion echo %ErrorLevel% set WINE_FOO=foo echo %WINE_FOO% echo !WINE_FOO! set WINE_FOO= echo --- using /V cmd flag echo @echo off> tmp.cmd echo set WINE_FOO=foo>> tmp.cmd echo echo %%WINE_FOO%%>> tmp.cmd echo echo !WINE_FOO!>> tmp.cmd echo set WINE_FOO=>> tmp.cmd cmd /V:ON /C tmp.cmd cmd /V:OfF /C tmp.cmd del tmp.cmd echo ------------ Testing conditional execution ------------ echo --- unconditional ampersand call :setError 123 & echo foo1 echo bar2 & echo foo2 mkdir foobar & cd foobar echo > foobazbar cd .. & rd /s/q foobar if exist foobazbar ( echo foobar not deleted! cd .. rd /s/q foobar ) else echo foobar deleted echo --- on success conditional and call :setError 456 && echo foo3 > foo3 if exist foo3 ( echo foo3 created del foo3 ) else echo foo3 not created echo bar4 && echo foo4 echo --- on failure conditional or call :setError 789 || echo foo5 echo foo6 || echo bar6 > bar6 if exist bar6 ( echo bar6 created del bar6 ) echo ------------ Testing cd ------------ mkdir foobar cd foobar echo blabla > singleFile dir /b echo Current dir: %CD% cd cd .. cd cd foobar@space@ cd cd .. cd cd @space@foobar cd cd.. cd cd foobar cd..@space@ cd if not exist foobar (cd ..) cd foobar cd@tab@..@tab@@space@@tab@ cd if not exist foobar (cd ..) cd foobar mkdir "bar bak" cd "bar bak" cd cd .. cd ".\bar bak" cd cd .. cd .\"bar bak" cd cd .. cd bar bak cd cd "bar bak@space@"@tab@@space@ cd cd ..\.. cd rd /Q/s foobar mkdir foobar cd /d@tab@foobar cd cd .. rd /q/s foobar echo ------------ Testing type ------------ echo bar> foobaz @echo on type foobaz echo --- @echo off type foobaz@tab@ echo ---1 type ."\foobaz" echo ---2 type ".\foobaz" echo ---3 del foobaz echo ------------ Testing NUL ------------ md foobar & cd foobar rem NUL file (non) creation + case insensitivity rem Note: "if exist" does not work with NUL, so to check for file existence we use a kludgy workaround echo > bar echo foo > NUL dir /b /a-d echo foo > nul dir /b /a-d echo foo > NuL @tab@dir /b@tab@/a-d del bar rem NUL not special everywhere call :setError 123 echo NUL> foo if not exist foo (echo foo should have been created) else ( type foo del foo ) rem Empty file creation copy nul foo > nul if exist foo ( echo foo created del foo type foo ) else ( echo *** ) echo 1234 >a.a copy a.a+NUL b.b >nul call :CheckFileSize a.a 7 b.b 8 copy NUL+a.a b.b >nul call :CheckFileSize a.a 7 b.b 8 mkdir subdir copy a.a+NUL subdir\ >nul call :CheckFileSize a.a 7 subdir\a.a 8 del subdir\a.a cd subdir copy ..\a.a NUL >nul if exist a.a echo Failed cd .. rd subdir /s /q del a.a b.b cd .. & rd foobar /s /q echo ------------ Testing if/else ------------ echo --- if/else should work with blocks if 0 == 0 ( echo if seems to work ) else ( echo if seems to be broken ) if 1 == 0 ( echo else seems to be broken ) else ( echo else seems to work ) if /c==/c ( echo if seems not to detect /c as parameter ) else ( echo parameter detection seems to be broken ) echo --- case sensitivity with and without /i option if bar==BAR echo if does not default to case sensitivity if not bar==BAR echo if seems to default to case sensitivity if /i foo==FOO echo if /i seems to work if /i not foo==FOO echo if /i seems to be broken if /I foo==FOO echo if /I seems to work if /I not foo==FOO echo if /I seems to be broken echo --- string comparisons if abc == abc (echo equal) else echo non equal if abc =="abc" (echo equal) else echo non equal if "abc"== abc (echo equal) else echo non equal if "abc"== "abc" (echo equal) else echo non equal echo --- tabs handling if@tab@1==1 echo doom if @tab@1==1 echo doom if 1==1 (echo doom) else@tab@echo quake if@tab@not @tab@1==@tab@0 @tab@echo lol if 1==0@tab@(echo doom) else echo quake if 1==0 (echo doom)@tab@else echo quake if 1==0 (echo doom) else@tab@echo quake echo --- comparison operators rem NT4 misevaluates conditionals in for loops so we have to use subroutines as workarounds echo ------ for strings rem NT4 stops processing of the whole batch file as soon as it finds a rem comparison operator non fully uppercased, such as lss instead of LSS, so we rem can't test those here. if LSS LSS LSSfoo (echo LSS string can be used as operand for LSS comparison) if LSS LSS LSS (echo bar) if 1.1 LSS 1.10 (echo floats are handled as strings) if "9" LSS "10" (echo numbers in quotes recognized!) else echo numbers in quotes are handled as strings if not "-1" LSS "1" (echo negative numbers as well) else echo NT4 if /i foo LSS FoOc echo if /i seems to work for LSS if /I not foo LSS FOOb echo if /I seems to be broken for LSS set WINE_STR_PARMS=A B AB BA AA for %%i in (%WINE_STR_PARMS%) do ( for %%j in (%WINE_STR_PARMS%) do ( call :LSStest %%i %%j)) if b LSS B (echo b LSS B) else echo NT4 if /I b LSS B echo b LSS B insensitive if b LSS A echo b LSS A if /I b LSS A echo b LSS A insensitive if a LSS B (echo a LSS B) else echo NT4 if /I a LSS B echo a LSS B insensitive if A LSS b echo A LSS b if /I A LSS b echo A LSS b insensitive for %%i in (%WINE_STR_PARMS%) do ( for %%j in (%WINE_STR_PARMS%) do ( call :LEQtest %%i %%j)) if b LEQ B (echo b LEQ B) else echo NT4 if /I b LEQ B echo b LEQ B insensitive if b LEQ A echo b LEQ A if /I b LEQ A echo b LEQ A insensitive if a LEQ B (echo a LEQ B) else echo NT4 if /I a LEQ B echo a LEQ B insensitive if A LEQ b echo A LEQ b if /I A LEQ b echo A LEQ b insensitive for %%i in (%WINE_STR_PARMS%) do ( for %%j in (%WINE_STR_PARMS%) do ( call :EQUtest %%i %%j)) if /I A EQU a echo A EQU a insensitive for %%i in (%WINE_STR_PARMS%) do ( for %%j in (%WINE_STR_PARMS%) do ( call :NEQtest %%i %%j)) for %%i in (%WINE_STR_PARMS%) do ( for %%j in (%WINE_STR_PARMS%) do ( call :GEQtest %%i %%j)) for %%i in (%WINE_STR_PARMS%) do ( for %%j in (%WINE_STR_PARMS%) do ( call :GTRtest %%i %%j)) echo ------ for numbers if -1 LSS 1 (echo negative numbers handled) if not -1 LSS -10 (echo negative numbers handled) if not 9 LSS 010 (echo octal handled) if not -010 LSS -8 (echo also in negative form) if 4 LSS 0x5 (echo hexa handled) if not -1 LSS -0x1A (echo also in negative form) if 11 LSS 101 (echo 11 LSS 101) set WINE_INT_PARMS=0 1 10 9 for %%i in (%WINE_INT_PARMS%) do ( for %%j in (%WINE_INT_PARMS%) do ( call :LSStest %%i %%j)) for %%i in (%WINE_INT_PARMS%) do ( for %%j in (%WINE_INT_PARMS%) do ( call :LEQtest %%i %%j)) for %%i in (%WINE_INT_PARMS%) do ( for %%j in (%WINE_INT_PARMS%) do ( call :EQUtest %%i %%j)) if 011 EQU 9 (echo octal ok) if 0xA1 EQU 161 (echo hexa ok) if 0xA1 EQU "161" (echo hexa should be recognized) else (echo string/hexa compare ok) if "0xA1" EQU 161 (echo hexa should be recognized) else (echo string/hexa compare ok) for %%i in (%WINE_INT_PARMS%) do ( for %%j in (%WINE_INT_PARMS%) do ( call :NEQtest %%i %%j)) for %%i in (%WINE_INT_PARMS%) do ( for %%j in (%WINE_INT_PARMS%) do ( call :GEQtest %%i %%j)) for %%i in (%WINE_INT_PARMS%) do ( for %%j in (%WINE_INT_PARMS%) do ( call :GTRtest %%i %%j)) echo ------ for numbers and stringified numbers if not "1" EQU 1 (echo strings and integers not equal) else echo foo if not 1 EQU "1" (echo strings and integers not equal) else echo foo if '1' EQU 1 echo '1' EQU 1 if 1 EQU '1' echo 1 EQU '1' if not "1" GEQ 1 (echo foo) else echo bar if "10" GEQ "1" echo "10" GEQ "1" if '1' GEQ 1 (echo '1' GEQ 1) else echo NT4 if 1 GEQ "1" echo 1 GEQ "1" if "1" GEQ "1" echo "1" GEQ "1" if '1' GEQ "1" echo '1' GEQ "1" if "10" GEQ "1" echo "10" GEQ "1" if not 1 GEQ '1' (echo non NT4) else echo 1 GEQ '1' for %%i in ("1" '1') do call :GEQtest %%i '1' if "10" GEQ '1' (echo "10" GEQ '1') else echo foo if 1 GEQ "10" (echo 1 GEQ "10") else echo foo if "1" GEQ "10" (echo 1 GEQ "10") else echo foo if '1' GEQ "10" (echo '1' GEQ "10") else echo foo if "10" GEQ "10" (echo "10" GEQ "10") goto :endIfCompOpsSubroutines rem IF subroutines helpers :LSStest if %1 LSS %2 echo %1 LSS %2 goto :eof :LEQtest if %1 LEQ %2 echo %1 LEQ %2 goto :eof :EQUtest if %1 EQU %2 echo %1 EQU %2 goto :eof :NEQtest if %1 NEQ %2 echo %1 NEQ %2 goto :eof :GEQtest if %1 GEQ %2 echo %1 GEQ %2 goto :eof :GTRtest if %1 GTR %2 echo %1 GTR %2 goto :eof :endIfCompOpsSubroutines set WINE_STR_PARMS= set WINE_INT_PARMS= echo ------------ Testing for ------------ echo --- plain FOR for %%i in (A B C) do echo %%i for %%i in (A B C) do echo %%I for %%i in (A B C) do echo %%j for %%i in (A B C) do call :forTestFun1 %%i for %%i in (1,4,1) do echo %%i for %%i in (A, B,C) do echo %%i for %%i in (X) do echo %%i for@tab@%%i in (X2) do echo %%i for %%i in@tab@(X3) do echo %%i for %%i in (@tab@ foo@tab@) do echo %%i for@tab@ %%i in@tab@(@tab@M) do echo %%i for %%i@tab@in (X)@tab@do@tab@echo %%i for@tab@ %%j in@tab@(@tab@M, N, O@tab@) do echo %%j for %%i in (`echo A B`) do echo %%i for %%i in ('echo A B') do echo %%i for %%i in ("echo A B") do echo %%i for %%i in ("A B" C) do echo %%i goto :endForTestFun1 :forTestFun1 echo %1 goto :eof :endForTestFun1 echo --- imbricated FORs for %%i in (X) do ( for %%j in (Y) do ( echo %%i %%j)) for %%i in (X) do ( for %%I in (Y) do ( echo %%i %%I)) for %%i in (A B) do ( for %%j in (C D) do ( echo %%i %%j)) for %%i in (A B) do ( for %%j in (C D) do ( call :forTestFun2 %%i %%j )) goto :endForTestFun2 :forTestFun2 echo %1 %2 goto :eof :endForTestFun2 mkdir foobar & cd foobar mkdir foo mkdir bar mkdir baz echo > bazbaz echo --- basic wildcards for %%i in (ba*) do echo %%i echo --- for /d for /d %%i in (baz foo bar) do echo %%i 2>&1 rem Confirm we don't match files: for /d %%i in (bazb*) do echo %%i 2>&1 for /d %%i in (bazb2*) do echo %%i 2>&1 rem Show we pass through non wildcards for /d %%i in (PASSED) do echo %%i for /d %%i in (xxx) do ( echo %%i - Should be xxx echo Expected second line ) rem Show we issue no messages on failures for /d %%i in (FAILED?) do echo %%i 2>&1 for /d %%i in (FAILED?) do ( echo %%i - Unexpected! echo FAILED Unexpected second line ) for /d %%i in (FAILED*) do echo %%i 2>&1 for /d %%i in (FAILED*) do ( echo %%i - Unexpected! echo FAILED Unexpected second line ) rem FIXME can't test wildcard expansion here since it's listed in directory rem order, and not in alphabetic order. rem Proper testing would need a currently missing "sort" program implementation. rem for /d %%i in (ba*) do echo %%i>> tmp rem sort < tmp rem del tmp rem for /d %%i in (?a*) do echo %%i>> tmp rem sort < tmp rem del tmp rem for /d %%i in (*) do echo %%i>> tmp rem sort < tmp rem del tmp echo > baz\bazbaz goto :TestForR :SetExpected del temp.bat 2>nul call :WriteLine set WINE_found=N for /l %%i in (1,1,%WINE_expectedresults%) do ( call :WriteLine if "%%%%WINE_expectedresults.%%i%%%%"=="%%%%1" set WINE_found=Y call :WriteLine if "%%%%WINE_found%%%%"=="Y" set WINE_expectedresults.%%i= call :WriteLine if "%%%%WINE_found%%%%"=="Y" goto :eof ) call :WriteLine echo Got unexpected result: "%%%%1" goto :eof :WriteLine echo %*>> temp.bat goto :EOF :ValidateExpected del temp.bat 2>nul for /l %%i in (1,1,%WINE_expectedresults%) do ( call :WriteLine if not "%%%%WINE_expectedresults.%%i%%%%"=="" echo Found missing result: "%%%%WINE_expectedresults.%%i%%%%" ) call temp.bat del temp.bat 2>nul goto :eof :TestForR rem %CD% does not tork on NT4 so use the following workaround for /d %%i in (.) do set WINE_CURDIR=%%~dpnxi echo --- for /R echo Plain directory enumeration set WINE_expectedresults=4 set WINE_expectedresults.1=%WINE_CURDIR%\. set WINE_expectedresults.2=%WINE_CURDIR%\bar\. set WINE_expectedresults.3=%WINE_CURDIR%\baz\. set WINE_expectedresults.4=%WINE_CURDIR%\foo\. call :SetExpected for /R %%i in (.) do call temp.bat %%i call :ValidateExpected echo Plain directory enumeration from provided root set WINE_expectedresults=4 set WINE_expectedresults.1=%WINE_CURDIR%\. set WINE_expectedresults.2=%WINE_CURDIR%\bar\. set WINE_expectedresults.3=%WINE_CURDIR%\baz\. set WINE_expectedresults.4=%WINE_CURDIR%\foo\. if "%CD%"=="" goto :SkipBrokenNT4 call :SetExpected for /R "%WINE_CURDIR%" %%i in (.) do call temp.bat %%i call :ValidateExpected :SkipBrokenNT4 echo File enumeration set WINE_expectedresults=2 set WINE_expectedresults.1=%WINE_CURDIR%\baz\bazbaz set WINE_expectedresults.2=%WINE_CURDIR%\bazbaz call :SetExpected for /R %%i in (baz*) do call temp.bat %%i call :ValidateExpected echo File enumeration from provided root set WINE_expectedresults=2 set WINE_expectedresults.1=%WINE_CURDIR%\baz\bazbaz set WINE_expectedresults.2=%WINE_CURDIR%\bazbaz call :SetExpected for /R %%i in (baz*) do call temp.bat %%i call :ValidateExpected echo Mixed enumeration set WINE_expectedresults=6 set WINE_expectedresults.1=%WINE_CURDIR%\. set WINE_expectedresults.2=%WINE_CURDIR%\bar\. set WINE_expectedresults.3=%WINE_CURDIR%\baz\. set WINE_expectedresults.4=%WINE_CURDIR%\baz\bazbaz set WINE_expectedresults.5=%WINE_CURDIR%\bazbaz set WINE_expectedresults.6=%WINE_CURDIR%\foo\. call :SetExpected for /R %%i in (. baz*) do call temp.bat %%i call :ValidateExpected echo Mixed enumeration from provided root set WINE_expectedresults=6 set WINE_expectedresults.1=%WINE_CURDIR%\. set WINE_expectedresults.2=%WINE_CURDIR%\bar\. set WINE_expectedresults.3=%WINE_CURDIR%\baz\. set WINE_expectedresults.4=%WINE_CURDIR%\baz\bazbaz set WINE_expectedresults.5=%WINE_CURDIR%\bazbaz set WINE_expectedresults.6=%WINE_CURDIR%\foo\. call :SetExpected for /R %%i in (. baz*) do call temp.bat %%i call :ValidateExpected echo With duplicates enumeration set WINE_expectedresults=12 set WINE_expectedresults.1=%WINE_CURDIR%\bar\bazbaz set WINE_expectedresults.2=%WINE_CURDIR%\bar\fred set WINE_expectedresults.3=%WINE_CURDIR%\baz\bazbaz set WINE_expectedresults.4=%WINE_CURDIR%\baz\bazbaz set WINE_expectedresults.5=%WINE_CURDIR%\baz\bazbaz set WINE_expectedresults.6=%WINE_CURDIR%\baz\fred set WINE_expectedresults.7=%WINE_CURDIR%\bazbaz set WINE_expectedresults.8=%WINE_CURDIR%\bazbaz set WINE_expectedresults.9=%WINE_CURDIR%\bazbaz set WINE_expectedresults.10=%WINE_CURDIR%\foo\bazbaz set WINE_expectedresults.11=%WINE_CURDIR%\foo\fred set WINE_expectedresults.12=%WINE_CURDIR%\fred call :SetExpected for /R %%i in (baz* bazbaz fred ba*) do call temp.bat %%i call :ValidateExpected echo Strip missing wildcards, keep unwildcarded names set WINE_expectedresults=6 set WINE_expectedresults.1=%WINE_CURDIR%\bar\jim set WINE_expectedresults.2=%WINE_CURDIR%\baz\bazbaz set WINE_expectedresults.3=%WINE_CURDIR%\baz\jim set WINE_expectedresults.4=%WINE_CURDIR%\bazbaz set WINE_expectedresults.5=%WINE_CURDIR%\foo\jim set WINE_expectedresults.6=%WINE_CURDIR%\jim call :SetExpected for /R %%i in (baz* fred* jim) do call temp.bat %%i call :ValidateExpected echo for /R passed echo --- Complex wildcards unix and windows slash cd .. echo Windows slashs, valid path for %%f in (foobar\baz\bazbaz) do echo ASIS: %%f for %%f in (foobar\baz\*) do echo WC : %%f echo Windows slashs, invalid path for %%f in (foobar\jim\bazbaz) do echo ASIS: %%f for %%f in (foobar\jim\*) do echo WC : %%f echo Unix slashs, valid path for %%f in (foobar/baz/bazbaz) do echo ASIS: %%f for %%f in (foobar/baz/*) do echo WC : %%f echo Unix slashs, invalid path for %%f in (foobar/jim/bazbaz) do echo ASIS: %%f for %%f in (foobar/jim/*) do echo WC : %%f echo Done rd /s/Q foobar echo --- for /L rem Some cases loop forever writing 0s, like e.g. (1,0,1), (1,a,3) or (a,b,c); those can't be tested here for /L %%i in (1,2,0) do echo %%i for@tab@/L %%i in (1,2,0) do echo %%i for /L %%i in (1,2,6) do echo %%i for /l %%i in (1 ,2,6) do echo %%i for /L %%i in (a,2,3) do echo %%i for /L %%i in (1,2,-1) do echo %%i for /L %%i in (-4,-1,-1) do echo %%i for /L %%i in (1,-2,-2) do echo %%i for /L %%i in (1,2,a) do echo %%i echo ErrorLevel %ErrorLevel% for /L %%i in (1,a,b) do echo %%i echo ErrorLevel %ErrorLevel% rem Test boundaries for /l %%i in (1,1,4) do echo %%i for /l %%i in (1,2,4) do echo %%i for /l %%i in (4,-1,1) do echo %%i for /l %%i in (4,-2,1) do echo %%i for /l %%i in (1,-1,4) do echo %%i for /l %%i in (4,1,1) do echo %%i for /L %%i in (a,2,b) do echo %%i for /L %%i in (1,1,1) do echo %%i for /L %%i in (1,-2,-1) do echo %%i for /L %%i in (-1,-1,-1) do echo %%i for /L %%i in (1,2, 3) do echo %%i rem Test zero iteration skips the body of the for for /L %%i in (2,2,1) do ( echo %%i echo FAILED ) echo --- set /a goto :testseta Rem Ideally for /f can be used rather than building a command to execute rem but that does not work on NT4 :checkenvvars if "%1"=="" goto :eof call :executecmd set wine_result=%%%1%% if "%wine_result%"=="%2" ( echo %1 correctly %2 ) else echo ERROR: %1 incorrectly %wine_result% [%2] set %1= shift shift rem shift goto :checkenvvars :executecmd %* goto :eof :testseta rem No output when using "set expr" syntax, unless in interactive mode rem Need to use "set envvar=expr" to use in a batch script echo ------ individual operations set WINE_foo=0 set /a WINE_foo=1 +2 & call :checkenvvars WINE_foo 3 set /a WINE_foo=1 +-2 & call :checkenvvars WINE_foo -1 set /a WINE_foo=1 --2 & call :checkenvvars WINE_foo 3 set /a WINE_foo=2* 3 & call :checkenvvars WINE_foo 6 set /a WINE_foo=-2* -5 & call :checkenvvars WINE_foo 10 set /a WINE_foo=12/3 & call :checkenvvars WINE_foo 4 set /a WINE_foo=13/3 & call :checkenvvars WINE_foo 4 set /a WINE_foo=-13/3 & call :checkenvvars WINE_foo -4 rem FIXME Divide by zero should return an error, but error messages cannot be tested with current infrastructure set /a WINE_foo=5 %% 5 & call :checkenvvars WINE_foo 0 set /a WINE_foo=5 %% 3 & call :checkenvvars WINE_foo 2 set /a WINE_foo=5 %% -3 & call :checkenvvars WINE_foo 2 set /a WINE_foo=-5 %% -3 & call :checkenvvars WINE_foo -2 set /a WINE_foo=1 ^<^< 0 & call :checkenvvars WINE_foo 1 set /a WINE_foo=1 ^<^< 2 & call :checkenvvars WINE_foo 4 set /a WINE_foo=1 ^<^< -2 & call :checkenvvars WINE_foo 0 set /a WINE_foo=-1 ^<^< -2 & call :checkenvvars WINE_foo 0 set /a WINE_foo=-1 ^<^< 2 & call :checkenvvars WINE_foo -4 set /a WINE_foo=9 ^>^> 0 & call :checkenvvars WINE_foo 9 set /a WINE_foo=9 ^>^> 2 & call :checkenvvars WINE_foo 2 set /a WINE_foo=9 ^>^> -2 & call :checkenvvars WINE_foo 0 set /a WINE_foo=-9 ^>^> -2 & call :checkenvvars WINE_foo -1 set /a WINE_foo=-9 ^>^> 2 & call :checkenvvars WINE_foo -3 set /a WINE_foo=5 ^& 0 & call :checkenvvars WINE_foo 0 set /a WINE_foo=5 ^& 1 & call :checkenvvars WINE_foo 1 set /a WINE_foo=5 ^& 3 & call :checkenvvars WINE_foo 1 set /a WINE_foo=5 ^& 4 & call :checkenvvars WINE_foo 4 set /a WINE_foo=5 ^& 1 & call :checkenvvars WINE_foo 1 set /a WINE_foo=5 ^| 0 & call :checkenvvars WINE_foo 5 set /a WINE_foo=5 ^| 1 & call :checkenvvars WINE_foo 5 set /a WINE_foo=5 ^| 3 & call :checkenvvars WINE_foo 7 set /a WINE_foo=5 ^| 4 & call :checkenvvars WINE_foo 5 set /a WINE_foo=5 ^| 1 & call :checkenvvars WINE_foo 5 set /a WINE_foo=5 ^^ 0 & call :checkenvvars WINE_foo 5 set /a WINE_foo=5 ^^ 1 & call :checkenvvars WINE_foo 4 set /a WINE_foo=5 ^^ 3 & call :checkenvvars WINE_foo 6 set /a WINE_foo=5 ^^ 4 & call :checkenvvars WINE_foo 1 set /a WINE_foo=5 ^^ 1 & call :checkenvvars WINE_foo 4 echo ------ precedence and grouping set /a WINE_foo=4 + 2*3 & call :checkenvvars WINE_foo 10 set /a WINE_foo=(4+2)*3 & call :checkenvvars WINE_foo 18 set /a WINE_foo=4 * 3/5 & call :checkenvvars WINE_foo 2 set /a WINE_foo=(4 * 3)/5 & call :checkenvvars WINE_foo 2 set /a WINE_foo=4 * 5 %% 4 & call :checkenvvars WINE_foo 0 set /a WINE_foo=4 * (5 %% 4) & call :checkenvvars WINE_foo 4 set /a WINE_foo=3 %% (5 + 8 %% 3 ^^ 2) & call :checkenvvars WINE_foo 3 set /a WINE_foo=3 %% (5 + 8 %% 3 ^^ -2) & call :checkenvvars WINE_foo 3 echo ------ octal and hexadecimal set /a WINE_foo=0xf + 3 & call :checkenvvars WINE_foo 18 set /a WINE_foo=0xF + 3 & call :checkenvvars WINE_foo 18 set /a WINE_foo=015 + 2 & call :checkenvvars WINE_foo 15 set /a WINE_foo=3, 8+3,0 & call :checkenvvars WINE_foo 3 echo ------ variables set /a WINE_foo=WINE_bar=3, WINE_bar+1 & call :checkenvvars WINE_foo 3 WINE_bar 3 set /a WINE_foo=WINE_bar=3, WINE_bar+=1 & call :checkenvvars WINE_foo 3 WINE_bar 4 set /a WINE_foo=WINE_bar=3, WINE_baz=1, WINE_baz+=WINE_bar, WINE_baz & call :checkenvvars WINE_foo 3 WINE_bar 3 WINE_baz 4 set WINE_bar=3 set /a WINE_foo=WINE_bar*= WINE_bar & call :checkenvvars WINE_foo 9 WINE_bar 9 set /a WINE_foo=WINE_whateverNonExistingVar & call :checkenvvars WINE_foo 0 set WINE_bar=4 set /a WINE_foo=WINE_whateverNonExistingVar + WINE_bar & call :checkenvvars WINE_foo 4 WINE_bar 4 set WINE_bar=4 set /a WINE_foo=WINE_bar -= WINE_bar + 7 & call :checkenvvars WINE_foo -7 WINE_bar -7 set WINE_bar=-7 set /a WINE_foo=WINE_bar /= 3 + 2 & call :checkenvvars WINE_foo -1 WINE_bar -1 set /a WINE_foo=WINE_bar=5, WINE_bar %%=2 & call :checkenvvars WINE_foo 5 WINE_bar 1 set WINE_bar=1 set /a WINE_foo=WINE_bar ^<^<= 2 & call :checkenvvars WINE_foo 4 WINE_bar 4 set WINE_bar=4 set /a WINE_foo=WINE_bar ^>^>= 2 & call :checkenvvars WINE_foo 1 WINE_bar 1 set WINE_bar=1 set /a WINE_foo=WINE_bar ^&= 2 & call :checkenvvars WINE_foo 0 WINE_bar 0 set /a WINE_foo=WINE_bar=5, WINE_bar ^|= 2 & call :checkenvvars WINE_foo 5 WINE_bar 7 set /a WINE_foo=WINE_bar=5, WINE_bar ^^= 2 & call :checkenvvars WINE_foo 5 WINE_bar 7 set WINE_baz=4 set /a WINE_foo=WINE_bar=19, WINE_bar %%= 4 + (WINE_baz %%= 7) & call :checkenvvars WINE_foo 19 WINE_bar 3 WINE_baz 4 echo --- quotes set /a WINE_foo=1 call :checkenvvars WINE_foo 1 set /a "WINE_foo=1" call :checkenvvars WINE_foo 1 set /a WINE_foo=1,WINE_bar=2 call :checkenvvars WINE_foo 1 WINE_bar 2 set /a "WINE_foo=1,WINE_bar=2" call :checkenvvars WINE_foo 1 WINE_bar 2 set /a "WINE_foo=1","WINE_bar=2" call :checkenvvars WINE_foo 1 WINE_bar 2 set /a ""WINE_foo=1","WINE_bar=2"" call :checkenvvars WINE_foo 1 WINE_bar 2 set /a WINE_foo=1,WINE_bar=2,WINE_baz=3 call :checkenvvars WINE_foo 1 WINE_bar 2 WINE_baz 3 set /a "WINE_foo=1,WINE_bar=2,WINE_baz=3" call :checkenvvars WINE_foo 1 WINE_bar 2 WINE_baz 3 set /a "WINE_foo=1","WINE_bar=2","WINE_baz=3" call :checkenvvars WINE_foo 1 WINE_bar 2 WINE_baz 3 set /a ""WINE_foo=1","WINE_bar=2","WINE_baz=3"" call :checkenvvars WINE_foo 1 WINE_bar 2 WINE_baz 3 set /a ""WINE_foo=1","WINE_bar=2"","WINE_baz=3" call :checkenvvars WINE_foo 1 WINE_bar 2 WINE_baz 3 set /a """"""WINE_foo=1"""""" call :checkenvvars WINE_foo 1 set /a """"""WINE_foo=1","WINE_bar=5""","WINE_baz=2"" call :checkenvvars WINE_foo 1 WINE_bar 5 WINE_baz 2 set /a WINE_foo="3"+"4"+"5+6" call :checkenvvars WINE_foo 18 set WINE_foo=3 set /a WINE_bar="WINE_""foo"+4 call :checkenvvars WINE_foo 3 WINE_bar 7 echo --- whitespace are ignored between double char operators set WINE_foo=4 set WINE_bar=5 set /a WINE_foo + = 6 set /a WINE_bar * = WINE_foo call :checkenvvars WINE_foo 10 WINE_bar 50 set WINE_foo=4 set WINE_bar=5 set /a WINE_foo + = "6 < < 7" set /a WINE_bar * = WINE_foo + WINE_foo call :checkenvvars WINE_foo 772 WINE_bar 7720 set /a WINE_foo=6 7 set /a WINE_ var1=8 set WINE_foo= echo --- invalid operator sequence set WINE_foo=4 set /a =4 set /a *=4 set /a ^>=4" set /a ^<=4" set /a WINE_foo^>^<=4 echo %WINE_foo% set /a WINE_foo^>^>^>=4 echo %WINE_foo% echo ----- negative prefix set /a WINE_foo=-1 call :checkenvvars WINE_foo -1 set /a WINE_foo=--1 call :checkenvvars WINE_foo 1 set /a WINE_foo=3--3 call :checkenvvars WINE_foo 6 set /a WINE_foo=3---3 call :checkenvvars WINE_foo 0 set /a WINE_foo=3----3 call :checkenvvars WINE_foo 6 set /a WINE_foo=-~1 call :checkenvvars WINE_foo 2 set /a WINE_foo=~-1 call :checkenvvars WINE_foo 0 set /a WINE_foo=3+-~1 call :checkenvvars WINE_foo 5 set /a WINE_foo=3+~-1 call :checkenvvars WINE_foo 3 echo ----- assignment tests involving the end destination set WINE_foo=3 set /a WINE_foo+=3+(WINE_foo=4) call :checkenvvars WINE_foo 11 set WINE_foo=2 set /a WINE_bar=3+(WINE_foo=6) call :checkenvvars WINE_foo 6 WINE_bar 9 set WINE_foo=2 set /a WINE_bar=3+(WINE_foo=6,WINE_baz=7) call :checkenvvars WINE_foo 6 WINE_bar 10 WINE_baz 7 set WINE_foo=2 set /a WINE_bar=WINE_foo=7 call :checkenvvars WINE_foo 7 WINE_bar 7 echo ----- equal precedence on stack rem Unary - don't reduce if precedence is equal set /a WINE_foo=!!1 call :checkenvvars WINE_foo 1 set /a WINE_foo=!!0 call :checkenvvars WINE_foo 0 set /a WINE_foo=~~1 call :checkenvvars WINE_foo 1 set /a WINE_foo=~~0 call :checkenvvars WINE_foo 0 set /a WINE_foo=--1 call :checkenvvars WINE_foo 1 set /a WINE_foo=+-1 call :checkenvvars WINE_foo -1 set /a WINE_foo=-+1 call :checkenvvars WINE_foo -1 set /a WINE_foo=++1 call :checkenvvars WINE_foo 1 set /a WINE_foo=!~1 call :checkenvvars WINE_foo 0 set /a WINE_foo=~!1 call :checkenvvars WINE_foo -1 set /a WINE_foo=!-1 call :checkenvvars WINE_foo 0 set /a WINE_foo=-!1 call :checkenvvars WINE_foo 0 set /a WINE_foo=!-0 call :checkenvvars WINE_foo 1 set /a WINE_foo=-!0 call :checkenvvars WINE_foo -1 rem Aritmatic - Reduce if precedence is equal set /a WINE_foo=10*5/2 call :checkenvvars WINE_foo 25 set /a WINE_foo=5/2*10 call :checkenvvars WINE_foo 20 set /a WINE_foo=10/5/2 call :checkenvvars WINE_foo 1 set /a WINE_foo=5%%2*4 call :checkenvvars WINE_foo 4 set /a WINE_foo=10-5+2 call :checkenvvars WINE_foo 7 set /a WINE_foo=1^<^<4^>^>1 call :checkenvvars WINE_foo 8 rem Assignment - don't reduce if precedence is equal set /a WINE_foo=5 set /a WINE_bar=WINE_foo=6 call :checkenvvars WINE_foo 6 WINE_bar 6 echo --- for /F mkdir foobar & cd foobar echo ------ string argument rem NT4 does not support usebackq for /F %%i in ("a b c") do echo %%i for /f usebackq %%i in ('a b c') do echo %%i>output_file if not exist output_file (echo no output) else (type output_file & del output_file) for /f %%i in ("a ") do echo %%i for /f usebackq %%i in ('a ') do echo %%i>output_file if not exist output_file (echo no output) else (type output_file & del output_file) for /f %%i in ("a") do echo %%i for /f usebackq %%i in ('a') do echo %%i>output_file if not exist output_file (echo no output) else (type output_file & del output_file) fOr /f %%i in (" a") do echo %%i for /f usebackq %%i in (' a') do echo %%i>output_file if not exist output_file (echo no output) else (type output_file & del output_file) for /f %%i in (" a ") do echo %%i for /f usebackq %%i in (' a ') do echo %%i>output_file if not exist output_file (echo no output) else (type output_file & del output_file) echo ------ fileset argument echo --------- basic blank handling echo a b c>foo for /f %%i in (foo) do echo %%i echo a >foo for /f %%i in (foo) do echo %%i echo a>foo for /f %%i in (foo) do echo %%i echo a>foo for /f %%i in (foo) do echo %%i echo a >foo for /f %%i in (foo) do echo %%i echo. > foo for /f %%i in (foo) do echo %%i echo. >> foo echo b > foo for /f %%i in (foo) do echo %%i echo --------- multi-line with empty lines echo a Z f> foo echo. >> foo echo.>> foo echo b bC>> foo echo c>> foo echo. >> foo for /f %%b in (foo) do echo %%b echo --------- multiple files echo q w > bar echo.>> bar echo kkk>>bar for /f %%k in (foo bar) do echo %%k for /f %%k in (bar foo) do echo %%k echo ------ command argument rem Not implemented on NT4, need to skip it as no way to get output otherwise if "%CD%"=="" goto :SkipFORFcmdNT4 for /f %%i in ('echo.Passed1') do echo %%i for /f "usebackq" %%i in (`echo.Passed2`) do echo %%i for /f usebackq %%i in (`echo.Passed3`) do echo %%i goto :ContinueFORF :SkipFORFcmdNT4 for /l %%i in (1,1,3) do echo Missing functionality - Broken%%i :ContinueFORF rem FIXME: Rest not testable right now in wine: not implemented and would need rem preliminary grep-like program implementation (e.g. like findstr or fc) even rem for a simple todo_wine test rem (for /f "usebackq" %%i in (`echo z a b`) do echo %%i) || echo not supported rem (for /f usebackq %%i in (`echo z a b`) do echo %%i) || echo not supported echo ------ eol option if "%CD%"=="" goto :SkipFORFeolNT4 echo Line one>foo echo and Line two>>foo echo Line three>>foo for /f "eol=L" %%i in (foo) do echo %%i for /f "eol=a" %%i in (foo) do echo %%i del foo goto :ContinueFORFeol :SkipFORFeolNT4 for /l %%i in (1,1,3) do echo Broken NT4 functionality%%i :ContinueFORFeol for /f "eol=@" %%i in (" ad") do echo %%i for /f "eol=@" %%i in (" z@y") do echo %%i for /f "eol=|" %%i in ("a|d") do echo %%i for /f "eol=@" %%i in ("@y") do echo %%i > output_file if not exist output_file (echo no output) else (del output_file) for /f "eol==" %%i in ("=y") do echo %%i > output_file if not exist output_file (echo no output) else (del output_file) echo ------ delims option for /f "delims=|" %%i in ("a|d") do echo %%i for /f "delims=|" %%i in ("a |d") do echo %%i for /f "delims=|" %%i in ("a d|") do echo %%i for /f "delims=| " %%i in ("a d|") do echo %%i for /f "delims==" %%i in ("C r=d|") do echo %%i for /f "delims=" %%i in ("foo bar baz") do echo %%i for /f "delims=" %%i in ("c:\foo bar baz\..") do echo %%~fi echo ------ skip option echo a > foo echo b >> foo echo c >> foo for /f "skip=2" %%i in (foo) do echo %%i for /f "skip=3" %%i in (foo) do echo %%i > output_file if not exist output_file (echo no output) else (del output_file) for /f "skip=4" %%i in (foo) do echo %%i > output_file if not exist output_file (echo no output) else (del output_file) for /f "skip=02" %%i in (foo) do echo %%i for /f "skip=0x2" %%i in (foo) do echo %%i for /f "skip=1" %%i in ("skipme") do echo %%i > output_file if not exist output_file (echo no output) else (del output_file) echo ------ tokens= option rem Basic for /f %%i in ("a b c d e f g") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m o=%%o for /f "tokens=2" %%i in ("a b c d e f g") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m o=%%o for /f "tokens=1,3,5-7" %%i in ("a b c d e f g") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m o=%%o rem Show * means the rest for /f "tokens=1,5*" %%i in ("a b c d e f g") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m o=%%o for /f "tokens=6,9*" %%i in ("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") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m o=%%o rem Show * means the rest (not tokenized and rebuilt) for /f "tokens=6,9*" %%i in ("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") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m o=%%o rem Order is irrelevant for /f "tokens=1,2,3*" %%i in ("a b c d e f g") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m n=%%n o=%%o for /f "tokens=3,2,1*" %%i in ("a b c d e f g") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m n=%%n o=%%o rem Duplicates are ignored for /f "tokens=1,2,1*" %%i in ("a b c d e f g") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m n=%%n o=%%o rem Large tokens are allowed for /f "tokens=25,1,5*" %%i in ("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") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m n=%%n o=%%o rem Show tokens blanked in advance regardless of uniqueness of requested tokens for /f "tokens=1,1,1,2*" %%i in ("a b c d e f g") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m n=%%n o=%%o for /f "tokens=1-2,1-2,1-2" %%i in ("a b c d e f g") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m n=%%n o=%%o rem Show No wrapping from z to A BUT wrapping sort of occurs Z to a occurs for /f "tokens=1-20" %%u in ("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") do echo u=%%u v=%%v w=%%w x=%%x y=%%y z=%%z A=%%A a=%%a for /f "tokens=1-20" %%U in ("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") do echo U=%%U V=%%V W=%%W X=%%X Y=%%Y Z=%%Z A=%%A a=%%a rem Show negative ranges have no effect for /f "tokens=1-3,5" %%i in ("a b c d e f g") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m o=%%o for /f "tokens=3-1,5" %%i in ("a b c d e f g") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m o=%%o rem Show duplicates stop * from working for /f "tokens=1,2,3*" %%i in ("a b c d e f g") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m n=%%n o=%%o for /f "tokens=1,1,3*" %%i in ("a b c d e f g") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m n=%%n o=%%o for /f "tokens=2,2,3*" %%i in ("a b c d e f g") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m n=%%n o=%%o for /f "tokens=3,2,3*" %%i in ("a b c d e f g") do echo h=%%h i=%%i j=%%j k=%%k l=%%l m=%%m n=%%n o=%%o cd .. rd /s/q foobar echo ------------ Testing del /a ------------ del /f/q *.test > nul echo r > r.test attrib +r r.test echo not-r > not-r.test if not exist not-r.test echo not-r.test not found before delete, bad del /a:-r *.test if not exist not-r.test echo not-r.test not found after delete, good if not exist r.test echo r.test not found before delete, bad if exist r.test echo r.test found before delete, good del /a:r *.test if not exist r.test echo r.test not found after delete, good if exist r.test echo r.test found after delete, bad echo ------------ Testing del /q ------------ mkdir del_q_dir cd del_q_dir echo abc > file1 echo abc > file2.dat rem If /q doesn't work, cmd will prompt and the test case should hang del /q * > nul for %%a in (1 2.dat) do if exist file%%a echo del /q * failed on file%%a for %%a in (1 2.dat) do if not exist file%%a echo del /q * succeeded on file%%a cd .. rmdir del_q_dir echo ------------ Testing del /s ------------ mkdir "foo bar" cd "foo bar" mkdir "foo:" echo hi > file1.dat echo there > file2.dat echo bub > file3.dat echo bye > "file with spaces.dat" cd .. del /s file1.dat > nul del file2.dat /s > nul del "file3.dat" /s > nul del "file with spaces.dat" /s > nul cd "foo bar" for %%f in (1 2 3) do if exist file%%f.dat echo Del /s failed on file%%f for %%f in (1 2 3) do if exist file%%f.dat del file%%f.dat if exist "file with spaces.dat" echo Del /s failed on "file with spaces.dat" if exist "file with spaces.dat" del "file with spaces.dat" rmdir "foo:" cd .. rmdir "foo bar" echo ------------ Testing rename ------------ mkdir foobar & cd foobar echo --- ren and rename are synonymous echo > foo rename foo bar if exist foo echo foo should be renamed! if exist bar echo foo renamed to bar ren bar foo if exist bar echo bar should be renamed! if exist foo echo bar renamed to foo echo --- name collision echo foo>foo echo bar>bar ren foo bar 2> nul type foo type bar rem no-op ren foo foo mkdir baz ren foo baz\abc echo --- rename read-only files echo > file1 attrib +r file1 ren file1 file2 if not exist file1 ( if exist file2 ( echo read-only file renamed ) ) else ( echo read-only file not renamed! ) echo --- rename directories mkdir rep1 ren rep1 rep2 if not exist rep1 ( if exist rep2 ( echo dir renamed ) ) attrib +r rep2 ren rep2 rep1 if not exist rep2 ( if exist rep1 ( echo read-only dir renamed ) ) echo --- rename in other directory if not exist baz\abc ( echo rename impossible in other directory if exist foo echo original file still present ) else ( echo shouldn't rename in other directory! if not exist foo echo original file not present anymore ) cd .. & rd /s/q foobar echo ------------ Testing move ------------ mkdir foobar & cd foobar echo --- file move echo >foo move foo bar > nul 2>&1 if not exist foo ( if exist bar ( echo file move succeeded ) ) echo bar>bar echo baz> baz move /Y bar baz > nul 2>&1 if not exist bar ( if exist baz ( echo file move with overwrite succeeded ) ) else ( echo file overwrite impossible! del bar ) type baz attrib +r baz move baz bazro > nul 2>&1 if not exist baz ( if exist bazro ( echo read-only files are moveable move bazro baz > nul 2>&1 ) ) else ( echo read-only file not moved! ) attrib -r baz mkdir rep move baz rep > nul 2>&1 if not exist baz ( if exist rep\baz ( echo file moved in subdirectory ) ) call :setError 0 move rep\baz . > nul 2>&1 move /Y baz baz > nul 2>&1 if errorlevel 1 ( echo moving a file to itself should be a no-op! ) else ( echo moving a file to itself is a no-op ) echo ErrorLevel: %ErrorLevel% call :setError 0 del baz echo --- directory move mkdir foo\bar mkdir baz echo baz2>baz\baz2 move baz foo\bar > nul 2>&1 if not exist baz ( if exist foo\bar\baz\baz2 ( echo simple directory move succeeded ) ) call :setError 0 mkdir baz move baz baz > nul 2>&1 echo moving a directory to itself gives error; errlevel %ErrorLevel% echo ------ dir in dir move rd /s/q foo mkdir foo bar echo foo2>foo\foo2 echo bar2>bar\bar2 move foo bar > nul 2>&1 if not exist foo ( if exist bar ( dir /b /ad bar dir /b /a-d bar dir /b bar\foo ) ) cd .. & rd /s/q foobar echo ------------ Testing mkdir ------------ call :setError 0 echo --- md and mkdir are synonymous mkdir foobar echo %ErrorLevel% rmdir foobar md foobar echo %ErrorLevel% rmdir foobar echo --- creating an already existing directory/file must fail mkdir foobar md foobar echo %ErrorLevel% rmdir foobar echo > foobar mkdir foobar echo %ErrorLevel% del foobar echo --- multilevel path creation mkdir foo echo %ErrorLevel% mkdir foo\bar\baz echo %ErrorLevel% cd foo echo %ErrorLevel% cd bar echo %ErrorLevel% cd baz echo %ErrorLevel% echo > ..\..\bar2 mkdir ..\..\..\foo\bar2 echo %ErrorLevel% del ..\..\bar2 mkdir ..\..\..\foo\bar2 echo %ErrorLevel% rmdir ..\..\..\foo\bar2 cd .. rmdir baz cd .. rmdir bar cd .. rmdir foo echo %ErrorLevel% echo --- trailing backslashes mkdir foo\\\\ echo %ErrorLevel% if exist foo (rmdir foo & echo dir created ) else ( echo dir not created ) echo %ErrorLevel% echo --- invalid chars mkdir ? echo mkdir ? gives errorlevel %ErrorLevel% call :setError 0 mkdir ?\foo echo mkdir ?\foo gives errorlevel %ErrorLevel% call :setError 0 mkdir foo\? echo mkdir foo\? gives errorlevel %ErrorLevel% if exist foo (rmdir foo & echo ok, foo created ) else ( echo foo not created ) call :setError 0 mkdir foo\bar\? echo mkdir foo\bar\? gives errorlevel %ErrorLevel% call :setError 0 if not exist foo ( echo bad, foo not created ) else ( cd foo if exist bar ( echo ok, foo\bar created rmdir bar ) cd .. rmdir foo ) echo --- multiple directories at once mkdir foobaz & cd foobaz mkdir foo bar\baz foobar "bazbaz" .\"zabzab" if exist foo (echo foo created) else echo foo not created! if exist bar (echo bar created) else echo bar not created! if exist foobar (echo foobar created) else echo foobar not created! if exist bar\baz (echo bar\baz created) else echo bar\baz not created! if exist bazbaz (echo bazbaz created) else echo bazbaz not created! if exist zabzab (echo zabzab created) else echo zabzab not created! cd .. & rd /s/q foobaz call :setError 0 mkdir foo\* echo mkdir foo\* errorlevel %ErrorLevel% if exist foo (rmdir foo & echo ok, foo created ) else ( echo bad, foo not created ) echo ------------ Testing rmdir ------------ call :setError 0 rem rd and rmdir are synonymous mkdir foobar rmdir foobar echo %ErrorLevel% if not exist foobar echo dir removed mkdir foobar rd foobar echo %ErrorLevel% if not exist foobar echo dir removed rem Removing nonexistent directory rmdir foobar echo %ErrorLevel% rem Removing single-level directories echo > foo rmdir foo echo %ErrorLevel% if exist foo echo file not removed del foo mkdir foo echo > foo\bar rmdir foo echo %ErrorLevel% if exist foo echo non-empty dir not removed del foo\bar mkdir foo\bar rmdir foo echo %ErrorLevel% if exist foo echo non-empty dir not removed rmdir foo\bar rmdir foo rem Recursive rmdir mkdir foo\bar\baz rmdir /s /Q foo if not exist foo ( echo recursive rmdir succeeded ) else ( rd foo\bar\baz rd foo\bar rd foo ) mkdir foo\bar\baz echo foo > foo\bar\brol rmdir /s /Q foo 2>&1 if not exist foo ( echo recursive rmdir succeeded ) else ( rd foo\bar\baz del foo\bar\brol rd foo\bar rd foo ) rem multiples directories at once mkdir foobaz & cd foobaz mkdir foo mkdir bar\baz mkdir foobar rd /s/q foo bar foobar if not exist foo (echo foo removed) else echo foo not removed! if not exist bar (echo bar removed) else echo bar not removed! if not exist foobar (echo foobar removed) else echo foobar not removed! if not exist bar\baz (echo bar\baz removed) else echo bar\baz not removed! cd .. & rd /s/q foobaz echo ------------ Testing pushd/popd ------------ cd echo --- popd is no-op when dir stack is empty popd cd echo --- pushing non-existing dir pushd foobar cd echo --- basic behaviour mkdir foobar\baz pushd foobar cd popd cd pushd foobar pushd baz cd popd cd pushd baz popd cd popd cd pushd . cd foobar\baz pushd .. cd popd popd cd rd /s/q foobar echo ------------ Testing attrib ------------ rem FIXME Add tests for archive, hidden and system attributes + mixed attributes modifications mkdir foobar & cd foobar echo foo original contents> foo attrib foo echo > bar echo --- read-only attribute rem Read-only files cannot be altered or deleted, unless forced attrib +R foo attrib foo dir /Ar /B echo bar>> foo type foo del foo > NUL 2>&1 if exist foo ( echo Read-only file not deleted ) else ( echo Should not delete read-only file! ) del /F foo if not exist foo ( echo Read-only file forcibly deleted ) else ( echo Should delete read-only file with del /F! attrib -r foo del foo ) cd .. & rd /s/q foobar echo --- recursive behaviour mkdir foobar\baz & cd foobar echo > level1 echo > whatever echo > baz\level2 attrib baz\level2 cd .. attrib +R l*vel? /S > nul 2>&1 cd foobar attrib level1 attrib baz\level2 echo > bar attrib bar cd .. & rd /s/q foobar echo --- folders processing mkdir foobar attrib foobar cd foobar mkdir baz echo toto> baz\toto attrib +r baz /s /d > nul 2>&1 attrib baz attrib baz\toto echo lulu>>baz\toto type baz\toto echo > baz\lala rem Oddly windows allows file creation in a read-only directory... if exist baz\lala (echo file created in read-only dir) else echo file not created cd .. & rd /s/q foobar echo ------------ Testing assoc ------------ rem FIXME Can't test error messages in the current test system, so we have to use some kludges rem FIXME Revise once || conditional execution is fixed mkdir foobar & cd foobar echo --- setting association assoc .foo > baz type baz echo --- assoc .foo=bar assoc .foo rem association set system-wide echo @echo off> tmp.cmd echo echo +++>> tmp.cmd echo assoc .foo>> tmp.cmd cmd /c tmp.cmd echo --- resetting association assoc .foo= assoc .foo > baz type baz echo --- rem association removal set system-wide cmd /c tmp.cmd > baz type baz echo --- cd .. & rd /s/q foobar echo ------------ Testing ftype ------------ rem FIXME Can't test error messages in the current test system, so we have to use some kludges rem FIXME Revise once || conditional execution is fixed mkdir foobar & cd foobar echo --- setting association ftype footype> baz type baz echo --- ftype footype=foo_opencmd assoc .foo=footype ftype footype rem association set system-wide echo @echo off> tmp.cmd echo echo +++>> tmp.cmd echo ftype footype>> tmp.cmd cmd /c tmp.cmd echo --- resetting association assoc .foo= rem Removing a file type association doesn't work on XP due to a bug, so a workaround is needed setlocal EnableDelayedExpansion set WINE_FOO=original value ftype footype= ftype footype > baz for /F %%i in ('type baz') do (set WINE_FOO=buggyXP) rem Resetting actually works on wine/NT4, but is reported as failing due to the peculiar test (and non-support for EnabledDelayedExpansion) rem FIXME Revisit once a grep-like program like ftype is implemented rem (e.g. to check baz's size using dir /b instead) echo !WINE_FOO! rem cleanup registry echo REGEDIT4> regCleanup.reg echo.>> regCleanup.reg echo [-HKEY_CLASSES_ROOT\footype]>> regCleanup.reg regedit /s regCleanup.reg set WINE_FOO= endlocal cd .. & rd /s/q foobar echo ------------ Testing CALL ------------ mkdir foobar & cd foobar echo --- external script echo echo foo %%1> foo.cmd call foo call foo.cmd 8 echo echo %%1 %%2 > foo.cmd call foo.cmd foo call foo.cmd foo bar call foo.cmd foo "" call foo.cmd "" bar call foo.cmd foo '' call foo.cmd '' bar del foo.cmd echo --- internal routines call :testRoutine :testRoutine goto :endTestRoutine :testRoutine echo bar %1 goto :eof :endTestRoutine call :testRoutineArgs foo call :testRoutineArgs foo bar call :testRoutineArgs foo "" call :testRoutineArgs "" bar call :testRoutineArgs foo '' call :testRoutineArgs '' bar goto :endTestRoutineArgs :testRoutineArgs echo %1 %2 goto :eof :endTestRoutineArgs echo --- with builtins call mkdir foo echo %ErrorLevel% if exist foo (echo foo created) else echo foo should exist! rmdir foo set WINE_FOOBAZ_VAR=foobaz call echo Should expand %WINE_FOOBAZ_VAR% set WINE_FOOBAZ_VAR= echo>batfile call dir /b echo>robinfile if 1==1 call del batfile dir /b if exist batfile echo batfile shouldn't exist rem ... but not for 'if' or 'for' call if 1==1 echo bar 2> nul echo %ErrorLevel% call :setError 0 call for %%i in (foo bar baz) do echo %%i 2> nul echo %ErrorLevel% rem First look for programs in the path before trying a builtin echo echo non-builtin dir> dir.cmd call dir /b del dir.cmd rem The below line equates to call (, which does nothing, then the rem subsequent lines are executed. call ( echo Line one echo Line two ) rem The below line equates to call if, which always fails, then the rem subsequent lines are executed. Note cmd.exe swallows all lines rem starting with ) call if 1==1 ( echo Get if ) else ( echo ... and else! ) call call call echo passed cd .. & rd /s/q foobar echo ------------ Testing SHIFT ------------ call :shiftFun p1 p2 p3 p4 p5 goto :endShiftFun :shiftFun echo '%1' '%2' '%3' '%4' '%5' shift echo '%1' '%2' '%3' '%4' '%5' shift@tab@ /1 echo '%1' '%2' '%3' '%4' '%5' shift /2 echo '%1' '%2' '%3' '%4' '%5' shift /-1 echo '%1' '%2' '%3' '%4' '%5' shift /0 echo '%1' '%2' '%3' '%4' '%5' goto :eof :endShiftFun echo ------------ Testing cmd invocation ------------ rem FIXME: only a stub ATM echo --- a batch file can delete itself echo del foo.cmd>foo.cmd cmd /q /c foo.cmd if not exist foo.cmd ( echo file correctly deleted ) else ( echo file should be deleted! del foo.cmd ) echo --- a batch file can alter itself echo echo bar^>foo.cmd>foo.cmd cmd /q /c foo.cmd > NUL 2>&1 if exist foo.cmd ( type foo.cmd del foo.cmd ) else ( echo file not created! ) echo ---------- Testing copy md foobar2 cd foobar2 rem Note echo adds 0x0d 0x0a on the end of the line in the file echo AAA> file1 echo BBBBBB> file2 echo CCCCCCCCC> file3 md dir1 goto :testcopy :CheckExist if exist "%1" ( echo Passed: Found expected %1 ) else ( echo Failed: Did not find expected %1 ) del /q "%1" >nul 2>&1 shift if not "%1"=="" goto :CheckExist goto :eof :CheckNotExist if not exist "%1" ( echo Passed: Did not find %1 ) else ( echo Failed: Unexpectedly found %1 del /q "%1" >nul 2>&1 ) shift if not "%1"=="" goto :CheckNotExist goto :eof rem Note: No way to check file size on NT4 so skip the test :CheckFileSize if not exist "%1" ( echo Failed: File missing when requested filesize check [%2] goto :ContinueFileSizeChecks ) for %%i in (%1) do set WINE_filesize=%%~zi if "%WINE_filesize%"=="%2" ( echo Passed: file size check on %1 [%WINE_filesize%] ) else ( if "%WINE_filesize%"=="%%~zi" ( echo Skipping file size check on NT4 ) else ( echo Failed: file size check on %1 [%WINE_filesize% != %2] ) ) :ContinueFileSizeChecks shift shift if not "%1"=="" goto :CheckFileSize goto :eof :testcopy rem ----------------------- rem Simple single file copy rem ----------------------- rem Simple single file copy, normally used syntax copy file1 dummy.file >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist dummy.file rem Simple single file copy, destination supplied as two forms of directory copy file1 dir1 >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist dir1\file1 copy file1 dir1\ >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist dir1\file1 rem Simple single file copy, destination supplied as fully qualified destination copy file1 dir1\file99 >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist dir1\file99 rem Simple single file copy, destination not supplied cd dir1 copy ..\file1 >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist file1 cd .. rem Simple single file copy, destination supplied as nonexistent directory copy file1 dir2\ >nul 2>&1 if not errorlevel 1 echo Incorrect errorlevel call :CheckNotExist dir2 dir2\file1 rem ----------------------- rem Wildcarded copy rem ----------------------- rem Simple single file copy, destination supplied as two forms of directory copy file? dir1 >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist dir1\file1 dir1\file2 dir1\file3 copy file* dir1\ >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist dir1\file1 dir1\file2 dir1\file3 rem Simple single file copy, destination not supplied cd dir1 copy ..\file*.* >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist file1 file2 file3 cd .. rem Simple wildcarded file copy, destination supplied as nonexistent directory copy file? dir2\ >nul 2>&1 if not errorlevel 1 echo Incorrect errorlevel call :CheckNotExist dir2 dir2\file1 dir2\file2 dir2\file3 rem ------------------------------------------------ rem Confirm overwrite works (cannot test prompting!) rem ------------------------------------------------ copy file1 testfile >nul 2>&1 copy /y file2 testfile >nul 2>&1 call :CheckExist testfile rem ------------------------------------------------ rem Test concatenation rem ------------------------------------------------ rem simple case, no wildcards copy file1+file2 testfile >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist testfile rem simple case, wildcards, no concatenation copy file* testfile >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist testfile rem simple case, wildcards, and concatenation echo ddddd > fred copy file*+fred testfile >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist testfile rem simple case, wildcards, and concatenation copy fred+file* testfile >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist testfile rem Calculate destination name copy fred+file* dir1 >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist dir1\fred rem Calculate destination name copy fred+file* dir1\ >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist dir1\fred rem Calculate destination name (none supplied) cd dir1 copy ..\fred+..\file* >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist fred copy ..\fr*+..\file1 >nul 2>&1 if errorlevel 1 echo Incorrect errorlevel call :CheckExist fred cd .. rem ****************************************************************** rem ASCII and BINARY tests rem Note: hard coded numbers deliberate because need to ensure whether rem an additional EOF has been added or not. There is no way to handle rem EOFs in batch, so assume if a single byte appears, it's an EOF! rem ****************************************************************** rem Confirm original sizes of file1,2,3 call :CheckFileSize file1 5 file2 8 file3 11 cd dir1 rem ---------------------------------------------- rem Show concatenation defaults copy to ascii mode rem ---------------------------------------------- rem Simple default copy source to destination (should not append EOF 5) copy ..\file1 file1_default >nul 2>&1 call :CheckFileSize file1_default 5 rem Simple binary copy source to destination (should not append EOF 5) copy /b ..\file1 file1_default2 >nul 2>&1 call :CheckFileSize file1_default2 5 rem Simple ascii copy source to destination (should append EOF 5+1, 8+1, 11+1) copy /a ..\file1 file1_plus_eof >nul 2>&1 call :CheckFileSize file1_plus_eof 6 copy /a ..\file2 file2_plus_eof >nul 2>&1 call :CheckFileSize file2_plus_eof 9 copy /a ..\file3 file3_plus_eof >nul 2>&1 call :CheckFileSize file3_plus_eof 12 rem Concat 2 files, ascii mode - (only one EOF on the end 5+8+1) copy /a ..\file1+..\file2 file12_plus_eof >nul 2>&1 call :CheckFileSize file12_plus_eof 14 rem Concat 2 files, binary mode - (no EOF on the end 5+8) copy /b ..\file1+..\file2 file12_no_eof >nul 2>&1 call :CheckFileSize file12_no_eof 13 rem Concat 2 files, default mode - (one EOF on the end 5+8+1) copy ..\file1+..\file2 file12_eof2 >nul 2>&1 call :CheckFileSize file12_eof2 14 rem -------------------------------------------------------------- rem Show ascii source copy stops at first EOF, binary does the lot rem -------------------------------------------------------------- copy file1_plus_eof /b file1_binary_srccopy /b >nul 2>&1 call :CheckFileSize file1_binary_srccopy 6 copy file1_plus_eof /a file1_ascii_srccopy /b >nul 2>&1 call :CheckFileSize file1_ascii_srccopy 5 rem -------------------------------------------------------------- rem Show results of concatenating files (ending in EOFs) and /a /b rem -------------------------------------------------------------- rem Default and ascii copy reads as ascii, stripping EOFs, so 6-1 + 9-1 + 12-1 + 1 copy file1_plus_eof+file2_plus_eof+file3_plus_eof file123_default_copy >nul 2>&1 call :CheckFileSize file123_default_copy 25 copy /a file1_plus_eof+file2_plus_eof+file3_plus_eof file123_ascii_copy >nul 2>&1 call :CheckFileSize file123_ascii_copy 25 rem In binary mode, we get 3 eofs, so 6 + 9 + 12 = 27 copy /b file1_plus_eof + file2_plus_eof + file3_plus_eof file123_binary_copy >nul 2>&1 call :CheckFileSize file123_binary_copy 27 rem We can select which we want the eofs from by postfixing it with /a or /b rem so here have first and third with eof, second as ascii 6 + 9-1 + 12 copy file1_plus_eof /b + file2_plus_eof /a + file3_plus_eof /b file123_mixed_copy1 >nul 2>&1 call :CheckFileSize file123_mixed_copy1 26 rem By postfixing the destination with /a, we ask for an ascii destination which appends EOF rem so here have first and third with eof, second as ascii 6 + 9-1 + 12 + extra EOF rem Note the delta between this and the previous one also shows that the destination rem ascii/binary is inherited from the last /a or /b on the line copy file1_plus_eof /b + file2_plus_eof /a + file3_plus_eof /b file123_mixed_copy2 /a >nul 2>&1 call :CheckFileSize file123_mixed_copy2 27 rem so here have second with eof, first and third as ascii 6-1 + 9 + 12-1 rem Note the delta between the next two also shows that the destination ascii/binary is rem inherited from the last /a or /b on the line, so the first has an extra EOF copy file1_plus_eof /a + file2_plus_eof /b + file3_plus_eof /a file123_mixed_copy3 >nul 2>&1 call :CheckFileSize file123_mixed_copy3 26 copy file1_plus_eof /a + file2_plus_eof /b + file3_plus_eof /a file123_mixed_copy4 /b >nul 2>&1 call :CheckFileSize file123_mixed_copy4 25 rem ------------------------------------------------------------------------------------------- rem This shows when concatenating, an ascii destination always adds on an EOF but when we rem are not concatenating, it's a direct copy regardless of destination if being read as binary rem ------------------------------------------------------------------------------------------- rem All 3 have eof's, plus an extra = 6 + 9 + 12 + eof copy /b file1_plus_eof + file2_plus_eof + file3_plus_eof file123_mixed_copy5 /a >nul 2>&1 call :CheckFileSize file123_mixed_copy5 28 rem All 2 have eof's, plus an extra = 6 + 12 + eof copy /b file1_plus_eof + file3_plus_eof file123_mixed_copy6 /a >nul 2>&1 call :CheckFileSize file123_mixed_copy6 19 rem One file has EOF, but doesn't get an extra one, i.e. 6 copy /b file1_plus_eof file123_mixed_copy7 /a >nul 2>&1 call :CheckFileSize file123_mixed_copy7 6 rem Syntax means concatenate so ascii destination kicks in copy /b file1_plus_eof* file123_mixed_copy8 /a >nul 2>&1 call :CheckFileSize file123_mixed_copy8 7 del *.* /q cd .. rem --------------------------------------- rem Error combinations rem --------------------------------------- rem Specify source directory but name is a file call :setError 0 copy file1\ dir1\ >NUL 2>&1 if errorlevel 1 echo Passed: errorlevel invalid check 1 if not errorlevel 1 echo Failed: errorlevel invalid check 1 call :CheckNotExist dir1\file1 rem Overwrite same file call :setError 0 copy file1 file1 >NUL 2>&1 if errorlevel 1 echo Passed: errorlevel invalid check 2 if not errorlevel 1 echo Failed: errorlevel invalid check 2 rem Supply same file identified as a directory call :setError 0 copy file1 file1\ >NUL 2>&1 if errorlevel 1 echo Passed: errorlevel invalid check 3 if not errorlevel 1 echo Failed: errorlevel invalid check 3 cd .. rd foobar2 /s /q echo ------------ Testing setlocal/endlocal ------------ call :setError 0 rem Note: setlocal EnableDelayedExpansion already tested in the variable delayed expansion test section mkdir foobar & cd foobar echo --- enable/disable extensions setlocal DisableEXTensions echo ErrLev: %ErrorLevel% endlocal echo ErrLev: %ErrorLevel% echo @echo off> tmp.cmd echo echo ErrLev: %%ErrorLevel%%>> tmp.cmd rem Enabled by default cmd /C tmp.cmd cmd /E:OfF /C tmp.cmd cmd /e:oN /C tmp.cmd rem FIXME: creating file before setting envvar value to prevent parsing-time evaluation (due to EnableDelayedExpansion not being implemented/available yet) echo --- setlocal with corresponding endlocal rem %CD% does not tork on NT4 so use the following workaround for /d %%i in (.) do set WINE_CURDIR=%%~dpnxi echo @echo off> test.cmd echo echo %%WINE_VAR%%>> test.cmd echo setlocal>> test.cmd echo set WINE_VAR=localval>> test.cmd echo md foobar2>> test.cmd echo cd foobar2>> test.cmd echo echo %%WINE_VAR%%>> test.cmd echo for /d %%%%i in (.) do echo %%%%~dpnxi>> test.cmd echo endlocal>> test.cmd echo echo %%WINE_VAR%%>> test.cmd echo for /d %%%%i in (.) do echo %%%%~dpnxi>> test.cmd set WINE_VAR=globalval call test.cmd echo %WINE_VAR% for /d %%i in (.) do echo %%~dpnxi cd /d %WINE_CURDIR% rd foobar2 set WINE_VAR= echo --- setlocal with no corresponding endlocal echo @echo off> test.cmd echo echo %%WINE_VAR%%>> test.cmd echo setlocal>> test.cmd echo set WINE_VAR=localval>> test.cmd echo md foobar2>> test.cmd echo cd foobar2>> test.cmd echo echo %%WINE_VAR%%>> test.cmd echo for /d %%%%i in (.) do echo %%%%~dpnxi>> test.cmd set WINE_VAR=globalval rem %CD% does not tork on NT4 so use the following workaround for /d %%i in (.) do set WINE_CURDIR=%%~dpnxi call test.cmd echo %WINE_VAR% for /d %%i in (.) do echo %%~dpnxi cd /d %WINE_CURDIR% rd foobar2 set WINE_VAR= echo --- setlocal within same batch program set WINE_var1=one set WINE_var2= set WINE_var3= rem %CD% does not tork on NT4 so use the following workaround for /d %%i in (.) do set WINE_CURDIR=%%~dpnxi setlocal set WINE_var2=two mkdir foobar2 cd foobar2 setlocal set WINE_var3=three if "%WINE_var1%"=="one" echo Var1 ok 1 if "%WINE_var2%"=="two" echo Var2 ok 2 if "%WINE_var3%"=="three" echo Var3 ok 3 for /d %%i in (.) do set WINE_curdir2=%%~dpnxi if "%WINE_curdir2%"=="%WINE_CURDIR%\foobar2" echo Directory is ok 1 endlocal if "%WINE_var1%"=="one" echo Var1 ok 1 if "%WINE_var2%"=="two" echo Var2 ok 2 if "%WINE_var3%"=="" echo Var3 ok 3 for /d %%i in (.) do set WINE_curdir2=%%~dpnxi if "%WINE_curdir2%"=="%WINE_CURDIR%\foobar2" echo Directory is ok 2 endlocal if "%WINE_var1%"=="one" echo Var1 ok 1 if "%WINE_var2%"=="" echo Var2 ok 2 if "%WINE_var3%"=="" echo Var3 ok 3 for /d %%i in (.) do set WINE_curdir2=%%~dpnxi if "%WINE_curdir2%"=="%WINE_CURDIR%" echo Directory is ok 3 rd foobar2 /s /q set WINE_var1= echo --- Mismatched set and end locals mkdir foodir2 2>nul mkdir foodir3 2>nul mkdir foodir4 2>nul rem %CD% does not tork on NT4 so use the following workaround for /d %%i in (.) do set WINE_curdir=%%~dpnxi echo @echo off> 2set1end.cmd echo echo %%WINE_var%%>> 2set1end.cmd echo setlocal>> 2set1end.cmd echo set WINE_VAR=2set1endvalue1>> 2set1end.cmd echo cd ..\foodir3>> 2set1end.cmd echo setlocal>> 2set1end.cmd echo set WINE_VAR=2set1endvalue2>> 2set1end.cmd echo cd ..\foodir4>> 2set1end.cmd echo endlocal>> 2set1end.cmd echo echo %%WINE_var%%>> 2set1end.cmd echo for /d %%%%i in (.) do echo %%%%~dpnxi>> 2set1end.cmd echo @echo off> 1set2end.cmd echo echo %%WINE_var%%>> 1set2end.cmd echo setlocal>> 1set2end.cmd echo set WINE_VAR=1set2endvalue1>> 1set2end.cmd echo cd ..\foodir3>> 1set2end.cmd echo endlocal>> 1set2end.cmd echo echo %%WINE_var%%>> 1set2end.cmd echo for /d %%%%i in (.) do echo %%%%~dpnxi>> 1set2end.cmd echo endlocal>> 1set2end.cmd echo echo %%WINE_var%%>> 1set2end.cmd echo for /d %%%%i in (.) do echo %%%%~dpnxi>> 1set2end.cmd echo --- Extra setlocal in called batch set WINE_VAR=value1 rem -- setlocal1 == this batch, should never be used inside a called routine setlocal set WINE_var=value2 cd foodir2 call %WINE_CURDIR%\2set1end.cmd echo Finished: echo %WINE_VAR% for /d %%i in (.) do echo %%~dpnxi endlocal echo %WINE_VAR% for /d %%i in (.) do echo %%~dpnxi cd /d %WINE_CURDIR% echo --- Extra endlocal in called batch set WINE_VAR=value1 rem -- setlocal1 == this batch, should never be used inside a called routine setlocal set WINE_var=value2 cd foodir2 call %WINE_CURDIR%\1set2end.cmd echo Finished: echo %WINE_VAR% for /d %%i in (.) do echo %%~dpnxi endlocal echo %WINE_VAR% for /d %%i in (.) do echo %%~dpnxi cd /d %WINE_CURDIR% echo --- endlocal in called function rather than batch pgm is ineffective @echo off set WINE_var=1 set WINE_var2=1 setlocal set WINE_var=2 call :endlocalroutine echo %WINE_var% endlocal echo %WINE_var% goto :endlocalfinished :endlocalroutine echo %WINE_var% endlocal echo %WINE_var% setlocal set WINE_var2=2 endlocal echo %WINE_var2% endlocal echo %WINE_var% echo %WINE_var2% goto :eof :endlocalfinished echo %WINE_var% set WINE_var= set WINE_var2= cd .. & rd /q/s foobar echo ------------ Testing Errorlevel ------------ rem WARNING: Do *not* add tests using ErrorLevel after this section should_not_exist 2> nul > nul echo %ErrorLevel% rem nt 4.0 doesn't really support a way of setting errorlevel, so this is weak rem See http://www.robvanderwoude.com/exit.php call :setError 1 echo %ErrorLevel% if errorlevel 2 echo errorlevel too high, bad if errorlevel 1 echo errorlevel just right, good if errorlevel 01 echo errorlevel with leading zero just right, good if errorlevel -1 echo errorlevel with negative number OK if errorlevel 0x1 echo hexa should not be recognized! if errorlevel 1a echo invalid error level recognized! call :setError 0 echo abc%ErrorLevel%def if errorlevel 1 echo errorlevel nonzero, bad if not errorlevel 1 echo errorlevel zero, good if not errorlevel 0x1 echo hexa should not be recognized! if not errorlevel 1a echo invalid error level recognized! rem Now verify that setting a real variable hides its magic variable set errorlevel=7 echo %ErrorLevel% should be 7 if errorlevel 7 echo setting var worked too well, bad call :setError 3 echo %ErrorLevel% should still be 7 echo ------------ Testing GOTO ------------ if a==a goto dest1 echo FAILURE at dest 1 :dest1 echo goto with no leading space worked if a==a goto :dest1b echo FAILURE at dest 1b :dest1b echo goto with colon and no leading space worked if b==b goto dest2 echo FAILURE at dest 2 :dest2 echo goto with a leading space worked if c==c goto dest3 echo FAILURE at dest 3 :dest3 echo goto with a leading tab worked if d==d goto dest4 echo FAILURE at dest 4 :dest4@space@ echo goto with a following space worked if e==e goto dest5 echo FAILURE at dest 5 :dest5&& echo FAILURE echo goto with following amphersands worked del failure.txt >nul 2>&1 if f==f goto dest6 echo FAILURE at dest 6 :dest6>FAILURE.TXT if exist FAILURE.TXT echo FAILURE at dest 6 as file exists echo goto with redirections worked del FAILURE.TXT >nul 2>&1 :: some text that is ignored | dir >cmd_output | another test if exist cmd_output echo FAILURE at dest 6 as file exists echo Ignoring double colons worked del cmd_output >nul 2>&1 rem goto a label which does not exist issues an error message and rem acts the same as goto :EOF, and ensure ::label is never matched del testgoto.bat >nul 2>&1 echo goto :dest7 ^>nul 2^>^&1 >> testgoto.bat echo echo FAILURE at dest 7 - Should have not found label and issued an error plus ended the batch>> testgoto.bat echo ::dest7>> testgoto.bat echo echo FAILURE at dest 7 - Incorrectly went to label >> testgoto.bat call testgoto.bat del testgoto.bat >nul 2>&1 del testgoto.bat >nul 2>&1 echo goto ::dest8 ^>nul 2^>^&1 >> testgoto.bat echo echo FAILURE at dest 8 - Should have not found label and issued an error plus ended the batch>> testgoto.bat echo ::dest8>> testgoto.bat echo echo FAILURE at dest 8 - Incorrectly went to label >> testgoto.bat call testgoto.bat del testgoto.bat >nul 2>&1 if g==g goto dest9 echo FAILURE at dest 9 :dest91 echo FAILURE at dest 91 @ : dest9>rubbish echo label with mixed whitespace and no echo worked if h==h goto :dest10:this is ignored echo FAILURE at dest 10 :dest10:this is also ignored echo Correctly ignored trailing information echo ------------ Testing PATH ------------ set WINE_backup_path=%path% set path=original path path try2 path path=try3 path set path=%WINE_backup_path% set WINE_backup_path= echo ------------ Testing combined CALLs/GOTOs ------------ echo @echo off>foo.cmd echo goto :eof>>foot.cmd echo :eof>>foot.cmd echo echo world>>foo.cmd echo @echo off>foot.cmd echo echo cheball>>foot.cmd echo.>>foot.cmd echo call :bar>>foot.cmd echo if "%%1"=="deleteMe" (del foot.cmd)>>foot.cmd echo goto :eof>>foot.cmd echo.>>foot.cmd echo :bar>>foot.cmd echo echo barbare>>foot.cmd echo goto :eof>>foot.cmd call foo.cmd call foot call :bar del foo.cmd rem Script execution stops after the following line foot deleteMe call :foo call :foot goto :endFuns :foot echo foot :foo echo foo goto :eof :endFuns :bar echo bar call :foo :baz echo baz goto :eof echo Final message is not output since earlier 'foot' processing stops script execution echo Do NOT add any tests below this line echo ------------ Done, jumping to EOF ----------- goto :eof rem Subroutine to set errorlevel and return rem in windows nt 4.0, this always sets errorlevel 1, since /b isn't supported :setError exit /B %1 rem This line runs under cmd in windows NT 4, but not in more modern versions.