programs/cmd/tests/test_builtins.cmd

   1 echo Tests for cmd's builtin commands
   2
   3 @echo on
   4 echo ------------ Testing 'echo' [ON] ------------
   5 echo word
   6 echo 'singlequotedword'
   7 echo "doublequotedword"
   8 @echo at-echoed-word
   9 echo "/?"
  10 echo.
  11 echo .
  12 echo.word
  13 echo .word
  14 echo:
  15 echo :
  16 echo:word
  17 echo :word
  18 echo off now
  19 echo word@space@
  20 echo word@space@@space@
  21  echo word
  22 echo@tab@word
  23 echo@tab@word @tab@
  24 echo@tab@word@tab@@space@
  25 @tab@echo word
  26 echo @tab@word
  27 echo  @tab@word
  28 echo@tab@@tab@word
  29 echo @tab@ on @space@
  30
  31 @echo off
  32 echo off@tab@@space@
  33 @echo noecho1
  34  @echo noecho2
  35 @@@@@echo echo3
  36 echo ------------ Testing 'echo' [OFF] ------------
  37 echo word
  38 echo 'singlequotedword'
  39 echo "doublequotedword"
  40 @echo at-echoed-word
  41 echo "/?"
  42 echo.
  43 echo .
  44 echo.word
  45 echo .word
  46 echo:
  47 echo :
  48 echo:word
  49 echo :word
  50 echo on again
  51 echo word@space@
  52 echo word@space@@space@
  53  echo word
  54 echo@tab@word
  55 echo@tab@word @tab@
  56 echo@tab@word@tab@@space@
  57 @tab@echo word
  58 echo @tab@word
  59 echo  @tab@word
  60 echo@tab@@tab@word
  61
  62 echo ------------ Testing mixed echo modes ------------
  63 echo @echo on> mixedEchoModes.cmd
  64 echo if 1==1 echo foo>> mixedEchoModes.cmd
  65 echo if 1==1 @echo bar>> mixedEchoModes.cmd
  66 echo @echo off>> mixedEchoModes.cmd
  67 echo if 1==1 echo foo2>> mixedEchoModes.cmd
  68 echo if 1==1 @echo bar2>> mixedEchoModes.cmd
  69 type mixedEchoModes.cmd
  70 cmd /c mixedEchoModes.cmd
  71 del mixedEchoModes.cmd
  72
  73 echo ------------ Testing parameterization ------------
  74 call :TestParm a b c
  75 call :TestParm "a b c"
  76 call :TestParm "a b"\c
  77 call :TestParm a=~`+,.{}!+b
  78 call :TestParm a;b
  79 call :TestParm "a;b"
  80 call :TestParm a^;b
  81 call :TestParm a[b]{c}(d)e
  82 call :TestParm a&echo second line
  83 call :TestParm a   b,,,c
  84 call :TestParm a==b;;c
  85 call :TestParm       a,,,  b
  86 goto :TestRem
  87
  88 :TestParm
  89 echo '%1', '%2', '%3'
  90 goto :eof
  91
  92 :TestRem
  93 echo ------------ Testing rem ------------
  94 rem Hello
  95 rem  Hello
  96 rem   Hello || foo
  97 rem echo lol
  98 rem echo foo & echo bar
  99 rem @tab@  Hello
 100 rem@tab@  Hello
 101 rem@tab@echo foo & echo bar
 102 @echo on
 103 rem Hello
 104 rem  Hello
 105 rem   Hello || foo
 106 rem echo lol
 107 rem echo foo & echo bar
 108 rem @tab@  Hello
 109 rem@tab@  Hello
 110 rem@tab@echo foo & echo bar
 111 @echo off
 112
 113 echo ------------ Testing redirection operators ------------
 114 mkdir foobar & cd foobar
 115 echo --- stdout redirection
 116 echo foo>foo
 117 type foo
 118 echo foo 1> foo
 119 type foo
 120 echo foo@tab@1> foo
 121 type foo
 122 echo foo 1>@tab@foo
 123 type foo
 124 echo foo@tab@1>@tab@foo
 125 type foo
 126 echo foo7 7> foo
 127 type foo
 128 echo foo9 9> foo
 129 type foo
 130 echo foo1> foo
 131 type foo
 132 echo foo11> foo
 133 type foo
 134 echo foo12> foo
 135 type foo
 136 echo foo13>"foo"
 137 type foo
 138 echo foo14>."\foo"
 139 type foo
 140 echo foo15>."\f"oo
 141 type foo
 142 del foo
 143 echo1>foo
 144 type foo
 145 echo --- stdout appending
 146 echo foo>foo
 147 echo foo >>foo
 148 type foo
 149 del foo
 150 echo foob >> foo
 151 type foo
 152 echo fooc 1>>foo
 153 type foo
 154 echo food1>>foo
 155 type foo
 156 echo food2>>"foo"
 157 type foo
 158 del foo
 159 echo food21>>foo
 160 type foo
 161 del foo
 162 echo foo> foo
 163 echo foo7 7>> foo || (echo not supported & del foo)
 164 if exist foo (type foo) else echo not supported
 165 echo --- redirections within IF statements
 166 if 1==1 echo foo1>bar
 167 type bar & del bar
 168 echo -----
 169 if 1==1 (echo foo2>bar) else echo baz2>bar
 170 type bar & del bar
 171 if 1==1 (echo foo3) else echo baz3>bar
 172 type bar || echo file does not exist, ok
 173 if 1==1 (echo foo4>bar) else echo baz4>bar
 174 type bar & del bar
 175 if 1==0 (echo foo5>bar) else echo baz5>bar
 176 type bar & del bar
 177 if 1==0 (echo foo6) else echo baz6 1>bar
 178 type bar & del bar
 179 if 1==0 (echo foo7 1>bar) else echo baz7>bar
 180 type bar & del bar
 181 if 1==0 (echo foo8 1>bar) else echo baz8>bak
 182 type bak
 183 if 1==1 (echo foo>bar & echo baz)
 184 type bar
 185 if 1==1 (
 186    echo foo>bar
 187    echo baz
 188 )
 189 type bar
 190 (if 1==1 (echo A) else echo B) > C
 191 type C
 192 (if 1==0 (echo A) else echo B) > C
 193 type C
 194 (if 1==0 (echo A > B) else echo C)
 195 cd .. & rd /s/q foobar
 196
 197 echo ------------ Testing circumflex escape character ------------
 198 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
 199 echo ^hell^o, world
 200 echo hell^o, world
 201 echo hell^^o, world
 202 echo hell^^^o, world
 203 echo hello^
 204 world
 205 echo hello^
 206
 207 world
 208 echo hello^
 209
 210
 211 echo finished
 212 mkdir foobar
 213 echo baz> foobar\baz
 214 type foobar\baz
 215 type foobar^\baz
 216 rd /s/q foobar
 217 echo foo ^| echo bar
 218 echo foo ^& echo bar
 219 call :setError 0
 220 echo bak ^&& echo baz 2> nul
 221 echo %ErrorLevel%
 222 echo foo ^> foo
 223 echo ^<> foo
 224 type foo
 225 del foo
 226 set FOO=oof
 227 echo ff^%FOO%
 228 set FOO=bar ^| baz
 229 set FOO
 230 rem FIXME: echoing %FOO% gives an error (baz not recognized) but prematurely
 231 rem exits the script on windows; redirecting stdout and/or stderr doesn't help
 232 echo %ErrorLevel%
 233 call :setError 0
 234 set FOO=bar ^^^| baz
 235 set FOO
 236 echo %FOO%
 237 echo %ErrorLevel%
 238 set FOO=
 239
 240 echo ------------ Testing 'set' ------------
 241 call :setError 0
 242 set FOOBAR 2> nul > nul
 243 echo %ErrorLevel%
 244 set FOOBAR =  baz
 245 echo %ErrorLevel%
 246 echo %FOOBAR%FOOBAR not defined
 247 echo %FOOBAR %
 248 set FOOBAR 2> nul
 249 set FOOBAR =  baz2
 250 echo %ErrorLevel%
 251 echo %fOObAr %
 252 set FOOBAR= bar
 253 echo %ErrorLevel%
 254 echo %FOOBAR%
 255 set FOO
 256 set FOOBAR=
 257 set FOOB
 258 echo %FOOBAR%FOOBAR not defined
 259 set FOOBAR =
 260 set FOOBA 2> nul > nul
 261 echo %ErrorLevel%
 262 set FOO=bar
 263 echo %FOO%
 264 set FOO=foo
 265 set BAR=bar
 266 echo %FOO%%BAR%
 267 set BAR=
 268 set FOO=
 269 set FOO=%FOO%
 270 echo %FOO%FOO not defined
 271 set BAZ%=bazbaz
 272 set BA
 273 echo %BAZ%%
 274 set BAZ%=
 275 echo set "FOO=bar" should not include the quotes in the variable value
 276 set "FOO=bar"
 277 echo %FOO%
 278 set@tab@FOO=foo
 279 echo %FOO%
 280 set@tab@FOO=
 281 echo '%FOO%'
 282 set FOO=foo@space@
 283 echo '%FOO%'
 284 set FOO=foo@tab@
 285 echo '%FOO%'
 286 set FOO=
 287
 288 echo ------------ Testing variable expansion ------------
 289 call :setError 0
 290 echo ~dp0 should be directory containing batch file
 291 echo %~dp0
 292 mkdir dummydir
 293 cd dummydir
 294 echo %~dp0
 295 cd ..
 296 rmdir dummydir
 297 echo CD value %CD%
 298 echo %%
 299 echo P%
 300 echo %P
 301 echo %UNKNOWN%S
 302 echo P%UNKNOWN%
 303 echo P%UNKNOWN%S
 304 echo %ERRORLEVEL
 305 echo %ERRORLEVEL%
 306 echo %ERRORLEVEL%%ERRORLEVEL%
 307 echo %ERRORLEVEL%ERRORLEVEL%
 308 echo %ERRORLEVEL%%
 309 echo %ERRORLEVEL%%%
 310 echo P%ERRORLEVEL%
 311 echo %ERRORLEVEL%S
 312 echo P%ERRORLEVEL%S
 313
 314 echo ------------ Testing variable substrings ------------
 315 set VAR=qwerty
 316 echo %VAR:~0,1%
 317 echo %VAR:~0,3%
 318 echo %VAR:~2,2%
 319 echo '%VAR:~-2,3%'
 320 echo '%VAR:~-2,1%'
 321 echo %VAR:~2,-1%
 322 echo %VAR:~2,-3%
 323 echo '%VAR:~-2,-4%'
 324 echo %VAR:~-3,-2%
 325 set VAR=
 326
 327 echo ------------ Testing variable substitution ------------
 328 echo --- in FOR variables
 329 for %%i in ("A B" C) do echo %%i
 330 rem check works when prefix with @
 331 @for %%i in ("A B" C) do echo %%i
 332 rem quotes removal
 333 for %%i in ("A B" C) do echo '%%~i'
 334 rem fully qualified path
 335 for %%f in ("C D" E) do echo %%~ff
 336 rem drive letter
 337 for %%i in ("F G" H) do echo %%~di
 338 rem path
 339 for %%d in ("I J" K) do echo %%~pd
 340 rem filename
 341 for %%i in ("L M" N) do echo %%~ni
 342 rem file extension
 343 for %%i in ("O. P.OOL" Q.TABC hello) do echo '%%~xi'
 344 rem path with short path names
 345 for %%I in ("R S" T ABCDEFGHIJK.LMNOP) do echo '%%~sI'
 346 rem file attribute
 347 for %%i in ("U V" W) do echo '%%~ai'
 348 echo foo> foo
 349 for %%i in (foo) do echo '%%~ai'
 350 for %%i in (foo) do echo '%%~zi'
 351 del foo
 352 rem file date/time
 353 rem Not fully testable, until we can grep dir's output to get foo's creation time in an envvar...
 354 for %%i in ("a b" c) do echo '%%~ti'
 355 rem file size
 356 rem Similar issues as above
 357 for %%i in ("a b" c) do echo '%%~zi'
 358 rem combined options
 359 for %%i in ("d e" f) do echo %%~dpi
 360 for %%i in ("g h" i) do echo %%~sdi
 361 for %%i in ("g h" i) do echo %%~dsi
 362 for %%i in ("j k" l.eh) do echo '%%~xsi'
 363
 364 echo --- in parameters
 365 for %%i in ("A B" C) do call :echoFun %%i
 366 rem quotes removal
 367 for %%i in ("A B" C) do call :echoFunQ %%i
 368 rem fully qualified path
 369 for %%f in ("C D" E) do call :echoFunF %%f
 370 rem drive letter
 371 for %%i in ("F G" H) do call :echoFunD %%i
 372 rem path
 373 for %%d in ("I J" K) do call :echoFunP %%d
 374 rem filename
 375 for %%i in ("L M" N) do call :echoFunN %%i
 376 rem file extension
 377 for %%i in ("O. P.OOL" Q.TABC hello) do call :echoFunX %%i
 378 rem path with short path names
 379 for %%I in ("R S" T ABCDEFGHIJK.LMNOP) do call :echoFunS %%I
 380 rem NT4 aborts whole script execution when encountering ~a, ~t and ~z substitutions, preventing full testing
 381 rem combined options
 382 for %%i in ("d e" f) do call :echoFunDP %%i
 383 for %%i in ("g h" i) do call :echoFunSD %%i
 384 for %%i in ("g h" i) do call :echoFunDS %%i
 385 for %%i in ("j k" l.eh) do call :echoFunXS %%i
 386
 387 goto :endEchoFuns
 388 :echoFun
 389 echo %1
 390 goto :eof
 391
 392 :echoFunQ
 393 echo '%~1'
 394 goto :eof
 395
 396 :echoFunF
 397 echo %~f1
 398 goto :eof
 399
 400 :echoFunD
 401 echo %~d1
 402 goto :eof
 403
 404 :echoFunP
 405 echo %~p1
 406 goto :eof
 407
 408 :echoFunN
 409 echo %~n1
 410 goto :eof
 411
 412 :echoFunX
 413 echo '%~x1'
 414 goto :eof
 415
 416 :echoFunS
 417 rem some NT4 workaround
 418 set VAR='%~s1'
 419 echo %VAR%
 420 set VAR=
 421 goto :eof
 422
 423 :echoFunDP
 424 echo %~dp1
 425 goto :eof
 426
 427 :echoFunSD
 428 echo %~sd1
 429 goto :eof
 430
 431 :echoFunDS
 432 echo %~ds1
 433 goto :eof
 434
 435 :echoFunXS
 436 echo '%~xs1'
 437 goto :eof
 438 :endEchoFuns
 439
 440 echo ------------ Testing variable delayed expansion ------------
 441 rem NT4 doesn't support this
 442 echo --- default mode (load-time expansion)
 443 set FOO=foo
 444 echo %FOO%
 445 echo !FOO!
 446 if %FOO% == foo (
 447     set FOO=bar
 448     if %FOO% == bar (echo bar) else echo foo
 449 )
 450
 451 set FOO=foo
 452 if %FOO% == foo (
 453     set FOO=bar
 454     if !FOO! == bar (echo bar) else echo foo
 455 )
 456
 457 echo --- runtime (delayed) expansion mode
 458 setlocal EnableDelayedExpansion
 459 set FOO=foo
 460 echo %FOO%
 461 echo !FOO!
 462 if %FOO% == foo (
 463     set FOO=bar
 464     if %FOO% == bar (echo bar) else echo foo
 465 )
 466
 467 set FOO=foo
 468 if %FOO% == foo (
 469     set FOO=bar
 470     if !FOO! == bar (echo bar) else echo foo
 471 )
 472 echo %ErrorLevel%
 473 setlocal DisableDelayedExpansion
 474 echo %ErrorLevel%
 475 set FOO=foo
 476 echo %FOO%
 477 echo !FOO!
 478 set FOO=
 479 echo --- using /V cmd flag
 480 echo @echo off> tmp.cmd
 481 echo set FOO=foo>> tmp.cmd
 482 echo echo %%FOO%%>> tmp.cmd
 483 echo echo !FOO!>> tmp.cmd
 484 echo set FOO=>> tmp.cmd
 485 cmd /V:ON /C tmp.cmd
 486 cmd /V:OfF /C tmp.cmd
 487 del tmp.cmd
 488
 489 echo ------------ Testing conditional execution ------------
 490 echo --- unconditional ampersand
 491 call :setError 123 & echo foo1
 492 echo bar2 & echo foo2
 493 mkdir foobar & cd foobar
 494 echo > foobazbar
 495 cd .. & rd /s/q foobar
 496 if exist foobazbar (
 497     echo foobar not deleted!
 498     cd ..
 499     rd /s/q foobar
 500 ) else echo foobar deleted
 501 echo --- on success conditional and
 502 call :setError 456 && echo foo3 > foo3
 503 if exist foo3 (
 504     echo foo3 created
 505     del foo3
 506 ) else echo foo3 not created
 507 echo bar4 && echo foo4
 508 echo --- on failure conditional or
 509 call :setError 789 || echo foo5
 510 echo foo6 || echo bar6 > bar6
 511 if exist bar6 (
 512     echo bar6 created
 513     del bar6
 514 )
 515
 516 echo ------------ Testing cd ------------
 517 mkdir foobar
 518 cd foobar
 519 echo blabla > singleFile
 520 dir /b
 521 echo Current dir: %CD%
 522 cd
 523 cd ..
 524 cd
 525 cd foobar@space@
 526 cd
 527 cd ..
 528 cd
 529 cd @space@foobar
 530 cd
 531 cd..
 532 cd
 533 cd foobar
 534 cd..@space@
 535 cd
 536 if not exist foobar (cd ..)
 537 cd foobar
 538 cd@tab@..@tab@@space@@tab@
 539 cd
 540 if not exist foobar (cd ..)
 541 cd foobar
 542 mkdir "bar bak"
 543 cd "bar bak"
 544 cd
 545 cd ..
 546 cd ".\bar bak"
 547 cd
 548 cd ..
 549 cd .\"bar bak"
 550 cd
 551 cd ..
 552 cd bar bak
 553 cd
 554 cd "bar bak@space@"@tab@@space@
 555 cd
 556 cd ..\..
 557 cd
 558 rd /Q/s foobar
 559 mkdir foobar
 560 cd /d@tab@foobar
 561 cd
 562 cd ..
 563 rd /q/s foobar
 564
 565 echo ------------ Testing type ------------
 566 echo bar> foobaz
 567 @echo on
 568 type foobaz
 569 echo ---
 570 @echo off
 571 type foobaz@tab@
 572 echo ---1
 573 type ."\foobaz"
 574 echo ---2
 575 type ".\foobaz"
 576 echo ---3
 577 del foobaz
 578
 579 echo ------------ Testing NUL ------------
 580 md foobar & cd foobar
 581 rem NUL file (non) creation + case insensitivity
 582 rem Note: "if exist" does not work with NUL, so to check for file existence we use a kludgy workaround
 583 echo > bar
 584 echo foo > NUL
 585 dir /b /a-d
 586 echo foo > nul
 587 dir /b /a-d
 588 echo foo > NuL
 589 @tab@dir /b@tab@/a-d
 590 del bar
 591 rem NUL not special everywhere
 592 call :setError 123
 593 echo NUL> foo
 594 if not exist foo (echo foo should have been created) else (
 595     type foo
 596     del foo
 597 )
 598 rem Empty file creation
 599 copy nul foo > nul
 600 if exist foo (
 601     echo foo created
 602     del foo
 603     type foo
 604 ) else (
 605     echo ***
 606 )
 607 cd .. & rd foobar
 608
 609 echo ------------ Testing if/else ------------
 610 echo if/else should work with blocks
 611 if 0 == 0 (
 612   echo if seems to work
 613 ) else (
 614   echo if seems to be broken
 615 )
 616 if 1 == 0 (
 617   echo else seems to be broken
 618 ) else (
 619   echo else seems to work
 620 )
 621 if /c==/c (
 622   echo if seems not to detect /c as parameter
 623 ) else (
 624   echo parameter detection seems to be broken
 625 )
 626 echo Testing case sensitivity with and without /i option
 627 if bar==BAR echo if does not default to case sensitivity
 628 if not bar==BAR echo if seems to default to case sensitivity
 629 if /i foo==FOO echo if /i seems to work
 630 if /i not foo==FOO echo if /i seems to be broken
 631 if /I foo==FOO echo if /I seems to work
 632 if /I not foo==FOO echo if /I seems to be broken
 633 echo Testing string comparisons
 634 if abc == abc  (echo equal) else echo non equal
 635 if abc =="abc" (echo equal) else echo non equal
 636 if "abc"== abc (echo equal) else echo non equal
 637 if "abc"== "abc" (echo equal) else echo non equal
 638 echo Testing tabs handling
 639 if@tab@1==1 echo doom
 640 if @tab@1==1 echo doom
 641 if 1==1 (echo doom) else@tab@echo quake
 642 if@tab@not @tab@1==@tab@0 @tab@echo lol
 643 if 1==0@tab@(echo doom) else echo quake
 644 if 1==0 (echo doom)@tab@else echo quake
 645 if 1==0 (echo doom) else@tab@echo quake
 646
 647 echo ------------ Testing for ------------
 648 echo --- plain FOR
 649 for %%i in (A B C) do echo %%i
 650 for %%i in (A B C) do echo %%I
 651 for %%i in (A B C) do echo %%j
 652 for %%i in (A B C) do call :forTestFun1 %%i
 653 for %%i in (1,4,1) do echo %%i
 654 for %%i in (A, B,C) do echo %%i
 655 for %%i in  (X) do echo %%i
 656 for@tab@%%i in  (X2) do echo %%i
 657 for %%i in@tab@(X3) do echo %%i
 658 for %%i in (@tab@ foo@tab@) do echo %%i
 659 for@tab@ %%i in@tab@(@tab@M) do echo %%i
 660 for %%i@tab@in (X)@tab@do@tab@echo %%i
 661 for@tab@ %%j in@tab@(@tab@M, N, O@tab@) do echo %%j
 662 for %%i in (`echo A B`) do echo %%i
 663 for %%i in ('echo A B') do echo %%i
 664 for %%i in ("echo A B") do echo %%i
 665 for %%i in ("A B" C) do echo %%i
 666 goto :endForTestFun1
 667 :forTestFun1
 668 echo %1
 669 goto :eof
 670 :endForTestFun1
 671 echo --- imbricated FORs
 672 for %%i in (X) do (
 673     for %%j in (Y) do (
 674         echo %%i %%j))
 675 for %%i in (X) do (
 676     for %%I in (Y) do (
 677         echo %%i %%I))
 678 for %%i in (A B) do (
 679     for %%j in (C D) do (
 680         echo %%i %%j))
 681 for %%i in (A B) do (
 682     for %%j in (C D) do (
 683         call :forTestFun2 %%i %%j ))
 684 goto :endForTestFun2
 685 :forTestFun2
 686 echo %1 %2
 687 goto :eof
 688 :endForTestFun2
 689 mkdir foobar & cd foobar
 690 mkdir foo
 691 mkdir bar
 692 mkdir baz
 693 echo > bazbaz
 694 echo --- basic wildcards
 695 for %%i in (ba*) do echo %%i
 696 echo --- for /d
 697 for /d %%i in (baz foo bar) do echo %%i 2>&1
 698 rem Confirm we don't match files:
 699 for /d %%i in (bazb*) do echo %%i 2>&1
 700 for /d %%i in (bazb2*) do echo %%i 2>&1
 701 rem Show we pass through non wildcards
 702 for /d %%i in (PASSED) do echo %%i
 703 for /d %%i in (xxx) do (
 704   echo %%i - Should be xxx
 705   echo Expected second line
 706 )
 707 rem Show we issue no messages on failures
 708 for /d %%i in (FAILED?) do echo %%i 2>&1
 709 for /d %%i in (FAILED?) do (
 710   echo %%i - Unexpected!
 711   echo FAILED Unexpected second line
 712 )
 713 for /d %%i in (FAILED*) do echo %%i 2>&1
 714 for /d %%i in (FAILED*) do (
 715   echo %%i - Unexpected!
 716   echo FAILED Unexpected second line
 717 )
 718 rem FIXME can't test wildcard expansion here since it's listed in directory
 719 rem order, and not in alphabetic order.
 720 rem Proper testing would need a currently missing "sort" program implementation.
 721 rem for /d %%i in (ba*) do echo %%i>> tmp
 722 rem sort < tmp
 723 rem del tmp
 724 rem for /d %%i in (?a*) do echo %%i>> tmp
 725 rem sort < tmp
 726 rem del tmp
 727 rem for /d %%i in (*) do echo %%i>> tmp
 728 rem sort < tmp
 729 rem del tmp
 730 echo > baz\bazbaz
 731 goto :TestForR
 732
 733 :SetExpected
 734 del temp.bat 2>nul
 735 call :WriteLine set found=N
 736 for /l %%i in (1,1,%expectedresults%) do (
 737   call :WriteLine if "%%%%expectedresults.%%i%%%%"=="%%%%1" set found=Y
 738   call :WriteLine if "%%%%found%%%%"=="Y" set expectedresults.%%i=
 739   call :WriteLine if "%%%%found%%%%"=="Y" goto :eof
 740 )
 741 call :WriteLine echo Got unexpected result: "%%%%1"
 742 goto :eof
 743
 744 :WriteLine
 745 echo %*>> temp.bat
 746 goto :EOF
 747
 748 :ValidateExpected
 749 del temp.bat 2>nul
 750 for /l %%i in (1,1,%expectedresults%) do  call :WriteLine if not "%%%%expectedresults.%%i%%%%"=="" echo Found missing result: "%%%%expectedresults.%%i%%%%"
 751 call temp.bat
 752 del temp.bat 2>nul
 753 goto :eof
 754
 755 :TestForR
 756 rem %CD% does not tork on NT4 so use the following workaround
 757 for /d %%i in (.) do set CURDIR=%%~dpnxi
 758
 759 echo --- for /R
 760 echo Plain directory enumeration
 761 set expectedresults=4
 762 set expectedresults.1=%CURDIR%\.
 763 set expectedresults.2=%CURDIR%\bar\.
 764 set expectedresults.3=%CURDIR%\baz\.
 765 set expectedresults.4=%CURDIR%\foo\.
 766 call :SetExpected
 767 for /R %%i in (.) do call temp.bat %%i
 768 call :ValidateExpected
 769
 770 echo Plain directory enumeration from provided root
 771 set expectedresults=4
 772 set expectedresults.1=%CURDIR%\.
 773 set expectedresults.2=%CURDIR%\bar\.
 774 set expectedresults.3=%CURDIR%\baz\.
 775 set expectedresults.4=%CURDIR%\foo\.
 776 if "%CD%"=="" goto :SkipBrokenNT4
 777 call :SetExpected
 778 for /R "%CURDIR%" %%i in (.) do call temp.bat %%i
 779 call :ValidateExpected
 780 :SkipBrokenNT4
 781
 782 echo File enumeration
 783 set expectedresults=2
 784 set expectedresults.1=%CURDIR%\baz\bazbaz
 785 set expectedresults.2=%CURDIR%\bazbaz
 786 call :SetExpected
 787 for /R %%i in (baz*) do call temp.bat %%i
 788 call :ValidateExpected
 789
 790 echo File enumeration from provided root
 791 set expectedresults=2
 792 set expectedresults.1=%CURDIR%\baz\bazbaz
 793 set expectedresults.2=%CURDIR%\bazbaz
 794 call :SetExpected
 795 for /R %%i in (baz*) do call temp.bat %%i
 796 call :ValidateExpected
 797
 798 echo Mixed enumeration
 799 set expectedresults=6
 800 set expectedresults.1=%CURDIR%\.
 801 set expectedresults.2=%CURDIR%\bar\.
 802 set expectedresults.3=%CURDIR%\baz\.
 803 set expectedresults.4=%CURDIR%\baz\bazbaz
 804 set expectedresults.5=%CURDIR%\bazbaz
 805 set expectedresults.6=%CURDIR%\foo\.
 806 call :SetExpected
 807 for /R %%i in (. baz*) do call temp.bat %%i
 808 call :ValidateExpected
 809
 810 echo Mixed enumeration from provided root
 811 set expectedresults=6
 812 set expectedresults.1=%CURDIR%\.
 813 set expectedresults.2=%CURDIR%\bar\.
 814 set expectedresults.3=%CURDIR%\baz\.
 815 set expectedresults.4=%CURDIR%\baz\bazbaz
 816 set expectedresults.5=%CURDIR%\bazbaz
 817 set expectedresults.6=%CURDIR%\foo\.
 818 call :SetExpected
 819 for /R %%i in (. baz*) do call temp.bat %%i
 820 call :ValidateExpected
 821
 822 echo With duplicates enumeration
 823 set expectedresults=12
 824 set expectedresults.1=%CURDIR%\bar\bazbaz
 825 set expectedresults.2=%CURDIR%\bar\fred
 826 set expectedresults.3=%CURDIR%\baz\bazbaz
 827 set expectedresults.4=%CURDIR%\baz\bazbaz
 828 set expectedresults.5=%CURDIR%\baz\bazbaz
 829 set expectedresults.6=%CURDIR%\baz\fred
 830 set expectedresults.7=%CURDIR%\bazbaz
 831 set expectedresults.8=%CURDIR%\bazbaz
 832 set expectedresults.9=%CURDIR%\bazbaz
 833 set expectedresults.10=%CURDIR%\foo\bazbaz
 834 set expectedresults.11=%CURDIR%\foo\fred
 835 set expectedresults.12=%CURDIR%\fred
 836 call :SetExpected
 837 for /R %%i in (baz* bazbaz fred ba*) do call temp.bat %%i
 838 call :ValidateExpected
 839
 840 echo Strip missing wildcards, keep unwildcarded names
 841 set expectedresults=6
 842 set expectedresults.1=%CURDIR%\bar\jim
 843 set expectedresults.2=%CURDIR%\baz\bazbaz
 844 set expectedresults.3=%CURDIR%\baz\jim
 845 set expectedresults.4=%CURDIR%\bazbaz
 846 set expectedresults.5=%CURDIR%\foo\jim
 847 set expectedresults.6=%CURDIR%\jim
 848 call :SetExpected
 849 for /R %%i in (baz* fred* jim) do call temp.bat %%i
 850 call :ValidateExpected
 851
 852 echo for /R passed
 853 cd .. & rd /s/Q foobar
 854 echo --- for /L
 855 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
 856 for /L %%i in (1,2,0) do echo %%i
 857 for@tab@/L %%i in (1,2,0) do echo %%i
 858 for /L %%i in (1,2,6) do echo %%i
 859 for /l %%i in (1 ,2,6) do echo %%i
 860 for /L %%i in (a,2,3) do echo %%i
 861 for /L %%i in (1,2,-1) do echo %%i
 862 for /L %%i in (-4,-1,-1) do echo %%i
 863 for /L %%i in (1,-2,-2) do echo %%i
 864 for /L %%i in (1,2,a) do echo %%i
 865 echo ErrorLevel %ErrorLevel%
 866 for /L %%i in (1,a,b) do echo %%i
 867 echo ErrorLevel %ErrorLevel%
 868 rem Test boundaries
 869 for /l %%i in (1,1,4) do echo %%i
 870 for /l %%i in (1,2,4) do echo %%i
 871 for /l %%i in (4,-1,1) do echo %%i
 872 for /l %%i in (4,-2,1) do echo %%i
 873 for /l %%i in (1,-1,4) do echo %%i
 874 for /l %%i in (4,1,1) do echo %%i
 875 for /L %%i in (a,2,b) do echo %%i
 876 for /L %%i in (1,1,1) do echo %%i
 877 for /L %%i in (1,-2,-1) do echo %%i
 878 for /L %%i in (-1,-1,-1) do echo %%i
 879 for /L %%i in (1,2, 3) do echo %%i
 880 rem Test zero iteration skips the body of the for
 881 for /L %%i in (2,2,1) do (
 882   echo %%i
 883   echo FAILED
 884 )
 885 echo --- for /a
 886 rem No output when using "set expr" syntax, unless in interactive mode
 887 rem Need to use "set envvar=expr" to use in a batch script
 888 echo ------ individual operations
 889 set var=0
 890 set /a var=1 +2 & echo %var%
 891 set /a var=1 +-2 & echo %var%
 892 set /a var=1 --2 & echo %var%
 893 set /a var=2* 3 & echo %var%
 894 set /a var=-2* -5 & echo %var%
 895 set /a var=12/3 & echo %var%
 896 set /a var=13/3 & echo %var%
 897 set /a var=-13/3 & echo %var%
 898 rem FIXME Divide by zero should return an error, but error messages cannot be tested with current infrastructure
 899 set /a var=5 %% 5 & echo %var%
 900 set /a var=5 %% 3 & echo %var%
 901 set /a var=5 %% -3 & echo %var%
 902 set /a var=-5 %% -3 & echo %var%
 903 set /a var=1 ^<^< 0 & echo %var%
 904 set /a var=1 ^<^< 2 & echo %var%
 905 set /a var=1 ^<^< -2 & echo %var%
 906 set /a var=-1 ^<^< -2 & echo %var%
 907 set /a var=-1 ^<^< 2 & echo %var%
 908 set /a var=9 ^>^> 0 & echo %var%
 909 set /a var=9 ^>^> 2 & echo %var%
 910 set /a var=9 ^>^> -2 & echo %var%
 911 set /a var=-9 ^>^> -2 & echo %var%
 912 set /a var=-9 ^>^> 2 & echo %var%
 913 set /a var=5 ^& 0 & echo %var%
 914 set /a var=5 ^& 1 & echo %var%
 915 set /a var=5 ^& 3 & echo %var%
 916 set /a var=5 ^& 4 & echo %var%
 917 set /a var=5 ^& 1 & echo %var%
 918 set /a var=5 ^| 0 & echo %var%
 919 set /a var=5 ^| 1 & echo %var%
 920 set /a var=5 ^| 3 & echo %var%
 921 set /a var=5 ^| 4 & echo %var%
 922 set /a var=5 ^| 1 & echo %var%
 923 set /a var=5 ^^ 0 & echo %var%
 924 set /a var=5 ^^ 1 & echo %var%
 925 set /a var=5 ^^ 3 & echo %var%
 926 set /a var=5 ^^ 4 & echo %var%
 927 set /a var=5 ^^ 1 & echo %var%
 928 echo ------ precedence and grouping
 929 set /a var=4 + 2*3 & echo %var%
 930 set /a var=(4+2)*3 & echo %var%
 931 set /a var=4 * 3/5 & echo %var%
 932 set /a var=(4 * 3)/5 & echo %var%
 933 set /a var=4 * 5 %% 4 & echo %var%
 934 set /a var=4 * (5 %% 4) & echo %var%
 935 set /a var=3 %% (5 + 8 %% 3 ^^ 2) & echo %var%
 936 set /a var=3 %% (5 + 8 %% 3 ^^ -2) & echo %var%
 937 echo ------ octal and hexadecimal
 938 set /a var=0xf + 3 & echo %var%
 939 set /a var=0xF + 3 & echo %var%
 940 set /a var=015 + 2 & echo %var%
 941 set /a var=3, 8+3,0 & echo %var%
 942 echo ------ variables
 943 set /a var=foo=3, foo+1 & echo %var%
 944 if defined foo (echo %foo%) else (
 945     echo foo not defined
 946 )
 947 set /a var=foo=3, foo+=1 & echo %var%
 948 set /a var=foo=3, bar=1, bar+=foo, bar & echo %var%
 949 set /a var=foo*= foo & echo %var%
 950 set /a var=whateverNonExistingVar & echo %var%
 951 set /a var=whateverNonExistingVar + bar & echo %var%
 952 set /a var=foo -= foo + 7 & echo %var%
 953 set /a var=foo /= 3 + 2 & echo %var%
 954 set /a var=foo=5, foo %%=2 & echo %var%
 955 set /a var=foo ^<^<= 2 & echo %var%
 956 set /a var=foo ^>^>= 2 & echo %var%
 957 set /a var=foo ^&= 2 & echo %var%
 958 set /a var=foo=5, foo ^|= 2 & echo %var%
 959 set /a var=foo=5, foo ^^= 2 & echo %var%
 960 set /a var=foo=19, foo %%= 4 + (bar %%= 7) & echo.
 961 set foo=
 962 set bar=
 963 set var=
 964 echo --- for /F
 965 mkdir foobar & cd foobar
 966 echo ------ string argument
 967 for /F %%i in ("a b c") do echo %%i
 968 for /f %%i in ("a ") do echo %%i
 969 for /f %%i in ("a") do echo %%i
 970 fOr /f %%i in (" a") do echo %%i
 971 for /f %%i in (" a ") do echo %%i
 972 echo ------ fileset argument
 973 echo --------- basic blank handling
 974 echo a b c>foo
 975 for /f %%i in (foo) do echo %%i
 976 echo a >foo
 977 for /f %%i in (foo) do echo %%i
 978 echo a>foo
 979 for /f %%i in (foo) do echo %%i
 980 echo  a>foo
 981 for /f %%i in (foo) do echo %%i
 982 echo  a >foo
 983 for /f %%i in (foo) do echo %%i
 984 echo. > foo
 985 for /f %%i in (foo) do echo %%i
 986 echo. >> foo
 987 echo b > foo
 988 for /f %%i in (foo) do echo %%i
 989 echo --------- multi-line with empty lines
 990 echo a Z f> foo
 991 echo. >> foo
 992 echo.>> foo
 993 echo b bC>> foo
 994 echo c>> foo
 995 echo. >> foo
 996 for /f %%b in (foo) do echo %%b
 997 echo --------- multiple files
 998 echo q w > bar
 999 echo.>> bar
1000 echo kkk>>bar
1001 for /f %%k in (foo bar) do echo %%k
1002 for /f %%k in (bar foo) do echo %%k
1003 rem echo ------ command argument
1004 rem Not implemented on NT4
1005 rem FIXME: Not testable right now in wine: not implemented and would need
1006 rem preliminary grep-like program implementation (e.g. like findstr or fc) even
1007 rem for a simple todo_wine test
1008 rem (for /f "usebackq" %%i in (`echo z a b`) do echo %%i) || echo not supported
1009 rem (for /f usebackq %%i in (`echo z a b`) do echo %%i) || echo not supported
1010 echo ------ eol option
1011 for /f "eol=@" %%i in ("    ad") do echo %%i
1012 for /f "eol=@" %%i in (" z@y") do echo %%i
1013 for /f "eol=|" %%i in ("a|d") do echo %%i
1014 for /f "eol=@" %%i in ("@y") do echo %%i > output_file
1015 if not exist output_file (echo no output) else (del output_file)
1016 for /f "eol==" %%i in ("=y") do echo %%i > output_file
1017 if not exist output_file (echo no output) else (del output_file)
1018 echo ------ delims option
1019 for /f "delims=|" %%i in ("a|d") do echo %%i
1020 for /f "delims=|" %%i in ("a |d") do echo %%i
1021 for /f "delims=|" %%i in ("a d|") do echo %%i
1022 for /f "delims=| " %%i in ("a d|") do echo %%i
1023 for /f "delims==" %%i in ("C r=d|") do echo %%i
1024 for /f "delims=" %%i in ("foo bar baz") do echo %%i
1025 for /f "delims=" %%i in ("c:\foo bar baz\..") do echo %%~fi
1026 echo ------ skip option
1027 echo a > foo
1028 echo b >> foo
1029 echo c >> foo
1030 for /f "skip=2" %%i in (foo) do echo %%i
1031 for /f "skip=3" %%i in (foo) do echo %%i > output_file
1032 if not exist output_file (echo no output) else (del output_file)
1033 for /f "skip=4" %%i in (foo) do echo %%i > output_file
1034 if not exist output_file (echo no output) else (del output_file)
1035 cd ..
1036 rd /s/q foobar
1037
1038 echo ------------ Testing del /a ------------
1039 del /f/q *.test > nul
1040 echo r > r.test
1041 attrib +r r.test
1042 echo not-r > not-r.test
1043
1044 if not exist not-r.test echo not-r.test not found before delete, bad
1045 del /a:-r *.test
1046 if not exist not-r.test echo not-r.test not found after delete, good
1047
1048 if not exist r.test echo r.test not found before delete, bad
1049 if exist r.test echo r.test found before delete, good
1050 del /a:r *.test
1051 if not exist r.test echo r.test not found after delete, good
1052 if exist r.test echo r.test found after delete, bad
1053
1054 echo ------------ Testing del /q ------------
1055 mkdir del_q_dir
1056 cd del_q_dir
1057 echo abc > file1
1058 echo abc > file2.dat
1059 rem If /q doesn't work, cmd will prompt and the test case should hang
1060 del /q * > nul
1061 for %%a in (1 2.dat) do if exist file%%a echo del /q * failed on file%%a
1062 for %%a in (1 2.dat) do if not exist file%%a echo del /q * succeeded on file%%a
1063 cd ..
1064 rmdir del_q_dir
1065
1066 echo ------------ Testing del /s ------------
1067 mkdir "foo bar"
1068 cd "foo bar"
1069 mkdir "foo:"
1070 echo hi > file1.dat
1071 echo there > file2.dat
1072 echo bub > file3.dat
1073 echo bye > "file with spaces.dat"
1074 cd ..
1075 del /s file1.dat > nul
1076 del file2.dat /s > nul
1077 del "file3.dat" /s > nul
1078 del "file with spaces.dat" /s > nul
1079 cd "foo bar"
1080 for %%f in (1 2 3) do if exist file%%f.dat echo Del /s failed on file%%f
1081 for %%f in (1 2 3) do if exist file%%f.dat del file%%f.dat
1082 if exist "file with spaces.dat" echo Del /s failed on "file with spaces.dat"
1083 if exist "file with spaces.dat" del "file with spaces.dat"
1084 rmdir "foo:"
1085 cd ..
1086 rmdir "foo bar"
1087
1088 echo ------------ Testing rename ------------
1089 mkdir foobar & cd foobar
1090 echo --- ren and rename are synonymous
1091 echo > foo
1092 rename foo bar
1093 if exist foo echo foo should be renamed!
1094 if exist bar echo foo renamed to bar
1095 ren bar foo
1096 if exist bar echo bar should be renamed!
1097 if exist foo echo bar renamed to foo
1098 echo --- name collision
1099 echo foo>foo
1100 echo bar>bar
1101 ren foo bar 2> nul
1102 type foo
1103 type bar
1104 rem no-op
1105 ren foo foo
1106 mkdir baz
1107 ren foo baz\abc
1108 echo --- rename read-only files
1109 echo > file1
1110 attrib +r file1
1111 ren file1 file2
1112 if not exist file1 (
1113     if exist file2 (
1114         echo read-only file renamed
1115     )
1116 ) else (
1117     echo read-only file not renamed!
1118 )
1119 echo --- rename directories
1120 mkdir rep1
1121 ren rep1 rep2
1122 if not exist rep1 (
1123     if exist rep2 (
1124         echo dir renamed
1125     )
1126 )
1127 attrib +r rep2
1128 ren rep2 rep1
1129 if not exist rep2 (
1130     if exist rep1 (
1131         echo read-only dir renamed
1132     )
1133 )
1134 echo --- rename in other directory
1135 if not exist baz\abc (
1136     echo rename impossible in other directory
1137     if exist foo echo original file still present
1138 ) else (
1139     echo shouldn't rename in other directory!
1140     if not exist foo echo original file not present anymore
1141 )
1142 cd .. & rd /s/q foobar
1143
1144 echo ------------ Testing move ------------
1145 mkdir foobar & cd foobar
1146 echo --- file move
1147 echo >foo
1148 move foo bar > nul 2>&1
1149 if not exist foo (
1150     if exist bar (
1151         echo file move succeeded
1152     )
1153 )
1154 echo bar>bar
1155 echo baz> baz
1156 move /Y bar baz > nul 2>&1
1157 if not exist bar (
1158     if exist baz (
1159         echo file move with overwrite succeeded
1160     )
1161 ) else (
1162     echo file overwrite impossible!
1163     del bar
1164 )
1165 type baz
1166
1167 attrib +r baz
1168 move baz bazro > nul 2>&1
1169 if not exist baz (
1170     if exist bazro (
1171         echo read-only files are moveable
1172         move bazro baz > nul 2>&1
1173     )
1174 ) else (
1175     echo read-only file not moved!
1176 )
1177 attrib -r baz
1178 mkdir rep
1179 move baz rep > nul 2>&1
1180 if not exist baz (
1181     if exist rep\baz (
1182         echo file moved in subdirectory
1183     )
1184 )
1185 call :setError 0
1186 move rep\baz . > nul 2>&1
1187 move /Y baz baz > nul 2>&1
1188 if errorlevel 1 (
1189     echo moving a file to itself should be a no-op!
1190 ) else (
1191     echo moving a file to itself is a no-op
1192 )
1193 echo ErrorLevel: %ErrorLevel%
1194 call :setError 0
1195 del baz
1196 echo --- directory move
1197 mkdir foo\bar
1198 mkdir baz
1199 echo baz2>baz\baz2
1200 move baz foo\bar > nul 2>&1
1201 if not exist baz (
1202     if exist foo\bar\baz\baz2 (
1203         echo simple directory move succeeded
1204     )
1205 )
1206 call :setError 0
1207 mkdir baz
1208 move baz baz > nul 2>&1
1209 echo moving a directory to itself gives error; errlevel %ErrorLevel%
1210 echo ------ dir in dir move
1211 rd /s/q foo
1212 mkdir foo bar
1213 echo foo2>foo\foo2
1214 echo bar2>bar\bar2
1215 move foo bar > nul 2>&1
1216 if not exist foo (
1217     if exist bar (
1218         dir /b /ad bar
1219         dir /b /a-d bar
1220         dir /b bar\foo
1221     )
1222 )
1223 cd .. & rd /s/q foobar
1224
1225 echo ------------ Testing mkdir ------------
1226 call :setError 0
1227 echo --- md and mkdir are synonymous
1228 mkdir foobar
1229 echo %ErrorLevel%
1230 rmdir foobar
1231 md foobar
1232 echo %ErrorLevel%
1233 rmdir foobar
1234 echo --- creating an already existing directory/file must fail
1235 mkdir foobar
1236 md foobar
1237 echo %ErrorLevel%
1238 rmdir foobar
1239 echo > foobar
1240 mkdir foobar
1241 echo %ErrorLevel%
1242 del foobar
1243 echo --- multilevel path creation
1244 mkdir foo
1245 echo %ErrorLevel%
1246 mkdir foo\bar\baz
1247 echo %ErrorLevel%
1248 cd foo
1249 echo %ErrorLevel%
1250 cd bar
1251 echo %ErrorLevel%
1252 cd baz
1253 echo %ErrorLevel%
1254 echo > ..\..\bar2
1255 mkdir ..\..\..\foo\bar2
1256 echo %ErrorLevel%
1257 del ..\..\bar2
1258 mkdir ..\..\..\foo\bar2
1259 echo %ErrorLevel%
1260 rmdir ..\..\..\foo\bar2
1261 cd ..
1262 rmdir baz
1263 cd ..
1264 rmdir bar
1265 cd ..
1266 rmdir foo
1267 echo %ErrorLevel%
1268 echo --- trailing backslashes
1269 mkdir foo\\\\
1270 echo %ErrorLevel%
1271 if exist foo (rmdir foo & echo dir created
1272 ) else ( echo dir not created )
1273 echo %ErrorLevel%
1274 echo --- invalid chars
1275 mkdir ?
1276 echo mkdir ? gives errorlevel %ErrorLevel%
1277 call :setError 0
1278 mkdir ?\foo
1279 echo mkdir ?\foo gives errorlevel %ErrorLevel%
1280 call :setError 0
1281 mkdir foo\?
1282 echo mkdir foo\? gives errorlevel %ErrorLevel%
1283 if exist foo (rmdir foo & echo ok, foo created
1284 ) else ( echo foo not created )
1285 call :setError 0
1286 mkdir foo\bar\?
1287 echo mkdir foo\bar\? gives errorlevel %ErrorLevel%
1288 call :setError 0
1289 if not exist foo (
1290     echo bad, foo not created
1291 ) else (
1292     cd foo
1293     if exist bar (
1294         echo ok, foo\bar created
1295         rmdir bar
1296     )
1297     cd ..
1298     rmdir foo
1299 )
1300 echo --- multiple directories at once
1301 mkdir foobaz & cd foobaz
1302 mkdir foo bar\baz foobar "bazbaz" .\"zabzab"
1303 if exist foo (echo foo created) else echo foo not created!
1304 if exist bar (echo bar created) else echo bar not created!
1305 if exist foobar (echo foobar created) else echo foobar not created!
1306 if exist bar\baz (echo bar\baz created) else echo bar\baz not created!
1307 if exist bazbaz (echo bazbaz created) else echo bazbaz not created!
1308 if exist zabzab (echo zabzab created) else echo zabzab not created!
1309 cd .. & rd /s/q foobaz
1310 call :setError 0
1311 mkdir foo\*
1312 echo mkdir foo\* errorlevel %ErrorLevel%
1313 if exist foo (rmdir foo & echo ok, foo created
1314 ) else ( echo bad, foo not created )
1315
1316 echo ------------ Testing rmdir ------------
1317 call :setError 0
1318 rem rd and rmdir are synonymous
1319 mkdir foobar
1320 rmdir foobar
1321 echo %ErrorLevel%
1322 if not exist foobar echo dir removed
1323 mkdir foobar
1324 rd foobar
1325 echo %ErrorLevel%
1326 if not exist foobar echo dir removed
1327 rem Removing nonexistent directory
1328 rmdir foobar
1329 echo %ErrorLevel%
1330 rem Removing single-level directories
1331 echo > foo
1332 rmdir foo
1333 echo %ErrorLevel%
1334 if exist foo echo file not removed
1335 del foo
1336 mkdir foo
1337 echo > foo\bar
1338 rmdir foo
1339 echo %ErrorLevel%
1340 if exist foo echo non-empty dir not removed
1341 del foo\bar
1342 mkdir foo\bar
1343 rmdir foo
1344 echo %ErrorLevel%
1345 if exist foo echo non-empty dir not removed
1346 rmdir foo\bar
1347 rmdir foo
1348 rem Recursive rmdir
1349 mkdir foo\bar\baz
1350 rmdir /s /Q foo
1351 if not exist foo (
1352     echo recursive rmdir succeeded
1353 ) else (
1354     rd foo\bar\baz
1355     rd foo\bar
1356     rd foo
1357 )
1358 mkdir foo\bar\baz
1359 echo foo > foo\bar\brol
1360 rmdir /s /Q foo 2>&1
1361 if not exist foo (
1362     echo recursive rmdir succeeded
1363 ) else (
1364     rd foo\bar\baz
1365     del foo\bar\brol
1366     rd foo\bar
1367     rd foo
1368 )
1369 rem multiples directories at once
1370 mkdir foobaz & cd foobaz
1371 mkdir foo
1372 mkdir bar\baz
1373 mkdir foobar
1374 rd /s/q foo bar foobar
1375 if not exist foo (echo foo removed) else echo foo not removed!
1376 if not exist bar (echo bar removed) else echo bar not removed!
1377 if not exist foobar (echo foobar removed) else echo foobar not removed!
1378 if not exist bar\baz (echo bar\baz removed) else echo bar\baz not removed!
1379 cd .. & rd /s/q foobaz
1380
1381 echo ------------ Testing pushd/popd ------------
1382 cd
1383 echo --- popd is no-op when dir stack is empty
1384 popd
1385 cd
1386 echo --- pushing non-existing dir
1387 pushd foobar
1388 cd
1389 echo --- basic behaviour
1390 mkdir foobar\baz
1391 pushd foobar
1392 cd
1393 popd
1394 cd
1395 pushd foobar
1396 pushd baz
1397 cd
1398 popd
1399 cd
1400 pushd baz
1401 popd
1402 cd
1403 popd
1404 cd
1405 pushd .
1406 cd foobar\baz
1407 pushd ..
1408 cd
1409 popd
1410 popd
1411 cd
1412 rd /s/q foobar
1413
1414 echo ------------ Testing attrib ------------
1415 rem FIXME Add tests for archive, hidden and system attributes + mixed attributes modifications
1416 mkdir foobar & cd foobar
1417 echo foo original contents> foo
1418 attrib foo
1419 echo > bar
1420 echo --- read-only attribute
1421 rem Read-only files cannot be altered or deleted, unless forced
1422 attrib +R foo
1423 attrib foo
1424 dir /Ar /B
1425 echo bar>> foo
1426 type foo
1427 del foo > NUL 2>&1
1428 if exist foo (
1429     echo Read-only file not deleted
1430 ) else (
1431     echo Should not delete read-only file!
1432 )
1433 del /F foo
1434 if not exist foo (
1435     echo Read-only file forcibly deleted
1436 ) else (
1437     echo Should delete read-only file with del /F!
1438     attrib -r foo
1439     del foo
1440 )
1441 cd .. & rd /s/q foobar
1442 echo --- recursive behaviour
1443 mkdir foobar\baz & cd foobar
1444 echo > level1
1445 echo > whatever
1446 echo > baz\level2
1447 attrib baz\level2
1448 cd ..
1449 attrib +R l*vel? /S > nul 2>&1
1450 cd foobar
1451 attrib level1
1452 attrib baz\level2
1453 echo > bar
1454 attrib bar
1455 cd .. & rd /s/q foobar
1456 echo --- folders processing
1457 mkdir foobar
1458 attrib foobar
1459 cd foobar
1460 mkdir baz
1461 echo toto> baz\toto
1462 attrib +r baz /s /d > nul 2>&1
1463 attrib baz
1464 attrib baz\toto
1465 echo lulu>>baz\toto
1466 type baz\toto
1467 echo > baz\lala
1468 rem Oddly windows allows file creation in a read-only directory...
1469 if exist baz\lala (echo file created in read-only dir) else echo file not created
1470 cd .. & rd /s/q foobar
1471
1472 echo ------------ Testing assoc ------------
1473 rem FIXME Can't test error messages in the current test system, so we have to use some kludges
1474 rem FIXME Revise once || conditional execution is fixed
1475 mkdir foobar & cd foobar
1476 echo --- setting association
1477 assoc .foo > baz
1478 type baz
1479 echo ---
1480
1481 assoc .foo=bar
1482 assoc .foo
1483
1484 rem association set system-wide
1485 echo @echo off> tmp.cmd
1486 echo echo +++>> tmp.cmd
1487 echo assoc .foo>> tmp.cmd
1488 cmd /c tmp.cmd
1489
1490 echo --- resetting association
1491 assoc .foo=
1492 assoc .foo > baz
1493 type baz
1494 echo ---
1495
1496 rem association removal set system-wide
1497 cmd /c tmp.cmd > baz
1498 type baz
1499 echo ---
1500 cd .. & rd /s/q foobar
1501
1502 echo ------------ Testing ftype ------------
1503 rem FIXME Can't test error messages in the current test system, so we have to use some kludges
1504 rem FIXME Revise once || conditional execution is fixed
1505 mkdir foobar & cd foobar
1506 echo --- setting association
1507 ftype footype> baz
1508 type baz
1509 echo ---
1510
1511 ftype footype=foo_opencmd
1512 assoc .foo=footype
1513 ftype footype
1514
1515 rem association set system-wide
1516 echo @echo off> tmp.cmd
1517 echo echo +++>> tmp.cmd
1518 echo ftype footype>> tmp.cmd
1519 cmd /c tmp.cmd
1520
1521 echo --- resetting association
1522 assoc .foo=
1523
1524 rem Removing a file type association doesn't work on XP due to a bug, so a workaround is needed
1525 setlocal EnableDelayedExpansion
1526 set FOO=original value
1527 ftype footype=
1528 ftype footype > baz
1529 for /F %%i in ('type baz') do (set FOO=buggyXP)
1530 rem Resetting actually works on wine/NT4, but is reported as failing due to the peculiar test (and non-support for EnabledDelayedExpansion)
1531 rem FIXME Revisit once a grep-like program like ftype is implemented
1532 rem (e.g. to check baz's size using dir /b instead)
1533 echo !FOO!
1534
1535 rem cleanup registry
1536 echo REGEDIT4> regCleanup.reg
1537 echo.>> regCleanup.reg
1538 echo [-HKEY_CLASSES_ROOT\footype]>> regCleanup.reg
1539 regedit /s regCleanup.reg
1540 set FOO=
1541 endlocal
1542 cd .. & rd /s/q foobar
1543
1544 echo ------------ Testing CALL ------------
1545 mkdir foobar & cd foobar
1546 echo --- external script
1547 echo echo foo %%1> foo.cmd
1548 call foo
1549 call foo.cmd 8
1550 echo echo %%1 %%2 > foo.cmd
1551 call foo.cmd foo
1552 call foo.cmd foo bar
1553 call foo.cmd foo ""
1554 call foo.cmd "" bar
1555 call foo.cmd foo ''
1556 call foo.cmd '' bar
1557 del foo.cmd
1558
1559 echo --- internal routines
1560 call :testRoutine :testRoutine
1561 goto :endTestRoutine
1562 :testRoutine
1563 echo bar %1
1564 goto :eof
1565 :endTestRoutine
1566
1567 call :testRoutineArgs foo
1568 call :testRoutineArgs foo bar
1569 call :testRoutineArgs foo ""
1570 call :testRoutineArgs ""  bar
1571 call :testRoutineArgs foo ''
1572 call :testRoutineArgs ''  bar
1573 goto :endTestRoutineArgs
1574 :testRoutineArgs
1575 echo %1 %2
1576 goto :eof
1577 :endTestRoutineArgs
1578
1579 echo --- with builtins
1580 call mkdir foo
1581 echo %ErrorLevel%
1582 if exist foo (echo foo created) else echo foo should exist!
1583 rmdir foo
1584 set FOOBAZ_VAR=foobaz
1585 call echo Should expand %FOOBAZ_VAR%
1586 set FOOBAZ_VAR=
1587 echo>batfile
1588 call dir /b
1589 echo>robinfile
1590 if 1==1 call del batfile
1591 dir /b
1592 if exist batfile echo batfile shouldn't exist
1593 rem ... but not for 'if' or 'for'
1594 call if 1==1 echo bar 2> nul
1595 echo %ErrorLevel%
1596 call :setError 0
1597 call for %%i in (foo bar baz) do echo %%i 2> nul
1598 echo %ErrorLevel%
1599 rem First look for programs in the path before trying a builtin
1600 echo echo non-builtin dir> dir.cmd
1601 call dir /b
1602 del dir.cmd
1603 rem The below line equates to call (, which does nothing, then the
1604 rem subsequent lines are executed.
1605 call (
1606   echo Line one
1607   echo Line two
1608 )
1609 rem The below line equates to call if, which always fails, then the
1610 rem subsequent lines are executed. Note cmd.exe swallows all lines
1611 rem starting with )
1612 call if 1==1 (
1613   echo Get if
1614 ) else (
1615   echo ... and else!
1616 )
1617 call call call echo passed
1618 cd .. & rd /s/q foobar
1619
1620 echo ------------ Testing SHIFT ------------
1621
1622 call :shiftFun p1 p2 p3 p4 p5
1623 goto :endShiftFun
1624
1625 :shiftFun
1626 echo '%1' '%2' '%3' '%4' '%5'
1627 shift
1628 echo '%1' '%2' '%3' '%4' '%5'
1629 shift@tab@ /1
1630 echo '%1' '%2' '%3' '%4' '%5'
1631 shift /2
1632 echo '%1' '%2' '%3' '%4' '%5'
1633 shift /-1
1634 echo '%1' '%2' '%3' '%4' '%5'
1635 shift /0
1636 echo '%1' '%2' '%3' '%4' '%5'
1637 goto :eof
1638 :endShiftFun
1639
1640 echo ------------ Testing cmd invocation ------------
1641 rem FIXME: only a stub ATM
1642 echo --- a batch file can delete itself
1643 echo del foo.cmd>foo.cmd
1644 cmd /q /c foo.cmd
1645 if not exist foo.cmd (
1646     echo file correctly deleted
1647 ) else (
1648     echo file should be deleted!
1649     del foo.cmd
1650 )
1651 echo --- a batch file can alter itself
1652 echo echo bar^>foo.cmd>foo.cmd
1653 cmd /q /c foo.cmd > NUL 2>&1
1654 if exist foo.cmd (
1655     type foo.cmd
1656     del foo.cmd
1657 ) else (
1658     echo file not created!
1659 )
1660
1661 echo ---------- Testing copy
1662 md foobar2
1663 cd foobar2
1664 rem Note echo adds 0x0d 0x0a on the end of the line in the file
1665 echo AAA> file1
1666 echo BBBBBB> file2
1667 echo CCCCCCCCC> file3
1668 md dir1
1669 goto :testcopy
1670
1671 :CheckExist
1672 if exist "%1" (
1673   echo Passed: Found expected %1
1674 ) else (
1675   echo Failed: Did not find expected %1
1676 )
1677 del /q "%1" >nul 2>&1
1678 shift
1679 if not "%1"=="" goto :CheckExist
1680 goto :eof
1681
1682 :CheckNotExist
1683 if not exist "%1" (
1684   echo Passed: Did not find %1
1685 ) else (
1686   echo Failed: Unexpectedly found %1
1687   del /q "%1" >nul 2>&1
1688 )
1689 shift
1690 if not "%1"=="" goto :CheckNotExist
1691 goto :eof
1692
1693 rem Note: No way to check file size on NT4 so skip the test
1694 :CheckFileSize
1695 if not exist "%1" (
1696   echo Failed: File missing when requested filesize check [%2]
1697   goto :ContinueFileSizeChecks
1698 )
1699 for %%i in (%1) do set filesize=%%~zi
1700 if "%filesize%"=="%2" (
1701     echo Passed: file size check on %1 [%filesize%]
1702 ) else (
1703   if "%filesize%"=="%%~zi" (
1704     echo Skipping file size check on NT4
1705   ) else (
1706     echo Failed: file size check on %1 [%filesize% != %2]
1707   )
1708 )
1709 :ContinueFileSizeChecks
1710 shift
1711 shift
1712 if not "%1"=="" goto :CheckFileSize
1713 goto :eof
1714
1715 :testcopy
1716
1717 rem -----------------------
1718 rem Simple single file copy
1719 rem -----------------------
1720 rem Simple single file copy, normally used syntax
1721 copy file1 dummy.file >nul 2>&1
1722 if errorlevel 1 echo Incorrect errorlevel
1723 call :CheckExist dummy.file
1724
1725 rem Simple single file copy, destination supplied as two forms of directory
1726 copy file1 dir1 >nul 2>&1
1727 if errorlevel 1 echo Incorrect errorlevel
1728 call :CheckExist dir1\file1
1729
1730 copy file1 dir1\ >nul 2>&1
1731 if errorlevel 1 echo Incorrect errorlevel
1732 call :CheckExist dir1\file1
1733
1734 rem Simple single file copy, destination supplied as fully qualified destination
1735 copy file1 dir1\file99 >nul 2>&1
1736 if errorlevel 1 echo Incorrect errorlevel
1737 call :CheckExist dir1\file99
1738
1739 rem Simple single file copy, destination not supplied
1740 cd dir1
1741 copy ..\file1 >nul 2>&1
1742 if errorlevel 1 echo Incorrect errorlevel
1743 call :CheckExist file1
1744 cd ..
1745
1746 rem Simple single file copy, destination supplied as nonexistent directory
1747 copy file1 dir2\ >nul 2>&1
1748 if not errorlevel 1 echo Incorrect errorlevel
1749 call :CheckNotExist dir2 dir2\file1
1750
1751 rem -----------------------
1752 rem Wildcarded copy
1753 rem -----------------------
1754 rem Simple single file copy, destination supplied as two forms of directory
1755 copy file? dir1 >nul 2>&1
1756 if errorlevel 1 echo Incorrect errorlevel
1757 call :CheckExist dir1\file1 dir1\file2 dir1\file3
1758
1759 copy file* dir1\ >nul 2>&1
1760 if errorlevel 1 echo Incorrect errorlevel
1761 call :CheckExist dir1\file1 dir1\file2 dir1\file3
1762
1763 rem Simple single file copy, destination not supplied
1764 cd dir1
1765 copy ..\file*.* >nul 2>&1
1766 if errorlevel 1 echo Incorrect errorlevel
1767 call :CheckExist file1 file2 file3
1768 cd ..
1769
1770 rem Simple wildcarded file copy, destination supplied as nonexistent directory
1771 copy file? dir2\ >nul 2>&1
1772 if not errorlevel 1 echo Incorrect errorlevel
1773 call :CheckNotExist dir2 dir2\file1 dir2\file2 dir2\file3
1774
1775 rem ------------------------------------------------
1776 rem Confirm overwrite works (cannot test prompting!)
1777 rem ------------------------------------------------
1778 copy file1 testfile >nul 2>&1
1779 copy /y file2 testfile >nul 2>&1
1780 call :CheckExist testfile
1781
1782 rem ------------------------------------------------
1783 rem Test concatenation
1784 rem ------------------------------------------------
1785 rem simple case, no wildcards
1786 copy file1+file2 testfile >nul 2>&1
1787 if errorlevel 1 echo Incorrect errorlevel
1788 call :CheckExist testfile
1789
1790 rem simple case, wildcards, no concatenation
1791 copy file* testfile >nul 2>&1
1792 if errorlevel 1 echo Incorrect errorlevel
1793 call :CheckExist testfile
1794
1795 rem simple case, wildcards, and concatenation
1796 echo ddddd > fred
1797 copy file*+fred testfile >nul 2>&1
1798 if errorlevel 1 echo Incorrect errorlevel
1799 call :CheckExist testfile
1800
1801 rem simple case, wildcards, and concatenation
1802 copy fred+file* testfile >nul 2>&1
1803 if errorlevel 1 echo Incorrect errorlevel
1804 call :CheckExist testfile
1805
1806 rem Calculate destination name
1807 copy fred+file* dir1 >nul 2>&1
1808 if errorlevel 1 echo Incorrect errorlevel
1809 call :CheckExist dir1\fred
1810
1811 rem Calculate destination name
1812 copy fred+file* dir1\ >nul 2>&1
1813 if errorlevel 1 echo Incorrect errorlevel
1814 call :CheckExist dir1\fred
1815
1816 rem Calculate destination name (none supplied)
1817 cd dir1
1818 copy ..\fred+..\file* >nul 2>&1
1819 if errorlevel 1 echo Incorrect errorlevel
1820 call :CheckExist fred
1821
1822 copy ..\fr*+..\file1  >nul 2>&1
1823 if errorlevel 1 echo Incorrect errorlevel
1824 call :CheckExist fred
1825 cd ..
1826
1827 rem ******************************************************************
1828 rem ASCII and BINARY tests
1829 rem Note: hard coded numbers deliberate because need to ensure whether
1830 rem an additional EOF has been added or not. There is no way to handle
1831 rem EOFs in batch, so assume if a single byte appears, its an EOF!
1832 rem ******************************************************************
1833
1834 rem Confirm original sizes of file1,2,3
1835 call :CheckFileSize file1 5 file2 8 file3 11
1836
1837 cd dir1
1838
1839 rem ----------------------------------------------
1840 rem Show concatenation defaults copy to ascii mode
1841 rem ----------------------------------------------
1842 rem Simple default copy source to destination (should not append EOF 5)
1843 copy ..\file1 file1_default >nul 2>&1
1844 call :CheckFileSize file1_default 5
1845
1846 rem Simple binary copy source to destination (should not append EOF 5)
1847 copy /b ..\file1 file1_default2 >nul 2>&1
1848 call :CheckFileSize file1_default2 5
1849
1850 rem Simple ascii copy source to destination (should append EOF 5+1, 8+1, 11+1)
1851 copy /a ..\file1 file1_plus_eof >nul 2>&1
1852 call :CheckFileSize file1_plus_eof 6
1853 copy /a ..\file2 file2_plus_eof >nul 2>&1
1854 call :CheckFileSize file2_plus_eof 9
1855 copy /a ..\file3 file3_plus_eof >nul 2>&1
1856 call :CheckFileSize file3_plus_eof 12
1857
1858 rem Concat 2 files, ascii mode - (only one EOF on the end 5+8+1)
1859 copy /a ..\file1+..\file2 file12_plus_eof >nul 2>&1
1860 call :CheckFileSize file12_plus_eof 14
1861
1862 rem Concat 2 files, binary mode - (no EOF on the end 5+8)
1863 copy /b ..\file1+..\file2 file12_no_eof >nul 2>&1
1864 call :CheckFileSize file12_no_eof 13
1865
1866 rem Concat 2 files, default mode - (one EOF on the end 5+8+1)
1867 copy ..\file1+..\file2 file12_eof2 >nul 2>&1
1868 call :CheckFileSize file12_eof2 14
1869
1870 rem --------------------------------------------------------------
1871 rem Show ascii source copy stops at first EOF, binary does the lot
1872 rem --------------------------------------------------------------
1873 copy file1_plus_eof /b file1_binary_srccopy /b >nul 2>&1
1874 call :CheckFileSize file1_binary_srccopy 6
1875
1876 copy file1_plus_eof /a file1_ascii_srccopy /b >nul 2>&1
1877 call :CheckFileSize file1_ascii_srccopy 5
1878
1879 rem --------------------------------------------------------------
1880 rem Show results of concatenating files (ending in EOFs) and /a /b
1881 rem --------------------------------------------------------------
1882
1883 rem Default and ascii copy reads as ascii, stripping EOFs, so 6-1 + 9-1 + 12-1 + 1
1884 copy file1_plus_eof+file2_plus_eof+file3_plus_eof file123_default_copy >nul 2>&1
1885 call :CheckFileSize file123_default_copy 25
1886 copy /a file1_plus_eof+file2_plus_eof+file3_plus_eof file123_ascii_copy >nul 2>&1
1887 call :CheckFileSize file123_ascii_copy 25
1888
1889 rem In binary mode, we get 3 eofs, so 6 + 9 + 12 = 27
1890 copy /b file1_plus_eof + file2_plus_eof + file3_plus_eof file123_binary_copy >nul 2>&1
1891 call :CheckFileSize file123_binary_copy 27
1892
1893 rem We can select which we want the eofs from by postfixing it with /a or /b
1894 rem so here have first and third with eof, second as ascii 6 + 9-1 + 12
1895 copy file1_plus_eof /b + file2_plus_eof /a + file3_plus_eof /b file123_mixed_copy1 >nul 2>&1
1896 call :CheckFileSize file123_mixed_copy1 26
1897
1898 rem By postfixing the destination with /a, we ask for an ascii destination which appends EOF
1899 rem so here have first and third with eof, second as ascii 6 + 9-1 + 12 + extra EOF
1900 rem Note the delta between this and the previous one also shows that the destination
1901 rem ascii/binary is inherited from the last /a or /b on the line
1902 copy file1_plus_eof /b + file2_plus_eof /a + file3_plus_eof /b file123_mixed_copy2 /a >nul 2>&1
1903 call :CheckFileSize file123_mixed_copy2 27
1904
1905 rem so here have second with eof, first and third as ascii 6-1 + 9 + 12-1
1906 rem Note the delta between the next two also shows that the destination ascii/binary is
1907 rem inherited from the last /a or /b on the line, so the first has an extra EOF
1908 copy file1_plus_eof /a + file2_plus_eof /b + file3_plus_eof /a file123_mixed_copy3 >nul 2>&1
1909 call :CheckFileSize file123_mixed_copy3 26
1910 copy file1_plus_eof /a + file2_plus_eof /b + file3_plus_eof /a file123_mixed_copy4 /b >nul 2>&1
1911 call :CheckFileSize file123_mixed_copy4 25
1912
1913 rem -------------------------------------------------------------------------------------------
1914 rem This shows when concatenating, an ascii destination always adds on an EOF but when we
1915 rem are not concatenating, its a direct copy regardless of destination if being read as binary
1916 rem -------------------------------------------------------------------------------------------
1917
1918 rem All 3 have eof's, plus an extra = 6 + 9 + 12 + eof
1919 copy /b file1_plus_eof + file2_plus_eof + file3_plus_eof file123_mixed_copy5 /a >nul 2>&1
1920 call :CheckFileSize file123_mixed_copy5 28
1921
1922 rem All 2 have eof's, plus an extra = 6 + 12 + eof
1923 copy /b file1_plus_eof + file3_plus_eof file123_mixed_copy6 /a >nul 2>&1
1924 call :CheckFileSize file123_mixed_copy6 19
1925
1926 rem One file has EOF, but doesn't get an extra one, i.e. 6
1927 copy /b file1_plus_eof file123_mixed_copy7 /a >nul 2>&1
1928 call :CheckFileSize file123_mixed_copy7 6
1929
1930 rem Syntax means concatenate so ascii destination kicks in
1931 copy /b file1_plus_eof* file123_mixed_copy8 /a >nul 2>&1
1932 call :CheckFileSize file123_mixed_copy8 7
1933
1934 del *.* /q
1935 cd ..
1936
1937 rem ---------------------------------------
1938 rem Error combinations
1939 rem ---------------------------------------
1940 rem Specify source directory but name is a file
1941 call :setError 0
1942 copy file1\ dir1\ >NUL 2>&1
1943 if errorlevel 1 echo Passed: errorlevel invalid check 1
1944 if not errorlevel 1 echo Failed: errorlevel invalid check 1
1945 call :CheckNotExist dir1\file1
1946
1947 rem Overwrite same file
1948 call :setError 0
1949 copy file1 file1 >NUL 2>&1
1950 if errorlevel 1 echo Passed: errorlevel invalid check 2
1951 if not errorlevel 1 echo Failed: errorlevel invalid check 2
1952
1953 rem Supply same file identified as a directory
1954 call :setError 0
1955 copy file1 file1\ >NUL 2>&1
1956 if errorlevel 1 echo Passed: errorlevel invalid check 3
1957 if not errorlevel 1 echo Failed: errorlevel invalid check 3
1958
1959 cd ..
1960 rd foobar2 /s /q
1961
1962 echo ------------ Testing setlocal/endlocal ------------
1963 call :setError 0
1964 rem Note: setlocal EnableDelayedExpansion already tested in the variable delayed expansion test section
1965 mkdir foobar & cd foobar
1966 echo --- enable/disable extensions
1967 setlocal DisableEXTensions
1968 echo ErrLev: %ErrorLevel%
1969 endlocal
1970 echo ErrLev: %ErrorLevel%
1971 echo @echo off> tmp.cmd
1972 echo echo ErrLev: %%ErrorLevel%%>> tmp.cmd
1973 rem Enabled by default
1974 cmd /C tmp.cmd
1975 cmd /E:OfF /C tmp.cmd
1976 cmd /e:oN /C tmp.cmd
1977
1978 rem FIXME: creating file before setting envvar value to prevent parsing-time evaluation (due to EnableDelayedExpansion not being implemented/available yet)
1979 echo --- setlocal with corresponding endlocal
1980 rem %CD% does not tork on NT4 so use the following workaround
1981 for /d %%i in (.) do set CURDIR=%%~dpnxi
1982 echo @echo off> test.cmd
1983 echo echo %%VAR%%>> test.cmd
1984 echo setlocal>> test.cmd
1985 echo set VAR=localval>> test.cmd
1986 echo md foobar2>> test.cmd
1987 echo cd foobar2>> test.cmd
1988 echo echo %%VAR%%>> test.cmd
1989 echo for /d %%%%i in (.) do echo %%%%~dpnxi>> test.cmd
1990 echo endlocal>> test.cmd
1991 echo echo %%VAR%%>> test.cmd
1992 echo for /d %%%%i in (.) do echo %%%%~dpnxi>> test.cmd
1993 set VAR=globalval
1994 call test.cmd
1995 echo %VAR%
1996 for /d %%i in (.) do echo %%~dpnxi
1997 cd /d %curdir%
1998 rd foobar2
1999 set VAR=
2000 echo --- setlocal with no corresponding endlocal
2001 echo @echo off> test.cmd
2002 echo echo %%VAR%%>> test.cmd
2003 echo setlocal>> test.cmd
2004 echo set VAR=localval>> test.cmd
2005 echo md foobar2>> test.cmd
2006 echo cd foobar2>> test.cmd
2007 echo echo %%VAR%%>> test.cmd
2008 echo for /d %%%%i in (.) do echo %%%%~dpnxi>> test.cmd
2009 set VAR=globalval
2010 rem %CD% does not tork on NT4 so use the following workaround
2011 for /d %%i in (.) do set CURDIR=%%~dpnxi
2012 call test.cmd
2013 echo %VAR%
2014 for /d %%i in (.) do echo %%~dpnxi
2015 cd /d %curdir%
2016 rd foobar2
2017 set VAR=
2018 echo --- setlocal within same batch program
2019 set var1=one
2020 set var2=
2021 set var3=
2022 rem %CD% does not tork on NT4 so use the following workaround
2023 for /d %%i in (.) do set CURDIR=%%~dpnxi
2024 setlocal
2025 set var2=two
2026 mkdir foobar2
2027 cd foobar2
2028 setlocal
2029 set var3=three
2030 if "%var1%"=="one" echo Var1 ok 1
2031 if "%var2%"=="two" echo Var2 ok 2
2032 if "%var3%"=="three" echo Var3 ok 3
2033 for /d %%i in (.) do set curdir2=%%~dpnxi
2034 if "%curdir2%"=="%curdir%\foobar2" echo Directory is ok 1
2035 endlocal
2036 if "%var1%"=="one" echo Var1 ok 1
2037 if "%var2%"=="two" echo Var2 ok 2
2038 if "%var3%"=="" echo Var3 ok 3
2039 for /d %%i in (.) do set curdir2=%%~dpnxi
2040 if "%curdir2%"=="%curdir%\foobar2" echo Directory is ok 2
2041 endlocal
2042 if "%var1%"=="one" echo Var1 ok 1
2043 if "%var2%"=="" echo Var2 ok 2
2044 if "%var3%"=="" echo Var3 ok 3
2045 for /d %%i in (.) do set curdir2=%%~dpnxi
2046 if "%curdir2%"=="%curdir%" echo Directory is ok 3
2047 rd foobar2 /s /q
2048 set var1=
2049
2050 echo --- Mismatched set and end locals
2051 mkdir foodir2 2>nul
2052 mkdir foodir3 2>nul
2053 mkdir foodir4 2>nul
2054 rem %CD% does not tork on NT4 so use the following workaround
2055 for /d %%i in (.) do set curdir=%%~dpnxi
2056
2057 echo @echo off> 2set1end.cmd
2058 echo echo %%VAR%%>> 2set1end.cmd
2059 echo setlocal>> 2set1end.cmd
2060 echo set VAR=2set1endvalue1>> 2set1end.cmd
2061 echo cd ..\foodir3>> 2set1end.cmd
2062 echo setlocal>> 2set1end.cmd
2063 echo set VAR=2set1endvalue2>> 2set1end.cmd
2064 echo cd ..\foodir4>> 2set1end.cmd
2065 echo endlocal>> 2set1end.cmd
2066 echo echo %%VAR%%>> 2set1end.cmd
2067 echo for /d %%%%i in (.) do echo %%%%~dpnxi>> 2set1end.cmd
2068
2069 echo @echo off> 1set2end.cmd
2070 echo echo %%VAR%%>> 1set2end.cmd
2071 echo setlocal>> 1set2end.cmd
2072 echo set VAR=1set2endvalue1>> 1set2end.cmd
2073 echo cd ..\foodir3>> 1set2end.cmd
2074 echo endlocal>> 1set2end.cmd
2075 echo echo %%VAR%%>> 1set2end.cmd
2076 echo for /d %%%%i in (.) do echo %%%%~dpnxi>> 1set2end.cmd
2077 echo endlocal>> 1set2end.cmd
2078 echo echo %%VAR%%>> 1set2end.cmd
2079 echo for /d %%%%i in (.) do echo %%%%~dpnxi>> 1set2end.cmd
2080
2081 echo --- Extra setlocal in called batch
2082 set VAR=value1
2083 rem -- setlocal1 == this batch, should never be used inside a called routine
2084 setlocal
2085 set var=value2
2086 cd foodir2
2087 call %curdir%\2set1end.cmd
2088 echo Finished:
2089 echo %VAR%
2090 for /d %%i in (.) do echo %%~dpnxi
2091 endlocal
2092 echo %VAR%
2093 for /d %%i in (.) do echo %%~dpnxi
2094 cd /d %curdir%
2095
2096 echo --- Extra endlocal in called batch
2097 set VAR=value1
2098 rem -- setlocal1 == this batch, should never be used inside a called routine
2099 setlocal
2100 set var=value2
2101 cd foodir2
2102 call %curdir%\1set2end.cmd
2103 echo Finished:
2104 echo %VAR%
2105 for /d %%i in (.) do echo %%~dpnxi
2106 endlocal
2107 echo %VAR%
2108 for /d %%i in (.) do echo %%~dpnxi
2109 cd /d %curdir%
2110
2111 echo --- endlocal in called function rather than batch pgm is ineffective
2112 @echo off
2113 set var=1
2114 set var2=1
2115 setlocal
2116 set var=2
2117 call :endlocalroutine
2118 echo %var%
2119 endlocal
2120 echo %var%
2121 goto :endlocalfinished
2122 :endlocalroutine
2123 echo %var%
2124 endlocal
2125 echo %var%
2126 setlocal
2127 set var2=2
2128 endlocal
2129 echo %var2%
2130 endlocal
2131 echo %var%
2132 echo %var2%
2133 goto :eof
2134 :endlocalfinished
2135 echo %var%
2136
2137 set var=
2138 set var2=
2139 cd .. & rd /q/s foobar
2140
2141 echo ------------ Testing Errorlevel ------------
2142 rem WARNING: Do *not* add tests using ErrorLevel after this section
2143 should_not_exist 2> nul > nul
2144 echo %ErrorLevel%
2145 rem nt 4.0 doesn't really support a way of setting errorlevel, so this is weak
2146 rem See http://www.robvanderwoude.com/exit.php
2147 call :setError 1
2148 echo %ErrorLevel%
2149 if errorlevel 2 echo errorlevel too high, bad
2150 if errorlevel 1 echo errorlevel just right, good
2151 if errorlevel 01 echo errorlevel with leading zero just right, good
2152 if errorlevel -1 echo errorlevel with negative number OK
2153 if errorlevel 0x1 echo hexa should not be recognized!
2154 if errorlevel 1a echo invalid error level recognized!
2155 call :setError 0
2156 echo abc%ErrorLevel%def
2157 if errorlevel 1 echo errorlevel nonzero, bad
2158 if not errorlevel 1 echo errorlevel zero, good
2159 if not errorlevel 0x1 echo hexa should not be recognized!
2160 if not errorlevel 1a echo invalid error level recognized!
2161 rem Now verify that setting a real variable hides its magic variable
2162 set errorlevel=7
2163 echo %ErrorLevel% should be 7
2164 if errorlevel 7 echo setting var worked too well, bad
2165 call :setError 3
2166 echo %ErrorLevel% should still be 7
2167
2168 echo ------------ Testing GOTO ------------
2169 if a==a goto dest1
2170 :dest1
2171 echo goto with no leading space worked
2172 if b==b goto dest2
2173  :dest2
2174 echo goto with a leading space worked
2175 if c==c goto dest3
2176         :dest3
2177 echo goto with a leading tab worked
2178 if d==d goto dest4
2179 :dest4@space@
2180 echo goto with a following space worked
2181
2182 echo ------------ Testing PATH ------------
2183 set backup_path=%path%
2184 set path=original
2185 path
2186 path try2
2187 path
2188 path=try3
2189 path
2190 set path=%backup_path%
2191 set backup_path=
2192
2193 echo ------------ Testing combined CALLs/GOTOs ------------
2194 echo @echo off>foo.cmd
2195 echo goto :eof>>foot.cmd
2196 echo :eof>>foot.cmd
2197 echo echo world>>foo.cmd
2198
2199 echo @echo off>foot.cmd
2200 echo echo cheball>>foot.cmd
2201 echo.>>foot.cmd
2202 echo call :bar>>foot.cmd
2203 echo if "%%1"=="deleteMe" (del foot.cmd)>>foot.cmd
2204 echo goto :eof>>foot.cmd
2205 echo.>>foot.cmd
2206 echo :bar>>foot.cmd
2207 echo echo barbare>>foot.cmd
2208 echo goto :eof>>foot.cmd
2209
2210 call foo.cmd
2211 call foot
2212 call :bar
2213 del foo.cmd
2214 rem Script execution stops after the following line
2215 foot deleteMe
2216 call :foo
2217 call :foot
2218 goto :endFuns
2219
2220 :foot
2221 echo foot
2222
2223 :foo
2224 echo foo
2225 goto :eof
2226
2227 :endFuns
2228
2229 :bar
2230 echo bar
2231 call :foo
2232
2233 :baz
2234 echo baz
2235 goto :eof
2236
2237 echo Final message is not output since earlier 'foot' processing stops script execution
2238 echo Do NOT add any tests below this line
2239
2240 echo ------------ Done, jumping to EOF -----------
2241 goto :eof
2242 rem Subroutine to set errorlevel and return
2243 rem in windows nt 4.0, this always sets errorlevel 1, since /b isn't supported
2244 :setError
2245 exit /B %1
2246 rem This line runs under cmd in windows NT 4, but not in more modern versions.