rostests/winetests/cmd/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 WINE_FOO=oof
 227 echo ff^%WINE_FOO%
 228 set WINE_FOO=bar ^| baz
 229 set WINE_FOO
 230 rem FIXME: echoing %WINE_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 WINE_FOO=bar ^^^| baz
 235 set WINE_FOO
 236 echo %WINE_FOO%
 237 echo %ErrorLevel%
 238 set WINE_FOO=
 239
 240 echo ------------ Testing 'set' ------------
 241 call :setError 0
 242 rem Remove any WINE_FOO* WINE_BA* environment variables from shell before proceeding
 243 for /f "delims==" %%i in ('set WINE_ba') do set %%i=
 244 for /f "delims==" %%i in ('set WINE_foo') do set %%i=
 245 set WINE_FOOBAR 2> nul > nul
 246 echo %ErrorLevel%
 247 set WINE_FOOBAR =  baz
 248 echo %ErrorLevel%
 249 echo %WINE_FOOBAR%WINE_FOOBAR not defined
 250 echo %WINE_FOOBAR %
 251 set WINE_FOOBAR 2> nul
 252 set WINE_FOOBAR =  baz2
 253 echo %ErrorLevel%
 254 echo %WINE_fOObAr %
 255 set WINE_FOOBAR= bar
 256 echo %ErrorLevel%
 257 echo %WINE_FOOBAR%
 258 set WINE_FOO
 259 set WINE_FOOBAR=
 260 set WINE_FOOB
 261 echo %WINE_FOOBAR%WINE_FOOBAR not defined
 262 set WINE_FOOBAR =
 263 set WINE_FOOBA 2> nul > nul
 264 echo %ErrorLevel%
 265 set WINE_FOO=bar
 266 echo %WINE_FOO%
 267 set WINE_FOO=foo
 268 set WINE_BAR=bar
 269 echo %WINE_FOO%%WINE_BAR%
 270 set WINE_BAR=
 271 set WINE_FOO=
 272 set WINE_FOO=%WINE_FOO%
 273 echo %WINE_FOO%WINE_FOO not defined
 274 set WINE_BAZ%=bazbaz
 275 set WINE_BA
 276 echo %WINE_BAZ%%
 277 set WINE_BAZ%=
 278 echo set "WINE_FOO=bar" should not include the quotes in the variable value
 279 set "WINE_FOO=bar"
 280 echo %WINE_FOO%
 281 set@tab@WINE_FOO=foo
 282 echo %WINE_FOO%
 283 set@tab@WINE_FOO=
 284 echo '%WINE_FOO%'
 285 set WINE_FOO=foo@space@
 286 echo '%WINE_FOO%'
 287 set WINE_FOO=foo@tab@
 288 echo '%WINE_FOO%'
 289 rem Space symbol must appear in `var`
 290 set WINE_FOO=value@space@
 291 echo '%WINE_FOO%'
 292 rem Space symbol must NOT appear in `var`
 293 set "WINE_FOO=value"@space@
 294 echo '%WINE_FOO%'
 295 rem Mixed examples:
 296 set WINE_FOO=jim fred
 297 echo '%WINE_FOO%'
 298 set WINE_FOO="jim" fred
 299 echo '%WINE_FOO%'
 300 set "WINE_FOO=jim fred"
 301 echo '%WINE_FOO%'
 302 set "WINE_FOO=jim" fred
 303 echo '%WINE_FOO%'
 304 rem Only the final quote ends the string
 305 set "WINE_FOO=apple"banana"grape"orange
 306 echo '%WINE_FOO%'
 307 set WINE_FOO=
 308
 309 echo ------------ Testing variable expansion ------------
 310 call :setError 0
 311 echo ~p0 should be path containing batch file
 312 echo %~p0
 313 mkdir dummydir
 314 cd dummydir
 315 echo %~p0
 316 cd ..
 317 rmdir dummydir
 318 echo ~dp0 should be directory containing batch file
 319 echo %~dp0
 320 mkdir dummydir
 321 cd dummydir
 322 echo %~dp0
 323 cd ..
 324 rmdir dummydir
 325 echo CD value %CD%
 326 echo %%
 327 echo P%
 328 echo %P
 329 echo %WINE_UNKNOWN%S
 330 echo P%WINE_UNKNOWN%
 331 echo P%WINE_UNKNOWN%S
 332 echo %ERRORLEVEL
 333 echo %ERRORLEVEL%
 334 echo %ERRORLEVEL%%ERRORLEVEL%
 335 echo %ERRORLEVEL%ERRORLEVEL%
 336 echo %ERRORLEVEL%%
 337 echo %ERRORLEVEL%%%
 338 echo P%ERRORLEVEL%
 339 echo %ERRORLEVEL%S
 340 echo P%ERRORLEVEL%S
 341
 342 echo ------------ Testing variable substrings ------------
 343 set WINE_VAR=qwerty
 344 echo %WINE_VAR:~0,1%
 345 echo %WINE_VAR:~0,3%
 346 echo %WINE_VAR:~2,2%
 347 echo '%WINE_VAR:~-2,3%'
 348 echo '%WINE_VAR:~-2,1%'
 349 echo %WINE_VAR:~2,-1%
 350 echo %WINE_VAR:~2,-3%
 351 echo '%WINE_VAR:~-2,-4%'
 352 echo %WINE_VAR:~-3,-2%
 353 set WINE_VAR=
 354
 355 echo ------------ Testing variable substitution ------------
 356 echo --- in FOR variables
 357 for %%i in ("A B" C) do echo %%i
 358 rem check works when prefix with @
 359 @for %%i in ("A B" C) do echo %%i
 360 rem quotes removal
 361 for %%i in ("A B" C) do echo '%%~i'
 362 rem fully qualified path
 363 for %%f in ("C D" E) do echo %%~ff
 364 rem drive letter
 365 for %%i in ("F G" H) do echo %%~di
 366 rem path
 367 for %%d in ("I J" K) do echo %%~pd
 368 rem filename
 369 for %%i in ("L M" N) do echo %%~ni
 370 rem file extension
 371 for %%i in ("O. P.OOL" Q.TABC hello) do echo '%%~xi'
 372 rem path with short path names
 373 for %%I in ("R S" T ABCDEFGHIJK.LMNOP) do echo '%%~sI'
 374 rem file attribute
 375 for %%i in ("U V" W) do echo '%%~ai'
 376 echo foo> foo
 377 for %%i in (foo) do echo '%%~ai'
 378 for %%i in (foo) do echo '%%~zi'
 379 del foo
 380 rem file date/time
 381 rem Not fully testable, until we can grep dir's output to get foo's creation time in an envvar...
 382 for %%i in ("a b" c) do echo '%%~ti'
 383 rem file size
 384 rem Similar issues as above
 385 for %%i in ("a b" c) do echo '%%~zi'
 386 rem combined options
 387 for %%i in ("d e" f) do echo %%~dpi
 388 for %%i in ("g h" i) do echo %%~sdi
 389 for %%i in ("g h" i) do echo %%~dsi
 390 for %%i in ("j k" l.eh) do echo '%%~xsi'
 391 for %%i in ("") do echo '%%~i,%%~fi,%%~di,%%~pi,%%~ni,%%~xi,%%~si,%%~ai,%%~ti,%%~zi'
 392
 393 echo --- in parameters
 394 for %%i in ("A B" C) do call :echoFun %%i
 395 rem quotes removal
 396 for %%i in ("A B" C) do call :echoFunQ %%i
 397 rem fully qualified path
 398 for %%f in ("C D" E) do call :echoFunF %%f
 399 rem drive letter
 400 for %%i in ("F G" H) do call :echoFunD %%i
 401 rem path
 402 for %%d in ("I J" K) do call :echoFunP %%d
 403 rem filename
 404 for %%i in ("L M" N) do call :echoFunN %%i
 405 rem file extension
 406 for %%i in ("O. P.OOL" Q.TABC hello) do call :echoFunX %%i
 407 rem path with short path names
 408 for %%I in ("R S" T ABCDEFGHIJK.LMNOP) do call :echoFunS %%I
 409 rem NT4 aborts whole script execution when encountering ~a, ~t and ~z substitutions, preventing full testing
 410 rem combined options
 411 for %%i in ("d e" f) do call :echoFunDP %%i
 412 for %%i in ("g h" i) do call :echoFunSD %%i
 413 for %%i in ("g h" i) do call :echoFunDS %%i
 414 for %%i in ("j k" l.eh) do call :echoFunXS %%i
 415
 416 goto :endEchoFuns
 417 :echoFun
 418 echo %1
 419 goto :eof
 420
 421 :echoFunQ
 422 echo '%~1'
 423 goto :eof
 424
 425 :echoFunF
 426 echo %~f1
 427 goto :eof
 428
 429 :echoFunD
 430 echo %~d1
 431 goto :eof
 432
 433 :echoFunP
 434 echo %~p1
 435 goto :eof
 436
 437 :echoFunN
 438 echo %~n1
 439 goto :eof
 440
 441 :echoFunX
 442 echo '%~x1'
 443 goto :eof
 444
 445 :echoFunS
 446 rem some NT4 workaround
 447 set WINE_VAR='%~s1'
 448 echo %WINE_VAR%
 449 set WINE_VAR=
 450 goto :eof
 451
 452 :echoFunDP
 453 echo %~dp1
 454 goto :eof
 455
 456 :echoFunSD
 457 echo %~sd1
 458 goto :eof
 459
 460 :echoFunDS
 461 echo %~ds1
 462 goto :eof
 463
 464 :echoFunXS
 465 echo '%~xs1'
 466 goto :eof
 467 :endEchoFuns
 468
 469 echo ------------ Testing variable delayed expansion ------------
 470 rem NT4 doesn't support this
 471 echo --- default mode (load-time expansion)
 472 set WINE_FOO=foo
 473 echo %WINE_FOO%
 474 echo !WINE_FOO!
 475 if %WINE_FOO% == foo (
 476     set WINE_FOO=bar
 477     if %WINE_FOO% == bar (echo bar) else echo foo
 478 )
 479
 480 set WINE_FOO=foo
 481 if %WINE_FOO% == foo (
 482     set WINE_FOO=bar
 483     if !WINE_FOO! == bar (echo bar) else echo foo
 484 )
 485
 486 echo --- runtime (delayed) expansion mode
 487 setlocal EnableDelayedExpansion
 488 set WINE_FOO=foo
 489 echo %WINE_FOO%
 490 echo !WINE_FOO!
 491 if %WINE_FOO% == foo (
 492     set WINE_FOO=bar
 493     if %WINE_FOO% == bar (echo bar) else echo foo
 494 )
 495
 496 set WINE_FOO=foo
 497 if %WINE_FOO% == foo (
 498     set WINE_FOO=bar
 499     if !WINE_FOO! == bar (echo bar) else echo foo
 500 )
 501 echo %ErrorLevel%
 502 setlocal DisableDelayedExpansion
 503 echo %ErrorLevel%
 504 set WINE_FOO=foo
 505 echo %WINE_FOO%
 506 echo !WINE_FOO!
 507 set WINE_FOO=
 508 echo --- using /V cmd flag
 509 echo @echo off> tmp.cmd
 510 echo set WINE_FOO=foo>> tmp.cmd
 511 echo echo %%WINE_FOO%%>> tmp.cmd
 512 echo echo !WINE_FOO!>> tmp.cmd
 513 echo set WINE_FOO=>> tmp.cmd
 514 cmd /V:ON /C tmp.cmd
 515 cmd /V:OfF /C tmp.cmd
 516 del tmp.cmd
 517
 518 echo ------------ Testing conditional execution ------------
 519 echo --- unconditional ampersand
 520 call :setError 123 & echo foo1
 521 echo bar2 & echo foo2
 522 mkdir foobar & cd foobar
 523 echo > foobazbar
 524 cd .. & rd /s/q foobar
 525 if exist foobazbar (
 526     echo foobar not deleted!
 527     cd ..
 528     rd /s/q foobar
 529 ) else echo foobar deleted
 530 echo --- on success conditional and
 531 call :setError 456 && echo foo3 > foo3
 532 if exist foo3 (
 533     echo foo3 created
 534     del foo3
 535 ) else echo foo3 not created
 536 echo bar4 && echo foo4
 537 echo --- on failure conditional or
 538 call :setError 789 || echo foo5
 539 echo foo6 || echo bar6 > bar6
 540 if exist bar6 (
 541     echo bar6 created
 542     del bar6
 543 )
 544
 545 echo ------------ Testing cd ------------
 546 mkdir foobar
 547 cd foobar
 548 echo blabla > singleFile
 549 dir /b
 550 echo Current dir: %CD%
 551 cd
 552 cd ..
 553 cd
 554 cd foobar@space@
 555 cd
 556 cd ..
 557 cd
 558 cd @space@foobar
 559 cd
 560 cd..
 561 cd
 562 cd foobar
 563 cd..@space@
 564 cd
 565 if not exist foobar (cd ..)
 566 cd foobar
 567 cd@tab@..@tab@@space@@tab@
 568 cd
 569 if not exist foobar (cd ..)
 570 cd foobar
 571 mkdir "bar bak"
 572 cd "bar bak"
 573 cd
 574 cd ..
 575 cd ".\bar bak"
 576 cd
 577 cd ..
 578 cd .\"bar bak"
 579 cd
 580 cd ..
 581 cd bar bak
 582 cd
 583 cd "bar bak@space@"@tab@@space@
 584 cd
 585 cd ..\..
 586 cd
 587 rd /Q/s foobar
 588 mkdir foobar
 589 cd /d@tab@foobar
 590 cd
 591 cd ..
 592 rd /q/s foobar
 593
 594 echo ------------ Testing type ------------
 595 echo bar> foobaz
 596 @echo on
 597 type foobaz
 598 echo ---
 599 @echo off
 600 type foobaz@tab@
 601 echo ---1
 602 type ."\foobaz"
 603 echo ---2
 604 type ".\foobaz"
 605 echo ---3
 606 del foobaz
 607
 608 echo ------------ Testing NUL ------------
 609 md foobar & cd foobar
 610 rem NUL file (non) creation + case insensitivity
 611 rem Note: "if exist" does not work with NUL, so to check for file existence we use a kludgy workaround
 612 echo > bar
 613 echo foo > NUL
 614 dir /b /a-d
 615 echo foo > nul
 616 dir /b /a-d
 617 echo foo > NuL
 618 @tab@dir /b@tab@/a-d
 619 del bar
 620 rem NUL not special everywhere
 621 call :setError 123
 622 echo NUL> foo
 623 if not exist foo (echo foo should have been created) else (
 624     type foo
 625     del foo
 626 )
 627 rem Empty file creation
 628 copy nul foo > nul
 629 if exist foo (
 630     echo foo created
 631     del foo
 632     type foo
 633 ) else (
 634     echo ***
 635 )
 636 echo 1234 >a.a
 637 copy a.a+NUL b.b >nul
 638 call :CheckFileSize a.a 7 b.b 8
 639 copy NUL+a.a b.b >nul
 640 call :CheckFileSize a.a 7 b.b 8
 641 mkdir subdir
 642 copy a.a+NUL subdir\ >nul
 643 call :CheckFileSize a.a 7 subdir\a.a 8
 644 del subdir\a.a
 645 cd subdir
 646 copy ..\a.a NUL >nul
 647 if exist a.a echo Failed
 648 cd ..
 649 rd subdir /s /q
 650 del a.a b.b
 651 cd .. & rd foobar /s /q
 652
 653 echo ------------ Testing if/else ------------
 654 echo --- if/else should work with blocks
 655 if 0 == 0 (
 656   echo if seems to work
 657 ) else (
 658   echo if seems to be broken
 659 )
 660 if 1 == 0 (
 661   echo else seems to be broken
 662 ) else (
 663   echo else seems to work
 664 )
 665 if /c==/c (
 666   echo if seems not to detect /c as parameter
 667 ) else (
 668   echo parameter detection seems to be broken
 669 )
 670
 671 echo --- case sensitivity with and without /i option
 672 if bar==BAR echo if does not default to case sensitivity
 673 if not bar==BAR echo if seems to default to case sensitivity
 674 if /i foo==FOO echo if /i seems to work
 675 if /i not foo==FOO echo if /i seems to be broken
 676 if /I foo==FOO echo if /I seems to work
 677 if /I not foo==FOO echo if /I seems to be broken
 678
 679 echo --- string comparisons
 680 if abc == abc  (echo equal) else echo non equal
 681 if abc =="abc" (echo equal) else echo non equal
 682 if "abc"== abc (echo equal) else echo non equal
 683 if "abc"== "abc" (echo equal) else echo non equal
 684
 685 echo --- tabs handling
 686 if@tab@1==1 echo doom
 687 if @tab@1==1 echo doom
 688 if 1==1 (echo doom) else@tab@echo quake
 689 if@tab@not @tab@1==@tab@0 @tab@echo lol
 690 if 1==0@tab@(echo doom) else echo quake
 691 if 1==0 (echo doom)@tab@else echo quake
 692 if 1==0 (echo doom) else@tab@echo quake
 693
 694 echo --- comparison operators
 695 rem NT4 misevaluates conditionals in for loops so we have to use subroutines as workarounds
 696 echo ------ for strings
 697 rem NT4 stops processing of the whole batch file as soon as it finds a
 698 rem comparison operator non fully uppercased, such as lss instead of LSS, so we
 699 rem can't test those here.
 700 if LSS LSS LSSfoo (echo LSS string can be used as operand for LSS comparison)
 701 if LSS LSS LSS (echo bar)
 702 if 1.1 LSS 1.10 (echo floats are handled as strings)
 703 if "9" LSS "10" (echo numbers in quotes recognized!) else echo numbers in quotes are handled as strings
 704 if not "-1" LSS "1" (echo negative numbers as well) else echo NT4
 705 if /i foo LSS FoOc echo if /i seems to work for LSS
 706 if /I not foo LSS FOOb echo if /I seems to be broken for LSS
 707 set WINE_STR_PARMS=A B AB BA AA
 708 for %%i in (%WINE_STR_PARMS%) do (
 709     for %%j in (%WINE_STR_PARMS%) do (
 710         call :LSStest %%i %%j))
 711 if b LSS B (echo b LSS B) else echo NT4
 712 if /I b LSS B echo b LSS B insensitive
 713 if b LSS A echo b LSS A
 714 if /I b LSS A echo b LSS A insensitive
 715 if a LSS B (echo a LSS B) else echo NT4
 716 if /I a LSS B echo a LSS B insensitive
 717 if A LSS b echo A LSS b
 718 if /I A LSS b echo A LSS b insensitive
 719 for %%i in (%WINE_STR_PARMS%) do (
 720     for %%j in (%WINE_STR_PARMS%) do (
 721         call :LEQtest %%i %%j))
 722 if b LEQ B (echo b LEQ B) else echo NT4
 723 if /I b LEQ B echo b LEQ B insensitive
 724 if b LEQ A echo b LEQ A
 725 if /I b LEQ A echo b LEQ A insensitive
 726 if a LEQ B (echo a LEQ B) else echo NT4
 727 if /I a LEQ B echo a LEQ B insensitive
 728 if A LEQ b echo A LEQ b
 729 if /I A LEQ b echo A LEQ b insensitive
 730 for %%i in (%WINE_STR_PARMS%) do (
 731     for %%j in (%WINE_STR_PARMS%) do (
 732         call :EQUtest %%i %%j))
 733 if /I A EQU a echo A EQU a insensitive
 734 for %%i in (%WINE_STR_PARMS%) do (
 735     for %%j in (%WINE_STR_PARMS%) do (
 736         call :NEQtest %%i %%j))
 737 for %%i in (%WINE_STR_PARMS%) do (
 738     for %%j in (%WINE_STR_PARMS%) do (
 739         call :GEQtest %%i %%j))
 740 for %%i in (%WINE_STR_PARMS%) do (
 741     for %%j in (%WINE_STR_PARMS%) do (
 742         call :GTRtest %%i %%j))
 743 echo ------ for numbers
 744 if -1 LSS 1 (echo negative numbers handled)
 745 if not -1 LSS -10 (echo negative numbers handled)
 746 if not 9 LSS 010 (echo octal handled)
 747 if not -010 LSS -8 (echo also in negative form)
 748 if 4 LSS 0x5 (echo hexa handled)
 749 if not -1 LSS -0x1A (echo also in negative form)
 750 if 11 LSS 101 (echo 11 LSS 101)
 751 set WINE_INT_PARMS=0 1 10 9
 752 for %%i in (%WINE_INT_PARMS%) do (
 753     for %%j in (%WINE_INT_PARMS%) do (
 754         call :LSStest %%i %%j))
 755 for %%i in (%WINE_INT_PARMS%) do (
 756     for %%j in (%WINE_INT_PARMS%) do (
 757         call :LEQtest %%i %%j))
 758 for %%i in (%WINE_INT_PARMS%) do (
 759     for %%j in (%WINE_INT_PARMS%) do (
 760         call :EQUtest %%i %%j))
 761 if 011 EQU 9 (echo octal ok)
 762 if 0xA1 EQU 161 (echo hexa ok)
 763 if 0xA1 EQU "161" (echo hexa should be recognized) else (echo string/hexa compare ok)
 764 if "0xA1" EQU 161 (echo hexa should be recognized) else (echo string/hexa compare ok)
 765 for %%i in (%WINE_INT_PARMS%) do (
 766     for %%j in (%WINE_INT_PARMS%) do (
 767         call :NEQtest %%i %%j))
 768 for %%i in (%WINE_INT_PARMS%) do (
 769     for %%j in (%WINE_INT_PARMS%) do (
 770         call :GEQtest %%i %%j))
 771 for %%i in (%WINE_INT_PARMS%) do (
 772     for %%j in (%WINE_INT_PARMS%) do (
 773         call :GTRtest %%i %%j))
 774 echo ------ for numbers and stringified numbers
 775 if not "1" EQU 1 (echo strings and integers not equal) else echo foo
 776 if not 1 EQU "1" (echo strings and integers not equal) else echo foo
 777 if '1' EQU 1 echo '1' EQU 1
 778 if 1 EQU '1' echo 1 EQU '1'
 779 if not "1" GEQ 1 (echo foo) else echo bar
 780 if "10" GEQ "1" echo "10" GEQ "1"
 781 if '1' GEQ 1 (echo '1' GEQ 1) else echo NT4
 782 if 1 GEQ "1" echo 1 GEQ "1"
 783 if "1" GEQ "1" echo "1" GEQ "1"
 784 if '1' GEQ "1" echo '1' GEQ "1"
 785 if "10" GEQ "1" echo "10" GEQ "1"
 786 if not 1 GEQ '1' (echo non NT4) else echo 1 GEQ '1'
 787 for %%i in ("1" '1') do call :GEQtest %%i '1'
 788 if "10" GEQ '1' (echo "10" GEQ '1') else echo foo
 789 if 1 GEQ "10" (echo 1 GEQ "10") else echo foo
 790 if "1" GEQ "10" (echo 1 GEQ "10") else echo foo
 791 if '1' GEQ "10" (echo '1' GEQ "10") else echo foo
 792 if "10" GEQ "10" (echo "10" GEQ "10")
 793 goto :endIfCompOpsSubroutines
 794
 795 rem IF subroutines helpers
 796 :LSStest
 797 if %1 LSS %2 echo %1 LSS %2
 798 goto :eof
 799 :LEQtest
 800 if %1 LEQ %2 echo %1 LEQ %2
 801 goto :eof
 802 :EQUtest
 803 if %1 EQU %2 echo %1 EQU %2
 804 goto :eof
 805 :NEQtest
 806 if %1 NEQ %2 echo %1 NEQ %2
 807 goto :eof
 808 :GEQtest
 809 if %1 GEQ %2 echo %1 GEQ %2
 810 goto :eof
 811 :GTRtest
 812 if %1 GTR %2 echo %1 GTR %2
 813 goto :eof
 814
 815 :endIfCompOpsSubroutines
 816 set WINE_STR_PARMS=
 817 set WINE_INT_PARMS=
 818
 819 echo ------------ Testing for ------------
 820 echo --- plain FOR
 821 for %%i in (A B C) do echo %%i
 822 for %%i in (A B C) do echo %%I
 823 for %%i in (A B C) do echo %%j
 824 for %%i in (A B C) do call :forTestFun1 %%i
 825 for %%i in (1,4,1) do echo %%i
 826 for %%i in (A, B,C) do echo %%i
 827 for %%i in  (X) do echo %%i
 828 for@tab@%%i in  (X2) do echo %%i
 829 for %%i in@tab@(X3) do echo %%i
 830 for %%i in (@tab@ foo@tab@) do echo %%i
 831 for@tab@ %%i in@tab@(@tab@M) do echo %%i
 832 for %%i@tab@in (X)@tab@do@tab@echo %%i
 833 for@tab@ %%j in@tab@(@tab@M, N, O@tab@) do echo %%j
 834 for %%i in (`echo A B`) do echo %%i
 835 for %%i in ('echo A B') do echo %%i
 836 for %%i in ("echo A B") do echo %%i
 837 for %%i in ("A B" C) do echo %%i
 838 goto :endForTestFun1
 839 :forTestFun1
 840 echo %1
 841 goto :eof
 842 :endForTestFun1
 843 echo --- imbricated FORs
 844 for %%i in (X) do (
 845     for %%j in (Y) do (
 846         echo %%i %%j))
 847 for %%i in (X) do (
 848     for %%I in (Y) do (
 849         echo %%i %%I))
 850 for %%i in (A B) do (
 851     for %%j in (C D) do (
 852         echo %%i %%j))
 853 for %%i in (A B) do (
 854     for %%j in (C D) do (
 855         call :forTestFun2 %%i %%j ))
 856 goto :endForTestFun2
 857 :forTestFun2
 858 echo %1 %2
 859 goto :eof
 860 :endForTestFun2
 861 mkdir foobar & cd foobar
 862 mkdir foo
 863 mkdir bar
 864 mkdir baz
 865 echo > bazbaz
 866 echo --- basic wildcards
 867 for %%i in (ba*) do echo %%i
 868 echo --- for /d
 869 for /d %%i in (baz foo bar) do echo %%i 2>&1
 870 rem Confirm we don't match files:
 871 for /d %%i in (bazb*) do echo %%i 2>&1
 872 for /d %%i in (bazb2*) do echo %%i 2>&1
 873 rem Show we pass through non wildcards
 874 for /d %%i in (PASSED) do echo %%i
 875 for /d %%i in (xxx) do (
 876   echo %%i - Should be xxx
 877   echo Expected second line
 878 )
 879 rem Show we issue no messages on failures
 880 for /d %%i in (FAILED?) do echo %%i 2>&1
 881 for /d %%i in (FAILED?) do (
 882   echo %%i - Unexpected!
 883   echo FAILED Unexpected second line
 884 )
 885 for /d %%i in (FAILED*) do echo %%i 2>&1
 886 for /d %%i in (FAILED*) do (
 887   echo %%i - Unexpected!
 888   echo FAILED Unexpected second line
 889 )
 890 rem FIXME can't test wildcard expansion here since it's listed in directory
 891 rem order, and not in alphabetic order.
 892 rem Proper testing would need a currently missing "sort" program implementation.
 893 rem for /d %%i in (ba*) do echo %%i>> tmp
 894 rem sort < tmp
 895 rem del tmp
 896 rem for /d %%i in (?a*) do echo %%i>> tmp
 897 rem sort < tmp
 898 rem del tmp
 899 rem for /d %%i in (*) do echo %%i>> tmp
 900 rem sort < tmp
 901 rem del tmp
 902 echo > baz\bazbaz
 903 goto :TestForR
 904
 905 :SetExpected
 906 del temp.bat 2>nul
 907 call :WriteLine set WINE_found=N
 908 for /l %%i in (1,1,%WINE_expectedresults%) do (
 909   call :WriteLine if "%%%%WINE_expectedresults.%%i%%%%"=="%%%%1" set WINE_found=Y
 910   call :WriteLine if "%%%%WINE_found%%%%"=="Y" set WINE_expectedresults.%%i=
 911   call :WriteLine if "%%%%WINE_found%%%%"=="Y" goto :eof
 912 )
 913 call :WriteLine echo Got unexpected result: "%%%%1"
 914 goto :eof
 915
 916 :WriteLine
 917 echo %*>> temp.bat
 918 goto :EOF
 919
 920 :ValidateExpected
 921 del temp.bat 2>nul
 922 for /l %%i in (1,1,%WINE_expectedresults%) do (
 923   call :WriteLine if not "%%%%WINE_expectedresults.%%i%%%%"=="" echo Found missing result: "%%%%WINE_expectedresults.%%i%%%%"
 924 )
 925 call temp.bat
 926 del temp.bat 2>nul
 927 goto :eof
 928
 929 :TestForR
 930 rem %CD% does not tork on NT4 so use the following workaround
 931 for /d %%i in (.) do set WINE_CURDIR=%%~dpnxi
 932
 933 echo --- for /R
 934 echo Plain directory enumeration
 935 set WINE_expectedresults=4
 936 set WINE_expectedresults.1=%WINE_CURDIR%\.
 937 set WINE_expectedresults.2=%WINE_CURDIR%\bar\.
 938 set WINE_expectedresults.3=%WINE_CURDIR%\baz\.
 939 set WINE_expectedresults.4=%WINE_CURDIR%\foo\.
 940 call :SetExpected
 941 for /R %%i in (.) do call temp.bat %%i
 942 call :ValidateExpected
 943
 944 echo Plain directory enumeration from provided root
 945 set WINE_expectedresults=4
 946 set WINE_expectedresults.1=%WINE_CURDIR%\.
 947 set WINE_expectedresults.2=%WINE_CURDIR%\bar\.
 948 set WINE_expectedresults.3=%WINE_CURDIR%\baz\.
 949 set WINE_expectedresults.4=%WINE_CURDIR%\foo\.
 950 if "%CD%"=="" goto :SkipBrokenNT4
 951 call :SetExpected
 952 for /R "%WINE_CURDIR%" %%i in (.) do call temp.bat %%i
 953 call :ValidateExpected
 954 :SkipBrokenNT4
 955
 956 echo File enumeration
 957 set WINE_expectedresults=2
 958 set WINE_expectedresults.1=%WINE_CURDIR%\baz\bazbaz
 959 set WINE_expectedresults.2=%WINE_CURDIR%\bazbaz
 960 call :SetExpected
 961 for /R %%i in (baz*) do call temp.bat %%i
 962 call :ValidateExpected
 963
 964 echo File enumeration from provided root
 965 set WINE_expectedresults=2
 966 set WINE_expectedresults.1=%WINE_CURDIR%\baz\bazbaz
 967 set WINE_expectedresults.2=%WINE_CURDIR%\bazbaz
 968 call :SetExpected
 969 for /R %%i in (baz*) do call temp.bat %%i
 970 call :ValidateExpected
 971
 972 echo Mixed enumeration
 973 set WINE_expectedresults=6
 974 set WINE_expectedresults.1=%WINE_CURDIR%\.
 975 set WINE_expectedresults.2=%WINE_CURDIR%\bar\.
 976 set WINE_expectedresults.3=%WINE_CURDIR%\baz\.
 977 set WINE_expectedresults.4=%WINE_CURDIR%\baz\bazbaz
 978 set WINE_expectedresults.5=%WINE_CURDIR%\bazbaz
 979 set WINE_expectedresults.6=%WINE_CURDIR%\foo\.
 980 call :SetExpected
 981 for /R %%i in (. baz*) do call temp.bat %%i
 982 call :ValidateExpected
 983
 984 echo Mixed enumeration from provided root
 985 set WINE_expectedresults=6
 986 set WINE_expectedresults.1=%WINE_CURDIR%\.
 987 set WINE_expectedresults.2=%WINE_CURDIR%\bar\.
 988 set WINE_expectedresults.3=%WINE_CURDIR%\baz\.
 989 set WINE_expectedresults.4=%WINE_CURDIR%\baz\bazbaz
 990 set WINE_expectedresults.5=%WINE_CURDIR%\bazbaz
 991 set WINE_expectedresults.6=%WINE_CURDIR%\foo\.
 992 call :SetExpected
 993 for /R %%i in (. baz*) do call temp.bat %%i
 994 call :ValidateExpected
 995
 996 echo With duplicates enumeration
 997 set WINE_expectedresults=12
 998 set WINE_expectedresults.1=%WINE_CURDIR%\bar\bazbaz
 999 set WINE_expectedresults.2=%WINE_CURDIR%\bar\fred
1000 set WINE_expectedresults.3=%WINE_CURDIR%\baz\bazbaz
1001 set WINE_expectedresults.4=%WINE_CURDIR%\baz\bazbaz
1002 set WINE_expectedresults.5=%WINE_CURDIR%\baz\bazbaz
1003 set WINE_expectedresults.6=%WINE_CURDIR%\baz\fred
1004 set WINE_expectedresults.7=%WINE_CURDIR%\bazbaz
1005 set WINE_expectedresults.8=%WINE_CURDIR%\bazbaz
1006 set WINE_expectedresults.9=%WINE_CURDIR%\bazbaz
1007 set WINE_expectedresults.10=%WINE_CURDIR%\foo\bazbaz
1008 set WINE_expectedresults.11=%WINE_CURDIR%\foo\fred
1009 set WINE_expectedresults.12=%WINE_CURDIR%\fred
1010 call :SetExpected
1011 for /R %%i in (baz* bazbaz fred ba*) do call temp.bat %%i
1012 call :ValidateExpected
1013
1014 echo Strip missing wildcards, keep unwildcarded names
1015 set WINE_expectedresults=6
1016 set WINE_expectedresults.1=%WINE_CURDIR%\bar\jim
1017 set WINE_expectedresults.2=%WINE_CURDIR%\baz\bazbaz
1018 set WINE_expectedresults.3=%WINE_CURDIR%\baz\jim
1019 set WINE_expectedresults.4=%WINE_CURDIR%\bazbaz
1020 set WINE_expectedresults.5=%WINE_CURDIR%\foo\jim
1021 set WINE_expectedresults.6=%WINE_CURDIR%\jim
1022 call :SetExpected
1023 for /R %%i in (baz* fred* jim) do call temp.bat %%i
1024 call :ValidateExpected
1025
1026 echo for /R passed
1027 echo --- Complex wildcards unix and windows slash
1028 cd ..
1029 echo Windows slashs, valid path
1030 for %%f in (foobar\baz\bazbaz) do echo ASIS: %%f
1031 for %%f in (foobar\baz\*) do echo WC  : %%f
1032 echo Windows slashs, invalid path
1033 for %%f in (foobar\jim\bazbaz) do echo ASIS: %%f
1034 for %%f in (foobar\jim\*) do echo WC  : %%f
1035 echo Unix slashs, valid path
1036 for %%f in (foobar/baz/bazbaz) do echo ASIS: %%f
1037 for %%f in (foobar/baz/*) do echo WC  : %%f
1038 echo Unix slashs, invalid path
1039 for %%f in (foobar/jim/bazbaz) do echo ASIS: %%f
1040 for %%f in (foobar/jim/*) do echo WC  : %%f
1041 echo Done
1042 rd /s/Q foobar
1043 echo --- for /L
1044 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
1045 for /L %%i in (1,2,0) do echo %%i
1046 for@tab@/L %%i in (1,2,0) do echo %%i
1047 for /L %%i in (1,2,6) do echo %%i
1048 for /l %%i in (1 ,2,6) do echo %%i
1049 for /L %%i in (a,2,3) do echo %%i
1050 for /L %%i in (1,2,-1) do echo %%i
1051 for /L %%i in (-4,-1,-1) do echo %%i
1052 for /L %%i in (1,-2,-2) do echo %%i
1053 for /L %%i in (1,2,a) do echo %%i
1054 echo ErrorLevel %ErrorLevel%
1055 for /L %%i in (1,a,b) do echo %%i
1056 echo ErrorLevel %ErrorLevel%
1057 rem Test boundaries
1058 for /l %%i in (1,1,4) do echo %%i
1059 for /l %%i in (1,2,4) do echo %%i
1060 for /l %%i in (4,-1,1) do echo %%i
1061 for /l %%i in (4,-2,1) do echo %%i
1062 for /l %%i in (1,-1,4) do echo %%i
1063 for /l %%i in (4,1,1) do echo %%i
1064 for /L %%i in (a,2,b) do echo %%i
1065 for /L %%i in (1,1,1) do echo %%i
1066 for /L %%i in (1,-2,-1) do echo %%i
1067 for /L %%i in (-1,-1,-1) do echo %%i
1068 for /L %%i in (1,2, 3) do echo %%i
1069 rem Test zero iteration skips the body of the for
1070 for /L %%i in (2,2,1) do (
1071   echo %%i
1072   echo FAILED
1073 )
1074 echo --- set /a
1075 goto :testseta
1076
1077 Rem Ideally for /f can be used rather than building a command to execute
1078 rem but that does not work on NT4
1079 :checkenvvars
1080 if "%1"=="" goto :eof
1081 call :executecmd set wine_result=%%%1%%
1082 if "%wine_result%"=="%2" (
1083   echo %1 correctly %2
1084 ) else echo ERROR: %1 incorrectly %wine_result% [%2]
1085 set %1=
1086 shift
1087 shift
1088 rem shift
1089 goto :checkenvvars
1090 :executecmd
1091 %*
1092 goto :eof
1093
1094 :testseta
1095 rem No output when using "set expr" syntax, unless in interactive mode
1096 rem Need to use "set envvar=expr" to use in a batch script
1097 echo ------ individual operations
1098 set WINE_foo=0
1099 set /a WINE_foo=1 +2 & call :checkenvvars WINE_foo 3
1100 set /a WINE_foo=1 +-2 & call :checkenvvars WINE_foo -1
1101 set /a WINE_foo=1 --2 & call :checkenvvars WINE_foo 3
1102 set /a WINE_foo=2* 3 & call :checkenvvars WINE_foo 6
1103 set /a WINE_foo=-2* -5 & call :checkenvvars WINE_foo 10
1104 set /a WINE_foo=12/3 & call :checkenvvars WINE_foo 4
1105 set /a WINE_foo=13/3 & call :checkenvvars WINE_foo 4
1106 set /a WINE_foo=-13/3 & call :checkenvvars WINE_foo -4
1107 rem FIXME Divide by zero should return an error, but error messages cannot be tested with current infrastructure
1108 set /a WINE_foo=5 %% 5 & call :checkenvvars WINE_foo 0
1109 set /a WINE_foo=5 %% 3 & call :checkenvvars WINE_foo 2
1110 set /a WINE_foo=5 %% -3 & call :checkenvvars WINE_foo 2
1111 set /a WINE_foo=-5 %% -3 & call :checkenvvars WINE_foo -2
1112 set /a WINE_foo=1 ^<^< 0 & call :checkenvvars WINE_foo 1
1113 set /a WINE_foo=1 ^<^< 2 & call :checkenvvars WINE_foo 4
1114 set /a WINE_foo=1 ^<^< -2 & call :checkenvvars WINE_foo 0
1115 set /a WINE_foo=-1 ^<^< -2 & call :checkenvvars WINE_foo 0
1116 set /a WINE_foo=-1 ^<^< 2 & call :checkenvvars WINE_foo -4
1117 set /a WINE_foo=9 ^>^> 0 & call :checkenvvars WINE_foo 9
1118 set /a WINE_foo=9 ^>^> 2 & call :checkenvvars WINE_foo 2
1119 set /a WINE_foo=9 ^>^> -2 & call :checkenvvars WINE_foo 0
1120 set /a WINE_foo=-9 ^>^> -2 & call :checkenvvars WINE_foo -1
1121 set /a WINE_foo=-9 ^>^> 2 & call :checkenvvars WINE_foo -3
1122 set /a WINE_foo=5 ^& 0 & call :checkenvvars WINE_foo 0
1123 set /a WINE_foo=5 ^& 1 & call :checkenvvars WINE_foo 1
1124 set /a WINE_foo=5 ^& 3 & call :checkenvvars WINE_foo 1
1125 set /a WINE_foo=5 ^& 4 & call :checkenvvars WINE_foo 4
1126 set /a WINE_foo=5 ^& 1 & call :checkenvvars WINE_foo 1
1127 set /a WINE_foo=5 ^| 0 & call :checkenvvars WINE_foo 5
1128 set /a WINE_foo=5 ^| 1 & call :checkenvvars WINE_foo 5
1129 set /a WINE_foo=5 ^| 3 & call :checkenvvars WINE_foo 7
1130 set /a WINE_foo=5 ^| 4 & call :checkenvvars WINE_foo 5
1131 set /a WINE_foo=5 ^| 1 & call :checkenvvars WINE_foo 5
1132 set /a WINE_foo=5 ^^ 0 & call :checkenvvars WINE_foo 5
1133 set /a WINE_foo=5 ^^ 1 & call :checkenvvars WINE_foo 4
1134 set /a WINE_foo=5 ^^ 3 & call :checkenvvars WINE_foo 6
1135 set /a WINE_foo=5 ^^ 4 & call :checkenvvars WINE_foo 1
1136 set /a WINE_foo=5 ^^ 1 & call :checkenvvars WINE_foo 4
1137 echo ------ precedence and grouping
1138 set /a WINE_foo=4 + 2*3 & call :checkenvvars WINE_foo 10
1139 set /a WINE_foo=(4+2)*3 & call :checkenvvars WINE_foo 18
1140 set /a WINE_foo=4 * 3/5 & call :checkenvvars WINE_foo 2
1141 set /a WINE_foo=(4 * 3)/5 & call :checkenvvars WINE_foo 2
1142 set /a WINE_foo=4 * 5 %% 4 & call :checkenvvars WINE_foo 0
1143 set /a WINE_foo=4 * (5 %% 4) & call :checkenvvars WINE_foo 4
1144 set /a WINE_foo=3 %% (5 + 8 %% 3 ^^ 2) & call :checkenvvars WINE_foo 3
1145 set /a WINE_foo=3 %% (5 + 8 %% 3 ^^ -2) & call :checkenvvars WINE_foo 3
1146 echo ------ octal and hexadecimal
1147 set /a WINE_foo=0xf + 3 & call :checkenvvars WINE_foo 18
1148 set /a WINE_foo=0xF + 3 & call :checkenvvars WINE_foo 18
1149 set /a WINE_foo=015 + 2 & call :checkenvvars WINE_foo 15
1150 set /a WINE_foo=3, 8+3,0 & call :checkenvvars WINE_foo 3
1151 echo ------ variables
1152 set /a WINE_foo=WINE_bar=3, WINE_bar+1 & call :checkenvvars WINE_foo 3 WINE_bar 3
1153 set /a WINE_foo=WINE_bar=3, WINE_bar+=1 & call :checkenvvars WINE_foo 3 WINE_bar 4
1154 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
1155 set WINE_bar=3
1156 set /a WINE_foo=WINE_bar*= WINE_bar & call :checkenvvars WINE_foo 9 WINE_bar 9
1157 set /a WINE_foo=WINE_whateverNonExistingVar & call :checkenvvars WINE_foo 0
1158 set WINE_bar=4
1159 set /a WINE_foo=WINE_whateverNonExistingVar + WINE_bar & call :checkenvvars WINE_foo 4 WINE_bar 4
1160 set WINE_bar=4
1161 set /a WINE_foo=WINE_bar -= WINE_bar + 7 & call :checkenvvars WINE_foo -7 WINE_bar -7
1162 set WINE_bar=-7
1163 set /a WINE_foo=WINE_bar /= 3 + 2 & call :checkenvvars WINE_foo -1 WINE_bar -1
1164 set /a WINE_foo=WINE_bar=5, WINE_bar %%=2 & call :checkenvvars WINE_foo 5 WINE_bar 1
1165 set WINE_bar=1
1166 set /a WINE_foo=WINE_bar ^<^<= 2 & call :checkenvvars WINE_foo 4 WINE_bar 4
1167 set WINE_bar=4
1168 set /a WINE_foo=WINE_bar ^>^>= 2 & call :checkenvvars WINE_foo 1 WINE_bar 1
1169 set WINE_bar=1
1170 set /a WINE_foo=WINE_bar ^&= 2 & call :checkenvvars WINE_foo 0 WINE_bar 0
1171 set /a WINE_foo=WINE_bar=5, WINE_bar ^|= 2 & call :checkenvvars WINE_foo 5 WINE_bar 7
1172 set /a WINE_foo=WINE_bar=5, WINE_bar ^^= 2 & call :checkenvvars WINE_foo 5 WINE_bar 7
1173 set WINE_baz=4
1174 set /a WINE_foo=WINE_bar=19, WINE_bar %%= 4 + (WINE_baz %%= 7) & call :checkenvvars WINE_foo 19 WINE_bar 3 WINE_baz 4
1175 echo --- quotes
1176 set /a WINE_foo=1
1177 call :checkenvvars WINE_foo 1
1178 set /a "WINE_foo=1"
1179 call :checkenvvars WINE_foo 1
1180 set /a WINE_foo=1,WINE_bar=2
1181 call :checkenvvars WINE_foo 1 WINE_bar 2
1182 set /a "WINE_foo=1,WINE_bar=2"
1183 call :checkenvvars WINE_foo 1 WINE_bar 2
1184 set /a "WINE_foo=1","WINE_bar=2"
1185 call :checkenvvars WINE_foo 1 WINE_bar 2
1186 set /a ""WINE_foo=1","WINE_bar=2""
1187 call :checkenvvars WINE_foo 1 WINE_bar 2
1188 set /a WINE_foo=1,WINE_bar=2,WINE_baz=3
1189 call :checkenvvars WINE_foo 1 WINE_bar 2 WINE_baz 3
1190 set /a "WINE_foo=1,WINE_bar=2,WINE_baz=3"
1191 call :checkenvvars WINE_foo 1 WINE_bar 2 WINE_baz 3
1192 set /a "WINE_foo=1","WINE_bar=2","WINE_baz=3"
1193 call :checkenvvars WINE_foo 1 WINE_bar 2 WINE_baz 3
1194 set /a ""WINE_foo=1","WINE_bar=2","WINE_baz=3""
1195 call :checkenvvars WINE_foo 1 WINE_bar 2 WINE_baz 3
1196 set /a ""WINE_foo=1","WINE_bar=2"","WINE_baz=3"
1197 call :checkenvvars WINE_foo 1 WINE_bar 2 WINE_baz 3
1198 set /a """"""WINE_foo=1""""""
1199 call :checkenvvars WINE_foo 1
1200 set /a """"""WINE_foo=1","WINE_bar=5""","WINE_baz=2""
1201 call :checkenvvars WINE_foo 1 WINE_bar 5 WINE_baz 2
1202 set /a WINE_foo="3"+"4"+"5+6"
1203 call :checkenvvars WINE_foo 18
1204 set WINE_foo=3
1205 set /a WINE_bar="WINE_""foo"+4
1206 call :checkenvvars WINE_foo 3 WINE_bar 7
1207 echo --- whitespace are ignored between double char operators
1208 set WINE_foo=4
1209 set WINE_bar=5
1210 set /a     WINE_foo   +    = 6
1211 set /a     WINE_bar     *    = WINE_foo
1212 call :checkenvvars WINE_foo 10 WINE_bar 50
1213 set WINE_foo=4
1214 set WINE_bar=5
1215 set /a     WINE_foo   +    = "6  < < 7"
1216 set /a     WINE_bar     *    = WINE_foo  +  WINE_foo
1217 call :checkenvvars WINE_foo 772 WINE_bar 7720
1218 set /a     WINE_foo=6 7
1219 set /a     WINE_ var1=8
1220 set WINE_foo=
1221 echo --- invalid operator sequence
1222 set WINE_foo=4
1223 set /a =4
1224 set /a *=4
1225 set /a ^>=4"
1226 set /a ^<=4"
1227 set /a WINE_foo^>^<=4
1228 echo %WINE_foo%
1229 set /a WINE_foo^>^>^>=4
1230 echo %WINE_foo%
1231 echo ----- negative prefix
1232 set /a WINE_foo=-1
1233 call :checkenvvars WINE_foo -1
1234 set /a WINE_foo=--1
1235 call :checkenvvars WINE_foo 1
1236 set /a WINE_foo=3--3
1237 call :checkenvvars WINE_foo 6
1238 set /a WINE_foo=3---3
1239 call :checkenvvars WINE_foo 0
1240 set /a WINE_foo=3----3
1241 call :checkenvvars WINE_foo 6
1242 set /a WINE_foo=-~1
1243 call :checkenvvars WINE_foo 2
1244 set /a WINE_foo=~-1
1245 call :checkenvvars WINE_foo 0
1246 set /a WINE_foo=3+-~1
1247 call :checkenvvars WINE_foo 5
1248 set /a WINE_foo=3+~-1
1249 call :checkenvvars WINE_foo 3
1250 echo ----- assignment tests involving the end destination
1251 set WINE_foo=3
1252 set /a WINE_foo+=3+(WINE_foo=4)
1253 call :checkenvvars WINE_foo 11
1254 set WINE_foo=2
1255 set /a WINE_bar=3+(WINE_foo=6)
1256 call :checkenvvars WINE_foo 6 WINE_bar 9
1257 set WINE_foo=2
1258 set /a WINE_bar=3+(WINE_foo=6,WINE_baz=7)
1259 call :checkenvvars WINE_foo 6 WINE_bar 10 WINE_baz 7
1260 set WINE_foo=2
1261 set /a WINE_bar=WINE_foo=7
1262 call :checkenvvars WINE_foo 7 WINE_bar 7
1263 echo ----- equal precedence on stack
1264 rem Unary - don't reduce if precedence is equal
1265 set /a WINE_foo=!!1
1266 call :checkenvvars WINE_foo 1
1267 set /a WINE_foo=!!0
1268 call :checkenvvars WINE_foo 0
1269 set /a WINE_foo=~~1
1270 call :checkenvvars WINE_foo 1
1271 set /a WINE_foo=~~0
1272 call :checkenvvars WINE_foo 0
1273 set /a WINE_foo=--1
1274 call :checkenvvars WINE_foo 1
1275 set /a WINE_foo=+-1
1276 call :checkenvvars WINE_foo -1
1277 set /a WINE_foo=-+1
1278 call :checkenvvars WINE_foo -1
1279 set /a WINE_foo=++1
1280 call :checkenvvars WINE_foo 1
1281 set /a WINE_foo=!~1
1282 call :checkenvvars WINE_foo 0
1283 set /a WINE_foo=~!1
1284 call :checkenvvars WINE_foo -1
1285 set /a WINE_foo=!-1
1286 call :checkenvvars WINE_foo 0
1287 set /a WINE_foo=-!1
1288 call :checkenvvars WINE_foo 0
1289 set /a WINE_foo=!-0
1290 call :checkenvvars WINE_foo 1
1291 set /a WINE_foo=-!0
1292 call :checkenvvars WINE_foo -1
1293 rem Aritmatic - Reduce if precedence is equal
1294 set /a WINE_foo=10*5/2
1295 call :checkenvvars WINE_foo 25
1296 set /a WINE_foo=5/2*10
1297 call :checkenvvars WINE_foo 20
1298 set /a WINE_foo=10/5/2
1299 call :checkenvvars WINE_foo 1
1300 set /a WINE_foo=5%%2*4
1301 call :checkenvvars WINE_foo 4
1302 set /a WINE_foo=10-5+2
1303 call :checkenvvars WINE_foo 7
1304 set /a WINE_foo=1^<^<4^>^>1
1305 call :checkenvvars WINE_foo 8
1306 rem Assignment - don't reduce if precedence is equal
1307 set /a WINE_foo=5
1308 set /a WINE_bar=WINE_foo=6
1309 call :checkenvvars WINE_foo 6 WINE_bar 6
1310
1311 echo --- for /F
1312 mkdir foobar & cd foobar
1313 echo ------ string argument
1314 rem NT4 does not support usebackq
1315 for /F %%i in ("a b c") do echo %%i
1316 for /f usebackq %%i in ('a b c') do echo %%i>output_file
1317 if not exist output_file (echo no output) else (type output_file & del output_file)
1318 for /f %%i in ("a ") do echo %%i
1319 for /f usebackq %%i in ('a ') do echo %%i>output_file
1320 if not exist output_file (echo no output) else (type output_file & del output_file)
1321 for /f %%i in ("a") do echo %%i
1322 for /f usebackq %%i in ('a') do echo %%i>output_file
1323 if not exist output_file (echo no output) else (type output_file & del output_file)
1324 fOr /f %%i in (" a") do echo %%i
1325 for /f usebackq %%i in (' a') do echo %%i>output_file
1326 if not exist output_file (echo no output) else (type output_file & del output_file)
1327 for /f %%i in (" a ") do echo %%i
1328 for /f usebackq %%i in (' a ') do echo %%i>output_file
1329 if not exist output_file (echo no output) else (type output_file & del output_file)
1330 echo ------ fileset argument
1331 echo --------- basic blank handling
1332 echo a b c>foo
1333 for /f %%i in (foo) do echo %%i
1334 echo a >foo
1335 for /f %%i in (foo) do echo %%i
1336 echo a>foo
1337 for /f %%i in (foo) do echo %%i
1338 echo  a>foo
1339 for /f %%i in (foo) do echo %%i
1340 echo  a >foo
1341 for /f %%i in (foo) do echo %%i
1342 echo. > foo
1343 for /f %%i in (foo) do echo %%i
1344 echo. >> foo
1345 echo b > foo
1346 for /f %%i in (foo) do echo %%i
1347 echo --------- multi-line with empty lines
1348 echo a Z f> foo
1349 echo. >> foo
1350 echo.>> foo
1351 echo b bC>> foo
1352 echo c>> foo
1353 echo. >> foo
1354 for /f %%b in (foo) do echo %%b
1355 echo --------- multiple files
1356 echo q w > bar
1357 echo.>> bar
1358 echo kkk>>bar
1359 for /f %%k in (foo bar) do echo %%k
1360 for /f %%k in (bar foo) do echo %%k
1361 echo ------ command argument
1362 rem Not implemented on NT4, need to skip it as no way to get output otherwise
1363 if "%CD%"=="" goto :SkipFORFcmdNT4
1364 for /f %%i in ('echo.Passed1') do echo %%i
1365 for /f "usebackq" %%i in (`echo.Passed2`) do echo %%i
1366 for /f usebackq %%i in (`echo.Passed3`) do echo %%i
1367 goto :ContinueFORF
1368 :SkipFORFcmdNT4
1369 for /l %%i in (1,1,3) do echo Missing functionality - Broken%%i
1370 :ContinueFORF
1371 rem FIXME: Rest not testable right now in wine: not implemented and would need
1372 rem preliminary grep-like program implementation (e.g. like findstr or fc) even
1373 rem for a simple todo_wine test
1374 rem (for /f "usebackq" %%i in (`echo z a b`) do echo %%i) || echo not supported
1375 rem (for /f usebackq %%i in (`echo z a b`) do echo %%i) || echo not supported
1376 echo ------ eol option
1377 if "%CD%"=="" goto :SkipFORFeolNT4
1378 echo Line one>foo
1379 echo and Line two>>foo
1380 echo Line three>>foo
1381 for /f "eol=L" %%i in (foo) do echo %%i
1382 for /f "eol=a" %%i in (foo) do echo %%i
1383 del foo
1384 goto :ContinueFORFeol
1385 :SkipFORFeolNT4
1386 for /l %%i in (1,1,3) do echo Broken NT4 functionality%%i
1387 :ContinueFORFeol
1388 for /f "eol=@" %%i in ("    ad") do echo %%i
1389 for /f "eol=@" %%i in (" z@y") do echo %%i
1390 for /f "eol=|" %%i in ("a|d") do echo %%i
1391 for /f "eol=@" %%i in ("@y") do echo %%i > output_file
1392 if not exist output_file (echo no output) else (del output_file)
1393 for /f "eol==" %%i in ("=y") do echo %%i > output_file
1394 if not exist output_file (echo no output) else (del output_file)
1395 echo ------ delims option
1396 for /f "delims=|" %%i in ("a|d") do echo %%i
1397 for /f "delims=|" %%i in ("a |d") do echo %%i
1398 for /f "delims=|" %%i in ("a d|") do echo %%i
1399 for /f "delims=| " %%i in ("a d|") do echo %%i
1400 for /f "delims==" %%i in ("C r=d|") do echo %%i
1401 for /f "delims=" %%i in ("foo bar baz") do echo %%i
1402 for /f "delims=" %%i in ("c:\foo bar baz\..") do echo %%~fi
1403 echo ------ skip option
1404 echo a > foo
1405 echo b >> foo
1406 echo c >> foo
1407 for /f "skip=2" %%i in (foo) do echo %%i
1408 for /f "skip=3" %%i in (foo) do echo %%i > output_file
1409 if not exist output_file (echo no output) else (del output_file)
1410 for /f "skip=4" %%i in (foo) do echo %%i > output_file
1411 if not exist output_file (echo no output) else (del output_file)
1412 for /f "skip=02" %%i in (foo) do echo %%i
1413 for /f "skip=0x2" %%i in (foo) do echo %%i
1414 for /f "skip=1" %%i in ("skipme") do echo %%i > output_file
1415 if not exist output_file (echo no output) else (del output_file)
1416 echo ------ tokens= option
1417 rem Basic
1418 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
1419 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
1420 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
1421 rem Show * means the rest
1422 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
1423 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
1424 rem Show * means the rest (not tokenized and rebuilt)
1425 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
1426 rem Order is irrelevant
1427 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
1428 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
1429 rem Duplicates are ignored
1430 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
1431 rem Large tokens are allowed
1432 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
1433 rem Show tokens blanked in advance regardless of uniqueness of requested tokens
1434 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
1435 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
1436 rem Show No wrapping from z to A BUT wrapping sort of occurs Z to a occurs
1437 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
1438 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
1439 rem Show negative ranges have no effect
1440 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
1441 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
1442 rem Show duplicates stop * from working
1443 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
1444 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
1445 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
1446 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
1447 cd ..
1448 rd /s/q foobar
1449
1450 echo ------------ Testing del /a ------------
1451 del /f/q *.test > nul
1452 echo r > r.test
1453 attrib +r r.test
1454 echo not-r > not-r.test
1455
1456 if not exist not-r.test echo not-r.test not found before delete, bad
1457 del /a:-r *.test
1458 if not exist not-r.test echo not-r.test not found after delete, good
1459
1460 if not exist r.test echo r.test not found before delete, bad
1461 if exist r.test echo r.test found before delete, good
1462 del /a:r *.test
1463 if not exist r.test echo r.test not found after delete, good
1464 if exist r.test echo r.test found after delete, bad
1465
1466 echo ------------ Testing del /q ------------
1467 mkdir del_q_dir
1468 cd del_q_dir
1469 echo abc > file1
1470 echo abc > file2.dat
1471 rem If /q doesn't work, cmd will prompt and the test case should hang
1472 del /q * > nul
1473 for %%a in (1 2.dat) do if exist file%%a echo del /q * failed on file%%a
1474 for %%a in (1 2.dat) do if not exist file%%a echo del /q * succeeded on file%%a
1475 cd ..
1476 rmdir del_q_dir
1477
1478 echo ------------ Testing del /s ------------
1479 mkdir "foo bar"
1480 cd "foo bar"
1481 mkdir "foo:"
1482 echo hi > file1.dat
1483 echo there > file2.dat
1484 echo bub > file3.dat
1485 echo bye > "file with spaces.dat"
1486 cd ..
1487 del /s file1.dat > nul
1488 del file2.dat /s > nul
1489 del "file3.dat" /s > nul
1490 del "file with spaces.dat" /s > nul
1491 cd "foo bar"
1492 for %%f in (1 2 3) do if exist file%%f.dat echo Del /s failed on file%%f
1493 for %%f in (1 2 3) do if exist file%%f.dat del file%%f.dat
1494 if exist "file with spaces.dat" echo Del /s failed on "file with spaces.dat"
1495 if exist "file with spaces.dat" del "file with spaces.dat"
1496 rmdir "foo:"
1497 cd ..
1498 rmdir "foo bar"
1499
1500 echo ------------ Testing rename ------------
1501 mkdir foobar & cd foobar
1502 echo --- ren and rename are synonymous
1503 echo > foo
1504 rename foo bar
1505 if exist foo echo foo should be renamed!
1506 if exist bar echo foo renamed to bar
1507 ren bar foo
1508 if exist bar echo bar should be renamed!
1509 if exist foo echo bar renamed to foo
1510 echo --- name collision
1511 echo foo>foo
1512 echo bar>bar
1513 ren foo bar 2> nul
1514 type foo
1515 type bar
1516 rem no-op
1517 ren foo foo
1518 mkdir baz
1519 ren foo baz\abc
1520 echo --- rename read-only files
1521 echo > file1
1522 attrib +r file1
1523 ren file1 file2
1524 if not exist file1 (
1525     if exist file2 (
1526         echo read-only file renamed
1527     )
1528 ) else (
1529     echo read-only file not renamed!
1530 )
1531 echo --- rename directories
1532 mkdir rep1
1533 ren rep1 rep2
1534 if not exist rep1 (
1535     if exist rep2 (
1536         echo dir renamed
1537     )
1538 )
1539 attrib +r rep2
1540 ren rep2 rep1
1541 if not exist rep2 (
1542     if exist rep1 (
1543         echo read-only dir renamed
1544     )
1545 )
1546 echo --- rename in other directory
1547 if not exist baz\abc (
1548     echo rename impossible in other directory
1549     if exist foo echo original file still present
1550 ) else (
1551     echo shouldn't rename in other directory!
1552     if not exist foo echo original file not present anymore
1553 )
1554 cd .. & rd /s/q foobar
1555
1556 echo ------------ Testing move ------------
1557 mkdir foobar & cd foobar
1558 echo --- file move
1559 echo >foo
1560 move foo bar > nul 2>&1
1561 if not exist foo (
1562     if exist bar (
1563         echo file move succeeded
1564     )
1565 )
1566 echo bar>bar
1567 echo baz> baz
1568 move /Y bar baz > nul 2>&1
1569 if not exist bar (
1570     if exist baz (
1571         echo file move with overwrite succeeded
1572     )
1573 ) else (
1574     echo file overwrite impossible!
1575     del bar
1576 )
1577 type baz
1578
1579 attrib +r baz
1580 move baz bazro > nul 2>&1
1581 if not exist baz (
1582     if exist bazro (
1583         echo read-only files are moveable
1584         move bazro baz > nul 2>&1
1585     )
1586 ) else (
1587     echo read-only file not moved!
1588 )
1589 attrib -r baz
1590 mkdir rep
1591 move baz rep > nul 2>&1
1592 if not exist baz (
1593     if exist rep\baz (
1594         echo file moved in subdirectory
1595     )
1596 )
1597 call :setError 0
1598 move rep\baz . > nul 2>&1
1599 move /Y baz baz > nul 2>&1
1600 if errorlevel 1 (
1601     echo moving a file to itself should be a no-op!
1602 ) else (
1603     echo moving a file to itself is a no-op
1604 )
1605 echo ErrorLevel: %ErrorLevel%
1606 call :setError 0
1607 del baz
1608 echo --- directory move
1609 mkdir foo\bar
1610 mkdir baz
1611 echo baz2>baz\baz2
1612 move baz foo\bar > nul 2>&1
1613 if not exist baz (
1614     if exist foo\bar\baz\baz2 (
1615         echo simple directory move succeeded
1616     )
1617 )
1618 call :setError 0
1619 mkdir baz
1620 move baz baz > nul 2>&1
1621 echo moving a directory to itself gives error; errlevel %ErrorLevel%
1622 echo ------ dir in dir move
1623 rd /s/q foo
1624 mkdir foo bar
1625 echo foo2>foo\foo2
1626 echo bar2>bar\bar2
1627 move foo bar > nul 2>&1
1628 if not exist foo (
1629     if exist bar (
1630         dir /b /ad bar
1631         dir /b /a-d bar
1632         dir /b bar\foo
1633     )
1634 )
1635 cd .. & rd /s/q foobar
1636
1637 echo ------------ Testing mkdir ------------
1638 call :setError 0
1639 echo --- md and mkdir are synonymous
1640 mkdir foobar
1641 echo %ErrorLevel%
1642 rmdir foobar
1643 md foobar
1644 echo %ErrorLevel%
1645 rmdir foobar
1646 echo --- creating an already existing directory/file must fail
1647 mkdir foobar
1648 md foobar
1649 echo %ErrorLevel%
1650 rmdir foobar
1651 echo > foobar
1652 mkdir foobar
1653 echo %ErrorLevel%
1654 del foobar
1655 echo --- multilevel path creation
1656 mkdir foo
1657 echo %ErrorLevel%
1658 mkdir foo\bar\baz
1659 echo %ErrorLevel%
1660 cd foo
1661 echo %ErrorLevel%
1662 cd bar
1663 echo %ErrorLevel%
1664 cd baz
1665 echo %ErrorLevel%
1666 echo > ..\..\bar2
1667 mkdir ..\..\..\foo\bar2
1668 echo %ErrorLevel%
1669 del ..\..\bar2
1670 mkdir ..\..\..\foo\bar2
1671 echo %ErrorLevel%
1672 rmdir ..\..\..\foo\bar2
1673 cd ..
1674 rmdir baz
1675 cd ..
1676 rmdir bar
1677 cd ..
1678 rmdir foo
1679 echo %ErrorLevel%
1680 echo --- trailing backslashes
1681 mkdir foo\\\\
1682 echo %ErrorLevel%
1683 if exist foo (rmdir foo & echo dir created
1684 ) else ( echo dir not created )
1685 echo %ErrorLevel%
1686 echo --- invalid chars
1687 mkdir ?
1688 echo mkdir ? gives errorlevel %ErrorLevel%
1689 call :setError 0
1690 mkdir ?\foo
1691 echo mkdir ?\foo gives errorlevel %ErrorLevel%
1692 call :setError 0
1693 mkdir foo\?
1694 echo mkdir foo\? gives errorlevel %ErrorLevel%
1695 if exist foo (rmdir foo & echo ok, foo created
1696 ) else ( echo foo not created )
1697 call :setError 0
1698 mkdir foo\bar\?
1699 echo mkdir foo\bar\? gives errorlevel %ErrorLevel%
1700 call :setError 0
1701 if not exist foo (
1702     echo bad, foo not created
1703 ) else (
1704     cd foo
1705     if exist bar (
1706         echo ok, foo\bar created
1707         rmdir bar
1708     )
1709     cd ..
1710     rmdir foo
1711 )
1712 echo --- multiple directories at once
1713 mkdir foobaz & cd foobaz
1714 mkdir foo bar\baz foobar "bazbaz" .\"zabzab"
1715 if exist foo (echo foo created) else echo foo not created!
1716 if exist bar (echo bar created) else echo bar not created!
1717 if exist foobar (echo foobar created) else echo foobar not created!
1718 if exist bar\baz (echo bar\baz created) else echo bar\baz not created!
1719 if exist bazbaz (echo bazbaz created) else echo bazbaz not created!
1720 if exist zabzab (echo zabzab created) else echo zabzab not created!
1721 cd .. & rd /s/q foobaz
1722 call :setError 0
1723 mkdir foo\*
1724 echo mkdir foo\* errorlevel %ErrorLevel%
1725 if exist foo (rmdir foo & echo ok, foo created
1726 ) else ( echo bad, foo not created )
1727
1728 echo ------------ Testing rmdir ------------
1729 call :setError 0
1730 rem rd and rmdir are synonymous
1731 mkdir foobar
1732 rmdir foobar
1733 echo %ErrorLevel%
1734 if not exist foobar echo dir removed
1735 mkdir foobar
1736 rd foobar
1737 echo %ErrorLevel%
1738 if not exist foobar echo dir removed
1739 rem Removing nonexistent directory
1740 rmdir foobar
1741 echo %ErrorLevel%
1742 rem Removing single-level directories
1743 echo > foo
1744 rmdir foo
1745 echo %ErrorLevel%
1746 if exist foo echo file not removed
1747 del foo
1748 mkdir foo
1749 echo > foo\bar
1750 rmdir foo
1751 echo %ErrorLevel%
1752 if exist foo echo non-empty dir not removed
1753 del foo\bar
1754 mkdir foo\bar
1755 rmdir foo
1756 echo %ErrorLevel%
1757 if exist foo echo non-empty dir not removed
1758 rmdir foo\bar
1759 rmdir foo
1760 rem Recursive rmdir
1761 mkdir foo\bar\baz
1762 rmdir /s /Q foo
1763 if not exist foo (
1764     echo recursive rmdir succeeded
1765 ) else (
1766     rd foo\bar\baz
1767     rd foo\bar
1768     rd foo
1769 )
1770 mkdir foo\bar\baz
1771 echo foo > foo\bar\brol
1772 rmdir /s /Q foo 2>&1
1773 if not exist foo (
1774     echo recursive rmdir succeeded
1775 ) else (
1776     rd foo\bar\baz
1777     del foo\bar\brol
1778     rd foo\bar
1779     rd foo
1780 )
1781 rem multiples directories at once
1782 mkdir foobaz & cd foobaz
1783 mkdir foo
1784 mkdir bar\baz
1785 mkdir foobar
1786 rd /s/q foo bar foobar
1787 if not exist foo (echo foo removed) else echo foo not removed!
1788 if not exist bar (echo bar removed) else echo bar not removed!
1789 if not exist foobar (echo foobar removed) else echo foobar not removed!
1790 if not exist bar\baz (echo bar\baz removed) else echo bar\baz not removed!
1791 cd .. & rd /s/q foobaz
1792
1793 echo ------------ Testing pushd/popd ------------
1794 cd
1795 echo --- popd is no-op when dir stack is empty
1796 popd
1797 cd
1798 echo --- pushing non-existing dir
1799 pushd foobar
1800 cd
1801 echo --- basic behaviour
1802 mkdir foobar\baz
1803 pushd foobar
1804 cd
1805 popd
1806 cd
1807 pushd foobar
1808 pushd baz
1809 cd
1810 popd
1811 cd
1812 pushd baz
1813 popd
1814 cd
1815 popd
1816 cd
1817 pushd .
1818 cd foobar\baz
1819 pushd ..
1820 cd
1821 popd
1822 popd
1823 cd
1824 rd /s/q foobar
1825
1826 echo ------------ Testing attrib ------------
1827 rem FIXME Add tests for archive, hidden and system attributes + mixed attributes modifications
1828 mkdir foobar & cd foobar
1829 echo foo original contents> foo
1830 attrib foo
1831 echo > bar
1832 echo --- read-only attribute
1833 rem Read-only files cannot be altered or deleted, unless forced
1834 attrib +R foo
1835 attrib foo
1836 dir /Ar /B
1837 echo bar>> foo
1838 type foo
1839 del foo > NUL 2>&1
1840 if exist foo (
1841     echo Read-only file not deleted
1842 ) else (
1843     echo Should not delete read-only file!
1844 )
1845 del /F foo
1846 if not exist foo (
1847     echo Read-only file forcibly deleted
1848 ) else (
1849     echo Should delete read-only file with del /F!
1850     attrib -r foo
1851     del foo
1852 )
1853 cd .. & rd /s/q foobar
1854 echo --- recursive behaviour
1855 mkdir foobar\baz & cd foobar
1856 echo > level1
1857 echo > whatever
1858 echo > baz\level2
1859 attrib baz\level2
1860 cd ..
1861 attrib +R l*vel? /S > nul 2>&1
1862 cd foobar
1863 attrib level1
1864 attrib baz\level2
1865 echo > bar
1866 attrib bar
1867 cd .. & rd /s/q foobar
1868 echo --- folders processing
1869 mkdir foobar
1870 attrib foobar
1871 cd foobar
1872 mkdir baz
1873 echo toto> baz\toto
1874 attrib +r baz /s /d > nul 2>&1
1875 attrib baz
1876 attrib baz\toto
1877 echo lulu>>baz\toto
1878 type baz\toto
1879 echo > baz\lala
1880 rem Oddly windows allows file creation in a read-only directory...
1881 if exist baz\lala (echo file created in read-only dir) else echo file not created
1882 cd .. & rd /s/q foobar
1883
1884 echo ------------ Testing assoc ------------
1885 rem FIXME Can't test error messages in the current test system, so we have to use some kludges
1886 rem FIXME Revise once || conditional execution is fixed
1887 mkdir foobar & cd foobar
1888 echo --- setting association
1889 assoc .foo > baz
1890 type baz
1891 echo ---
1892
1893 assoc .foo=bar
1894 assoc .foo
1895
1896 rem association set system-wide
1897 echo @echo off> tmp.cmd
1898 echo echo +++>> tmp.cmd
1899 echo assoc .foo>> tmp.cmd
1900 cmd /c tmp.cmd
1901
1902 echo --- resetting association
1903 assoc .foo=
1904 assoc .foo > baz
1905 type baz
1906 echo ---
1907
1908 rem association removal set system-wide
1909 cmd /c tmp.cmd > baz
1910 type baz
1911 echo ---
1912 cd .. & rd /s/q foobar
1913
1914 echo ------------ Testing ftype ------------
1915 rem FIXME Can't test error messages in the current test system, so we have to use some kludges
1916 rem FIXME Revise once || conditional execution is fixed
1917 mkdir foobar & cd foobar
1918 echo --- setting association
1919 ftype footype> baz
1920 type baz
1921 echo ---
1922
1923 ftype footype=foo_opencmd
1924 assoc .foo=footype
1925 ftype footype
1926
1927 rem association set system-wide
1928 echo @echo off> tmp.cmd
1929 echo echo +++>> tmp.cmd
1930 echo ftype footype>> tmp.cmd
1931 cmd /c tmp.cmd
1932
1933 echo --- resetting association
1934 assoc .foo=
1935
1936 rem Removing a file type association doesn't work on XP due to a bug, so a workaround is needed
1937 setlocal EnableDelayedExpansion
1938 set WINE_FOO=original value
1939 ftype footype=
1940 ftype footype > baz
1941 for /F %%i in ('type baz') do (set WINE_FOO=buggyXP)
1942 rem Resetting actually works on wine/NT4, but is reported as failing due to the peculiar test (and non-support for EnabledDelayedExpansion)
1943 rem FIXME Revisit once a grep-like program like ftype is implemented
1944 rem (e.g. to check baz's size using dir /b instead)
1945 echo !WINE_FOO!
1946
1947 rem cleanup registry
1948 echo REGEDIT4> regCleanup.reg
1949 echo.>> regCleanup.reg
1950 echo [-HKEY_CLASSES_ROOT\footype]>> regCleanup.reg
1951 regedit /s regCleanup.reg
1952 set WINE_FOO=
1953 endlocal
1954 cd .. & rd /s/q foobar
1955
1956 echo ------------ Testing CALL ------------
1957 mkdir foobar & cd foobar
1958 echo --- external script
1959 echo echo foo %%1> foo.cmd
1960 call foo
1961 call foo.cmd 8
1962 echo echo %%1 %%2 > foo.cmd
1963 call foo.cmd foo
1964 call foo.cmd foo bar
1965 call foo.cmd foo ""
1966 call foo.cmd "" bar
1967 call foo.cmd foo ''
1968 call foo.cmd '' bar
1969 del foo.cmd
1970
1971 echo --- internal routines
1972 call :testRoutine :testRoutine
1973 goto :endTestRoutine
1974 :testRoutine
1975 echo bar %1
1976 goto :eof
1977 :endTestRoutine
1978
1979 call :testRoutineArgs foo
1980 call :testRoutineArgs foo bar
1981 call :testRoutineArgs foo ""
1982 call :testRoutineArgs ""  bar
1983 call :testRoutineArgs foo ''
1984 call :testRoutineArgs ''  bar
1985 goto :endTestRoutineArgs
1986 :testRoutineArgs
1987 echo %1 %2
1988 goto :eof
1989 :endTestRoutineArgs
1990
1991 echo --- with builtins
1992 call mkdir foo
1993 echo %ErrorLevel%
1994 if exist foo (echo foo created) else echo foo should exist!
1995 rmdir foo
1996 set WINE_FOOBAZ_VAR=foobaz
1997 call echo Should expand %WINE_FOOBAZ_VAR%
1998 set WINE_FOOBAZ_VAR=
1999 echo>batfile
2000 call dir /b
2001 echo>robinfile
2002 if 1==1 call del batfile
2003 dir /b
2004 if exist batfile echo batfile shouldn't exist
2005 rem ... but not for 'if' or 'for'
2006 call if 1==1 echo bar 2> nul
2007 echo %ErrorLevel%
2008 call :setError 0
2009 call for %%i in (foo bar baz) do echo %%i 2> nul
2010 echo %ErrorLevel%
2011 rem First look for programs in the path before trying a builtin
2012 echo echo non-builtin dir> dir.cmd
2013 call dir /b
2014 del dir.cmd
2015 rem The below line equates to call (, which does nothing, then the
2016 rem subsequent lines are executed.
2017 call (
2018   echo Line one
2019   echo Line two
2020 )
2021 rem The below line equates to call if, which always fails, then the
2022 rem subsequent lines are executed. Note cmd.exe swallows all lines
2023 rem starting with )
2024 call if 1==1 (
2025   echo Get if
2026 ) else (
2027   echo ... and else!
2028 )
2029 call call call echo passed
2030 cd .. & rd /s/q foobar
2031
2032 echo ------------ Testing SHIFT ------------
2033
2034 call :shiftFun p1 p2 p3 p4 p5
2035 goto :endShiftFun
2036
2037 :shiftFun
2038 echo '%1' '%2' '%3' '%4' '%5'
2039 shift
2040 echo '%1' '%2' '%3' '%4' '%5'
2041 shift@tab@ /1
2042 echo '%1' '%2' '%3' '%4' '%5'
2043 shift /2
2044 echo '%1' '%2' '%3' '%4' '%5'
2045 shift /-1
2046 echo '%1' '%2' '%3' '%4' '%5'
2047 shift /0
2048 echo '%1' '%2' '%3' '%4' '%5'
2049 goto :eof
2050 :endShiftFun
2051
2052 echo ------------ Testing cmd invocation ------------
2053 rem FIXME: only a stub ATM
2054 echo --- a batch file can delete itself
2055 echo del foo.cmd>foo.cmd
2056 cmd /q /c foo.cmd
2057 if not exist foo.cmd (
2058     echo file correctly deleted
2059 ) else (
2060     echo file should be deleted!
2061     del foo.cmd
2062 )
2063 echo --- a batch file can alter itself
2064 echo echo bar^>foo.cmd>foo.cmd
2065 cmd /q /c foo.cmd > NUL 2>&1
2066 if exist foo.cmd (
2067     type foo.cmd
2068     del foo.cmd
2069 ) else (
2070     echo file not created!
2071 )
2072
2073 echo ---------- Testing copy
2074 md foobar2
2075 cd foobar2
2076 rem Note echo adds 0x0d 0x0a on the end of the line in the file
2077 echo AAA> file1
2078 echo BBBBBB> file2
2079 echo CCCCCCCCC> file3
2080 md dir1
2081 goto :testcopy
2082
2083 :CheckExist
2084 if exist "%1" (
2085   echo Passed: Found expected %1
2086 ) else (
2087   echo Failed: Did not find expected %1
2088 )
2089 del /q "%1" >nul 2>&1
2090 shift
2091 if not "%1"=="" goto :CheckExist
2092 goto :eof
2093
2094 :CheckNotExist
2095 if not exist "%1" (
2096   echo Passed: Did not find %1
2097 ) else (
2098   echo Failed: Unexpectedly found %1
2099   del /q "%1" >nul 2>&1
2100 )
2101 shift
2102 if not "%1"=="" goto :CheckNotExist
2103 goto :eof
2104
2105 rem Note: No way to check file size on NT4 so skip the test
2106 :CheckFileSize
2107 if not exist "%1" (
2108   echo Failed: File missing when requested filesize check [%2]
2109   goto :ContinueFileSizeChecks
2110 )
2111 for %%i in (%1) do set WINE_filesize=%%~zi
2112 if "%WINE_filesize%"=="%2" (
2113     echo Passed: file size check on %1 [%WINE_filesize%]
2114 ) else (
2115   if "%WINE_filesize%"=="%%~zi" (
2116     echo Skipping file size check on NT4
2117   ) else (
2118     echo Failed: file size check on %1 [%WINE_filesize% != %2]
2119   )
2120 )
2121 :ContinueFileSizeChecks
2122 shift
2123 shift
2124 if not "%1"=="" goto :CheckFileSize
2125 goto :eof
2126
2127 :testcopy
2128
2129 rem -----------------------
2130 rem Simple single file copy
2131 rem -----------------------
2132 rem Simple single file copy, normally used syntax
2133 copy file1 dummy.file >nul 2>&1
2134 if errorlevel 1 echo Incorrect errorlevel
2135 call :CheckExist dummy.file
2136
2137 rem Simple single file copy, destination supplied as two forms of directory
2138 copy file1 dir1 >nul 2>&1
2139 if errorlevel 1 echo Incorrect errorlevel
2140 call :CheckExist dir1\file1
2141
2142 copy file1 dir1\ >nul 2>&1
2143 if errorlevel 1 echo Incorrect errorlevel
2144 call :CheckExist dir1\file1
2145
2146 rem Simple single file copy, destination supplied as fully qualified destination
2147 copy file1 dir1\file99 >nul 2>&1
2148 if errorlevel 1 echo Incorrect errorlevel
2149 call :CheckExist dir1\file99
2150
2151 rem Simple single file copy, destination not supplied
2152 cd dir1
2153 copy ..\file1 >nul 2>&1
2154 if errorlevel 1 echo Incorrect errorlevel
2155 call :CheckExist file1
2156 cd ..
2157
2158 rem Simple single file copy, destination supplied as nonexistent directory
2159 copy file1 dir2\ >nul 2>&1
2160 if not errorlevel 1 echo Incorrect errorlevel
2161 call :CheckNotExist dir2 dir2\file1
2162
2163 rem -----------------------
2164 rem Wildcarded copy
2165 rem -----------------------
2166 rem Simple single file copy, destination supplied as two forms of directory
2167 copy file? dir1 >nul 2>&1
2168 if errorlevel 1 echo Incorrect errorlevel
2169 call :CheckExist dir1\file1 dir1\file2 dir1\file3
2170
2171 copy file* dir1\ >nul 2>&1
2172 if errorlevel 1 echo Incorrect errorlevel
2173 call :CheckExist dir1\file1 dir1\file2 dir1\file3
2174
2175 rem Simple single file copy, destination not supplied
2176 cd dir1
2177 copy ..\file*.* >nul 2>&1
2178 if errorlevel 1 echo Incorrect errorlevel
2179 call :CheckExist file1 file2 file3
2180 cd ..
2181
2182 rem Simple wildcarded file copy, destination supplied as nonexistent directory
2183 copy file? dir2\ >nul 2>&1
2184 if not errorlevel 1 echo Incorrect errorlevel
2185 call :CheckNotExist dir2 dir2\file1 dir2\file2 dir2\file3
2186
2187 rem ------------------------------------------------
2188 rem Confirm overwrite works (cannot test prompting!)
2189 rem ------------------------------------------------
2190 copy file1 testfile >nul 2>&1
2191 copy /y file2 testfile >nul 2>&1
2192 call :CheckExist testfile
2193
2194 rem ------------------------------------------------
2195 rem Test concatenation
2196 rem ------------------------------------------------
2197 rem simple case, no wildcards
2198 copy file1+file2 testfile >nul 2>&1
2199 if errorlevel 1 echo Incorrect errorlevel
2200 call :CheckExist testfile
2201
2202 rem simple case, wildcards, no concatenation
2203 copy file* testfile >nul 2>&1
2204 if errorlevel 1 echo Incorrect errorlevel
2205 call :CheckExist testfile
2206
2207 rem simple case, wildcards, and concatenation
2208 echo ddddd > fred
2209 copy file*+fred testfile >nul 2>&1
2210 if errorlevel 1 echo Incorrect errorlevel
2211 call :CheckExist testfile
2212
2213 rem simple case, wildcards, and concatenation
2214 copy fred+file* testfile >nul 2>&1
2215 if errorlevel 1 echo Incorrect errorlevel
2216 call :CheckExist testfile
2217
2218 rem Calculate destination name
2219 copy fred+file* dir1 >nul 2>&1
2220 if errorlevel 1 echo Incorrect errorlevel
2221 call :CheckExist dir1\fred
2222
2223 rem Calculate destination name
2224 copy fred+file* dir1\ >nul 2>&1
2225 if errorlevel 1 echo Incorrect errorlevel
2226 call :CheckExist dir1\fred
2227
2228 rem Calculate destination name (none supplied)
2229 cd dir1
2230 copy ..\fred+..\file* >nul 2>&1
2231 if errorlevel 1 echo Incorrect errorlevel
2232 call :CheckExist fred
2233
2234 copy ..\fr*+..\file1  >nul 2>&1
2235 if errorlevel 1 echo Incorrect errorlevel
2236 call :CheckExist fred
2237 cd ..
2238
2239 rem ******************************************************************
2240 rem ASCII and BINARY tests
2241 rem Note: hard coded numbers deliberate because need to ensure whether
2242 rem an additional EOF has been added or not. There is no way to handle
2243 rem EOFs in batch, so assume if a single byte appears, it's an EOF!
2244 rem ******************************************************************
2245
2246 rem Confirm original sizes of file1,2,3
2247 call :CheckFileSize file1 5 file2 8 file3 11
2248
2249 cd dir1
2250
2251 rem ----------------------------------------------
2252 rem Show concatenation defaults copy to ascii mode
2253 rem ----------------------------------------------
2254 rem Simple default copy source to destination (should not append EOF 5)
2255 copy ..\file1 file1_default >nul 2>&1
2256 call :CheckFileSize file1_default 5
2257
2258 rem Simple binary copy source to destination (should not append EOF 5)
2259 copy /b ..\file1 file1_default2 >nul 2>&1
2260 call :CheckFileSize file1_default2 5
2261
2262 rem Simple ascii copy source to destination (should append EOF 5+1, 8+1, 11+1)
2263 copy /a ..\file1 file1_plus_eof >nul 2>&1
2264 call :CheckFileSize file1_plus_eof 6
2265 copy /a ..\file2 file2_plus_eof >nul 2>&1
2266 call :CheckFileSize file2_plus_eof 9
2267 copy /a ..\file3 file3_plus_eof >nul 2>&1
2268 call :CheckFileSize file3_plus_eof 12
2269
2270 rem Concat 2 files, ascii mode - (only one EOF on the end 5+8+1)
2271 copy /a ..\file1+..\file2 file12_plus_eof >nul 2>&1
2272 call :CheckFileSize file12_plus_eof 14
2273
2274 rem Concat 2 files, binary mode - (no EOF on the end 5+8)
2275 copy /b ..\file1+..\file2 file12_no_eof >nul 2>&1
2276 call :CheckFileSize file12_no_eof 13
2277
2278 rem Concat 2 files, default mode - (one EOF on the end 5+8+1)
2279 copy ..\file1+..\file2 file12_eof2 >nul 2>&1
2280 call :CheckFileSize file12_eof2 14
2281
2282 rem --------------------------------------------------------------
2283 rem Show ascii source copy stops at first EOF, binary does the lot
2284 rem --------------------------------------------------------------
2285 copy file1_plus_eof /b file1_binary_srccopy /b >nul 2>&1
2286 call :CheckFileSize file1_binary_srccopy 6
2287
2288 copy file1_plus_eof /a file1_ascii_srccopy /b >nul 2>&1
2289 call :CheckFileSize file1_ascii_srccopy 5
2290
2291 rem --------------------------------------------------------------
2292 rem Show results of concatenating files (ending in EOFs) and /a /b
2293 rem --------------------------------------------------------------
2294
2295 rem Default and ascii copy reads as ascii, stripping EOFs, so 6-1 + 9-1 + 12-1 + 1
2296 copy file1_plus_eof+file2_plus_eof+file3_plus_eof file123_default_copy >nul 2>&1
2297 call :CheckFileSize file123_default_copy 25
2298 copy /a file1_plus_eof+file2_plus_eof+file3_plus_eof file123_ascii_copy >nul 2>&1
2299 call :CheckFileSize file123_ascii_copy 25
2300
2301 rem In binary mode, we get 3 eofs, so 6 + 9 + 12 = 27
2302 copy /b file1_plus_eof + file2_plus_eof + file3_plus_eof file123_binary_copy >nul 2>&1
2303 call :CheckFileSize file123_binary_copy 27
2304
2305 rem We can select which we want the eofs from by postfixing it with /a or /b
2306 rem so here have first and third with eof, second as ascii 6 + 9-1 + 12
2307 copy file1_plus_eof /b + file2_plus_eof /a + file3_plus_eof /b file123_mixed_copy1 >nul 2>&1
2308 call :CheckFileSize file123_mixed_copy1 26
2309
2310 rem By postfixing the destination with /a, we ask for an ascii destination which appends EOF
2311 rem so here have first and third with eof, second as ascii 6 + 9-1 + 12 + extra EOF
2312 rem Note the delta between this and the previous one also shows that the destination
2313 rem ascii/binary is inherited from the last /a or /b on the line
2314 copy file1_plus_eof /b + file2_plus_eof /a + file3_plus_eof /b file123_mixed_copy2 /a >nul 2>&1
2315 call :CheckFileSize file123_mixed_copy2 27
2316
2317 rem so here have second with eof, first and third as ascii 6-1 + 9 + 12-1
2318 rem Note the delta between the next two also shows that the destination ascii/binary is
2319 rem inherited from the last /a or /b on the line, so the first has an extra EOF
2320 copy file1_plus_eof /a + file2_plus_eof /b + file3_plus_eof /a file123_mixed_copy3 >nul 2>&1
2321 call :CheckFileSize file123_mixed_copy3 26
2322 copy file1_plus_eof /a + file2_plus_eof /b + file3_plus_eof /a file123_mixed_copy4 /b >nul 2>&1
2323 call :CheckFileSize file123_mixed_copy4 25
2324
2325 rem -------------------------------------------------------------------------------------------
2326 rem This shows when concatenating, an ascii destination always adds on an EOF but when we
2327 rem are not concatenating, it's a direct copy regardless of destination if being read as binary
2328 rem -------------------------------------------------------------------------------------------
2329
2330 rem All 3 have eof's, plus an extra = 6 + 9 + 12 + eof
2331 copy /b file1_plus_eof + file2_plus_eof + file3_plus_eof file123_mixed_copy5 /a >nul 2>&1
2332 call :CheckFileSize file123_mixed_copy5 28
2333
2334 rem All 2 have eof's, plus an extra = 6 + 12 + eof
2335 copy /b file1_plus_eof + file3_plus_eof file123_mixed_copy6 /a >nul 2>&1
2336 call :CheckFileSize file123_mixed_copy6 19
2337
2338 rem One file has EOF, but doesn't get an extra one, i.e. 6
2339 copy /b file1_plus_eof file123_mixed_copy7 /a >nul 2>&1
2340 call :CheckFileSize file123_mixed_copy7 6
2341
2342 rem Syntax means concatenate so ascii destination kicks in
2343 copy /b file1_plus_eof* file123_mixed_copy8 /a >nul 2>&1
2344 call :CheckFileSize file123_mixed_copy8 7
2345
2346 del *.* /q
2347 cd ..
2348
2349 rem ---------------------------------------
2350 rem Error combinations
2351 rem ---------------------------------------
2352 rem Specify source directory but name is a file
2353 call :setError 0
2354 copy file1\ dir1\ >NUL 2>&1
2355 if errorlevel 1 echo Passed: errorlevel invalid check 1
2356 if not errorlevel 1 echo Failed: errorlevel invalid check 1
2357 call :CheckNotExist dir1\file1
2358
2359 rem Overwrite same file
2360 call :setError 0
2361 copy file1 file1 >NUL 2>&1
2362 if errorlevel 1 echo Passed: errorlevel invalid check 2
2363 if not errorlevel 1 echo Failed: errorlevel invalid check 2
2364
2365 rem Supply same file identified as a directory
2366 call :setError 0
2367 copy file1 file1\ >NUL 2>&1
2368 if errorlevel 1 echo Passed: errorlevel invalid check 3
2369 if not errorlevel 1 echo Failed: errorlevel invalid check 3
2370
2371 cd ..
2372 rd foobar2 /s /q
2373
2374 echo ------------ Testing setlocal/endlocal ------------
2375 call :setError 0
2376 rem Note: setlocal EnableDelayedExpansion already tested in the variable delayed expansion test section
2377 mkdir foobar & cd foobar
2378 echo --- enable/disable extensions
2379 setlocal DisableEXTensions
2380 echo ErrLev: %ErrorLevel%
2381 endlocal
2382 echo ErrLev: %ErrorLevel%
2383 echo @echo off> tmp.cmd
2384 echo echo ErrLev: %%ErrorLevel%%>> tmp.cmd
2385 rem Enabled by default
2386 cmd /C tmp.cmd
2387 cmd /E:OfF /C tmp.cmd
2388 cmd /e:oN /C tmp.cmd
2389
2390 rem FIXME: creating file before setting envvar value to prevent parsing-time evaluation (due to EnableDelayedExpansion not being implemented/available yet)
2391 echo --- setlocal with corresponding endlocal
2392 rem %CD% does not tork on NT4 so use the following workaround
2393 for /d %%i in (.) do set WINE_CURDIR=%%~dpnxi
2394 echo @echo off> test.cmd
2395 echo echo %%WINE_VAR%%>> test.cmd
2396 echo setlocal>> test.cmd
2397 echo set WINE_VAR=localval>> test.cmd
2398 echo md foobar2>> test.cmd
2399 echo cd foobar2>> test.cmd
2400 echo echo %%WINE_VAR%%>> test.cmd
2401 echo for /d %%%%i in (.) do echo %%%%~dpnxi>> test.cmd
2402 echo endlocal>> test.cmd
2403 echo echo %%WINE_VAR%%>> test.cmd
2404 echo for /d %%%%i in (.) do echo %%%%~dpnxi>> test.cmd
2405 set WINE_VAR=globalval
2406 call test.cmd
2407 echo %WINE_VAR%
2408 for /d %%i in (.) do echo %%~dpnxi
2409 cd /d %WINE_CURDIR%
2410 rd foobar2
2411 set WINE_VAR=
2412 echo --- setlocal with no corresponding endlocal
2413 echo @echo off> test.cmd
2414 echo echo %%WINE_VAR%%>> test.cmd
2415 echo setlocal>> test.cmd
2416 echo set WINE_VAR=localval>> test.cmd
2417 echo md foobar2>> test.cmd
2418 echo cd foobar2>> test.cmd
2419 echo echo %%WINE_VAR%%>> test.cmd
2420 echo for /d %%%%i in (.) do echo %%%%~dpnxi>> test.cmd
2421 set WINE_VAR=globalval
2422 rem %CD% does not tork on NT4 so use the following workaround
2423 for /d %%i in (.) do set WINE_CURDIR=%%~dpnxi
2424 call test.cmd
2425 echo %WINE_VAR%
2426 for /d %%i in (.) do echo %%~dpnxi
2427 cd /d %WINE_CURDIR%
2428 rd foobar2
2429 set WINE_VAR=
2430 echo --- setlocal within same batch program
2431 set WINE_var1=one
2432 set WINE_var2=
2433 set WINE_var3=
2434 rem %CD% does not tork on NT4 so use the following workaround
2435 for /d %%i in (.) do set WINE_CURDIR=%%~dpnxi
2436 setlocal
2437 set WINE_var2=two
2438 mkdir foobar2
2439 cd foobar2
2440 setlocal
2441 set WINE_var3=three
2442 if "%WINE_var1%"=="one" echo Var1 ok 1
2443 if "%WINE_var2%"=="two" echo Var2 ok 2
2444 if "%WINE_var3%"=="three" echo Var3 ok 3
2445 for /d %%i in (.) do set WINE_curdir2=%%~dpnxi
2446 if "%WINE_curdir2%"=="%WINE_CURDIR%\foobar2" echo Directory is ok 1
2447 endlocal
2448 if "%WINE_var1%"=="one" echo Var1 ok 1
2449 if "%WINE_var2%"=="two" echo Var2 ok 2
2450 if "%WINE_var3%"=="" echo Var3 ok 3
2451 for /d %%i in (.) do set WINE_curdir2=%%~dpnxi
2452 if "%WINE_curdir2%"=="%WINE_CURDIR%\foobar2" echo Directory is ok 2
2453 endlocal
2454 if "%WINE_var1%"=="one" echo Var1 ok 1
2455 if "%WINE_var2%"=="" echo Var2 ok 2
2456 if "%WINE_var3%"=="" echo Var3 ok 3
2457 for /d %%i in (.) do set WINE_curdir2=%%~dpnxi
2458 if "%WINE_curdir2%"=="%WINE_CURDIR%" echo Directory is ok 3
2459 rd foobar2 /s /q
2460 set WINE_var1=
2461
2462 echo --- Mismatched set and end locals
2463 mkdir foodir2 2>nul
2464 mkdir foodir3 2>nul
2465 mkdir foodir4 2>nul
2466 rem %CD% does not tork on NT4 so use the following workaround
2467 for /d %%i in (.) do set WINE_curdir=%%~dpnxi
2468
2469 echo @echo off> 2set1end.cmd
2470 echo echo %%WINE_var%%>> 2set1end.cmd
2471 echo setlocal>> 2set1end.cmd
2472 echo set WINE_VAR=2set1endvalue1>> 2set1end.cmd
2473 echo cd ..\foodir3>> 2set1end.cmd
2474 echo setlocal>> 2set1end.cmd
2475 echo set WINE_VAR=2set1endvalue2>> 2set1end.cmd
2476 echo cd ..\foodir4>> 2set1end.cmd
2477 echo endlocal>> 2set1end.cmd
2478 echo echo %%WINE_var%%>> 2set1end.cmd
2479 echo for /d %%%%i in (.) do echo %%%%~dpnxi>> 2set1end.cmd
2480
2481 echo @echo off> 1set2end.cmd
2482 echo echo %%WINE_var%%>> 1set2end.cmd
2483 echo setlocal>> 1set2end.cmd
2484 echo set WINE_VAR=1set2endvalue1>> 1set2end.cmd
2485 echo cd ..\foodir3>> 1set2end.cmd
2486 echo endlocal>> 1set2end.cmd
2487 echo echo %%WINE_var%%>> 1set2end.cmd
2488 echo for /d %%%%i in (.) do echo %%%%~dpnxi>> 1set2end.cmd
2489 echo endlocal>> 1set2end.cmd
2490 echo echo %%WINE_var%%>> 1set2end.cmd
2491 echo for /d %%%%i in (.) do echo %%%%~dpnxi>> 1set2end.cmd
2492
2493 echo --- Extra setlocal in called batch
2494 set WINE_VAR=value1
2495 rem -- setlocal1 == this batch, should never be used inside a called routine
2496 setlocal
2497 set WINE_var=value2
2498 cd foodir2
2499 call %WINE_CURDIR%\2set1end.cmd
2500 echo Finished:
2501 echo %WINE_VAR%
2502 for /d %%i in (.) do echo %%~dpnxi
2503 endlocal
2504 echo %WINE_VAR%
2505 for /d %%i in (.) do echo %%~dpnxi
2506 cd /d %WINE_CURDIR%
2507
2508 echo --- Extra endlocal in called batch
2509 set WINE_VAR=value1
2510 rem -- setlocal1 == this batch, should never be used inside a called routine
2511 setlocal
2512 set WINE_var=value2
2513 cd foodir2
2514 call %WINE_CURDIR%\1set2end.cmd
2515 echo Finished:
2516 echo %WINE_VAR%
2517 for /d %%i in (.) do echo %%~dpnxi
2518 endlocal
2519 echo %WINE_VAR%
2520 for /d %%i in (.) do echo %%~dpnxi
2521 cd /d %WINE_CURDIR%
2522
2523 echo --- endlocal in called function rather than batch pgm is ineffective
2524 @echo off
2525 set WINE_var=1
2526 set WINE_var2=1
2527 setlocal
2528 set WINE_var=2
2529 call :endlocalroutine
2530 echo %WINE_var%
2531 endlocal
2532 echo %WINE_var%
2533 goto :endlocalfinished
2534 :endlocalroutine
2535 echo %WINE_var%
2536 endlocal
2537 echo %WINE_var%
2538 setlocal
2539 set WINE_var2=2
2540 endlocal
2541 echo %WINE_var2%
2542 endlocal
2543 echo %WINE_var%
2544 echo %WINE_var2%
2545 goto :eof
2546 :endlocalfinished
2547 echo %WINE_var%
2548
2549 set WINE_var=
2550 set WINE_var2=
2551 cd .. & rd /q/s foobar
2552
2553 echo ------------ Testing Errorlevel ------------
2554 rem WARNING: Do *not* add tests using ErrorLevel after this section
2555 should_not_exist 2> nul > nul
2556 echo %ErrorLevel%
2557 rem nt 4.0 doesn't really support a way of setting errorlevel, so this is weak
2558 rem See http://www.robvanderwoude.com/exit.php
2559 call :setError 1
2560 echo %ErrorLevel%
2561 if errorlevel 2 echo errorlevel too high, bad
2562 if errorlevel 1 echo errorlevel just right, good
2563 if errorlevel 01 echo errorlevel with leading zero just right, good
2564 if errorlevel -1 echo errorlevel with negative number OK
2565 if errorlevel 0x1 echo hexa should not be recognized!
2566 if errorlevel 1a echo invalid error level recognized!
2567 call :setError 0
2568 echo abc%ErrorLevel%def
2569 if errorlevel 1 echo errorlevel nonzero, bad
2570 if not errorlevel 1 echo errorlevel zero, good
2571 if not errorlevel 0x1 echo hexa should not be recognized!
2572 if not errorlevel 1a echo invalid error level recognized!
2573 rem Now verify that setting a real variable hides its magic variable
2574 set errorlevel=7
2575 echo %ErrorLevel% should be 7
2576 if errorlevel 7 echo setting var worked too well, bad
2577 call :setError 3
2578 echo %ErrorLevel% should still be 7
2579
2580 echo ------------ Testing GOTO ------------
2581 if a==a goto dest1
2582 echo FAILURE at dest 1
2583 :dest1
2584 echo goto with no leading space worked
2585 if a==a goto :dest1b
2586 echo FAILURE at dest 1b
2587 :dest1b
2588 echo goto with colon and no leading space worked
2589 if b==b goto dest2
2590 echo FAILURE at dest 2
2591  :dest2
2592 echo goto with a leading space worked
2593 if c==c goto dest3
2594 echo FAILURE at dest 3
2595         :dest3
2596 echo goto with a leading tab worked
2597 if d==d goto dest4
2598 echo FAILURE at dest 4
2599 :dest4@space@
2600 echo goto with a following space worked
2601 if e==e goto dest5
2602 echo FAILURE at dest 5
2603 :dest5&& echo FAILURE
2604 echo goto with following amphersands worked
2605
2606 del failure.txt >nul 2>&1
2607 if f==f goto dest6
2608 echo FAILURE at dest 6
2609 :dest6>FAILURE.TXT
2610 if exist FAILURE.TXT echo FAILURE at dest 6 as file exists
2611 echo goto with redirections worked
2612 del FAILURE.TXT >nul 2>&1
2613
2614 :: some text that is ignored | dir >cmd_output | another test
2615 if exist cmd_output echo FAILURE at dest 6 as file exists
2616 echo Ignoring double colons worked
2617 del cmd_output >nul 2>&1
2618
2619 rem goto a label which does not exist issues an error message and
2620 rem acts the same as goto :EOF, and ensure ::label is never matched
2621 del testgoto.bat >nul 2>&1
2622 echo goto :dest7 ^>nul 2^>^&1 >> testgoto.bat
2623 echo echo FAILURE at dest 7 - Should have not found label and issued an error plus ended the batch>> testgoto.bat
2624 echo ::dest7>> testgoto.bat
2625 echo echo FAILURE at dest 7 - Incorrectly went to label >> testgoto.bat
2626 call testgoto.bat
2627 del testgoto.bat >nul 2>&1
2628
2629 del testgoto.bat >nul 2>&1
2630 echo goto ::dest8 ^>nul 2^>^&1 >> testgoto.bat
2631 echo echo FAILURE at dest 8 - Should have not found label and issued an error plus ended the batch>> testgoto.bat
2632 echo ::dest8>> testgoto.bat
2633 echo echo FAILURE at dest 8 - Incorrectly went to label >> testgoto.bat
2634 call testgoto.bat
2635 del testgoto.bat >nul 2>&1
2636
2637 if g==g goto dest9
2638 echo FAILURE at dest 9
2639 :dest91
2640 echo FAILURE at dest 91
2641 @   :     dest9>rubbish
2642 echo label with mixed whitespace and no echo worked
2643
2644 if h==h goto :dest10:this is ignored
2645 echo FAILURE at dest 10
2646 :dest10:this is also ignored
2647 echo Correctly ignored trailing information
2648
2649 echo ------------ Testing PATH ------------
2650 set WINE_backup_path=%path%
2651 set path=original
2652 path
2653 path try2
2654 path
2655 path=try3
2656 path
2657 set path=%WINE_backup_path%
2658 set WINE_backup_path=
2659
2660 echo ------------ Testing combined CALLs/GOTOs ------------
2661 echo @echo off>foo.cmd
2662 echo goto :eof>>foot.cmd
2663 echo :eof>>foot.cmd
2664 echo echo world>>foo.cmd
2665
2666 echo @echo off>foot.cmd
2667 echo echo cheball>>foot.cmd
2668 echo.>>foot.cmd
2669 echo call :bar>>foot.cmd
2670 echo if "%%1"=="deleteMe" (del foot.cmd)>>foot.cmd
2671 echo goto :eof>>foot.cmd
2672 echo.>>foot.cmd
2673 echo :bar>>foot.cmd
2674 echo echo barbare>>foot.cmd
2675 echo goto :eof>>foot.cmd
2676
2677 call foo.cmd
2678 call foot
2679 call :bar
2680 del foo.cmd
2681 rem Script execution stops after the following line
2682 foot deleteMe
2683 call :foo
2684 call :foot
2685 goto :endFuns
2686
2687 :foot
2688 echo foot
2689
2690 :foo
2691 echo foo
2692 goto :eof
2693
2694 :endFuns
2695
2696 :bar
2697 echo bar
2698 call :foo
2699
2700 :baz
2701 echo baz
2702 goto :eof
2703
2704 echo Final message is not output since earlier 'foot' processing stops script execution
2705 echo Do NOT add any tests below this line
2706
2707 echo ------------ Done, jumping to EOF -----------
2708 goto :eof
2709 rem Subroutine to set errorlevel and return
2710 rem in windows nt 4.0, this always sets errorlevel 1, since /b isn't supported
2711 :setError
2712 exit /B %1
2713 rem This line runs under cmd in windows NT 4, but not in more modern versions.