Subversion Repositories pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

  1. @echo off
  2. if "%1"=="" goto main
  3.  
  4. cd %1
  5. if not exist %1.asm goto notest
  6. if not exist %1.ori goto notest
  7. type %1.doc | ..\..\addcr
  8. set ASCMD=@asflags
  9. ..\..\asl -i ..\..\include -L +t 31 %1.asm
  10. set ASCMD=
  11. ..\..\p2bin -k -l 0 -r $-$ %1
  12. ..\..\bincmp %1.bin %1.ori
  13. if errorlevel 1 goto errcond
  14. echo Test %1 succeeded!
  15. echo %1 : OK >> ..\..\testlog
  16. :goon
  17. echo +---------------------------------------------------------------+
  18. type %1.lst | find "assembly" >> ..\..\testlog
  19. type %1.lst | find "Assemblierzeit" >> ..\..\testlog
  20. if exist %1.lst del %1.lst >nul
  21. if exist %1.inc del %1.inc >nul
  22. if exist %1.bin del %1.bin >nul
  23. :notest
  24. cd ..
  25. goto end
  26.  
  27. :errcond
  28. echo Test %1 failed!
  29. set SUMFAIL=%SUMFAIL%-
  30. echo %1 : failed >> ..\..\testlog
  31. goto goon
  32.  
  33. :main
  34. if exist ..\addcr.exe goto nocomp
  35. bcc -e..\addcr.exe -ml ..\addcr.c
  36. del addcr.obj
  37. :nocomp
  38. if exist ..\bincmp.exe goto nocomp2
  39. bcc -e..\bincmp.exe -ml ..\bincmp.c
  40. del bincmp.obj
  41. :nocomp2
  42. echo executing self tests...
  43. echo ================================================================= >..\testlog
  44. echo Summaric results: >> ..\testlog
  45. set SUMFAIL=
  46. rem This is 4DOS syntax; /D might work for other DOS/Windows versions
  47. for /A:D %%T in (t_*) do call testall %T%
  48. echo failures: %SUMFAIL% >> ..\testlog
  49. type ..\testlog
  50. exit /B 0
  51.  
  52. :end
  53.