diff options
Diffstat (limited to 'editors/openoffice.org-vcltesttool/files/ooovcltest.pl')
| -rw-r--r-- | editors/openoffice.org-vcltesttool/files/ooovcltest.pl | 117 |
1 files changed, 117 insertions, 0 deletions
diff --git a/editors/openoffice.org-vcltesttool/files/ooovcltest.pl b/editors/openoffice.org-vcltesttool/files/ooovcltest.pl new file mode 100644 index 000000000000..320cf4896224 --- /dev/null +++ b/editors/openoffice.org-vcltesttool/files/ooovcltest.pl @@ -0,0 +1,117 @@ +#!/usr/bin/perl +# Copyright 2009 by NAKATA Maho <maho@FreeBSD.org> <maho@openoffice.org> +# All rights reserved. +use Cwd; +use File::HomeDir; #devel/p5-File-HomeDir + +sub parse_option { + while ($_ = shift) { + if (substr($_, 0, 1) eq '-') { + if ($_ eq '-help') { + print "ooovcltest [-tag tag]\n"; + exit; + } elsif ($_ eq '-tag') { + $ooo_tag_flag=1; + $ooo_tag = shift; + } else { + die "Invalid option: \"$_\"\n"; + } + } + } +} + +#main +$ooo_tag_flag=0; +parse_option(@ARGV); +split('_',$ooo_tag); +$ooo_codeline=@_[0]; +$ooo_milestone=@_[1]; +$ooo_milestone=~ s/m//; + +$ooo_testautomation_archive_name="OOo_" . "$ooo_tag" . "_testautomation.tar.bz2" ; +$ooo_testautomation_site="http://ooopackages.good-day.net/pub/OpenOffice.org/qa/testautomation/"; + +if (!$ooo_tag_flag) {die "please speficy OOo tag\n";} +print "testing tag: $ooo_tag at "; +system("date\n"); +print "downloading testautomation environment....\n"; +system ("ftp $ooo_testautomation_site" . "$ooo_testautomation_archive_name" . "\n"); +print "done\n"; + +print "Downloading category list for scripts at $ooo_tag \n"; + +$uri="index.php\?option=com_quaste\&task=tests_overview\&workspace=" . "$ooo_codeline" . "\&milestone=" . "m$ooo_milestone"; +$caturi="http://quaste.services.openoffice.org/" . $uri . "\&download=1"; +system ("wget \"$caturi\"\n"); +$catlist=$ooo_codeline . "_m$ooo_milestone" . ".txt" ; +rename $uri . "\&download=1" , $catlist; + +print "Downloading hid list for scripts at $ooo_tag \n"; +$hiduri="http://quaste.services.openoffice.org/" . $uri . "\&download=2"; +system ("wget \"$hiduri\"\n"); +$hidlist="hid.lst"; +rename $uri . "\&download=2" , $hidlist; +print "Download done...\n"; + +print "extracting testautomation environment....\n"; +system ("tar xfj $ooo_testautomation_archive_name\n"); +print "done\n"; + +#download is done.... + +########### +#settings... +#copying hid.lst and test list +system ("cp hid.lst $ooo_tag/testautomation/global/hid\n"); +system ("grep bas $catlist > $ooo_tag/testautomation/tools/run_tests/$catlist\n"); + +#settings of run_test.sh +$location=getcwd() . "/$ooo_tag/testautomation/" ; +system ("mkdir $location/errorlogs\n"); +$location=~ s/\//\\\//g; +system ("sed -i.bak 's/sLocation=\"\"/sLocation=\"$location\"/\' $ooo_tag/testautomation/tools/run_tests/run_tests.sh\n"); +system ("sed -i.bak 's/sTestTool=\"\"/sTestTool=\"\\/usr\\/local\\/openoffice.org-vcltesttool\\/program\\/testtool\"/' $ooo_tag/testautomation/tools/run_tests/run_tests.sh\n"); + +#adjust ~/.testtoolrc +$HOME = File::HomeDir->my_home; +$location=getcwd() . "/$ooo_tag/testautomation" ; + +$testtoolrc="$HOME/.testtoolrc"; +open (TESTTOOLRC,">$testtoolrc") || die "Can't open file $testtoolrc !\n"; +print TESTTOOLRC "[Misc]\n"; +print TESTTOOLRC "CurrentProfile=_profile_Default\n"; +print TESTTOOLRC "ServerTimeout=4500\n"; +print TESTTOOLRC "[OOoProgramDir]\n"; +print TESTTOOLRC "Type=/usr/local/openoffice.org-$ooo_tag/openoffice.org3/program/\n"; +print TESTTOOLRC "Current=/usr/local/openoffice.org-$ooo_tag/openoffice.org3/program\n"; +print TESTTOOLRC "All=.\n"; +print TESTTOOLRC "\n"; +print TESTTOOLRC "[Crashreporter]\n"; +print TESTTOOLRC "UseProxy=false\n"; +print TESTTOOLRC "ProxyServer=none\n"; +print TESTTOOLRC "ProxyPort=8080\n"; +print TESTTOOLRC "AllowContact=false\n"; +print TESTTOOLRC "ReturnAddress=\n"; +print TESTTOOLRC "\n"; +print TESTTOOLRC "[_profile_Default]\n"; +print TESTTOOLRC "BaseDir=$location/\n"; +print TESTTOOLRC "LogBaseDir=$location/errorlogs/\n"; +print TESTTOOLRC "HIDDir=$location/global/hid\n"; +print TESTTOOLRC "StopOnSyntaxError=0\n"; +print TESTTOOLRC "AutoReload=0\n"; +print TESTTOOLRC "AutoSave=0\n"; +print TESTTOOLRC "[GUI Platform]\n"; +print TESTTOOLRC "Current=08\n"; +print TESTTOOLRC "\n"; +print TESTTOOLRC "[Communication]\n"; +print TESTTOOLRC "Host=localhost\n"; +print TESTTOOLRC "TTPort=12479\n"; +print TESTTOOLRC "UnoPort=12480\n"; +print TESTTOOLRC "\n"; +print TESTTOOLRC "[WinGeom]\n"; +print TESTTOOLRC "WinParams=180,74,920,875;1;0,0,0,0;\n"; +print TESTTOOLRC "\n"; +print TESTTOOLRC "[LRU]\n"; +print TESTTOOLRC "MaxLRU=4\n"; + +close(TESTTOOLRC); |