1#************************************************************************* 2# 3# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4# 5# Copyright 2000, 2010 Oracle and/or its affiliates. 6# 7# OpenOffice.org - a multi-platform office productivity suite 8# 9# This file is part of OpenOffice.org. 10# 11# OpenOffice.org is free software: you can redistribute it and/or modify 12# it under the terms of the GNU Lesser General Public License version 3 13# only, as published by the Free Software Foundation. 14# 15# OpenOffice.org is distributed in the hope that it will be useful, 16# but WITHOUT ANY WARRANTY; without even the implied warranty of 17# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18# GNU Lesser General Public License version 3 for more details 19# (a copy is included in the LICENSE file that accompanied this code). 20# 21# You should have received a copy of the GNU Lesser General Public License 22# version 3 along with OpenOffice.org. If not, see 23# <http://www.openoffice.org/license.html> 24# for a copy of the LGPLv3 License. 25# 26#************************************************************************* 27 28use File::Basename; 29 30my $test_class = shift || die 'must provide a ext name'; 31my $TESTDOCUMENT = shift || die 'must provide a path to testdocument dirs'; 32my $OUTPUTDIR = shift || die 'must provide an output path to deposit logs in'; 33 34die "can't access TestClass $test_class/TestVBA.class" unless -f "$test_class/TestVBA.class"; 35die "can't access officepath env variable \$OFFICEPATH" unless -d $ENV{OFFICEPATH}; 36die "can't access testdocuments" unless -d $TESTDOCUMENT; 37die "testdocument not of the correct structure $TESTDOCUMENT/logs/excel" unless -d "$TESTDOCUMENT/logs/excel"; 38die "can't access output dir" unless -d $OUTPUTDIR; 39 40 41my $officeclasspath = "$ENV{OFFICEPATH}/program/classes/"; 42my $classpath = "$officeclasspath/jurt.jar:$officeclasspath/unoil.jar:$officeclasspath/juh.jar:$officeclasspath/java_uno.jar:$officeclasspath/ridl.jar:$test_class:$ENV{CLASSPATH}"; 43$ENV{CLASSPATH}=$classpath; 44print "classpath $ENV{CLASSPATH}\n"; 45my $status = system("java -classpath $ENV{CLASSPATH} TestVBA $TESTDOCUMENT $OUTPUTDIR" ); 46