| @echo off | |
| cd ..\tests | |
| call :pass checkkeys | |
| call :pass loopwave | |
| call :pass testatomic | |
| call :pass testaudioinfo | |
| call :pass testautomation | |
| call :pass testdraw2 | |
| call :pass testdrawchessboard | |
| call :pass testerror | |
| call :pass testfile | |
| call :pass testfilesystem | |
| call :pass testgamecontroller | |
| call :pass testgesture | |
| call :pass testgl2 | |
| call :pass testgles | |
| call :pass testhaptic | |
| call :pass testiconv | |
| call :pass testime | |
| call :pass testintersection | |
| call :pass testjoystick | |
| call :pass testkeys | |
| ::call :pass testloadso | |
| call :pass testlock | |
| call :pass testmessage | |
| call :pass testmultiaudio | |
| call :pass testnative | |
| call :pass testoverlay2 | |
| call :pass testplatform | |
| call :pass testpower | |
| call :pass testrelative | |
| call :pass testrendercopyex | |
| call :pass testrendertarget | |
| call :pass testresample sample.wav newsample.wav 44100 | |
| call :pass testrumble | |
| call :pass testscale | |
| call :pass testsem 1 | |
| call :pass testshader | |
| call :testspecial testshape .\shapes | |
| call :testspecial testshape .\shapes | |
| call :testspecial testshape .\shapes | |
| call :pass testsprite2 | |
| call :pass testspriteminimal | |
| call :pass teststreaming | |
| call :pass testthread | |
| call :pass testtimer | |
| call :pass testver | |
| call :pass testwm2 | |
| call :pass torturethread | |
| :: leave the tests directory | |
| cd .. | |
| :: exit batch | |
| goto :eof | |
| :testspecial | |
| if not exist %1\Win32\Debug goto :eof | |
| cd %1\Win32\Debug | |
| call :randomfile %2 | |
| cd ..\..\.. | |
| call :pass testshape %RETURN% | |
| goto :eof | |
| :: pass label (similar to pass function in the Xcode tests command script) | |
| :pass | |
| setlocal enabledelayedexpansion | |
| set args= | |
| set /A count=0 | |
| for %%x IN (%*) DO ( | |
| if NOT !count! EQU 0 set args=!args! %%x | |
| set /A count=%count% + 1 | |
| ) | |
| endlocal & set callargs=%args% | |
| :: if it does not exist, break procedure | |
| if not exist %1\Win32\Debug goto endfunc | |
| :: goto directory | |
| echo Testing: %1 | |
| title Testing: %1 | |
| cd %1\Win32\Debug | |
| :: execute test | |
| ".\%1.exe"%callargs% | |
| cd ..\..\.. | |
| pause | |
| :endfunc | |
| goto :eof | |
| :randomfile | |
| setlocal enabledelayedexpansion | |
| set count=0 | |
| if not exist %1 goto :eof | |
| for %%d in (%1\*.*) DO ( | |
| set /A count=count + 1 | |
| ) | |
| set /A count=%RANDOM% %% %count% | |
| for %%d in (%1\*.*) DO ( | |
| if !count! EQU 0 ( | |
| set rfile=%%d | |
| goto endrfile | |
| ) | |
| set /A count=count-1 | |
| ) | |
| :endrfile | |
| set tmprfile=!rfile! | |
| endlocal & set RETURN=%tmprfile% | |
| goto :eof |