diff options
Diffstat (limited to 'testautomation/tools/run_tests/run_tests.vbs')
| -rwxr-xr-x | testautomation/tools/run_tests/run_tests.vbs | 182 |
1 files changed, 182 insertions, 0 deletions
diff --git a/testautomation/tools/run_tests/run_tests.vbs b/testautomation/tools/run_tests/run_tests.vbs new file mode 100755 index 000000000000..f32ab73c55aa --- /dev/null +++ b/testautomation/tools/run_tests/run_tests.vbs @@ -0,0 +1,182 @@ +'**************************************************************************
+' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'
+' Copyright 2000, 2010 Oracle and/or its affiliates.
+'
+' OpenOffice.org - a multi-platform office productivity suite
+'
+' This file is part of OpenOffice.org.
+'
+' OpenOffice.org is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Lesser General Public License version 3
+' only, as published by the Free Software Foundation.
+'
+' OpenOffice.org is distributed in the hope that it will be useful,
+' but WITHOUT ANY WARRANTY; without even the implied warranty of
+' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+' GNU Lesser General Public License version 3 for more details
+' (a copy is included in the LICENSE file that accompanied this code).
+'
+' You should have received a copy of the GNU Lesser General Public License
+' version 3 along with OpenOffice.org. If not, see
+' <http://www.openoffice.org/license.html>
+' for a copy of the LGPLv3 License.
+'
+'*
+'########################################################################
+'
+' Owner : andreschnabel@openoffice.org
+'
+' short description : run several testscripts on windows
+'
+' - list of scripts to run is read from stdin
+' - this script has been tested on WindowsXP and may run on Win2003
+' and Windows Vista
+' - the script does *not* Support Win9x / WinME or WindowsNT
+' - before you start the script set sLocation and sTestTool
+' - run this script with:
+' cscript.exe runtests.vbs <list_of_testscripts
+'
+'########################################################################
+
+
+' set location of testscripts (the 'qatesttool' directory)
+sLocation = "c:\testautomation\"
+
+' set location of TestTool
+' (full path including executable 'testtool.exe')
+sTestTool = "c:\Testtool\testtool.exe"
+
+
+'------------------------------------------------------------------------
+'--- the main script starts here ---
+'------------------------------------------------------------------------
+Dim oFSO ' AS FileSystemObject
+Dim oStdIn ' As TextStream
+Dim WshShell ' as WScript.Shell
+Dim oExec ' as WshExec
+Dim sKill ' as Killcommand for soffic.* process '06.11.2009 Florian Bircher (fbircher@openoffice.org)
+
+' get Objects for Scripting
+Set oFSO = CreateObject ("Scripting.FileSystemObject")
+Set oStdIn = WScript.StdIn
+Set WshShell = CreateObject("WScript.Shell")
+
+
+'--- platform specific settings
+' Read Environment and do Windows Version specific stuff
+' nothing done yet
+
+' Begin 06.11.2009 Florian Bircher (fbircher@openoffice.org):
+' Change due Windows 7 does not have tskill
+' Selecting Terminatig Process
+sTaskKill = oFSO.GetSpecialFolder(SystemFolder) & "\system32\taskkill.exe"
+sTsKill = oFSO.GetSpecialFolder(SystemFolder) & "\system32\tskill.exe"
+
+If oFSO.FileExists(sTaskKill) Then
+ sKill = sTaskKill & " /IM soffice* /T /F"
+ WScript.Echo "Using taskkill to kill soffice"
+Else
+ If oFSO.FileExists(sTsKill) Then
+ sKill = sTsKill & " soffice*"
+ WScript.Echo "Using tskill to kill soffice"
+ Else
+ WScript.Echo "taskkill.exe or tskill.exe not found."
+ WScript.Echo "Check if they exist in %Windows%\system32\"
+ WScript.Quit 1
+ End If
+End If
+' End 06.11.2009 Florian Bircher (fbircher@openoffice.org)
+
+'--- if sLocation is not set manuall try to get the location form testtoolrc
+If not oFSO.FolderExists(sLocation) Then
+ '--- Read Location from testtool.ini
+ WScript.Echo "Read Location from testtool.ini - not implemented yet"
+End If
+
+'--- set location of close-office file
+' (see cvs)
+sExitOfficeBas = sLocation & "global\tools\resetoffice.bas"
+
+'--- if sTestTool is not set manuall try to get the location form testtoolrc
+If not oFSO.FileExists(sTestTool) Then
+ '--- Read testtool path from testtool.ini
+ WScript.Echo "Read testtool path from testtool.ini - not implemented yet"
+End If
+
+
+WScript.Echo "****************************************************"
+WScript.Echo "************ STARTING ************"
+WScript.Echo "****************************************************"
+
+'echo "My name is: " $USER
+
+' test if location exists
+If oFSO.FolderExists(sLocation) Then
+ WScript.Echo "using scripts from " & sLocation
+Else
+ WScript.Echo "test scripts not found at " & sLocation
+ WScript.Echo "Please set sLocation in this script"
+ WScript.Quit 1
+End If
+
+' test if testtool.bin exists
+If oFSO.FileExists(sTestTool) Then
+ WScript.Echo "using testtool from " & sTestTool
+Else
+ WScript.Echo "testtool not found at " & sTestTool
+ WScript.Echo "Please set sTestTool in this script"
+ WScript.Quit 1
+End If
+
+i = 0
+'--- Main loop
+While Not oStdIn.AtEndOfStream
+
+ WScript.echo "Running soffices' processes: "
+ '# kill office, if exists
+ '`$KILLOFFICEALL`
+ ' *************-> have this line modified, because an error in
+ ' *************-> testtool.exe. (the soffice processes are not
+ ' *************-> killed in resetoffice.bas)
+ ' *************-> 2009/07/06
+ ' *************-> wolfgang pechlaner (wope@openoffice.org)
+ WshShell.Run sKill, 1, true '06.11.2009 Florian Bircher (fbircher@openoffice.org)
+ WScript.Sleep 1000
+
+ sTestCase = oStdIn.ReadLine
+
+ WScript.echo " "
+ WScript.Echo "****************************************************"
+ WScript.Echo "running " & sTestCase
+ sTest = sLocation & sTestCase
+ WScript.echo "*** -> " & sTest
+
+ If not oFSO.FileExists( sTest ) Then
+ WScript.Echo " Could not run " & sTest
+ WScript.Echo " File not found"
+ Else
+ ' first run is the real test ...
+ Set oExec = WshShell.Exec("""" & sTestTool & """ -run """ & sTest & """" )
+ WScript.Sleep 1000
+
+ If oExec.Status = 0 Then
+ WScript.Echo " Successfully started"
+ Else
+ WScript.Echo " There might be something wrong with starting the Testtool!"
+ End If
+
+ '--- wait until Testtool has finished & closed
+ While oExec.Status = 0
+ WScript.Sleep 1000
+ i = i+1
+ Wend
+ End If
+ 'run the office exit script!
+ WScript.Echo " trying to kill the previous office process"
+ WshShell.Run """" & sTestTool & """ -run """ & sExitOfficeBas & """", 1, true
+
+ Set oExec = Nothing
+Wend
+
+WScript.Echo "Duration:" & i & "sec "
|