From 754d28066e4e12668037012b1c9d75ba9d43564e Mon Sep 17 00:00:00 2001
From: Guillaume Pasero <guillaume.pasero@c-s.fr>
Date: Mon, 27 Mar 2017 19:36:11 +0200
Subject: [PATCH] ADD: script for windows package testing (WIP)
---
SuperBuild/Packaging/Files/selftester.bat | 189 ++++++++++++++++++++++
1 file changed, 189 insertions(+)
create mode 100755 SuperBuild/Packaging/Files/selftester.bat
diff --git a/SuperBuild/Packaging/Files/selftester.bat b/SuperBuild/Packaging/Files/selftester.bat
new file mode 100755
index 0000000000..97098593ca
--- /dev/null
+++ b/SuperBuild/Packaging/Files/selftester.bat
@@ -0,0 +1,189 @@
+@echo off
+setlocal
+
+set CURRENT_SCRIPT_DIR=%~dp0
+set DIRNAME=%CURRENT_SCRIPT_DIR%..
+cd %DIRNAME%
+
+:: Get current PID
+type NUL > pid.log
+wmic PROCESS where "Name='WMIC.exe'" get ParentProcessId >pid.log 2>&1
+for /F "TOKENS=1" %%b in ('type pid.log ^| findstr [0-9]') do set CURRENT_PID=%%b
+
+:: setup the otbenv
+:: call otbenv.cmd
+
+del selftest_report.log
+type NUL > selftest_report.log
+call :nb_report_lines
+set REF_SIZE=%nb_report_lines_out%
+
+rem Check 1 : check binaries
+for /R %%i in (*.dll) do (
+ call :check_binary %%i
+)
+
+for %%i in (bin\mapla.exe,bin\monteverdi.exe,bin\otbApplicationLauncherCommandLine.exe,bin\otbApplicationLauncherQt.exe) do (
+ call :check_binary %%i
+)
+
+call :nb_report_lines
+if %nb_report_lines_out% gtr %REF_SIZE% (
+echo Check 1/3 : FAIL
+rem should exit here
+rem goto :eof
+) else (
+echo Check 1/3 : PASS
+)
+set REF_SIZE=%nb_report_lines_out%
+
+rem Check 2 : check applications and Python wrapping
+set /a app_count=0
+for /R %%i in (lib\otb\applications\otbapp_*.dll) do (
+ call :check_application %%i
+)
+if %app_count% leq 90 (
+ echo WARNING: only %app_count% applications found ! Expected at least 90
+)
+
+call :nb_report_lines
+if %nb_report_lines_out% gtr %REF_SIZE% (
+echo Check 2/3 : FAIL
+) else (
+echo Check 2/3 : PASS
+)
+set REF_SIZE=%nb_report_lines_out%
+
+rem Check 3 : check monteverdi & mapla
+
+
+endlocal
+goto :eof
+
+rem functions :
+:check_binary
+setlocal
+type NUL > tmp.log
+bin\otb_loader.exe %1 > tmp.log 2>&1
+call :nb_tmp_lines
+if %nb_tmp_lines_out% gtr 0 (
+ echo ERROR : otb_loader.exe %1
+ echo otb_loader.exe %1 > selftest_report.log
+ type tmp.log > selftest_report.log
+)
+endlocal
+goto :eof
+
+:check_application
+setlocal
+set dll_path=%~n1
+set app=%dll_path:~7%
+if not exist bin\otbcli_%app%.bat (
+ echo ERROR : missing cli launcher for application %app%
+ echo ERROR : missing cli launcher for application %app% > selftest_report.log
+ goto :check_gui
+)
+type NUL > tmp.log
+bin\otbcli_%app%.bat -help > tmp.log 2>&1
+call :parse_cli_output
+if %parse_cli_result% equ 0 (
+ echo ERROR : error launching application otbcli_%app%
+ echo ERROR : error launching application otbcli_%app% > selftest_report.log
+ type tmp.log > selftest_report.log
+)
+:check_gui
+if not exist bin\otbgui_%app%.bat (
+ echo ERROR : missing gui launcher for application %app%
+ echo ERROR : missing gui launcher for application %app% > selftest_report.log
+ goto :check_application_end
+)
+if %app_count% geq 2 goto :check_application_end
+type NUL > tmp.log
+start /b bin\otbgui_%app%.bat
+timeout 5
+call :get_child_pid %CURRENT_PID% cmd.exe
+set first_child=0
+if %child_pid% gtr 1 (
+ set first_child=%child_pid%
+) else (
+ echo ERROR : could not launch otbgui_%app%
+ echo ERROR : could not launch otbgui_%app% > selftest_report.log
+ goto :check_application_clean
+)
+call :get_child_pid %first_child% otbApplicationLauncherQt.exe
+if not %child_pid% gtr 1 (
+ echo ERROR : could not launch otbApplicationLauncherQt %app%
+ echo ERROR : could not launch otbApplicationLauncherQt %app% > selftest_report.log
+)
+:check_application_clean
+if not %first_child% == 0 (
+ taskkill /PID %first_child% /F /T > NUL 2>&1
+)
+:check_application_end
+endlocal & set /a app_count=app_count+1
+goto :eof
+
+:launch_gui
+setlocal
+start /b bin\otbgui_%app%.bat
+endlocal
+goto :eof
+
+:parse_cli_output
+setlocal
+set ret=1
+for /F %%a in ('findstr /n /r /c:"^This is the %app% application, version " tmp.log') do set output=%%a
+if not "%output%" gtr "1:" (
+ echo First line not found
+ set ret=0
+ goto :parse_cli_output_end
+)
+set output=
+for /F %%a in ('findstr /n /r /c:"^Parameters:" tmp.log') do set output=%%a
+if not "%output%" gtr "3:" (
+ echo Parameters line not found
+ set ret=0
+ goto :parse_cli_output_end
+)
+set output=
+for /F %%a in ('findstr /n /r /c:"^Examples:" tmp.log') do set output=%%a
+if not "%output%" gtr "1" (
+ echo Examples line not found
+ echo %output%
+ set ret=0
+ goto :parse_cli_output_end
+)
+set output=
+for /F %%a in ('findstr /n /r /c:"FATAL" tmp.log') do set output=%%a
+if "%output%" gtr "1" (
+ echo FATAL found
+ echo %output%
+ set ret=0
+ goto :parse_cli_output_end
+)
+:parse_cli_output_end
+endlocal & set parse_cli_result=%ret%
+goto :eof
+
+:nb_report_lines
+setlocal
+for /F "delims=" %%i in ('find /C /V "" ^< selftest_report.log') do set output=%%i
+endlocal & set nb_report_lines_out=%output%
+goto :eof
+
+:nb_tmp_lines
+setlocal
+for /F "delims=" %%i in ('find /C /V "" ^< tmp.log') do set output=%%i
+endlocal & set nb_tmp_lines_out=%output%
+goto :eof
+
+:get_child_pid
+setlocal
+set parent_pid=%1
+set process_name=%2
+set output=0
+type NUL > pid.log
+wmic PROCESS where (ParentProcessId=%parent_pid% AND Name="%process_name%") get ProcessId >pid.log 2>&1
+for /F "TOKENS=1" %%a in ('type pid.log ^| findstr [0-9]') do set output=%%a
+endlocal & set child_pid=%output%
+goto :eof
--
GitLab