diff options
Diffstat (limited to 'testautomation/tools')
-rwxr-xr-x | testautomation/tools/analyze/make_summary.pl | 6 | ||||
-rwxr-xr-x | testautomation/tools/analyze/translate_res_file.pl | 12 | ||||
-rwxr-xr-x | testautomation/tools/hid/hid.pl | 6 | ||||
-rwxr-xr-x | testautomation/tools/run_tests/run_tests.sh | 24 |
4 files changed, 24 insertions, 24 deletions
diff --git a/testautomation/tools/analyze/make_summary.pl b/testautomation/tools/analyze/make_summary.pl index f3509f72fbb8..328bfa10948f 100755 --- a/testautomation/tools/analyze/make_summary.pl +++ b/testautomation/tools/analyze/make_summary.pl @@ -3,7 +3,7 @@ #************************************************************************* # # 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 @@ -27,7 +27,7 @@ # #************************************************************************* # -# short description : +# short description : # This Perl sciprt summarizes the number of errors and warnings in # the set of *.res files of qatesttool. #************************************************************************* @@ -43,7 +43,7 @@ sub usage { $0 file... Description: - This Perl sciprt summarizes the number of errors and warnings + This Perl sciprt summarizes the number of errors and warnings reported in a set of the *.res files produced by qatesttool. Examples: diff --git a/testautomation/tools/analyze/translate_res_file.pl b/testautomation/tools/analyze/translate_res_file.pl index a69908cad1ec..f8a100cc534a 100755 --- a/testautomation/tools/analyze/translate_res_file.pl +++ b/testautomation/tools/analyze/translate_res_file.pl @@ -3,7 +3,7 @@ #************************************************************************* # # 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 @@ -27,8 +27,8 @@ # #************************************************************************* # -# short description : -# This Perl sciprt translates *.res files of qatesttool into human +# short description : +# This Perl sciprt translates *.res files of qatesttool into human # readable format #************************************************************************* @@ -49,7 +49,7 @@ sub usage { --with-color outputs colored translated messages using ANSI color sequence code Description: - This Perl sciprt translates *.res files produced by qatesttool + This Perl sciprt translates *.res files produced by qatesttool into human readable text file format. Examples: @@ -92,7 +92,7 @@ $BaseDir = undef; sub substitution { my ($file, $lineno, $line) = @_; - my ($id, $arg1, $arg2, $arg3) = + my ($id, $arg1, $arg2, $arg3) = ($line =~ m/\%ResId=([0-9]+)\% (?:\%Arg1=(.+?)\%)? (?:\%Arg2=(.+?)\%)? @@ -205,7 +205,7 @@ sub load_app_srs { $x = $1; $fallback = $text if ($x eq "en-US"); $text = $2 if ($x eq $lang); - } + } } close FH; } diff --git a/testautomation/tools/hid/hid.pl b/testautomation/tools/hid/hid.pl index 3a36b02cb31e..b512edaa44bd 100755 --- a/testautomation/tools/hid/hid.pl +++ b/testautomation/tools/hid/hid.pl @@ -1,6 +1,6 @@ #************************************************************************** # 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 @@ -62,7 +62,7 @@ for (@ary) { @ary = @ary[ sort{ # sort @longnum[$a] <=> @longnum[$b] || - @longname[$a] cmp @longname[$b] + @longname[$a] cmp @longname[$b] }0..$#ary ]; @@ -82,7 +82,7 @@ for (@ary) { @ary = grep( !/^ *$/, @ary); -# to insert the constant entries at the beginning, read it and write it out +# to insert the constant entries at the beginning, read it and write it out open (CON,"<".@ARGV[2]) || die "Can't find constant entries-file: const.txt (third argument)"; @const=( <CON> ); close CON; diff --git a/testautomation/tools/run_tests/run_tests.sh b/testautomation/tools/run_tests/run_tests.sh index 0c4dc85bcc1f..e8aa4d700e1a 100755 --- a/testautomation/tools/run_tests/run_tests.sh +++ b/testautomation/tools/run_tests/run_tests.sh @@ -2,7 +2,7 @@ #************************************************************************* #* # 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 @@ -28,7 +28,7 @@ # # Owner : andreschnabel@openoffice.org # -# short description : run several testscripts on unix +# short description : run several testscripts on unix # list of scripts to run is read from stdin # this script has been derived from former ooo_releasetests.sh # @@ -54,7 +54,7 @@ function GetValueFromSection () { $AWK -v sVarName="$1" -v sSectionName="$2" \ 'BEGIN { bInSection = 0} - { if ( index ($0 ,"[" sSectionName "]") > 0 ) + { if ( index ($0 ,"[" sSectionName "]") > 0 ) bInSection = 1 else if ( (bInSection == 1) && (substr ($0,1,1) == "[") ) bInSection = 0 @@ -62,9 +62,9 @@ function GetValueFromSection () sub(/\r$/,"") print substr ($0,index ($0 ,"=") + 1) } - }' < "$3" + }' < "$3" } - + #------------------------------------------------------------------------ #--- the main script starts here --- #------------------------------------------------------------------------ @@ -89,11 +89,11 @@ case `uname -s` in esac # if sLocation is not set manuall try to get the location form testtoolrc -if [ -z "$sLocation" ] +if [ -z "$sLocation" ] then # first read the profile sProfile=`GetValueFromSection CurrentProfile Misc "$testtoolrc"` - # then read the BaseDir for the profile + # then read the BaseDir for the profile sLocation=`GetValueFromSection BaseDir "$sProfile" "$testtoolrc"` sLocation="$sLocation/" fi @@ -147,10 +147,10 @@ while read x ; do echo "Running soffices' processes: " # kill office, if exists - `$KILLOFFICEALL` - + `$KILLOFFICEALL` + echo "****************************************************" - x=`echo "$x"|sed s/[[:blank:]]*$//` #cut all trailing blanks + x=`echo "$x"|sed s/[[:blank:]]*$//` #cut all trailing blanks sTest="$sLocation$x" if [ -f "$sTest" ]; then @@ -173,7 +173,7 @@ do fi ######### wait until Testtool has finished & closed - while [ `ps -A | grep -v "grep" | grep $testtoolpid | wc -l` -gt 0 ] ; + while [ `ps -A | grep -v "grep" | grep $testtoolpid | wc -l` -gt 0 ] ; do sleep 5 i=$((i+5)) @@ -189,7 +189,7 @@ do fi done -echo "Duration:" $((i/60)) "min" $((i%60)) "sec " +echo "Duration:" $((i/60)) "min" $((i%60)) "sec " echo "****************************************************" echo "************ FINISHED ************" |