diff options
157 files changed, 2691 insertions, 10018 deletions
diff --git a/qadevOOo/prj/build.lst b/qadevOOo/prj/build.lst index 1594d5c59..e159c6a7b 100644 --- a/qadevOOo/prj/build.lst +++ b/qadevOOo/prj/build.lst @@ -2,4 +2,6 @@ qa qadevOOo : javaunohelper jurt ridljar unoil NULL qa qadevOOo usr1 - all qa_mkout NULL qa qadevOOo nmake - all qa_runner_ant_build NULL qa qadevOOo\runner nmake - all qa_make_package qa_runner_ant_build NULL -qa qadevOOo\qa\unoapi nmake - all qa_qa_unoapi NULL + +qa qadevOOo\qa\unoapi nmake - all qa_qa_unoapi qa_make_package NULL +qa qadevOOo\qa\complex\junitskeleton nmake - all qa_complex_junitskel qa_make_package NULL diff --git a/qadevOOo/qa/complex/junitskeleton/Skeleton.java b/qadevOOo/qa/complex/junitskeleton/Skeleton.java new file mode 100644 index 000000000..a8486f7c2 --- /dev/null +++ b/qadevOOo/qa/complex/junitskeleton/Skeleton.java @@ -0,0 +1,194 @@ +/************************************************************************* + * + * 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. + * + ************************************************************************/ +package complex.junitskeleton; + +import com.sun.star.io.IOException; +import com.sun.star.lang.IllegalArgumentException; +import com.sun.star.lang.XComponent; +import com.sun.star.lang.XMultiServiceFactory; +import com.sun.star.uno.UnoRuntime; +import com.sun.star.util.XCloseable; +import java.io.File; +import java.io.RandomAccessFile; + +import lib.TestParameters; + +import util.SOfficeFactory; + +// ---------- junit imports ----------------- +import org.junit.After; +import org.junit.AfterClass; +import org.junit.Before; +import org.junit.BeforeClass; +import org.junit.Test; +import org.openoffice.test.OfficeConnection; +import static org.junit.Assert.*; +// ------------------------------------------ + +public class Skeleton +{ + /** + * The test parameters + */ + private static TestParameters param = null; + + @Test public void check() { + assertTrue("Couldn't open document", open()); + System.out.println("check"); + assertTrue("Couldn't close document", close()); + String tempDirURL = util.utils.getOfficeTemp/*Dir*/(getMSF()); + System.out.println("temp dir URL is: " + tempDirURL); + String tempDir = graphical.FileHelper.getSystemPathFromFileURL(tempDirURL); + assertTrue("Temp directory doesn't exist.", new File(tempDir).exists()); + } + + private boolean open() + { + System.out.println("open()"); + // get multiservicefactory ----------------------------------------- + final XMultiServiceFactory xMsf = getMSF(); + + SOfficeFactory SOF = SOfficeFactory.getFactory(xMsf); + + // some Tests need the qadevOOo TestParameters, it is like a Hashmap for Properties. + param = new TestParameters(); + param.put("ServiceFactory", xMsf); // some qadevOOo functions need the ServiceFactory + + return true; + } + + private boolean close() + { + System.out.println("close()"); + return true; + } + + // marked as test + @Test public void checkDocument() + { + System.out.println("checkDocument()"); + final String sREADME = TestDocument.getUrl("README.txt"); + System.out.println("README is in:" + sREADME); + File aFile = new File(sREADME); + if (! aFile.exists()) + { + // It is a little bit stupid that office urls not compatible to java file urls + System.out.println("java.io.File can't access Office file urls."); + String sREADMESystemPath = graphical.FileHelper.getSystemPathFromFileURL(sREADME); + aFile = new File(sREADMESystemPath); + assertTrue("File '" + sREADMESystemPath + "' doesn't exists.", aFile.exists()); + } + + try + { + RandomAccessFile aAccess = new RandomAccessFile(aFile, "r"); + long nLength = aAccess.length(); + System.out.println("File length: " + nLength); + assertTrue("File length wrong", nLength > 0); + String sLine = aAccess.readLine(); + assertTrue("Line must not be empty", sLine.length() > 0); + System.out.println(" Line: '" + sLine + "'"); + System.out.println(" length: " + sLine.length()); + assertTrue("File length not near equal to string length", sLine.length() + 2 >= nLength); + aAccess.close(); + } + catch (java.io.FileNotFoundException e) + { + fail("Can't find file: " + sREADME + " - " + e.getMessage()); + } + catch (java.io.IOException e) + { + fail("IO Exception: " + e.getMessage()); + } + + } + + @Test public void checkOpenDocumentWithOffice() + { + // SOfficeFactory aFactory = new SOfficeFactory(getMSF()); + SOfficeFactory SOF = SOfficeFactory.getFactory(getMSF()); + final String sREADME = TestDocument.getUrl("README.txt"); + try + { + XComponent aDocument = SOF.loadDocument(sREADME); + complex.junitskeleton.justatest.shortWait(); + XCloseable xClose = UnoRuntime.queryInterface(XCloseable.class, aDocument); + xClose.close(true); + } + catch (com.sun.star.lang.IllegalArgumentException ex) + { + fail("Illegal argument exception caught: " + ex.getMessage()); + } + catch (com.sun.star.io.IOException ex) + { + fail("IOException caught: " + ex.getMessage()); + } + catch (com.sun.star.uno.Exception ex) + { + fail("Exception caught: " + ex.getMessage()); + } + } + + // marked as prepare for test, will call before every test + @Before public void before() + { + System.out.println("before()"); + System.setProperty("THIS IS A TEST", "Hallo"); + } + + + // marked as post for test, will call after every test + @After public void after() + { + System.out.println("after()"); + String sValue = System.getProperty("THIS IS A TEST"); + assertEquals(sValue, "Hallo"); + } + + + private XMultiServiceFactory getMSF() + { + final XMultiServiceFactory xMSF1 = UnoRuntime.queryInterface(XMultiServiceFactory.class, connection.getComponentContext().getServiceManager()); + return xMSF1; + } + + // setup and close connections + @BeforeClass public static void setUpConnection() throws Exception { + System.out.println("setUpConnection()"); + connection.setUp(); + } + + @AfterClass public static void tearDownConnection() + throws InterruptedException, com.sun.star.uno.Exception + { + System.out.println("tearDownConnection()"); + connection.tearDown(); + } + + private static final OfficeConnection connection = new OfficeConnection(); + +} diff --git a/qadevOOo/qa/complex/junitskeleton/TestDocument.java b/qadevOOo/qa/complex/junitskeleton/TestDocument.java new file mode 100644 index 000000000..534602ddd --- /dev/null +++ b/qadevOOo/qa/complex/junitskeleton/TestDocument.java @@ -0,0 +1,41 @@ +/************************************************************************* +* +* 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. +* +************************************************************************/ + +package complex.junitskeleton; + +import java.io.File; +import org.openoffice.test.OfficeFileUrl; + +final class TestDocument +{ + public static String getUrl(String name) + { + return OfficeFileUrl.getAbsolute(new File("test_documents", name)); + } + + private TestDocument() {} +} diff --git a/qadevOOo/qa/complex/junitskeleton/justatest.java b/qadevOOo/qa/complex/junitskeleton/justatest.java new file mode 100644 index 000000000..e87e19cf0 --- /dev/null +++ b/qadevOOo/qa/complex/junitskeleton/justatest.java @@ -0,0 +1,38 @@ +/** + * @author: ll93751 + * @copyright: Sun Microsystems Inc. 2010 + */ + +package complex.junitskeleton; + +public class justatest /* extends *//* implements */ { + //public static void main( String[] argv ) { + // + // } + public void justatest() + { + System.out.println("justatest CTor."); + } + + public void testfkt() + { + System.out.println("Test called."); + } + + /** + * Sleeps for 0.5 sec. to allow StarOffice to react on <code> + * reset</code> call. + */ + public static void shortWait() + { + try + { + Thread.sleep(500) ; + } + catch (InterruptedException e) + { + System.out.println("While waiting :" + e) ; + } + } + +} diff --git a/qadevOOo/qa/complex/junitskeleton/makefile.mk b/qadevOOo/qa/complex/junitskeleton/makefile.mk new file mode 100644 index 000000000..301b8cf88 --- /dev/null +++ b/qadevOOo/qa/complex/junitskeleton/makefile.mk @@ -0,0 +1,63 @@ +#************************************************************************* +# +# 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. +# +#************************************************************************* + +.IF "$(OOO_SUBSEQUENT_TESTS)" == "" +nothing .PHONY: + @echo "OOO_SUBSEQUENT_TESTS not set, do nothing." +.ELSE + +PRJ = ../../.. +PRJNAME = sc +TARGET = qa_complex_junitskeleton + +.IF "$(OOO_JUNIT_JAR)" != "" +PACKAGE = complex/junitskeleton + +# here store only Files which contain a @Test +JAVATESTFILES = \ + Skeleton.java + +# put here all other files +JAVAFILES = $(JAVATESTFILES) \ + justatest.java \ + TestDocument.java + +JARFILES = OOoRunner.jar ridl.jar test.jar unoil.jar +EXTRAJARFILES = $(OOO_JUNIT_JAR) + +# Sample how to debug +# JAVAIFLAGS=-Xdebug -Xrunjdwp:transport=dt_socket,server=y,address=9003,suspend=y + +.END + +.INCLUDE: settings.mk +.INCLUDE: target.mk +.INCLUDE: installationtest.mk + +ALLTAR : javatest + +.END diff --git a/qadevOOo/qa/complex/junitskeleton/test_documents/README.txt b/qadevOOo/qa/complex/junitskeleton/test_documents/README.txt new file mode 100644 index 000000000..775f01c49 --- /dev/null +++ b/qadevOOo/qa/complex/junitskeleton/test_documents/README.txt @@ -0,0 +1 @@ +Here you can store documents. diff --git a/qadevOOo/runner/graphical/EnhancedComplexTestCase.java b/qadevOOo/runner/graphical/EnhancedComplexTestCase.java index 020016111..2905e0d6b 100644 --- a/qadevOOo/runner/graphical/EnhancedComplexTestCase.java +++ b/qadevOOo/runner/graphical/EnhancedComplexTestCase.java @@ -45,7 +45,7 @@ abstract public class EnhancedComplexTestCase extends ComplexTestCase implements private void callEntry(String _sEntry, ParameterHelper _aParam) { // log.println("- next file is: ------------------------------"); - log.println("File: " + _sEntry); + log.println(" File: " + _sEntry); // TODO: check if 'sEntry' is a guilty document. File aFile = new File(_aParam.getInputPath()); String sPath = _aParam.getInputPath(); @@ -254,8 +254,15 @@ private void callEntry(String _sEntry, ParameterHelper _aParam) for (int i=0;i<aList.size();i++) { String sEntry = aList.get(i); - callEntry(sEntry, _aParam); - + try + { + callEntry(sEntry, _aParam); + } + catch (AssureException e) + { + // we only need to catch the assure() + // nOkStatus += 2; + } // we want to know the current status of the run through // if the status is greater (more bad) then the current, // we will remember this. Only the very bad status will @@ -469,9 +476,13 @@ private void callEntry(String _sEntry, ParameterHelper _aParam) { String sPSFile = aList.get(i); - // TODO: this information has to come out of the ini files - String sStatusRunThrough = ""; - String sStatusMessage = ""; + // Read information out of the ini files + String sIndexFile2 = FileHelper.appendPath(sPath, sPSFile + ".ini"); + IniFile aIniFile2 = new IniFile(sIndexFile2); + String sStatusRunThrough = aIniFile2.getValue("global", "state"); + String sStatusMessage = ""; // aIniFile2.getValue("global", "info"); + aIniFile2.close(); + String sHTMLFile = sPSFile + ".html"; aOutputter.indexLine(sHTMLFile, sPSFile, sStatusRunThrough, sStatusMessage); diff --git a/qadevOOo/runner/graphical/JPEGCreator.java b/qadevOOo/runner/graphical/JPEGCreator.java index 922af500e..e5eda3fc3 100644 --- a/qadevOOo/runner/graphical/JPEGCreator.java +++ b/qadevOOo/runner/graphical/JPEGCreator.java @@ -61,7 +61,8 @@ public class JPEGCreator extends EnhancedComplexTestCase public void checkOneFile(String _sDocumentName, String _sResult, ParameterHelper _aParams) throws OfficeException { - GlobalLogWriter.println("Document: " + _sDocumentName + " results: " + _sResult); + GlobalLogWriter.println(" Document: " + _sDocumentName); + GlobalLogWriter.println(" results: " + _sResult); // IOffice aOffice = new Office(_aParams, _sResult); // aOffice.start(); // aOffice.load(_sDocumentName); diff --git a/qadevOOo/runner/graphical/JPEGEvaluator.java b/qadevOOo/runner/graphical/JPEGEvaluator.java index c7de83cc0..51cc9687f 100644 --- a/qadevOOo/runner/graphical/JPEGEvaluator.java +++ b/qadevOOo/runner/graphical/JPEGEvaluator.java @@ -50,6 +50,8 @@ public class JPEGEvaluator extends EnhancedComplexTestCase { GlobalLogWriter.set(log); ParameterHelper aParam = new ParameterHelper(param); + + // aParam.getTestParameters().put("current_ok_status", -1); // run through all documents found in Inputpath foreachResultCreateHTML(aParam); diff --git a/qadevOOo/runner/graphical/Office.java b/qadevOOo/runner/graphical/Office.java index 23bd040cf..71e118d62 100644 --- a/qadevOOo/runner/graphical/Office.java +++ b/qadevOOo/runner/graphical/Office.java @@ -48,6 +48,7 @@ public class Office implements IOffice m_sResult = _sResult; if (_aParam.getReferenceType().toLowerCase().equals("ooo") || + _aParam.getReferenceType().toLowerCase().equals("o3") || _aParam.getReferenceType().toLowerCase().equals("ps") || _aParam.getReferenceType().toLowerCase().equals("pdf")) { diff --git a/qadevOOo/runner/graphical/OpenOfficePostscriptCreator.java b/qadevOOo/runner/graphical/OpenOfficePostscriptCreator.java index 077ee4bd0..60fff9ba0 100644 --- a/qadevOOo/runner/graphical/OpenOfficePostscriptCreator.java +++ b/qadevOOo/runner/graphical/OpenOfficePostscriptCreator.java @@ -102,6 +102,7 @@ public class OpenOfficePostscriptCreator implements IOffice { String sDocumentName = FileHelper.appendPath(m_sOutputURL, m_sBasename); if (m_aParameterHelper.getReferenceType().toLowerCase().equals("ooo") || + m_aParameterHelper.getReferenceType().toLowerCase().equals("o3") || m_aParameterHelper.getReferenceType().toLowerCase().equals("ps") ) { String sPrintURL = sDocumentName + ".ps"; @@ -1380,9 +1381,9 @@ public class OpenOfficePostscriptCreator implements IOffice // Watcher Object is need in log object to give a simple way to say if a running office is alive. // As long as a log comes, it pings the Watcher and says the office is alive, if not an // internal counter increase and at a given point (300 seconds) the office is killed. - GlobalLogWriter.println("Set office watcher"); if (GlobalLogWriter.get().getWatcher() == null) { + GlobalLogWriter.println("Set office watcher"); OfficeWatcher aWatcher = (OfficeWatcher)m_aParameterHelper.getTestParameters().get("Watcher"); GlobalLogWriter.get().setWatcher(aWatcher); } diff --git a/qadevOOo/runner/graphical/ParameterHelper.java b/qadevOOo/runner/graphical/ParameterHelper.java index 2450ce97c..3ae12bddc 100644 --- a/qadevOOo/runner/graphical/ParameterHelper.java +++ b/qadevOOo/runner/graphical/ParameterHelper.java @@ -267,7 +267,8 @@ public class ParameterHelper // check if MultiServiceFactory is given if (getReferenceType().toLowerCase().equals("pdf") || getReferenceType().toLowerCase().equals("ps") || - getReferenceType().toLowerCase().equals("ooo")) + getReferenceType().toLowerCase().equals("ooo") || + getReferenceType().toLowerCase().equals("o3") ) { if (xMSF == null) { diff --git a/qadevOOo/runner/graphical/PostscriptCreator.java b/qadevOOo/runner/graphical/PostscriptCreator.java index 33511df1e..ba3228cfb 100644 --- a/qadevOOo/runner/graphical/PostscriptCreator.java +++ b/qadevOOo/runner/graphical/PostscriptCreator.java @@ -59,7 +59,8 @@ public class PostscriptCreator extends EnhancedComplexTestCase public void checkOneFile(String _sDocumentName, String _sResult, ParameterHelper _aParams) throws OfficeException { - GlobalLogWriter.println("Document: " + _sDocumentName + " results: " + _sResult); + GlobalLogWriter.println(" Document: " + _sDocumentName); + GlobalLogWriter.println(" results: " + _sResult); IOffice aOffice = new Office(_aParams, _sResult); PerformanceContainer a = new PerformanceContainer(); diff --git a/qadevOOo/runner/helper/OfficeProvider.java b/qadevOOo/runner/helper/OfficeProvider.java index 54588117f..f14bf7e88 100644 --- a/qadevOOo/runner/helper/OfficeProvider.java +++ b/qadevOOo/runner/helper/OfficeProvider.java @@ -59,7 +59,7 @@ import util.utils; public class OfficeProvider implements AppProvider { - protected static boolean debug = false; + private static boolean debug = false; /** * copy the user layer to a safe place, usualy to $TMP/user_backup$USER @@ -355,7 +355,7 @@ public class OfficeProvider implements AppProvider if (rInitialObject != null) { - debug = true; + // debug = true; dbg("resolved url"); xMSF = UnoRuntime.queryInterface(XMultiServiceFactory.class, rInitialObject); @@ -434,7 +434,7 @@ public class OfficeProvider implements AppProvider { XMultiServiceFactory msf = null; String exc = ""; - debug = true; + // debug = true; dbg("trying to connect to " + cncstr); diff --git a/qadevOOo/runner/helper/ProcessHandler.java b/qadevOOo/runner/helper/ProcessHandler.java index ee7b0f079..299479ac8 100644 --- a/qadevOOo/runner/helper/ProcessHandler.java +++ b/qadevOOo/runner/helper/ProcessHandler.java @@ -26,6 +26,7 @@ ************************************************************************/ package helper; +import java.io.BufferedReader; import java.io.InputStream; import java.io.File; import java.io.PrintWriter; @@ -33,10 +34,12 @@ import java.io.PrintStream; import java.io.LineNumberReader; import java.io.InputStreamReader; import java.io.OutputStreamWriter; +import java.io.Writer; import java.util.Calendar; import java.util.Date; import java.util.GregorianCalendar; import lib.TestParameters; +import share.LogWriter; import util.PropertyName; import util.utils; @@ -58,6 +61,7 @@ class Pump extends Thread private String pref; private StringBuffer buf = new StringBuffer(256); private PrintWriter log; + private boolean bOutput; /** * Creates Pump for specified <code>InputStream</code>. @@ -70,11 +74,12 @@ class Pump extends Thread * @param outPrefix A prefix which is printed at the * beginning of each output line. */ - public Pump(InputStream is, PrintWriter log, String outPrefix) + public Pump(InputStream is, PrintWriter log, String outPrefix, boolean _bOutput) { this.pref = (outPrefix == null) ? "" : outPrefix; reader = new LineNumberReader(new InputStreamReader(is)); this.log = log; + this.bOutput = _bOutput; start(); } @@ -85,8 +90,11 @@ class Pump extends Thread String line = reader.readLine(); while (line != null) { - log.println(pref + line); - log.flush(); + if (bOutput) + { + log.println(pref + line); + log.flush(); + } buf.append(line).append('\n'); line = reader.readLine(); } @@ -133,6 +141,11 @@ public class ProcessHandler private Process m_aProcess = null; private TestParameters param = null; private boolean debug = false; + private boolean bUseOutput = true; + + private int m_nProcessTimeout = 0; + private String m_sProcessKiller; + private ProcessWatcher m_aWatcher; /** * Creates instance with specified external command. @@ -348,6 +361,24 @@ public class ProcessHandler } /** + * If not equal 0, the time to maximal wait. + * @param _n + */ + public void setProcessTimeout(int _n) + { + m_nProcessTimeout = _n; + } + + /** + * This command will call after ProcessTimeout is arrived. + * @param _s + */ + public void setProcessKiller(String _s) + { + m_sProcessKiller = _s; + } + + /** * This method do an asynchronous execution of the commands. To avoid a interruption on long running processes * caused by <CODE>OfficeWatcher</CODE>, the OfficeWatcher get frequently a ping. * @see helper.OfficeWatcher @@ -395,7 +426,7 @@ public class ProcessHandler if (sOutputText.length() == memText.length()) { changedText = false; - // dbg("runCommand Could not detect changes in output stream!!!"); + // dbg("runCommand Could not detect changes in output stream!!!"); } hangcheck = 10; memText = this.getOutputText(); @@ -515,6 +546,21 @@ public class ProcessHandler return m_nExactStartTimeInMillisec; } + private void showEnvVars() + { + if (envVars != null) + { + for (int i = 0; i < envVars.length; i++) + { + log.println("env: " + envVars[i]); + } + } + else + { + log.println("env: null"); + } + } + protected void execute() { if (isStarted()) @@ -527,27 +573,32 @@ public class ProcessHandler { if (cmdLine == null) { - log.print(utils.getDateTime() + "execute: Starting command from array: "); + log.println(utils.getDateTime() + "execute: Starting command from array: "); for (int i = 0; i < cmdLineArray.length; i++) { - log.print(cmdLineArray[i]); - log.print(" "); + log.println(cmdLineArray[i]); + // log.print(" "); } + showEnvVars(); log.println(""); initialExactStartTime(); + initializeProcessKiller(); m_aProcess = runtime.exec(cmdLineArray, envVars); } else { if (workDir != null) { - log.println(utils.getDateTime() + "execute: Starting command: " + cmdLine + " " + - workDir.getAbsolutePath()); + log.println(utils.getDateTime() + "execute: Starting command: "); + log.println(cmdLine + " path=" + workDir.getAbsolutePath()); + showEnvVars(); m_aProcess = runtime.exec(cmdLine, envVars, workDir); } else { - log.println(utils.getDateTime() + "execute: Starting command: " + cmdLine); + log.println(utils.getDateTime() + "execute: Starting command: "); + log.println(cmdLine); + showEnvVars(); m_aProcess = runtime.exec(cmdLine, envVars); } } @@ -566,8 +617,8 @@ public class ProcessHandler return; } dbg("execute: pump io-streams"); - stdout = new Pump(m_aProcess.getInputStream(), log, "out > "); - stderr = new Pump(m_aProcess.getErrorStream(), log, "err > "); + stdout = new Pump(m_aProcess.getInputStream(), log, "out > ", bUseOutput); + stderr = new Pump(m_aProcess.getErrorStream(), log, "err > ", bUseOutput); stdIn = new PrintStream(m_aProcess.getOutputStream()); // int nExitValue = m_aProcess.exitValue(); @@ -821,4 +872,139 @@ public class ProcessHandler log.println(utils.getDateTime() + "PH." + message); } } + + public void noOutput() + { + bUseOutput = false; + } + // ------------------------------------------------------------------------- + class ProcessWatcher extends Thread + { + + private int m_nTimeoutInSec; + private String m_sProcessToStart; + private boolean m_bInterrupt; + + public ProcessWatcher(int _nTimeOut, String _sProcess) + { + m_nTimeoutInSec = _nTimeOut; + m_sProcessToStart = _sProcess; + m_bInterrupt = false; + } + + /** + * returns true, if the thread should hold on + * @return + */ + public synchronized boolean isInHoldOn() + { + return m_bInterrupt; + } + /** + * Marks the thread to hold on, next time + * STUPID: The thread must poll this flag itself. + * + * Reason: interrupt() seems not to work as expected. + */ + public synchronized void holdOn() + { + m_bInterrupt = true; + interrupt(); + } + + public void run() + { + while (m_nTimeoutInSec > 0) + { + m_nTimeoutInSec--; + try + { + sleep(1000); + } + catch(java.lang.InterruptedException e) + { + // interrupt flag is set back to 'not interrupted' :-( + } + if (isInHoldOn()) + { + break; + } + } + if (m_nTimeoutInSec <= 0 && !isInHoldOn()) // not zero, so we are interrupted. + { + system(m_sProcessToStart); + } + } + + /** + * Start an external Process + * @param _sProcess + */ + private void system(String _sProcess) + { + if (_sProcess == null) + { + return; + } + + try + { + + // run a _sProcess command + // using the Runtime exec method: + Process p = Runtime.getRuntime().exec(_sProcess); + + BufferedReader stdInput = new BufferedReader(new InputStreamReader(p.getInputStream())); + + BufferedReader stdError = new BufferedReader(new InputStreamReader(p.getErrorStream())); + + // read the output from the command + String s; + while ((s = stdInput.readLine()) != null) + { + System.out.println("out:" + s); + } + + // read any errors from the attempted command + while ((s = stdError.readLine()) != null) + { + System.out.println("err:" + s); + } + + } + catch (java.io.IOException e) + { + System.out.println("exception caught: "); + e.printStackTrace(); + } + + } + } + + /** + * If the timeout only given by setProcessTimeout(int seconds) function is != 0, + * a extra thread is created and after time has run out, the ProcessKiller string + * given by function setProcessKiller(string) will execute. + * So it is possible to kill a running office after a given time of seconds. + */ + private void initializeProcessKiller() + { + if (m_nProcessTimeout != 0) + { + m_aWatcher = new ProcessWatcher(m_nProcessTimeout, m_sProcessKiller); + m_aWatcher.start(); + } + } + + /** + * to stop the extra thread, before he will kill a running office. This will stop the thread. + */ + public void stopWatcher() + { + if (m_aWatcher != null) + { + m_aWatcher.holdOn(); + shortWait(5000); + } + } } diff --git a/qadevOOo/runner/org/openoffice/Runner.java b/qadevOOo/runner/org/openoffice/Runner.java index cdcefc992..ae1edc88e 100644 --- a/qadevOOo/runner/org/openoffice/Runner.java +++ b/qadevOOo/runner/org/openoffice/Runner.java @@ -184,7 +184,7 @@ public class Runner public static boolean run(String... args) { - System.out.println("OOoRunner Main() version from 20100323 (yyyymmdd)"); + System.out.println("OOoRunner Main() version from 20100922 (yyyymmdd)"); setStartTime(getTime()); diff --git a/smoketestoo_native/makefile.mk b/smoketestoo_native/makefile.mk index 809828566..18f3a42b7 100644 --- a/smoketestoo_native/makefile.mk +++ b/smoketestoo_native/makefile.mk @@ -33,6 +33,13 @@ ENABLE_EXCEPTIONS = TRUE CFLAGSCXX += $(CPPUNIT_CFLAGS) +#building with stlport, but cppunit was not built with stlport +.IF "$(USE_SYSTEM_STL)"!="YES" +.IF "$(SYSTEM_CPPUNIT)"=="YES" +CFLAGSCXX+=-DADAPT_EXT_STL +.ENDIF +.ENDIF + SLOFILES = $(SHL1OBJS) SHL1TARGET = smoketest @@ -49,7 +56,8 @@ ALLTAR : cpptest cpptest : $(SHL1TARGETN) -OOO_CPPTEST_ARGS = $(SHL1TARGETN) -env:arg-doc=$(BIN)/smoketestdoc.sxw +TEST_ARGUMENTS = smoketest.doc=$(BIN)/smoketestdoc.sxw +CPPTEST_LIBRARY = $(SHL1TARGETN) .IF "$(OS)" != "WNT" $(installationtest_instpath).flag : $(shell ls \ diff --git a/smoketestoo_native/smoketest.cxx b/smoketestoo_native/smoketest.cxx index 41baeddf9..a4e532123 100644 --- a/smoketestoo_native/smoketest.cxx +++ b/smoketestoo_native/smoketest.cxx @@ -28,8 +28,8 @@ #include "sal/config.h" #include "boost/noncopyable.hpp" +#include "com/sun/star/awt/AsyncCallback.hpp" #include "com/sun/star/awt/XCallback.hpp" -#include "com/sun/star/awt/XRequestCallback.hpp" #include "com/sun/star/beans/PropertyState.hpp" #include "com/sun/star/beans/PropertyValue.hpp" #include "com/sun/star/document/MacroExecMode.hpp" @@ -47,16 +47,18 @@ #include "com/sun/star/uno/RuntimeException.hpp" #include "com/sun/star/uno/Sequence.hxx" #include "com/sun/star/util/URL.hpp" +#include <preextstl.h> #include "cppuhelper/implbase1.hxx" #include "cppunit/TestAssert.h" #include "cppunit/TestFixture.h" #include "cppunit/extensions/HelperMacros.h" #include "cppunit/plugin/TestPlugIn.h" +#include <postextstl.h> #include "osl/conditn.hxx" #include "osl/diagnose.h" #include "rtl/ustring.h" #include "rtl/ustring.hxx" -#include "test/getargument.hxx" +#include "test/gettestargument.hxx" #include "test/officeconnection.hxx" #include "test/oustringostreaminserter.hxx" #include "test/toabsolutefileurl.hxx" @@ -147,8 +149,8 @@ void Test::tearDown() { void Test::test() { rtl::OUString doc; CPPUNIT_ASSERT( - test::getArgument( - rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("doc")), &doc)); + test::getTestArgument( + rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("smoketest.doc")), &doc)); css::uno::Sequence< css::beans::PropertyValue > args(1); args[0].Name = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("MacroExecutionMode")); @@ -166,10 +168,12 @@ void Test::test() { css::uno::Reference< css::frame::XController >( css::uno::Reference< css::frame::XModel >( css::uno::Reference< css::frame::XComponentLoader >( - connection_.getFactory()->createInstance( - rtl::OUString( - RTL_CONSTASCII_USTRINGPARAM( - "com.sun.star.frame.Desktop"))), + (connection_.getComponentContext()-> + getServiceManager()->createInstanceWithContext( + rtl::OUString( + RTL_CONSTASCII_USTRINGPARAM( + "com.sun.star.frame.Desktop")), + connection_.getComponentContext())), css::uno::UNO_QUERY_THROW)->loadComponentFromURL( test::toAbsoluteFileUrl(doc), rtl::OUString( @@ -182,11 +186,8 @@ void Test::test() { css::uno::UNO_QUERY_THROW); Result result; // Shifted to main thread to work around potential deadlocks (i112867): - css::uno::Reference< css::awt::XRequestCallback >( - connection_.getFactory()->createInstance( //TODO: AsyncCallback ctor - rtl::OUString( - RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.AsyncCallback"))), - css::uno::UNO_QUERY_THROW)->addCallback( + com::sun::star::awt::AsyncCallback::create( + connection_.getComponentContext())->addCallback( new Callback( disp, url, css::uno::Sequence< css::beans::PropertyValue >(), new Listener(&result)), diff --git a/test/inc/test/gettestargument.hxx b/test/inc/test/gettestargument.hxx new file mode 100644 index 000000000..21b9df7a0 --- /dev/null +++ b/test/inc/test/gettestargument.hxx @@ -0,0 +1,46 @@ +/************************************************************************* +* +* 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. +* +************************************************************************/ + +#ifndef INCLUDED_TEST_GETTESTARGUMENT_HXX +#define INCLUDED_TEST_GETTESTARGUMENT_HXX + +#include "sal/config.h" + +#include "test/detail/testdllapi.hxx" + +namespace rtl { class OUString; } + +namespace test { + +// Obtain the value of a test argument (tunneled in via an "arg-testarg.<name>" +// bootstrap variable): +OOO_DLLPUBLIC_TEST bool getTestArgument( + rtl::OUString const & name, rtl::OUString * value); + +} + +#endif diff --git a/test/inc/test/officeconnection.hxx b/test/inc/test/officeconnection.hxx index 99a319d51..45c0a370d 100644 --- a/test/inc/test/officeconnection.hxx +++ b/test/inc/test/officeconnection.hxx @@ -33,8 +33,8 @@ #include "osl/process.h" #include "test/detail/testdllapi.hxx" -namespace com { namespace sun { namespace star { namespace lang { - class XMultiServiceFactory; +namespace com { namespace sun { namespace star { namespace uno { + class XComponentContext; } } } } namespace test { @@ -51,13 +51,13 @@ public: void tearDown(); - com::sun::star::uno::Reference< com::sun::star::lang::XMultiServiceFactory > - getFactory() const; + com::sun::star::uno::Reference< com::sun::star::uno::XComponentContext > + getComponentContext() const; private: oslProcess process_; - com::sun::star::uno::Reference< com::sun::star::lang::XMultiServiceFactory > - factory_; + com::sun::star::uno::Reference< com::sun::star::uno::XComponentContext > + context_; }; } diff --git a/test/inc/test/uniquepipename.hxx b/test/inc/test/uniquepipename.hxx new file mode 100644 index 000000000..4b96586a0 --- /dev/null +++ b/test/inc/test/uniquepipename.hxx @@ -0,0 +1,44 @@ +/************************************************************************* +* +* 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. +* +************************************************************************/ + +#ifndef INCLUDED_TEST_UNIQUEPIPENAME_HXX +#define INCLUDED_TEST_UNIQUEPIPENAME_HXX + +#include "sal/config.h" + +#include "test/detail/testdllapi.hxx" + +namespace rtl { class OUString; } + +namespace test { + +// Create a system-wide unique name (for use with osl::Pipe): +OOO_DLLPUBLIC_TEST rtl::OUString uniquePipeName(rtl::OUString const & name); + +} + +#endif diff --git a/test/prj/build.lst b/test/prj/build.lst index 1bf76d664..5ef6353a1 100644 --- a/test/prj/build.lst +++ b/test/prj/build.lst @@ -1,4 +1,4 @@ te test : BOOST:boost cppu cppuhelper CPPUNIT:cppunit javaunohelper offuh ridljar sal solenv unoil NULL te test\inc nmake - all inc NULL te test\source\cpp nmake - all source_cpp inc NULL -te test\source\java nmake - all source_java NULL +te test\source\java\org\openoffice\test nmake - all source_java NULL diff --git a/test/prj/d.lst b/test/prj/d.lst index bcea8bee4..48f9d8edb 100644 --- a/test/prj/d.lst +++ b/test/prj/d.lst @@ -5,8 +5,9 @@ mkdir: %_DEST%\inc%_EXT%\test\detail ..\%__SRC%\lib\libtest.dylib %_DEST%\lib%_EXT%\libtest.dylib ..\%__SRC%\lib\libtest.so %_DEST%\lib%_EXT%\libtest.so ..\inc\test\detail\testdllapi.hxx %_DEST%\inc%_EXT%\test\detail\testdllapi.hxx -..\inc\test\getargument.hxx %_DEST%\inc%_EXT%\test\getargument.hxx +..\inc\test\gettestargument.hxx %_DEST%\inc%_EXT%\test\gettestargument.hxx ..\inc\test\officeconnection.hxx %_DEST%\inc%_EXT%\test\officeconnection.hxx ..\inc\test\oustringostreaminserter.hxx %_DEST%\inc%_EXT%\test\oustringostreaminserter.hxx ..\inc\test\toabsolutefileurl.hxx %_DEST%\inc%_EXT%\test\toabsolutefileurl.hxx +..\inc\test\uniquepipename.hxx %_DEST%\inc%_EXT%\test\uniquepipename.hxx ..\%__SRC%\class\test.jar %_DEST%\bin%_EXT%\test.jar diff --git a/test/source/cpp/getargument.cxx b/test/source/cpp/getargument.cxx index 339c5c9c7..0db144679 100644 --- a/test/source/cpp/getargument.cxx +++ b/test/source/cpp/getargument.cxx @@ -29,10 +29,13 @@ #include "rtl/bootstrap.hxx" #include "rtl/ustring.h" #include "rtl/ustring.hxx" -#include "test/getargument.hxx" + +#include "getargument.hxx" namespace test { +namespace detail { + bool getArgument(rtl::OUString const & name, rtl::OUString * value) { OSL_ASSERT(value != 0); return rtl::Bootstrap::get( @@ -40,3 +43,5 @@ bool getArgument(rtl::OUString const & name, rtl::OUString * value) { } } + +} diff --git a/test/inc/test/getargument.hxx b/test/source/cpp/getargument.hxx index 1b4df29d2..4ba7e0f47 100644 --- a/test/inc/test/getargument.hxx +++ b/test/source/cpp/getargument.hxx @@ -23,22 +23,22 @@ * for a copy of the LGPLv3 License. ************************************************************************/ -#ifndef INCLUDED_TEST_GETARGUMENT_HXX -#define INCLUDED_TEST_GETARGUMENT_HXX +#ifndef INCLUDED_TEST_SOURCE_CPP_GETARGUMENT_HXX +#define INCLUDED_TEST_SOURCE_CPP_GETARGUMENT_HXX #include "sal/config.h" -#include "test/detail/testdllapi.hxx" - -namespace rtl { class OUString; } - namespace test { +namespace detail { + // Obtain the value of an argument tunneled in via an "arg-<name>" bootstrap // variable: -OOO_DLLPUBLIC_TEST bool getArgument( +bool getArgument( rtl::OUString const & name, rtl::OUString * value); } +} + #endif diff --git a/test/source/cpp/gettestargument.cxx b/test/source/cpp/gettestargument.cxx new file mode 100644 index 000000000..757faa751 --- /dev/null +++ b/test/source/cpp/gettestargument.cxx @@ -0,0 +1,43 @@ +/************************************************************************* +* +* 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. +* +************************************************************************/ + +#include "sal/config.h" + +#include "rtl/ustring.h" +#include "rtl/ustring.hxx" +#include "test/gettestargument.hxx" + +#include "getargument.hxx" + +namespace test { + +bool getTestArgument(rtl::OUString const & name, rtl::OUString * value) { + return detail::getArgument( + rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("testarg.")) + name, value); +} + +} diff --git a/test/source/cpp/makefile.mk b/test/source/cpp/makefile.mk index 8494bd4aa..4c90dc678 100644 --- a/test/source/cpp/makefile.mk +++ b/test/source/cpp/makefile.mk @@ -35,10 +35,19 @@ VISIBILITY_HIDDEN = TRUE CDEFS += -DOOO_DLLIMPLEMENTATION_TEST CFLAGSCXX += $(CPPUNIT_CFLAGS) +#building with stlport, but cppunit was not built with stlport +.IF "$(USE_SYSTEM_STL)"!="YES" +.IF "$(SYSTEM_CPPUNIT)"=="YES" +CFLAGSCXX+=-DADAPT_EXT_STL +.ENDIF +.ENDIF + SLOFILES = \ $(SLO)/getargument.obj \ + $(SLO)/gettestargument.obj \ $(SLO)/officeconnection.obj \ - $(SLO)/toabsolutefileurl.obj + $(SLO)/toabsolutefileurl.obj \ + $(SLO)/uniquepipename.obj SHL1IMPLIB = i$(SHL1TARGET) SHL1OBJS = $(SLOFILES) diff --git a/test/source/cpp/officeconnection.cxx b/test/source/cpp/officeconnection.cxx index ccfd2cd0a..ca62a5c93 100644 --- a/test/source/cpp/officeconnection.cxx +++ b/test/source/cpp/officeconnection.cxx @@ -30,16 +30,20 @@ #include "com/sun/star/connection/NoConnectException.hpp" #include "com/sun/star/frame/XDesktop.hpp" #include "com/sun/star/lang/DisposedException.hpp" -#include "com/sun/star/lang/XMultiServiceFactory.hpp" #include "com/sun/star/uno/Reference.hxx" +#include "com/sun/star/uno/XComponentContext.hpp" #include "cppuhelper/bootstrap.hxx" +#include <preextstl.h> #include "cppunit/TestAssert.h" +#include <postextstl.h> #include "osl/process.h" #include "osl/time.h" #include "sal/types.h" -#include "test/getargument.hxx" #include "test/officeconnection.hxx" #include "test/toabsolutefileurl.hxx" +#include "test/uniquepipename.hxx" + +#include "getargument.hxx" namespace { @@ -57,17 +61,13 @@ void OfficeConnection::setUp() { rtl::OUString desc; rtl::OUString argSoffice; CPPUNIT_ASSERT( - getArgument( + detail::getArgument( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("soffice")), &argSoffice)); if (argSoffice.matchAsciiL(RTL_CONSTASCII_STRINGPARAM("path:"))) { - oslProcessInfo info; - info.Size = sizeof info; - CPPUNIT_ASSERT_EQUAL( - osl_Process_E_None, - osl_getProcessInfo(0, osl_Process_IDENTIFIER, &info)); - desc = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("pipe,name=oootest")) + - rtl::OUString::valueOf(static_cast< sal_Int64 >(info.Ident)); + desc = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("pipe,name=")) + + uniquePipeName( + rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("oootest"))); rtl::OUString noquickArg( RTL_CONSTASCII_USTRINGPARAM("-quickstart=no")); rtl::OUString nofirstArg( @@ -78,7 +78,7 @@ void OfficeConnection::setUp() { rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(";urp"))); rtl::OUString argUser; CPPUNIT_ASSERT( - getArgument( + detail::getArgument( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("user")), &argUser)); rtl::OUString userArg( rtl::OUString( @@ -86,15 +86,12 @@ void OfficeConnection::setUp() { toAbsoluteFileUrl(argUser)); rtl::OUString jreArg( RTL_CONSTASCII_USTRINGPARAM("-env:UNO_JAVA_JFW_ENV_JREHOME=true")); - rtl::OUString classpathArg( - RTL_CONSTASCII_USTRINGPARAM( - "-env:UNO_JAVA_JFW_ENV_CLASSPATH=true")); rtl_uString * args[] = { noquickArg.pData, nofirstArg.pData, norestoreArg.pData, - acceptArg.pData, userArg.pData, jreArg.pData, classpathArg.pData }; + acceptArg.pData, userArg.pData, jreArg.pData }; rtl_uString ** envs = 0; rtl::OUString argEnv; - if (getArgument( + if (detail::getArgument( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("env")), &argEnv)) { envs = &argEnv.pData; @@ -118,14 +115,14 @@ void OfficeConnection::setUp() { cppu::defaultBootstrap_InitialComponentContext())); for (;;) { try { - factory_ = - css::uno::Reference< css::lang::XMultiServiceFactory >( + context_ = + css::uno::Reference< css::uno::XComponentContext >( resolver->resolve( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("uno:")) + desc + rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( - ";urp;StarOffice.ServiceManager"))), + ";urp;StarOffice.ComponentContext"))), css::uno::UNO_QUERY_THROW); break; } catch (css::connection::NoConnectException &) {} @@ -139,21 +136,23 @@ void OfficeConnection::setUp() { } void OfficeConnection::tearDown() { - if (factory_.is()) { - css::uno::Reference< css::frame::XDesktop > desktop( - factory_->createInstance( - rtl::OUString( - RTL_CONSTASCII_USTRINGPARAM("com.sun.star.frame.Desktop"))), - css::uno::UNO_QUERY_THROW); - factory_.clear(); - try { - CPPUNIT_ASSERT(desktop->terminate()); - desktop.clear(); - } catch (css::lang::DisposedException &) {} - // it appears that DisposedExceptions can already happen while - // receiving the response of the terminate call - } if (process_ != 0) { + if (context_.is()) { + css::uno::Reference< css::frame::XDesktop > desktop( + context_->getServiceManager()->createInstanceWithContext( + rtl::OUString( + RTL_CONSTASCII_USTRINGPARAM( + "com.sun.star.frame.Desktop")), + context_), + css::uno::UNO_QUERY_THROW); + context_.clear(); + try { + CPPUNIT_ASSERT(desktop->terminate()); + desktop.clear(); + } catch (css::lang::DisposedException &) {} + // it appears that DisposedExceptions can already happen while + // receiving the response of the terminate call + } CPPUNIT_ASSERT_EQUAL(osl_Process_E_None, osl_joinProcess(process_)); oslProcessInfo info; info.Size = sizeof info; @@ -165,9 +164,9 @@ void OfficeConnection::tearDown() { } } -css::uno::Reference< css::lang::XMultiServiceFactory > -OfficeConnection::getFactory() const { - return factory_; +css::uno::Reference< css::uno::XComponentContext > +OfficeConnection::getComponentContext() const { + return context_; } } diff --git a/test/source/cpp/uniquepipename.cxx b/test/source/cpp/uniquepipename.cxx new file mode 100644 index 000000000..c7614f4f3 --- /dev/null +++ b/test/source/cpp/uniquepipename.cxx @@ -0,0 +1,48 @@ +/************************************************************************* +* +* 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. +* +************************************************************************/ + +#include "sal/config.h" + +#include "cppunit/TestAssert.h" +#include "osl/process.h" +#include "rtl/ustring.h" +#include "rtl/ustring.hxx" +#include "sal/types.h" +#include "test/uniquepipename.hxx" + +namespace test { + +rtl::OUString uniquePipeName(rtl::OUString const & name) { + oslProcessInfo info; + info.Size = sizeof info; + CPPUNIT_ASSERT_EQUAL( + osl_Process_E_None, + osl_getProcessInfo(0, osl_Process_IDENTIFIER, &info)); + return name + rtl::OUString::valueOf(static_cast< sal_Int64 >(info.Ident)); +} + +} diff --git a/test/source/java/org/openoffice/test/Argument.java b/test/source/java/org/openoffice/test/Argument.java new file mode 100644 index 000000000..0380375d8 --- /dev/null +++ b/test/source/java/org/openoffice/test/Argument.java @@ -0,0 +1,36 @@ +/************************************************************************* +* +* 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. +* +************************************************************************/ + +package org.openoffice.test; + +public final class Argument { + public static String get(String name) { + return System.getProperty("org.openoffice.test.arg." + name); + } + + private Argument() {} +} diff --git a/test/source/java/org/openoffice/test/FileHelper.java b/test/source/java/org/openoffice/test/FileHelper.java new file mode 100644 index 000000000..b65e229e0 --- /dev/null +++ b/test/source/java/org/openoffice/test/FileHelper.java @@ -0,0 +1,62 @@ +/* + * ************************************************************************ + * + * 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. + * + * ************************************************************************ + */ + +package org.openoffice.test; + +/** + * Helper Functions for File handling + */ +public class FileHelper +{ + public FileHelper() + { + } + /** + * Concat a _sRelativePathToAdd to a _sPath and append a '/' to the _sPath only if need. + * + * @param _sPath + * @param _sRelativePathToAdd + * @return a right concated path + */ + public static String appendPath(String _sPath, String _sRelativePathToAdd) + { + String sNewPath = _sPath; + String fs = System.getProperty("file.separator"); + if (_sPath.startsWith("file:")) + { + fs = "/"; // we use a file URL so only '/' is allowed. + } + if (! (sNewPath.endsWith("/") || sNewPath.endsWith("\\") ) ) + { + sNewPath += fs; + } + sNewPath += _sRelativePathToAdd; + return sNewPath; + } +} diff --git a/test/source/java/OfficeConnection.java b/test/source/java/org/openoffice/test/OfficeConnection.java index 6887c3bfa..60978717a 100644 --- a/test/source/java/OfficeConnection.java +++ b/test/source/java/org/openoffice/test/OfficeConnection.java @@ -31,8 +31,9 @@ import com.sun.star.comp.helper.Bootstrap; import com.sun.star.connection.NoConnectException; import com.sun.star.frame.XDesktop; import com.sun.star.lang.DisposedException; -import com.sun.star.lang.XMultiServiceFactory; +import com.sun.star.lang.XMultiComponentFactory; import com.sun.star.uno.UnoRuntime; +import com.sun.star.uno.XComponentContext; import java.io.IOException; import java.io.InputStream; import java.io.PrintStream; @@ -49,17 +50,16 @@ public final class OfficeConnection { /** Start up an OOo instance. */ public void setUp() throws Exception { - String sofficeArg = getArgument("soffice"); + String sofficeArg = Argument.get("soffice"); if (sofficeArg.startsWith("path:")) { description = "pipe,name=oootest" + UUID.randomUUID(); ProcessBuilder pb = new ProcessBuilder( sofficeArg.substring("path:".length()), "-quickstart=no", "-nofirststartwizard", "-norestore", "-accept=" + description + ";urp", - "-env:UserInstallation=" + getArgument("user"), - "-env:UNO_JAVA_JFW_ENV_JREHOME=true", - "-env:UNO_JAVA_JFW_ENV_CLASSPATH=true"); - String envArg = getArgument("env"); + "-env:UserInstallation=" + Argument.get("user"), + "-env:UNO_JAVA_JFW_ENV_JREHOME=true"); + String envArg = Argument.get("env"); if (envArg != null) { Map<String, String> env = pb.environment(); int i = envArg.indexOf("="); @@ -85,11 +85,11 @@ public final class OfficeConnection { Bootstrap.createInitialComponentContext(null)); for (;;) { try { - factory = UnoRuntime.queryInterface( - XMultiServiceFactory.class, + context = UnoRuntime.queryInterface( + XComponentContext.class, resolver.resolve( "uno:" + description + - ";urp;StarOffice.ServiceManager")); + ";urp;StarOffice.ComponentContext")); break; } catch (NoConnectException e) {} if (process != null) { @@ -104,19 +104,24 @@ public final class OfficeConnection { throws InterruptedException, com.sun.star.uno.Exception { boolean desktopTerminated = true; - if (factory != null) { - XDesktop desktop = UnoRuntime.queryInterface( - XDesktop.class, - factory.createInstance("com.sun.star.frame.Desktop")); - factory = null; - try { - desktopTerminated = desktop.terminate(); - } catch (DisposedException e) {} - // it appears that DisposedExceptions can already happen while - // receiving the response of the terminate call - desktop = null; - } else if (process != null) { - process.destroy(); + if (process != null) { + if (context != null) { + XMultiComponentFactory factory = context.getServiceManager(); + assertNotNull(factory); + XDesktop desktop = UnoRuntime.queryInterface( + XDesktop.class, + factory.createInstanceWithContext( + "com.sun.star.frame.Desktop", context)); + context = null; + try { + desktopTerminated = desktop.terminate(); + } catch (DisposedException e) {} + // it appears that DisposedExceptions can already happen + // while receiving the response of the terminate call + desktop = null; + } else { + process.destroy(); + } } int code = 0; if (process != null) { @@ -130,10 +135,10 @@ public final class OfficeConnection { assertTrue(errTerminated); } - /** Obtain the service factory of the running OOo instance. + /** Obtain the component context of the running OOo instance. */ - public XMultiServiceFactory getFactory() { - return factory; + public XComponentContext getComponentContext() { + return context; } //TODO: get rid of this hack for legacy qa/unoapi tests @@ -141,10 +146,6 @@ public final class OfficeConnection { return description; } - private static String getArgument(String name) { - return System.getProperty("org.openoffice.test.arg." + name); - } - private static Integer waitForProcess(Process process, final long millis) throws InterruptedException { @@ -217,5 +218,5 @@ public final class OfficeConnection { private Process process = null; private Forward outForward = null; private Forward errForward = null; - private XMultiServiceFactory factory = null; + private XComponentContext context = null; } diff --git a/test/source/java/org/openoffice/test/OfficeFileUrl.java b/test/source/java/org/openoffice/test/OfficeFileUrl.java new file mode 100644 index 000000000..1ab62e283 --- /dev/null +++ b/test/source/java/org/openoffice/test/OfficeFileUrl.java @@ -0,0 +1,42 @@ +/************************************************************************* +* +* 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. +* +************************************************************************/ + +package org.openoffice.test; + +import java.io.File; + +/** Obtain the office-internal absolute file URL of a given file. + */ +public final class OfficeFileUrl { + public static String getAbsolute(File file) { + return file.getAbsoluteFile().toURI().toString().replaceFirst( + "\\A[Ff][Ii][Ll][Ee]:/(?=[^/]|\\z)", "file:///"); + // file:/path -> file:///path + } + + private OfficeFileUrl() {} +} diff --git a/test/source/java/org/openoffice/test/TestArgument.java b/test/source/java/org/openoffice/test/TestArgument.java new file mode 100644 index 000000000..1303d09e1 --- /dev/null +++ b/test/source/java/org/openoffice/test/TestArgument.java @@ -0,0 +1,39 @@ +/************************************************************************* +* +* 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. +* +************************************************************************/ + +package org.openoffice.test; + +/** Obtain the value of a test argument (tunneled in via an + "org.openoffice.test.arg.testarg.<name>" system property). + */ +public final class TestArgument { + public static String get(String name) { + return Argument.get("testarg." + name); + } + + private TestArgument() {} +} diff --git a/test/source/java/makefile.mk b/test/source/java/org/openoffice/test/makefile.mk index a541d532f..9314ea6a1 100644 --- a/test/source/java/makefile.mk +++ b/test/source/java/org/openoffice/test/makefile.mk @@ -23,14 +23,19 @@ # for a copy of the LGPLv3 License. #***********************************************************************/ -PRJ = ../.. +PRJ = ../../../../.. PRJNAME = test TARGET = java .IF "$(OOO_JUNIT_JAR)" != "" PACKAGE = org/openoffice/test -JAVAFILES = OfficeConnection.java +JAVAFILES = \ + Argument.java \ + FileHelper.java \ + OfficeConnection.java \ + OfficeFileUrl.java \ + TestArgument.java JARFILES = juh.jar ridl.jar unoil.jar EXTRAJARFILES = $(OOO_JUNIT_JAR) diff --git a/testautomation/chart2/optional/includes/wizard/ch2_lvl1_wizard.inc b/testautomation/chart2/optional/includes/wizard/ch2_lvl1_wizard.inc index f87f915ea..357fa89c4 100755 --- a/testautomation/chart2/optional/includes/wizard/ch2_lvl1_wizard.inc +++ b/testautomation/chart2/optional/includes/wizard/ch2_lvl1_wizard.inc @@ -199,7 +199,7 @@ testcase tCreateNew3DChart endif printlog "Check that 3D look is 'simple' (=default)" if Scheme3D.GetSelIndex <> 1 then - qaerrorlog "#i112522# - Default 3D Look ('simple') has not been preserved after save and reload." + warnlog "#i112522# - Default 3D Look ('simple') has not been preserved after save and reload." endif printlog "Check that 3D shape 'cone' is selected" if BarColumnShape.GetSelIndex <> 3 Then diff --git a/testautomation/dbaccess/optional/includes/db_Mozilla.inc b/testautomation/dbaccess/optional/includes/db_Mozilla.inc index 236b6a5e7..236b6a5e7 100755..100644 --- a/testautomation/dbaccess/optional/includes/db_Mozilla.inc +++ b/testautomation/dbaccess/optional/includes/db_Mozilla.inc diff --git a/testautomation/dbaccess/optional/includes/frm_FormFilter.inc b/testautomation/dbaccess/optional/includes/frm_FormFilter.inc index 74edeb1df..74edeb1df 100755..100644 --- a/testautomation/dbaccess/optional/includes/frm_FormFilter.inc +++ b/testautomation/dbaccess/optional/includes/frm_FormFilter.inc diff --git a/testautomation/dbaccess/optional/includes/frm_Forms.inc b/testautomation/dbaccess/optional/includes/frm_Forms.inc index 630e1920c..630e1920c 100755..100644 --- a/testautomation/dbaccess/optional/includes/frm_Forms.inc +++ b/testautomation/dbaccess/optional/includes/frm_Forms.inc diff --git a/testautomation/dbaccess/optional/includes/rpt_Formating.inc b/testautomation/dbaccess/optional/includes/rpt_Formating.inc index 4bde542bd..4bde542bd 100755..100644 --- a/testautomation/dbaccess/optional/includes/rpt_Formating.inc +++ b/testautomation/dbaccess/optional/includes/rpt_Formating.inc diff --git a/testautomation/dbaccess/optional/includes/wiz_DatabaseWizard.inc b/testautomation/dbaccess/optional/includes/wiz_DatabaseWizard.inc index 5be669dc1..df9026ba2 100755 --- a/testautomation/dbaccess/optional/includes/wiz_DatabaseWizard.inc +++ b/testautomation/dbaccess/optional/includes/wiz_DatabaseWizard.inc @@ -208,27 +208,23 @@ endcase '------------------------------------------------------------------------- testcase tMozilla - if(gPlatform = "osx") then - qaerrorlog "Mozilla address book not supported under Mac." - else - if ( fCreateMozillaAddressbookDatasource(gOfficePath + "user/work/tt_mozilla.odb") = true) then - if ( fOpendatabase(gOfficePath + "user/work/tt_mozilla.odb") = true) then - Kontext "ContainerView" - ViewTables - else - warnlog "mozilla database could not be open." - - endif + if ( fCreateMozillaAddressbookDatasource(gOfficePath + "user/work/tt_mozilla.odb") = true) then + if ( fOpendatabase(gOfficePath + "user/work/tt_mozilla.odb") = true) then + Kontext "ContainerView" + ViewTables else - qaerrorlog "mozilla database could not be created. Maybe you have no mozilla installed." - Kontext "MessageBox" - if (MessageBox.exists(1)) then - MessageBox.OK - endif + warnlog "mozilla database could not be open." + endif - ' try to close the database - call fCloseDatabase(false) + else + qaerrorlog "mozilla database could not be created. Maybe you have no mozilla installed." + Kontext "MessageBox" + if (MessageBox.exists(1)) then + MessageBox.OK + endif endif + ' try to close the database + call fCloseDatabase(false) endcase '------------------------------------------------------------------------- diff --git a/testautomation/dbaccess/optional/includes/xf_Submission.inc b/testautomation/dbaccess/optional/includes/xf_Submission.inc index 05f0da768..05f0da768 100755..100644 --- a/testautomation/dbaccess/optional/includes/xf_Submission.inc +++ b/testautomation/dbaccess/optional/includes/xf_Submission.inc diff --git a/testautomation/dbaccess/tools/reporttools.inc b/testautomation/dbaccess/tools/reporttools.inc index 70b9ff129..70b9ff129 100755..100644 --- a/testautomation/dbaccess/tools/reporttools.inc +++ b/testautomation/dbaccess/tools/reporttools.inc diff --git a/testautomation/extensions/optional/includes/platforms.inc b/testautomation/extensions/optional/includes/platforms.inc index db5d79149..eaac40b77 100755..100644 --- a/testautomation/extensions/optional/includes/platforms.inc +++ b/testautomation/extensions/optional/includes/platforms.inc @@ -75,7 +75,7 @@ testcase tExtensionPlatforms end select printlog( "" ) - printlog( "Current extension: " & cCurrentExtensionFile ) + printlog( "("+iCurrentExtension+"/"+iExtensionCount+") Current extension: " & cCurrentExtensionFile ) iStatus = hExtensionAddGUI( cCurrentExtensionPath, "InstallForUser, NoLicense, NoUpdate, Verbose" ) if ( iStatus = -7 or iStatus >= 0 ) then diff --git a/testautomation/framework/optional/f_basic_gridcontrol.bas b/testautomation/framework/optional/f_basic_gridcontrol.bas index b1084f577..963482253 100644..100755 --- a/testautomation/framework/optional/f_basic_gridcontrol.bas +++ b/testautomation/framework/optional/f_basic_gridcontrol.bas @@ -32,17 +32,26 @@ '\****************************************************************************** sub main + use "framework\optional\includes\basic_gridcontrol.inc" + call hStatusIn ("framework", "f_basic_gridcontrol.bas") - printlog "Load Document with gridcontrol" + + hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_LOW ) call tGridcontrolLoad hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_DEFAULT ) - call hStatusOut + + call hStatusOut() + end sub sub LoadIncludeFiles + use "global\system\includes\master.inc" use "global\system\includes\gvariabl.inc" + + use "global\tools\includes\optional\t_treelist_tools.inc" + gApplication = "WRITER" call GetUseFiles() end sub diff --git a/testautomation/framework/optional/includes/basic_gridcontrol.inc b/testautomation/framework/optional/includes/basic_gridcontrol.inc index 5cfbc4e0b..181bd2aa9 100644..100755 --- a/testautomation/framework/optional/includes/basic_gridcontrol.inc +++ b/testautomation/framework/optional/includes/basic_gridcontrol.inc @@ -32,28 +32,22 @@ '\****************************************************************************** testcase tGridcontrolLoad - dim sLocation as string - dim i,x,a as integer - dim sTemp as string - dim lFiles(200) as string - dim bTemp as boolean - dim iError, iOK as integer + + const MACRO_NAME = "VclTestTool" + const MACRO_NOT_FOUND = 0 + const FILE_NAME = "framework/optional/input/gridcontrol.odt" + + dim iPos as integer - sLocation = "framework/optional/include/basic_gridcontrol.inc::" + printlog( "Open the test document: " & FILE_NAME ) + call hFileOpen( gTestToolPath & FILE_NAME ) - hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_LOW ) + printlog( "Open the <Run Macro> dialog" ) + ToolsMacrosRunMacro - printlog "Open the test document" - call hFileOpen(convertPath(gTestToolPath + "framework/optional/input/gridcontrol.odt")) - printlog "Security dialog might come up" - kontext "SecurityWarning" - if SecurityWarning.exists(5) then - printlog "Allow to run macros" - SecurityWarning.ok - endif - call sleep 1 - call sMakeReadOnlyDocumentEditable - call sleep 1 + printlog( "Find the document, its library and the test macro, run the macro" ) + Kontext "ScriptSelector" + if ( ScriptSelector.exists( 10 ) ) then printlog "Start the macro, that performs the test" Kontext "GridControlDialogStarter" @@ -102,11 +96,9 @@ testcase tGridcontrolLoad warnlog "Gridcontrol Dialog did not come up after pressing button" endif - printlog "clean up" - printlog "Close the document, else an error about the navigator will be thrown" - if getDocumentcount > 0 then - call hCloseDocument() - endif + printlog( "Test exit, cleanup" ) + hFileCloseAll() + endcase diff --git a/testautomation/framework/optional/includes/basic_spectemplate.inc b/testautomation/framework/optional/includes/basic_spectemplate.inc index eeed6b047..7fc265837 100755..100644 --- a/testautomation/framework/optional/includes/basic_spectemplate.inc +++ b/testautomation/framework/optional/includes/basic_spectemplate.inc @@ -94,10 +94,12 @@ testcase tBasicSpecTemplate printlog( "Load the file again" ) hFileOpen( cWorkFile ) hAllowMacroExecution() + + ' This sleep here is needed after loading the document otherwise the document is closed too early during execution of the macros, which results in basic runtime error messagebox, that can not be handled. + SLEEP(1) printlog( "Cleanup: Close the document and delete the file" ) hDestroyDocument() hDeleteFile( cWorkFile ) - endcase diff --git a/testautomation/framework/optional/includes/security_certification_dialogs.inc b/testautomation/framework/optional/includes/security_certification_dialogs.inc index c36728595..c36728595 100755..100644 --- a/testautomation/framework/optional/includes/security_certification_dialogs.inc +++ b/testautomation/framework/optional/includes/security_certification_dialogs.inc diff --git a/testautomation/framework/required/includes/script_organizers.inc b/testautomation/framework/required/includes/script_organizers.inc index 3a70c8051..3a70c8051 100755..100644 --- a/testautomation/framework/required/includes/script_organizers.inc +++ b/testautomation/framework/required/includes/script_organizers.inc diff --git a/testautomation/global/input/officeinfo.txt b/testautomation/global/input/officeinfo.txt index 966fba456..dbca05ecb 100644 --- a/testautomation/global/input/officeinfo.txt +++ b/testautomation/global/input/officeinfo.txt @@ -1,4 +1,4 @@ [Current program versions] -Oracle Open Office=3.3 -OpenOffice.org=3.3 -BrOffice.org=3.3 +Oracle Open Office=3.4 +OpenOffice.org=3.4 +BrOffice.org=3.4 diff --git a/testautomation/global/sid/all.sid b/testautomation/global/sid/all.sid index 5ee1c1572..f19c453b9 100644..100755 --- a/testautomation/global/sid/all.sid +++ b/testautomation/global/sid/all.sid @@ -534,7 +534,7 @@ ExtrasIndividuellePraesentation SID_CUSTOMSHOW_DLG ' ExtrasSymbole SID_SYMBOLS ExtrasSymboleKatalog SID_SYMBOLS_CATALOGUE ' ExtrasSymboleLaden SID_SYMBOLS_LOAD -ExtrasFormelImportieren SID_INSERT_FORMULA +ExtrasFormelImportieren SID_IMPORT_FORMULA ' *********************************** ' *********** Praesentationmenue ************ diff --git a/testautomation/global/sid/e_all.sid b/testautomation/global/sid/e_all.sid index 4c7800ba8..89b0a6d15 100644..100755 --- a/testautomation/global/sid/e_all.sid +++ b/testautomation/global/sid/e_all.sid @@ -776,7 +776,7 @@ ToolsLanguageHyphenationDraw SID_HYPHENATION ' **** Math ToolsSymbolsCatalog SID_SYMBOLS_CATALOGUE -ToolsImportFormula SID_INSERT_FORMULA +ToolsImportFormula SID_IMPORT_FORMULA ' ****************************************** ' *********** Slide Show Menu ************ diff --git a/testautomation/global/win/dial_a_c.win b/testautomation/global/win/dial_a_c.win index dfb4686ad..18f695c91 100755 --- a/testautomation/global/win/dial_a_c.win +++ b/testautomation/global/win/dial_a_c.win @@ -261,16 +261,6 @@ AnimationenZulassen sd:CheckBox:DLG_START_PRESENTATION:CBX_ANIMATION_ALLOWED DiawechselAufHintergrund SD:CHECKBOX:DLG_START_PRESENTATION:CBX_CHANGE_PAGE PraesentationImmerImVordergrund sd:CheckBox:DLG_START_PRESENTATION:CBX_ALWAYS_ON_TOP -*BMPOptionen svtools:ModalDialog:DLG_EXPORT_PIX -Farbaufloesung svtools:ListBox:DLG_EXPORT_PIX:LB_COLORS -RLEKodierung svtools:CheckBox:DLG_EXPORT_PIX:CBX_RLE -Original svtools:RadioButton:DLG_EXPORT_PIX:RB_ORIGINAL_PIX -Aufloesung svtools:RadioButton:DLG_EXPORT_PIX:RB_RES_PIX -DPI svtools:ComboBox:DLG_EXPORT_PIX:CBB_RES_PIX -Groesse svtools:RadioButton:DLG_EXPORT_PIX:RB_SIZE_PIX -Breite svtools:MetricField:DLG_EXPORT_PIX:MTF_SIZEX_PIX -Hoehe svtools:MetricField:DLG_EXPORT_PIX:MTF_SIZEY_PIX - *Browser SID_BROWSER *ChineseTranslation svx:CB_USE_VARIANTS:DLG_CHINESETRANSLATION diff --git a/testautomation/global/win/dial_d_h.win b/testautomation/global/win/dial_d_h.win index ab6183ad7..7418c3314 100755 --- a/testautomation/global/win/dial_d_h.win +++ b/testautomation/global/win/dial_d_h.win @@ -172,19 +172,6 @@ WiederholungsspalteButton sc:ImageButton:RID_SCDLG_AREAS:RB_REPEATCOL *Druckbestaetigung HID_PRINTMONITOR -*Druckoptionen HID_DLG_PRV_PRT_OPTIONS -Zeilen sw:NumericField:DLG_PAGEPREVIEW_PRINTOPTIONS:NF_ROWS -Spalten sw:NumericField:DLG_PAGEPREVIEW_PRINTOPTIONS:NF_COLS -Links sw:MetricField:DLG_PAGEPREVIEW_PRINTOPTIONS:MF_LMARGIN -Rechts sw:MetricField:DLG_PAGEPREVIEW_PRINTOPTIONS:MF_RMARGIN -Oben sw:MetricField:DLG_PAGEPREVIEW_PRINTOPTIONS:MF_TMARGIN -Unten sw:MetricField:DLG_PAGEPREVIEW_PRINTOPTIONS:MF_BMARGIN -Horizontal sw:MetricField:DLG_PAGEPREVIEW_PRINTOPTIONS:MF_HMARGIN -Vertikal sw:MetricField:DLG_PAGEPREVIEW_PRINTOPTIONS:MF_VMARGIN -Querformat sw:RadioButton:DLG_PAGEPREVIEW_PRINTOPTIONS:RB_LANDSCAPE -Hochformat sw:RadioButton:DLG_PAGEPREVIEW_PRINTOPTIONS:RB_PORTRAIT -Standard sw:PushButton:DLG_PAGEPREVIEW_PRINTOPTIONS:PB_STANDARD - *DruckerZusaetzeDraw HID_SD_PRINT_OPTIONS Zeichnung sd:CheckBox:TP_PRINT_OPTIONS:CBX_DRAW Notizen sd:CheckBox:TP_PRINT_OPTIONS:CBX_NOTES @@ -270,22 +257,6 @@ Titel SW:EDIT:DLG_FLD_INPUT:ED_LABEL EingabeText sw:MultiLineEdit:DLG_FLD_INPUT:ED_EDIT Weiter SW:PUSHBUTTON:DLG_FLD_INPUT:PB_NEXT -*EMFOptionen svtools:ModalDialog:DLG_EXPORT_VEC -Original svtools:RadioButton:DLG_EXPORT_VEC:RB_ORIGINAL_VEC -Groesse svtools:RadioButton:DLG_EXPORT_VEC:RB_SIZE_VEC -Breite svtools:MetricField:DLG_EXPORT_VEC:MTF_SIZEX_VEC -Hoehe svtools:MetricField:DLG_EXPORT_VEC:MTF_SIZEY_VEC - -*EPSOptionen filter:ModalDialog:DLG_EXPORT_EPS -VorschauTif filter:CheckBox:DLG_EXPORT_EPS:CB_PREVIEW_TIFF -InterchangeEPSI filter:CheckBox:DLG_EXPORT_EPS:CB_PREVIEW_EPSI -Level1 filter:RadioButton:DLG_EXPORT_EPS:RB_LEVEL1 -Level2 filter:RadioButton:DLG_EXPORT_EPS:RB_LEVEL2 -Farbe filter:RadioButton:DLG_EXPORT_EPS:RB_COLOR -Graustufen filter:RadioButton:DLG_EXPORT_EPS:RB_GRAYSCALE -LZWKodierung filter:RadioButton:DLG_EXPORT_EPS:RB_COMPRESSION_LZW -Keine filter:RadioButton:DLG_EXPORT_EPS:RB_COMPRESSION_NONE - *EtikettenSynchronisieren HID_SYNC_BTN Synchronisieren SW:PUSHBUTTON:DLG_SYNC_BTN:BTN_SYNC @@ -403,14 +374,6 @@ Loeschen HID_FLDVAR_DELETE *Filterauswahl HID_DLG_FILTER_SELECT Filter uui:ListBox:DLG_FILTER_SELECT:LB_FILTERS -*FilterDlg svtools:ModalDialog:DLG_EXPORT_PIX -Original svtools:RadioButton:DLG_EXPORT_PIX:RB_ORIGINAL_PIX -Aufloesung svtools:RadioButton:DLG_EXPORT_PIX:RB_RES_PIX -Groesse svtools:RadioButton:DLG_EXPORT_PIX:RB_SIZE_PIX -AufloesungDPI svtools:ComboBox:DLG_EXPORT_PIX:CBB_RES_PIX -Breite svtools:MetricField:DLG_EXPORT_PIX:MTF_SIZEX_PIX -Hoehe svtools:MetricField:DLG_EXPORT_PIX:MTF_SIZEY_PIX - *Fontwork SID_FONTWORK KreisAuswahl HID_FONTWORK_CTL_FORMS Aus HID_FONTWORK_TBI_STYLE_OFF @@ -479,10 +442,6 @@ Aktualisieren HID_TEMPLDLG_UPDATEBYEXAMPLE Vorlagenliste HID_TEMPLATE_FMT Gruppenliste HID_TEMPLATE_FILTER -*GifOptionen filter:ModalDialog:DLG_EXPORT_GIF -Interlace filter:CheckBox:DLG_EXPORT_GIF:CBX_INTERLACED -TransparentSpeichern filter:CheckBox:DLG_EXPORT_GIF:CBX_TRANSLUCENT - *GridControlDialogStarter ACTIVE ShowGridcontrol sym:showGridcontrol diff --git a/testautomation/global/win/dial_i_o.win b/testautomation/global/win/dial_i_o.win index aa965b42f..9b100efec 100755 --- a/testautomation/global/win/dial_i_o.win +++ b/testautomation/global/win/dial_i_o.win @@ -105,11 +105,6 @@ Vorschau sd:PushButton:DLG_VECTORIZE:BTN_PREVIEW +Interaktion TabInteraktion -*JPEGOptionen svtools:ModalDialog:DLG_EXPORT_JPG -Qualitaet svtools:NumericField:DLG_EXPORT_JPG:NUM_FLD_QUALITY -Graustufen svtools:RadioButton:DLG_EXPORT_JPG:RB_GRAY -Echtfarben svtools:RadioButton:DLG_EXPORT_JPG:RB_RGB - *Kommentar HID_REDLINING_DLG KommentarText HID_REDLINING_EDIT Zurueck HID_REDLINING_PREV @@ -259,12 +254,6 @@ Vorgaben1 sc:ImageButton:RID_SCDLG_TABOP:RB_FORMULARANGE Vorgaben2 sc:ImageButton:RID_SCDLG_TABOP:RB_ROWCELL Vorgaben3 sc:ImageButton:RID_SCDLG_TABOP:RB_COLCELL -*MetOptionen FILTER:MODALDIALOG:DLG_EXPORT_EMET -Original FILTER:RADIOBUTTON:DLG_EXPORT_EMET:RB_ORIGINAL -Groesse FILTER:RADIOBUTTON:DLG_EXPORT_EMET:RB_SIZE -Breite FILTER:METRICFIELD:DLG_EXPORT_EMET:MTF_SIZEX -Hoehe FILTER:METRICFIELD:DLG_EXPORT_EMET:MTF_SIZEY - *ModuleBearbeiten HID_EDIT_MODULES Sprache cui:ListBox:RID_SVXDLG_EDIT_MODULES:LB_EDIT_MODULES_LANGUAGE Module HID_CLB_EDIT_MODULES_MODULES diff --git a/testautomation/global/win/dial_p_s.win b/testautomation/global/win/dial_p_s.win index 84d1978a3..3aebf3710 100755 --- a/testautomation/global/win/dial_p_s.win +++ b/testautomation/global/win/dial_p_s.win @@ -19,25 +19,11 @@ SchutzAufheben HID_CHG_PROTECT PasswortEingabe sfx2:Edit:DLG_PASSWD:ED_PASSWD_USER PasswortBestaetigen sfx2:Edit:DLG_PASSWD:ED_PASSWD_CONFIRM -*PBMOptionen filter:ModalDialog:DLG_EXPORT_EPBM -Binaer filter:RadioButton:DLG_EXPORT_EPBM:RB_RAW -Ascii filter:RadioButton:DLG_EXPORT_EPBM:RB_ASCII - *PfadeAuswaehlen HID_MULTIPATH Pfade HID_OPTIONS_MULTIPATH_LIST Hinzufuegen cui:PUSHBUTTON:RID_SVXDLG_MULTIPATH:BTN_ADD_MULTIPATH Loeschen cui:PUSHBUTTON:RID_SVXDLG_MULTIPATH:BTN_DEL_MULTIPATH -*PGMOptionen filter:ModalDialog:DLG_EXPORT_EPGM -Binaer filter:RadioButton:DLG_EXPORT_EPGM:RB_RAW -Ascii filter:RadioButton:DLG_EXPORT_EPGM:RB_ASCII - -*PICTOPtionen filter:ModalDialog:DLG_EXPORT_EPCT -Original filter:RadioButton:DLG_EXPORT_EPCT:RB_ORIGINAL -Groesse filter:RadioButton:DLG_EXPORT_EPCT:RB_SIZE -Breite filter:MetricField:DLG_EXPORT_EPCT:MTF_SIZEX -Hoehe filter:MetricField:DLG_EXPORT_EPCT:MTF_SIZEY - *Pipette SID_BMPMASK svx:DockingWindow:RID_SVXDLG_BMPMASK PipetteKnopf HID_BMPMASK_TBI_PIPETTE Farbfeld HID_BMPMASK_CTL_PIPETTE @@ -79,14 +65,6 @@ DateiUrl cui:EDIT:MD_INSERT_OBJECT_PLUGIN:ED_FILEURL Durchsuchen cui:PUSHBUTTON:MD_INSERT_OBJECT_PLUGIN:BTN_FILEURL Optionen cui:MULTILINEEDIT:MD_INSERT_OBJECT_PLUGIN:ED_PLUGINS_OPTIONS -*PNGOptionen svtools:ModalDialog:DLG_EXPORT_EPNG -Kompression svtools:NumericField:DLG_EXPORT_EPNG:NUM_COMPRESSION -Interlaced svtools:CheckBox:DLG_EXPORT_EPNG:CBX_INTERLACED - -*PPMOptionen filter:ModalDialog:DLG_EXPORT_EPPM -Binaer filter:RadioButton:DLG_EXPORT_EPPM:RB_RAW -Ascii filter:RadioButton:DLG_EXPORT_EPPM:RB_ASCII - *QuelleAuswaehlen HID_DATAPILOT_TYPE AktuelleSelektion sc:RadioButton:RID_SCDLG_DAPITYPE:BTN_SELECTION AngemeldeteDatenquelle sc:RadioButton:RID_SCDLG_DAPITYPE:BTN_DATABASE @@ -374,12 +352,6 @@ Persistent sc:CheckBox:RID_SCDLG_FILTER:BTN_DEST_PERS +Stylist Gestalter -*SVMOptionen svtools:ModalDialog:DLG_EXPORT_VEC -Original svtools:RadioButton:DLG_EXPORT_VEC:RB_ORIGINAL_VEC -Groesse svtools:RadioButton:DLG_EXPORT_VEC:RB_SIZE_VEC -Breite svtools:MetricField:DLG_EXPORT_VEC:MTF_SIZEX_VEC -Hoehe svtools:MetricField:DLG_EXPORT_VEC:MTF_SIZEY_VEC - *SymboleMath starmath:ModalDialog:RID_SYMBOLDIALOG Symbolset starmath:ListBox:RID_SYMBOLDIALOG:1 Bearbeiten starmath:PushButton:RID_SYMBOLDIALOG:1 diff --git a/testautomation/global/win/dial_t_z.win b/testautomation/global/win/dial_t_z.win index 1f317fd41..4cec83ed5 100755 --- a/testautomation/global/win/dial_t_z.win +++ b/testautomation/global/win/dial_t_z.win @@ -261,12 +261,6 @@ Neu sw:PushButton:DLG_BIB_BASE:PB_NEW Loeschen sw:PushButton:DLG_BIB_BASE:PB_DELETE Umbenennen sw:PushButton:DLG_BIB_BASE:PB_RENAME -*WMFOptionen svtools:ModalDialog:DLG_EXPORT_VEC -Original svtools:RadioButton:DLG_EXPORT_VEC:RB_ORIGINAL_VEC -Groesse svtools:RadioButton:DLG_EXPORT_VEC:RB_SIZE_VEC -Breite svtools:MetricField:DLG_EXPORT_VEC:MTF_SIZEX_VEC -Hoehe svtools:MetricField:DLG_EXPORT_VEC:MTF_SIZEY_VEC - *Zahlenformat HID_NUMBERFORMAT Kategorie cui:ListBox:RID_SVXPAGE_NUMBERFORMAT:LB_CATEGORY KategorieFormat HID_NUMBERFORMAT_LB_FORMAT diff --git a/testautomation/global/win/edia_a_c.win b/testautomation/global/win/edia_a_c.win index a062d5db9..717bf83ed 100755 --- a/testautomation/global/win/edia_a_c.win +++ b/testautomation/global/win/edia_a_c.win @@ -330,6 +330,16 @@ Custom3 HID_BIB_CUSTOM3_POS Custom4 HID_BIB_CUSTOM4_POS Custom5 HID_BIB_CUSTOM5_POS +*BMPOptions svtools:ModalDialog:DLG_EXPORT +Exportwidth svtools:MetricField:DLG_EXPORT:MF_SIZEX +Exportmeasurement svtools:ListBox:DLG_EXPORT:LB_SIZEX +Exportheight svtools:MetricField:DLG_EXPORT:MF_SIZEY +Resolution svtools:NumericField:DLG_EXPORT:NF_RESOLUTION +Resolutionmeasurement svtools:ListBox:DLG_EXPORT:LB_RESOLUTION +Colordepth svtools:ListBox:DLG_EXPORT:LB_COLOR_DEPTH +Compression svtools:CheckBox:DLG_EXPORT:CB_RLE_ENCODING + + *Breakpoints basctl:ModalDialog:RID_BASICIDE_BREAKPOINTDLG BreakpointsList basctl:ComboBox:RID_BASICIDE_BREAKPOINTDLG:RID_CB_BRKPOINTS NewButton basctl:PushButton:RID_BASICIDE_BREAKPOINTDLG:RID_PB_NEW diff --git a/testautomation/global/win/edia_d_h.win b/testautomation/global/win/edia_d_h.win index 19ba11ec6..6b4f2f41c 100755 --- a/testautomation/global/win/edia_d_h.win +++ b/testautomation/global/win/edia_d_h.win @@ -97,6 +97,24 @@ Modify starmath:PushButton:RID_SYMDEFINEDIALOG:2 Delete starmath:PushButton:RID_SYMDEFINEDIALOG:3 Symbols HID_SMA_CONTROL_FONTCHAR_VIEW +*EMFOptions svtools:ModalDialog:DLG_EXPORT +Exportwidth svtools:MetricField:DLG_EXPORT:MF_SIZEX +Exportmeasurement svtools:ListBox:DLG_EXPORT:LB_SIZEX +Exportheight svtools:MetricField:DLG_EXPORT:MF_SIZEY + +*EPSOptions svtools:ModalDialog:DLG_EXPORT +Exportwidth svtools:MetricField:DLG_EXPORT:MF_SIZEX +Exportmeasurement svtools:ListBox:DLG_EXPORT:LB_SIZEX +Exportheight svtools:MetricField:DLG_EXPORT:MF_SIZEY +Preview svtools:CheckBox:DLG_EXPORT:CB_EPS_PREVIEW_TIFF +Epsi svtools:CheckBox:DLG_EXPORT:CB_EPS_PREVIEW_EPSI +Color svtools:RadioButton:DLG_EXPORT:RB_EPS_COLOR_FORMAT1 +Greyscale svtools:RadioButton:DLG_EXPORT:RB_EPS_COLOR_FORMAT2 +Level1 svtools:RadioButton:DLG_EXPORT:RB_EPS_LEVEL1 +Level2 svtools:RadioButton:DLG_EXPORT:RB_EPS_LEVEL2 +LZWEncoding svtools:RadioButton:DLG_EXPORT:RB_EPS_COMPRESSION_LZW +NoneCompression svtools:RadioButton:DLG_EXPORT:RB_EPS_COMPRESSION_NONE + *ExecuteSQLCommand dbaccess:ModalDialog:DLG_DIRECTSQL CommandToExecute dbaccess:MultiLineEdit:DLG_DIRECTSQL:ME_SQL ExecuteBtn dbaccess:PushButton:DLG_DIRECTSQL:PB_EXECUTE @@ -439,6 +457,15 @@ View HID_GALLERY_WINDOW *GalleryNewTitle HID_GALLERY_TITLE Title HID_GALLERY_TITLE_EDIT +*GIFOptions svtools:ModalDialog:DLG_EXPORT +Exportwidth svtools:MetricField:DLG_EXPORT:MF_SIZEX +Exportmeasurement svtools:ListBox:DLG_EXPORT:LB_SIZEX +Exportheight svtools:MetricField:DLG_EXPORT:MF_SIZEY +Resolution svtools:NumericField:DLG_EXPORT:NF_RESOLUTION +Resolutionmeasurement svtools:ListBox:DLG_EXPORT:LB_RESOLUTION +Interlaced svtools:CheckBox:DLG_EXPORT:CB_INTERLACED +Transparency svtools:CheckBox:DLG_EXPORT:CB_SAVE_TRANSPARENCY + *HelpAgent HID_HELPAGENT_WINDOW *HangulHanjaConversion HID_DIALOG_HANGULHANJA diff --git a/testautomation/global/win/edia_i_o.win b/testautomation/global/win/edia_i_o.win index c2353a085..61cea83b3 100755 --- a/testautomation/global/win/edia_i_o.win +++ b/testautomation/global/win/edia_i_o.win @@ -152,6 +152,15 @@ FielsInvolved HID_RELDLG_KEYFIELDS LeftFieldCell HID_RELATIONDIALOG_LEFTFIELDCELL RightFieldCell HID_RELATIONDIALOG_RIGHTFIELDCELL +*JPGOptions svtools:ModalDialog:DLG_EXPORT +Exportwidth svtools:MetricField:DLG_EXPORT:MF_SIZEX +Exportmeasurement svtools:ListBox:DLG_EXPORT:LB_SIZEX +Exportheight svtools:MetricField:DLG_EXPORT:MF_SIZEY +Resolution svtools:NumericField:DLG_EXPORT:NF_RESOLUTION +Resolutionmeasurement svtools:ListBox:DLG_EXPORT:LB_RESOLUTION +Colordepth svtools:ListBox:DLG_EXPORT:LB_COLOR_DEPTH +Quality svtools:NumericField:DLG_EXPORT:NF_COMPRESSION + *LabelFieldSelection extensions:ModalDialog:RID_DLG_SELECTLABELCONTROL *LicenseAgreementDialog HID_LICENSEDIALOG @@ -226,6 +235,11 @@ PhoneBusiness HID_MM_HEADER_11 Email HID_MM_HEADER_12 Gender HID_MM_HEADER_13 +*METOptions svtools:ModalDialog:DLG_EXPORT +Exportwidth svtools:MetricField:DLG_EXPORT:MF_SIZEX +Exportmeasurement svtools:ListBox:DLG_EXPORT:LB_SIZEX +Exportheight svtools:MetricField:DLG_EXPORT:MF_SIZEY + *Mplayer HID_AVMEDIA_PLAYERWINDOW Mopen HID_AVMEDIA_TOOLBOXITEM_OPEN mInsert HID_AVMEDIA_TOOLBOXITEM_INSERT diff --git a/testautomation/global/win/edia_p_s.win b/testautomation/global/win/edia_p_s.win index a97b3b3ed..dfba150f0 100644..100755 --- a/testautomation/global/win/edia_p_s.win +++ b/testautomation/global/win/edia_p_s.win @@ -25,6 +25,20 @@ OldPassword svx:Edit:RID_SVXDLG_PASSWORD:ED_OLD_PASSWD NewPassword svx:Edit:RID_SVXDLG_PASSWORD:ED_NEW_PASSWD Confirm svx:Edit:RID_SVXDLG_PASSWORD:ED_REPEAT_PASSWD +*PBMOptions svtools:ModalDialog:DLG_EXPORT +Exportwidth svtools:MetricField:DLG_EXPORT:MF_SIZEX +Exportmeasurement svtools:ListBox:DLG_EXPORT:LB_SIZEX +Exportheight svtools:MetricField:DLG_EXPORT:MF_SIZEY +Resolution svtools:NumericField:DLG_EXPORT:NF_RESOLUTION +Resolutionmeasurement svtools:ListBox:DLG_EXPORT:LB_RESOLUTION +QualityBinary svtools:RadioButton:DLG_EXPORT:RB_BINARY +QualityText svtools:RadioButton:DLG_EXPORT:RB_TEXT + +*PCTOptions svtools:ModalDialog:DLG_EXPORT + Exportwidth svtools:MetricField:DLG_EXPORT:MF_SIZEX + Exportmeasurement svtools:ListBox:DLG_EXPORT:LB_SIZEX + Exportheight svtools:MetricField:DLG_EXPORT:MF_SIZEY + *PDFOptions HID_FILTER_PDF_OPTIONS RangeAll filter:RadioButton:RID_PDF_TAB_GENER:RB_ALL RangePages filter:RadioButton:RID_PDF_TAB_GENER:RB_RANGE @@ -63,6 +77,34 @@ HideMenubar filter:CheckBox:RID_PDF_TAB_VPREFER:CB_UOP_HIDEVMENUBAR HideToolbar filter:CheckBox:RID_PDF_TAB_VPREFER:CB_UOP_HIDEVTOOLBAR HideWindowControls filter:CheckBox:RID_PDF_TAB_VPREFER:CB_UOP_HIDEVWINCTRL +*PGMOptions svtools:ModalDialog:DLG_EXPORT +Exportwidth svtools:MetricField:DLG_EXPORT:MF_SIZEX +Exportmeasurement svtools:ListBox:DLG_EXPORT:LB_SIZEX +Exportheight svtools:MetricField:DLG_EXPORT:MF_SIZEY +Resolution svtools:NumericField:DLG_EXPORT:NF_RESOLUTION +Resolutionmeasurement svtools:ListBox:DLG_EXPORT:LB_RESOLUTION +QualityBinary svtools:RadioButton:DLG_EXPORT:RB_BINARY +QualityText svtools:RadioButton:DLG_EXPORT:RB_TEXT + +*PNGOptions svtools:ModalDialog:DLG_EXPORT +Exportwidth svtools:MetricField:DLG_EXPORT:MF_SIZEX +Exportmeasurement svtools:ListBox:DLG_EXPORT:LB_SIZEX +Exportheight svtools:MetricField:DLG_EXPORT:MF_SIZEY +Resolution svtools:NumericField:DLG_EXPORT:NF_RESOLUTION +Resolutionmeasurement svtools:ListBox:DLG_EXPORT:LB_RESOLUTION +Compression svtools:NumericField:DLG_EXPORT:NF_COMPRESSION +Interlaced svtools:CheckBox:DLG_EXPORT:CB_INTERLACED + + +*PPMOptions svtools:ModalDialog:DLG_EXPORT +Exportwidth svtools:MetricField:DLG_EXPORT:MF_SIZEX +Exportmeasurement svtools:ListBox:DLG_EXPORT:LB_SIZEX +Exportheight svtools:MetricField:DLG_EXPORT:MF_SIZEY +Resolution svtools:NumericField:DLG_EXPORT:NF_RESOLUTION +Resolutionmeasurement svtools:ListBox:DLG_EXPORT:LB_RESOLUTION +QualityBinary svtools:RadioButton:DLG_EXPORT:RB_BINARY +QualityText svtools:RadioButton:DLG_EXPORT:RB_TEXT + *Posterize SID_GRFFILTER_POSTER PosterColors cui:NumericField:RID_SVX_GRFFILTER_DLG_POSTER:DLG_FILTERPOSTER_NUM_POSTER @@ -625,3 +667,7 @@ Remove cui:PushButton:RID_SVXDLG_WEBCONNECTION_INFO:PB_REMOVE RemoveAll cui:PushButton:RID_SVXDLG_WEBCONNECTION_INFO:PB_REMOVEALL changePassword cui:PushButton:RID_SVXDLG_WEBCONNECTION_INFO:PB_CHANGE +*SVMOptions svtools:ModalDialog:DLG_EXPORT +Exportwidth svtools:MetricField:DLG_EXPORT:MF_SIZEX +Exportmeasurement svtools:ListBox:DLG_EXPORT:LB_SIZEX +Exportheight svtools:MetricField:DLG_EXPORT:MF_SIZEY
\ No newline at end of file diff --git a/testautomation/global/win/edia_t_z.win b/testautomation/global/win/edia_t_z.win index 4e3e0cd2a..79297769c 100755 --- a/testautomation/global/win/edia_t_z.win +++ b/testautomation/global/win/edia_t_z.win @@ -236,6 +236,11 @@ NextBtn HID_FIRSTSTART_NEXT OKBtn HID_FIRSTSTART_FINISH CancelBtn HID_FIRSTSTART_CANCEL +*WMFOptions svtools:ModalDialog:DLG_EXPORT +Exportwidth svtools:MetricField:DLG_EXPORT:MF_SIZEX +Exportmeasurement svtools:ListBox:DLG_EXPORT:LB_SIZEX +Exportheight svtools:MetricField:DLG_EXPORT:MF_SIZEY + *XFormAddInstance HID_XFORMS_ADDINSTANCE_DLG InstanceName svx:Edit:RID_SVXDLG_ADD_INSTANCE:ED_INST_NAME InstanceURL SID_OPENURL diff --git a/testautomation/graphics/optional/g_spellcheck.bas b/testautomation/graphics/optional/g_spellcheck.bas index 7dad1b0d9..f8a8eb6c0 100644..100755 --- a/testautomation/graphics/optional/g_spellcheck.bas +++ b/testautomation/graphics/optional/g_spellcheck.bas @@ -42,19 +42,16 @@ sub main use "graphics\optional\includes\global\g_spellcheck.inc" hSetLocaleStrings ( gTesttoolPath + "graphics\tools\locale_1.txt" , glLocale () ) - - PrintLog "-------------------------" + gApplication + "-------------------" - Call tiToolsSpellcheckCorrect - Call tiToolsSpellcheckError - Call tiToolsSpellcheckCheck - Call tToolsSpellcheckAutoSpellcheck + PrintLog "-------------------------" + gApplication + "-------------------" + call tiToolsSpellcheckCheck_AlwaysIgnore + call tiToolsSpellcheckCheck_Change + call tiToolsSpellcheckCheck_ChangeAll gApplication = "DRAW" PrintLog "-------------------------" + gApplication + "-------------------" - Call tiToolsSpellcheckCorrect - Call tiToolsSpellcheckError - Call tiToolsSpellcheckCheck - Call tToolsSpellcheckAutoSpellcheck + call tiToolsSpellcheckCheck_AlwaysIgnore + call tiToolsSpellcheckCheck_Change + call tiToolsSpellcheckCheck_ChangeAll Call hStatusOut end sub diff --git a/testautomation/graphics/optional/i_only_updt_1.bas b/testautomation/graphics/optional/i_only_updt_1.bas deleted file mode 100644 index fd1e4ae68..000000000 --- a/testautomation/graphics/optional/i_only_updt_1.bas +++ /dev/null @@ -1,77 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : Impress Only Required Test (Part 1) -'* -'\***************************************************************** - -public glLocale (15*20) as string -global ExtensionString as String - -sub main - Printlog " -------------------- Impress-Only-Required-Test -----------------------------" - Call hStatusIn ( "Graphics","i_only_updt_1.bas") - - use "graphics\tools\id_tools.inc" - use "graphics\tools\id_tools_2.inc" - use "graphics\required\includes\global\id_002.inc" 'Edit - use "graphics\required\includes\global\id_003.inc" 'View - use "graphics\required\includes\global\id_004.inc" 'Insert - use "graphics\required\includes\global\id_005.inc" 'Format - use "graphics\required\includes\global\id_006.inc" 'Tools - use "graphics\required\includes\impress\im_003_.inc" 'Ansicht - use "graphics\required\includes\impress\im_004_.inc" 'Einfuegen - - if hSetLocaleStrings ( gTesttoolPath + "graphics\tools\locale_1.txt" , glLocale () ) = FALSE then - qaErrorLog "Locales doesn't exist in file : "+gTesttoolPath + "graphics\tools\locale_1.txt" ' this is needed for spellchecking. - endif - - call id_002 - call im_003_ - call id_003 - call im_004_ - call id_004 - call id_005 - call id_006 - - Call hStatusOut -end sub - -'---------------------------------------------- -sub LoadIncludeFiles - use "global\system\includes\master.inc" - use "global\system\includes\gvariabl.inc" - use "global\required\includes\g_option.inc" - use "global\required\includes\g_customize.inc" - use "global\required\includes\g_001.inc" - use "global\required\includes\g_009.inc" - gApplication = "IMPRESS" - Call GetUseFiles() -end sub - diff --git a/testautomation/graphics/optional/i_only_updt_2.bas b/testautomation/graphics/optional/i_only_updt_2.bas deleted file mode 100644 index 7b35dbab5..000000000 --- a/testautomation/graphics/optional/i_only_updt_2.bas +++ /dev/null @@ -1,76 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : Impress Only Required (Test Part 2) -'* -'\***************************************************************** - -public glLocale (15*20) as string -global ExtensionString as String - -sub main - Printlog " -------------------- Impress-Only-Required-Test -----------------------------" - Call hStatusIn ( "Graphics","i_only_updt_2.bas") - - use "graphics\tools\id_tools.inc" - use "graphics\tools\id_tools_2.inc" - use "graphics\required\includes\global\id_001.inc" 'File - use "graphics\required\includes\global\id_007.inc" 'Kontext - use "graphics\required\includes\global\id_008.inc" 'Window - use "graphics\required\includes\global\id_009.inc" 'Help - use "graphics\required\includes\global\id_011.inc" 'Toolbars - use "graphics\required\includes\impress\im_007_.inc" 'Praesentation - - if hSetLocaleStrings ( gTesttoolPath + "graphics\tools\locale_1.txt" , glLocale () ) = FALSE then - qaErrorLog "Locales doesn't exist in file : "+gTesttoolPath + "graphics\tools\locale_1.txt" ' this is needed for spellchecking. - endif - - call id_011 - Call tFileExportAsPDF - Call tExportAsPDFButton - Call im_007_ - call id_008 - call id_009 - call id_007 - - Call hStatusOut -end sub - -'---------------------------------------------- -sub LoadIncludeFiles - use "global\system\includes\master.inc" - use "global\system\includes\gvariabl.inc" - use "global\required\includes\g_option.inc" - use "global\required\includes\g_customize.inc" - use "global\required\includes\g_001.inc" - use "global\required\includes\g_009.inc" - gApplication = "IMPRESS" - Call GetUseFiles() -end sub - diff --git a/testautomation/graphics/optional/i_us_presentation.bas b/testautomation/graphics/optional/i_us_presentation.bas index fc1196fdb..c8836cad4 100644..100755 --- a/testautomation/graphics/optional/i_us_presentation.bas +++ b/testautomation/graphics/optional/i_us_presentation.bas @@ -42,14 +42,7 @@ sub main PrintLog "------------ Graphics User-scenario-test: PowerUser creates a Presentation ------------" - Call i_us_presentation1 ' User-Scenario: Pro. - Call i_us_presentation2 - Call i_us_presentation3 - Call i_us_presentation4 - Call i_us_presentation5 - Call i_us_presentation6 - Call i_us_presentation7 - + Call i_us_presentation ' User-Scenario: Pro. Call i_us2_pres1 ' User-Scenario: Beginner. Call i_us2_pres2 diff --git a/testautomation/graphics/optional/includes/draw/d_002_.inc b/testautomation/graphics/optional/includes/draw/d_002_.inc deleted file mode 100644 index 9b2f267a0..000000000 --- a/testautomation/graphics/optional/includes/draw/d_002_.inc +++ /dev/null @@ -1,109 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : -'* -'\***************************************************************** - - -testcase tdEditCrossFading - - printlog " open application " - Call hNewDocument - printlog " create 2 rectangles " - gMouseClick 50,50 - Call hRechteckErstellen ( 10, 10, 20, 40 ) - Call hRechteckErstellen ( 30, 30, 50, 60 ) - printlog " Edit-YSelect All " - EditSelectAll - try - printlog " Edit->Cross-fading " - EditCrossFading - catch - warnlog "EditCrossFading not accessible :-(" - endcatch - - Kontext "Ueberblenden" - Call DialogTest ( Ueberblenden ) - printlog " Change : 'Increments'; 1 more, 1 less " - Schritte.More - Schritte.Less - printlog " Change: Cross-fading attributes; uncheck, check " - Attributierung.uncheck - Attributierung.check - printlog " Change: same orientation; uncheck, check " - GleicheOrientierung.Uncheck - GleicheOrientierung.Check - printlog " cancel dialog 'Cross-fading'; uncheck, check " - Ueberblenden.Cancel - printlog " close application " - Call hCloseDocument - -endcase 'tdEditCrossFading -'------------------------------------------------------------------------------ -testcase tdEditLayer - - printlog " open application " - Call hNewDocument - printlog " View->Layer " - ViewLayer - printlog " Edit->Layer->Insert " - InsertLayer - Kontext "EbeneEinfuegenDlg" - Call DialogTest ( EbeneEinfuegenDlg ) - printlog " Change: Set another name for the layer " - EbenenName.SetText "SomeThing" - printlog " Change: Visible; uncheck, check " - Sichtbar.UnCheck - Sichtbar.Check - printlog " Change: Printable; uncheck, check " - Druckbar.UnCheck - Druckbar.Check - printlog " Change: Locked; check, uncheck " - Gesperrt.Check - Gesperrt.UnCheck - EbeneEinfuegenDlg.OK - printlog " (Edit->Layer->Modify is tested in format-menu-test) " - printlog " Edit->Layer->Rename " - EditLayerRename - kontext "DocumentDrawImpress" - LayerTabBar.TypeKeys "Apply!!<Return>" , true - printlog " Edit->Layer->Delete " - EditDeleteLayer - printlog " Messagebox: really delete? YES " - Kontext "Messagebox" - Messagebox.Yes - sleep (2) - printlog " View->Layer " - ViewLayer - printlog " close application " - Call hCloseDocument - -endcase 'tdEditLayer -'------------------------------------------------------------------------------ diff --git a/testautomation/graphics/optional/includes/draw/d_003_.inc b/testautomation/graphics/optional/includes/draw/d_003_.inc deleted file mode 100644 index 744461061..000000000 --- a/testautomation/graphics/optional/includes/draw/d_003_.inc +++ /dev/null @@ -1,82 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : -'* -'\***************************************************************** - -testcase tdViewPagePane - - printlog " open application " - Call hNewDocument - sleep 1 - kontext "pagepane" - if (NOT pagepane.exists) then - qaerrorlog "Pages Panel not visible on opening application. Opening now." - ViewPagePane - endif - kontext "pagepane" - sleep (2) - try - printlog " View->Page Pane " - ViewPagePane - sleep (2) - if (pagepane.exists) then - warnlog "View->Page Pane failed." - ViewPagePane - endif - catch - warnlog "View->Page Pane couldn't get executed" - endcatch - sleep 1 - if (NOT pagepane.exists) then - ViewPagePane - sleep (1) - endif - printlog " close application " - Call hCloseDocument - -endcase 'tdViewPagePane - -'------------------------------------------------------------------------------- -testcase tdViewSlide - - printlog " open application " - hNewDocument - kontext "DocumentDrawImpress" ' special case :-) - printlog " click the button on the bottom: 'Master View' (because it is not accessible via the menu :-() " - ViewMasterPage - sleep 1 - printlog " View->Slide " - ViewPagePane - Sleep 1 - printlog " close application " - Call hCloseDocument - -endcase 'tdViewSlide diff --git a/testautomation/graphics/optional/includes/draw/d_005_.inc b/testautomation/graphics/optional/includes/draw/d_005_.inc deleted file mode 100644 index 6c3e7b248..000000000 --- a/testautomation/graphics/optional/includes/draw/d_005_.inc +++ /dev/null @@ -1,51 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : -'* -'\***************************************************************** - -testcase tiFormatLayer - - printlog " open application " - Call hNewDocument - printlog " View->Layer " - ViewLayer - printlog " Format->Layer " - FormatLayer - Kontext "EbeneAendernDlg" - DialogTest ( EbeneAendernDlg ) - printlog " cancel dialog 'Modify Layer' " - EbeneAendernDlg.Cancel - printlog " View->Layer " - ViewLayer - printlog " close application " - Call hCloseDocument - -endcase 'tiFormatLayer diff --git a/testautomation/graphics/optional/includes/draw/d_007.inc b/testautomation/graphics/optional/includes/draw/d_007.inc deleted file mode 100644 index 89fef373f..000000000 --- a/testautomation/graphics/optional/includes/draw/d_007.inc +++ /dev/null @@ -1,47 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : -'* -'\***************************************************************** - -testcase tdModifyRotate - - printlog " open application " - Call hNewDocument - printlog " create a rectangle " - Call hRechteckErstellen 20,20,40,40 - sleep 1 - printlog " Modify->Rotate " - ModifyRotate - sleep 1 - printlog " close application " - Call hCloseDocument - -endcase 'tdModifyRotate diff --git a/testautomation/graphics/optional/includes/global/export_graphic.inc b/testautomation/graphics/optional/includes/global/export_graphic.inc index 3fe396325..f4c34ec36 100644 --- a/testautomation/graphics/optional/includes/global/export_graphic.inc +++ b/testautomation/graphics/optional/includes/global/export_graphic.inc @@ -32,72 +32,66 @@ '\****************************************************************************** testcase tEPS + dim x as integer dim i as integer + const sFilter = "EPS - Encapsulated PostScript (.eps)" const sExt = ".eps" printlog "open the document" hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString ) + if ( hCallExport ( OutputGrafikTBO , sFilter ) ) then - Kontext "EPSOptionen" - if ( EPSOptionen.Exists( 2 ) ) then + Kontext "EPSOptions" + if ( EPSOptions.Exists( 2 ) ) then printlog "check if all properties have the right count, and depend on each other" - ' they do not affect annything, i can check (TBO) - ' VorschauTIF.Check - ' InterchangeEPSI.Check + Level1.Check - if Farbe.IsEnabled then warnlog " :-(" - if Graustufen.IsEnabled then warnlog " :-(" - if LZWKodierung.IsEnabled then warnlog " :-(" - if Keine.IsEnabled then warnlog " :-(" - ' if (TextEinstellungen.IsEnabled <> TRUE) then warnlog " :-(" + if Color.IsEnabled then warnlog " :-(" + if Greyscale.IsEnabled then warnlog " :-(" + if LZWEncoding.IsEnabled then warnlog " :-(" + if NoneCompression.IsEnabled then warnlog " :-(" + Level2.Check - if (Farbe.IsEnabled <> TRUE) then warnlog " :-(" - if (Graustufen.IsEnabled <> TRUE) then warnlog " :-(" - if (LZWKodierung.IsEnabled <> TRUE) then warnlog " :-(" - if (Keine.IsEnabled <> TRUE) then warnlog " :-(" - ' if (TextEinstellungen.IsEnabled <> TRUE) then warnlog " :-(" - printlog "'Color Resolution' listbox contains eight items" - ' x = TextEinstellungen.GetItemCount - ' if x <> 2 then warnlog "'TextEinstellungen' Count is wrong; should:2, is:" + x - ' for i = 1 to x - ' TextEinstellungen.Select i - ' sleep 1 - ' Printlog " - " + i + ": '" +TextEinstellungen.GetSelText + "'" - ' next i + if (Color.IsEnabled <> TRUE) then warnlog " :-(" + if (Greyscale.IsEnabled <> TRUE) then warnlog " :-(" + if (LZWEncoding.IsEnabled <> TRUE) then warnlog " :-(" + if (NoneCompression.IsEnabled <> TRUE) then warnlog " :-(" + printlog "leave dialog with cancel -> there has to be no file created!" - hCloseDialog( EPSOptionen, "cancel" ) + hCloseDialog( EPSOptions, "cancel" ) + if ( FileExists( OutputGrafikTBO+sExt ) ) then ' inspired by bug #99932 Graphic is exported though cancel is pressed warnlog "Dialog was canceled, but file got saved, too :-( - i35177" endif else warnlog( "No export options dialog was displayed" ) end if + Kontext "Active" if Active.Exists(2) then Warnlog "'" + sFilter + "' has a problem" Active.OK end if end if + printlog( "Save the file" ) if ( hCallExport( OutputGrafikTBO, sFilter ) ) then - Kontext "EPSOptionen" - if ( EPSOptionen.Exists( 2 ) ) then - printlog "TextEinstellungen.select 2" - hCloseDialog( EPSOptionen, "ok" ) + Kontext "EPSOptions" + if ( EPSOptions.Exists( 2 ) ) then + hCloseDialog( EPSOptions, "ok" ) else warnlog( "No export options dialog was displayed" ) endif + printlog( "Close file and re-insert graphics into new document" ) - if ( lcase( gPlatform ) <> "osx" ) then - hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file - else - qaErrorLog "#i100253# crash on MacOS X 10.4" - endif + hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file endif + call hCloseDocument + endcase 'tEPS '------------------------------------------------------------------------- testcase tPCT @@ -122,24 +116,13 @@ testcase tPCT printlog "open the document" sDocument = convertpath( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString ) hFileOpen( sDocument ) - + printlog "----------1st: Trying export and canceling it." if ( hCallExport( OutputGrafikTBO , sFilter ) ) then - - Kontext "PICTOptionen" + Kontext "PCTOptions" printlog( "Export options dialog" ) - if ( PICTOptionen.Exists( 2 ) ) then - - printlog "check if all properties have the right count, and depend on each other" - Original.Check - if Breite.IsEnabled then warnlog " :-(" - if Hoehe.IsEnabled then warnlog " :-(" - Groesse.Check - Breite.More - Hoehe.Less - + if PCTOptions.Exists(2) then printlog "leave dialog with cancel -> there has to be no file created!" - hCloseDialog( PICTOptionen, "cancel" ) - + hCloseDialog( PCTOptions, "cancel" ) if ( FileExists( OutputGrafikTBO + sExt ) ) then warnlog( "#i35177# - dialog <PictOptions> canceled, still the file was saved" ) endif @@ -152,33 +135,25 @@ testcase tPCT Warnlog " '" + sFilter + "' has a problem" Active.OK end if - end if - printlog " now save it realy and load the file afterwards" + printlog "----------2nd: now save it really and load the file afterwards" if ( hCallExport( OutputGrafikTBO, sFilter ) ) then - Kontext "PICTOptionen" + Kontext "PCTOptions" printlog( "Export options dialog" ) - if ( PICTOptionen.Exists( 2 ) ) then - Groesse.Check - Breite.Less - Hoehe.More - hCloseDialog( PICTOptionen, "ok" ) + if ( PCTOptions.Exists( 2 ) ) then + hCloseDialog( PCTOptions, "ok" ) else warnlog( "No export options dialog was displayed" ) endif - sOutputFile = OutputGrafikTBO+sExt - if ( hWaitForOutputFile( sOutputFile ) ) then - - printlog( "Close file and re-insert graphics into new document" ) + printlog "Close file and re-insert graphics into new document" hInsertGraphicsToNewFile( sOutputFile ) ' local helper function, see bottom of this file else warnlog( "File was not saved: " & sOutputFile ) endif - endif hFileReOpen( sDocument ) @@ -192,16 +167,16 @@ testcase tPCT endif endif + printlog "----------3rd: exporting part of the picture and inserting into new file." hTypeKeys ("<escape><tab>") fGetSizeXY sx1, sY, TRUE if ( hCallExport( OutputGrafikTBO + "1", sFilter, TRUE ) ) then - Kontext "PICTOptionen" + Kontext "PCTOptions" printlog( "Export options dialog" ) - if ( PICTOptionen.Exists( 2 ) ) then - Original.Check - hCloseDialog( PICTOptionen, "ok" ) + if ( PCTOptions.Exists( 2 ) ) then + hCloseDialog( PCTOptions, "ok" ) else warnlog( "No export options dialog was displayed" ) endif @@ -221,22 +196,29 @@ testcase tPCT endif hFileReOpen( "" ) + printlog "----------4th: exporting rectangle and reload file." hRechteckErstellen ( 10, 10, 30, 40 ) if ( hCallExport( OutputGrafikTBO + "2" , sFilter, TRUE ) ) then - Kontext "PICTOptionen" + Kontext "PCTOptions" printlog( "Export options dialog" ) - if ( PICTOptionen.Exists( 2 ) ) then - Groesse.Check - Breite.SetText "9" - Hoehe.SetText "9" - Groesse.Check - - printlog "Check 'Size' one more time to make the change go through" - sx1 = Breite.GetText - sY = Hoehe.GetText - hCloseDialog( PICTOptionen, "ok" ) + if ( PCTOptions.Exists( 2 ) ) then + Exportwidth.SetText "9" + if Exportmeasurement.GetSelText = "inches" then + sx1 = (Exportwidth.GetText)+ """" + printlog "sx1= " & sx1 + else + sx1 = (Exportwidth.GetText)+ "cm" + endif + + if Exportmeasurement.GetSelText = "inches" then + sY = (Exportheight.GetText)+ """" + printlog "sY= " & sY + else + sY = (Exportheight.GetText)+ "cm" + endif + hCloseDialog( PCTOptions, "ok" ) else warnlog( "No export options dialog was displayed" ) endif @@ -257,34 +239,6 @@ testcase tPCT if ( not bTemp ) then warnlog "Selected original size NOT OK :-(" endif - if ( hCallExport( OutputGrafikTBO + "3", sFilter, TRUE ) ) then - - Kontext "PICTOptionen" - printlog( "Export options dialog" ) - if ( PICTOptionen.Exists( 2 ) ) then - Groesse.Check - sX2 = Breite.GetText - if (LiberalMeasurement(sx1, sX2)) <> TRUE then - if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then - Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'" - else - warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'" - endif - endif - sY2 = Hoehe.GetText - if (LiberalMeasurement(sY, sY2)) <> TRUE then - if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then - Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'" - else - warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'" - endif - endif - hCloseDialog( PICTOptionen, "cancel" ) - else - warnlog( "No export options dialog was displayed" ) - endif - endif - call hCloseDocument endcase 'tPCT @@ -300,15 +254,17 @@ testcase tPBM printlog "Save it" if ( hCallExport (OutputGrafikTBO , sFilter ) ) then - Kontext "PBMOptionen" - if ( PBMOptionen.Exists( 2 ) ) then - Ascii.Check - hCloseDialog( PBMOptionen, "ok" ) + Kontext "PBMOptions" + if ( PBMOptions.Exists( 2 ) ) then + QualityBinary.Check + QualityText.Check + hCloseDialog( PBMOptions, "ok" ) else warnlog( "No export options dialog was displayed" ) endif printlog( "Close file and re-insert graphics into new document" ) + sleep (1) hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file endif @@ -328,10 +284,11 @@ testcase tPGM printlog "Save it" if ( hCallExport (OutputGrafikTBO , sFilter ) ) then - Kontext "PGMOptionen" - if ( PGMOptionen.Exists( 2 ) ) then - Ascii.Check - hCloseDialog( PGMOptionen, "ok" ) + Kontext "PGMOptions" + if ( PGMOptions.Exists( 2 ) ) then + QualityBinary.Check + QualityText.Check + hCloseDialog( PGMOptions, "ok" ) else warnlog( "No export options dialog was displayed" ) endif @@ -356,10 +313,11 @@ testcase tPPM printlog "Save it" if ( hCallExport (OutputGrafikTBO , sFilter ) ) then - Kontext "PPMOptionen" - if ( PPMOptionen.Exists( 2 ) ) then - Ascii.Check - hCloseDialog( PPMOptionen, "ok" ) + Kontext "PPMOptions" + if ( PPMOptions.Exists( 2 ) ) then + QualityBinary.Check + QualityText.Check + hCloseDialog( PPMOptions, "ok" ) else warnlog( "No export options dialog was displayed" ) endif @@ -447,16 +405,17 @@ testcase tGIF printlog "save it" if ( hCallExport( OutputGrafikTBO, sFilter ) ) then - Kontext "GIFOptionen" - if GIFOptionen.Exists (2) then - Interlace.Uncheck - TransparentSpeichern.UnCheck - hCloseDialog( GIFOptionen, "ok" ) + Kontext "GIFOptions" + if GIFOptions.Exists (2) then + Interlaced.Uncheck + Transparency.UnCheck + hCloseDialog( GIFOptions, "ok" ) else warnlog( "No export options dialog was displayed" ) endif printlog( "Close file and re-insert graphics into new document" ) + sleep (1) hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file endif @@ -476,11 +435,10 @@ testcase tJPEG printlog " save it " if ( hCallExport( OutputGrafikTBO , sFilter ) ) then - Kontext "JpegOptionen" - if ( JpegOptionen.Exists( 2 ) ) then - Echtfarben.Check - Qualitaet.ToMin - hCloseDialog( JpegOptionen, "ok" ) + Kontext "JPGOptions" + if ( JPGOptions.Exists( 2 ) ) then + Quality.ToMin + hCloseDialog( JPGOptions, "ok" ) else warnlog( "No export options dialog was displayed" ) endif @@ -497,7 +455,7 @@ endcase 'tJPEG '******************************************************************************* function hInsertGraphicsToNewFile( sOutputFile as string ) - + sleep (1) if ( FileExists( sOutputFile ) ) then hFileReOpen( "" ) Call hGrafikEinfuegen( sOutputFile ) @@ -533,21 +491,26 @@ end function '******************************************************************************* function hWaitForOutputFile( sOutputFile as string ) as boolean + const FILE_WRITE_TIMEOUT = 30 dim iWait as integer : iWait = 0 for iWait = 1 to FILE_WRITE_TIMEOUT + ' File found if ( FileExists( sOutputFile ) ) then hWaitForOutputFile() = true exit function endif + ' Timeout if ( iWait = FILE_WRITE_TIMEOUT ) then hWaitForOutputFile() = false exit function endif + wait( 1000 ) + next iWait -end function +end function diff --git a/testautomation/graphics/optional/includes/global/export_graphic_2.inc b/testautomation/graphics/optional/includes/global/export_graphic_2.inc index 5e0a2f3ec..3beefb13d 100644 --- a/testautomation/graphics/optional/includes/global/export_graphic_2.inc +++ b/testautomation/graphics/optional/includes/global/export_graphic_2.inc @@ -44,13 +44,13 @@ testcase tPNG hFileOpen( gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString ) if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then - Kontext "PNGOptionen" - if PNGOptionen.Exists (2) then - Kompression.ToMax + Kontext "PNGOptions" + if PNGOptions.Exists (2) then + Compression.ToMax Interlaced.UnCheck - PNGOptionen.OK + PNGOptions.OK iWaitIndex = 0 - do while PNGOptionen.Exists AND iWaitIndex < 30 + do while PNGOptions.Exists AND iWaitIndex < 30 sleep (1) iWaitIndex = iWaitIndex + 1 loop @@ -87,25 +87,19 @@ testcase tSVM sFilter = "SVM - StarView Metafile (.svm)" sExt = ".svm" - + printlog "opening test file" sDocument = ConvertPath ( gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString) hFileOpen sDocument + printlog "Trying export and canceling it.." if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then - Kontext "SVMOptionen" - if SVMOptionen.Exists (2) then - Original.Check - if Breite.IsEnabled then - warnlog " :-(" - endif - if Hoehe.IsEnabled then - warnlog " :-(" - endif - Groesse.Check - Breite.More - Hoehe.Less - SVMOptionen.Cancel + Kontext "SVMOptions" + if SVMOptions.Exists (2) then + Exportwidth.More + Exportheight.Less + SVMOptions.Cancel sleep 5 + printlog "Checking if directory is still empty.." if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed Printlog "ok :-)" else @@ -122,13 +116,14 @@ testcase tSVM Active.OK end if end if + + printlog "Doing real SVM export." if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then - Kontext "SVMOptionen" - if SVMOptionen.Exists (2) then - Groesse.Check - Breite.Less - Hoehe.More - SVMOptionen.OK + Kontext "SVMOptions" + if SVMOptions.Exists (2) then + Exportwidth.Less + Exportheight.More + SVMOptions.OK sleep 5 endif if ( dir(OutputGrafikTBO+sExt) <> "") then @@ -136,56 +131,77 @@ testcase tSVM else warnlog "File didn't get saved :-(" endif - hCloseDocument () - sleep 5 - hNewDocument() - sleep 5 - Call hGrafikEinfuegen ( OutputGrafikTBO+sExt ) endif + printlog "Closing TestDoc." hCloseDocument () + sleep 5 + printlog "Opening new doc and inserting exported file." + hNewDocument() + sleep 5 + Call hGrafikEinfuegen ( OutputGrafikTBO+sExt ) + printlog "Closing doc with inserted file." + hCloseDocument () + + printlog "Loading testdoc." hFileOpen (sDocument) sleep (10) - + printlog "Making doc editable." call fMakeDocumentWritable - + printlog "Selecting part of doc." hTypeKeys ("<escape><tab>") + printlog "getting size of part. " fGetSizeXY sx1, sY, TRUE + printlog "exporting part of doc." if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then - Kontext "SVMOptionen" - if SVMOptionen.Exists (2) then - Original.Check - SVMOptionen.OK - sleep 5 - endif + Kontext "SVMOptions" + SVMOptions.OK + sleep 5 if ( dir(OutputGrafikTBO & "1" & sExt) <> "") then Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "1" & sExt & "'" else warnlog "File didn't get saved :-(" endif + printlog "Closing testdoc." hCloseDocument () sleep 5 + printlog "Opening new doc." hNewDocument() sleep 5 + printlog "Inserting exported part of Testdoc." Call hGrafikEinfuegen ( OutputGrafikTBO & "1" & sExt ) bTemp = FALSE + printlog "checking size of inserted file." fGetSizeXY sx1, sY, bTemp if (bTemp = FALSE) then warnlog "Selected original size NOT OK :-(" endif endif + printlog "closing doc." hCloseDocument () + + printlog "opening new doc." hNewDocument() + printlog "inserting Rectangle." hRechteckErstellen ( 10, 10, 30, 40 ) + printlog "Exporting Rectangle" if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then - Kontext "SVMOptionen" - if SVMOptionen.Exists (2) then - Groesse.Check - Breite.SetText "9" - Hoehe.SetText "9" - Groesse.Check 'Check to make settings go throught - sx1 = Breite.GetText - sY = Hoehe.GetText - SVMOptionen.OK + Kontext "SVMOptions" + if SVMOptions.Exists (2) then + Exportwidth.SetText "9" + if Exportmeasurement.GetSelText = "inches" then + sx1 = (Exportwidth.GetText)+ """" + printlog "sx1= " & sx1 + else + sx1 = (Exportwidth.GetText)+ "cm" + endif + + if Exportmeasurement.GetSelText = "inches" then + sY = (Exportheight.GetText)+ """" + printlog "sY= " & sY + else + sY = (Exportwidth.GetText)+ "cm" + endif + SVMOptions.OK sleep 5 endif if ( dir(OutputGrafikTBO & "2" & sExt) <> "") then @@ -193,8 +209,10 @@ testcase tSVM else warnlog "File didn't get saved :-(" endif + printlog "Closing doc." hCloseDocument () sleep 5 + printlog "Opening exported rectangle." hFileOpen (OutputGrafikTBO & "2" & sExt) kontext "Filterauswahl" if Filterauswahl.exists then @@ -204,6 +222,7 @@ testcase tSVM endif kontext "DocumentDraw" DocumentDraw.TypeKeys ("<escape><tab>") + printlog "Selecting and checking size.." ContextOriginalSize bTemp = FALSE fGetSizeXY sx1, sY, bTemp @@ -211,31 +230,8 @@ testcase tSVM warnlog "Selected original size NOT OK :-(" endif endif - if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then - Kontext "SVMOptionen" - if SVMOptionen.Exists (2) then - Groesse.Check - sX2 = Breite.GetText - if (LiberalMeasurement(sx1, sX2)) <> TRUE then - if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then - Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'" - else - warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'" - endif - endif - sY2 = Hoehe.GetText - if (LiberalMeasurement(sY, sY2)) <> TRUE then - if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then - Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'" - else - warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'" - endif - endif - SVMOptionen.Cancel - sleep 5 - endif - endif + printlog "Closing doc." call hCloseDocument endcase 'tSVM @@ -657,7 +653,7 @@ endcase 'tSVG '------------------------------------------------------------------------------- testcase tBMP -qaerrorlog + dim x as integer dim i as integer dim bTemp as boolean @@ -668,50 +664,24 @@ qaerrorlog dim sY2 as string dim sDocument as string - '/// open the document + printlog "open the Test-document" sDocument = ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString) hFileOpen sDocument - if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then - Kontext "BMPOptionen" - if BMPOptionen.Exists (2) then - '/// check if all properties have the right count, and depend on each other ///' - '/// 'Color Resolution' listbox contains eight items ///' - x = Farbaufloesung.GetItemCount - if x <> 8 then warnlog "Color Resolution Count is wrong; should be:8, is:" + x + printlog "Trying to export and canceling.." + if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then + Kontext "BMPOptions" + if BMPOptions.Exists (2) then + x = Colordepth.GetItemCount + if x <> 7 then warnlog "Color Resolution Count is wrong; should be:7, is:" + x for i = 1 to x - Farbaufloesung.Select i + Colordepth.Select i sleep 1 - Printlog " - " + i + ": '" +Farbaufloesung.GetSelText + "'" - '/// checkbox RLE coding has to be enabled only for '4 and 8 bit' color palettes ///' - if ((i > 3) AND (i < 8)) then - if RLEKodierung.IsEnabled <> TRUE then warnlog "'RLE coding' is not checkable :-(" - else - if RLEKodierung.IsEnabled <> FALSE then warnlog "'RLE coding' is checkable :-(" - endif + Printlog " - " + i + ": '" +Colordepth.GetSelText + "'" next i - '/// if Mode 'original' is selected, DPI///' - Original.Check - if DPI.IsEnabled then warnlog " :-(" - if Breite.IsEnabled then warnlog " :-(" - if Hoehe.IsEnabled then warnlog " :-(" - Aufloesung.Check - x = DPI.GetItemCount - '/// 'DPI' listbox contains eight items ///' - if x <> 4 then warnlog "'DPI' Count is wrong; should be:4, is:" + x - for i = 1 to x - DPI.Select i - Printlog " - " + i + ": '" +DPI.GetSelText + "'" - next i - if Breite.IsEnabled then warnlog " :-(" - if Hoehe.IsEnabled then warnlog " :-(" - Groesse.Check - if DPI.IsEnabled then warnlog " :-(" - Breite.More - Hoehe.Less Sleep 1 - '/// leave dialog with cancel -> there has to be no file created! ///' - BMPOptionen.Cancel + printlog "Leave dialog with cancel -> there has to be no file created!" + BMPOptions.Cancel sleep 5 if ( dir(OutputGrafikTBO+".bmp") = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed Printlog "ok :-)" @@ -729,15 +699,14 @@ qaerrorlog Active.OK end if end if - Printlog "'/// now save it realy and load the file afterwards ///'" + + Printlog " now save it really and load the file afterwards" if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then - Kontext "BMPOptionen" - if BMPOptionen.Exists (2) then - Farbaufloesung.Select 7 - RLEKodierung.Check - Aufloesung.Check - DPI.Select 3 - BMPOptionen.OK + Kontext "BMPOptions" + if BMPOptions.Exists (2) then + Colordepth.Select 7 + Compression.Check + BMPOptions.OK sleep 5 endif if ( dir(OutputGrafikTBO+".bmp") <> "") then @@ -745,14 +714,18 @@ qaerrorlog else warnlog "File didn't get saved :-(" endif + printlog "Closing doc." hCloseDocument () sleep 5 + printlog "Opening new doc." hNewDocument() sleep 5 + printlog "Inserting exported file." Call hGrafikEinfuegen ( OutputGrafikTBO+".bmp" ) endif + printlog "Closing doc again." hCloseDocument () - Printlog "'/// now save a SELECTION in ORIGINAL SIZE and load the file afterwards ///'" + Printlog "Now save a SELECTION in and load the file afterwards" hFileOpen (sDocument) kontext "Filterauswahl" @@ -762,51 +735,58 @@ qaerrorlog goto endsub endif - ' check if the document is writable + printlog "check if the document is writable" call fMakeDocumentWritable hTypeKeys ("<escape><tab>") fGetSizeXY sx1, sy, TRUE - if hCallExport (OutputGrafikTBO + "1" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then - Kontext "BMPOptionen" - if BMPOptionen.Exists (2) then - Original.Check - BMPOptionen.OK - sleep 5 - endif - if ( dir(OutputGrafikTBO + "1"+".bmp") <> "") then - Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+".bmp" + "'" - else - warnlog "File didn't get saved :-(" - endif - hCloseDocument () - sleep 5 - hNewDocument() - sleep 5 - Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+".bmp" ) - bTemp = FALSE - fGetSizeXY sx1, sY, bTemp - if (bTemp = FALSE) then - warnlog "Selected original size NOT OK :-(" + if hCallExport (OutputGrafikTBO + "1" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then + Kontext "BMPOptions" + if BMPOptions.Exists (2) then + BMPOptions.OK + sleep 5 + endif + if ( dir(OutputGrafikTBO + "1"+".bmp") <> "") then + Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+".bmp" + "'" + else + warnlog "File didn't get saved :-(" + endif + hCloseDocument () + sleep 5 + hNewDocument() + sleep 5 + Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+".bmp" ) + bTemp = FALSE + fGetSizeXY sx1, sY, bTemp + if (bTemp = FALSE) then + warnlog "Selected original size NOT OK :-(" endif endif hCloseDocument () - Printlog "'/// now CREATE a rectangle, select it, save it in SIZE and load the file afterwards ///'" + Printlog "Now create a rectangle, select it, save it in SIZE and load the file afterwards" hNewDocument() hTypeKeys "<TAB>" gMouseClick 50, 50 hRechteckErstellen ( 10, 10, 30, 40 ) if hCallExport (OutputGrafikTBO + "2" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then - Kontext "BMPOptionen" - if BMPOptionen.Exists (2) then - Groesse.Check - Breite.SetText "9" - Hoehe.SetText "9" - Groesse.Check 'Press "Size" one more time in order to make the change go through" - sx1 = Breite.GetText - sY = Hoehe.GetText - BMPOptionen.OK + Kontext "BMPOptions" + if BMPOptions.Exists (2) then + Exportwidth.SetText "9" + if Exportmeasurement.GetSelText = "inches" then + sx1 = (Exportwidth.GetText)+ """" + printlog "sx1= " & sx1 + else + sx1 = (Exportwidth.GetText)+ "cm" + endif + + if Exportmeasurement.GetSelText = "inches" then + sY = (Exportheight.GetText)+ """" + printlog "sY= " & sY + else + sY = (Exportwidth.GetText)+ "cm" + endif + BMPOptions.OK sleep 5 endif if ( dir(OutputGrafikTBO + "2"+".bmp") <> "") then @@ -814,6 +794,7 @@ qaerrorlog else warnlog "File didn't get saved :-(" endif + printlog "Closing doc." hCloseDocument () sleep 5 hFileOpen (OutputGrafikTBO + "2"+".bmp") @@ -834,31 +815,6 @@ qaerrorlog endif endif - if hCallExport (OutputGrafikTBO + "3" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then - Kontext "BMPOptionen" - if BMPOptionen.Exists (2) then - Groesse.Check - sX2 = Breite.GetText - if (LiberalMeasurement(sx1, sX2)) <> TRUE then - if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then - Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'" - else - warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'" - endif - endif - sY2 = Hoehe.GetText - if (LiberalMeasurement(sY, sY2)) <> TRUE then - if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then - Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'" - else - warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'" - endif - endif - BMPOptionen.Cancel - sleep 5 - endif - endif - call hCloseDocument endcase 'tBMP @@ -884,19 +840,11 @@ testcase tEMF hFileOpen sDocument if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then - Kontext "SVMOptionen" - if SVMOptionen.Exists (2) then - Original.Check - if Breite.IsEnabled then - warnlog " :-(" - endif - if Hoehe.IsEnabled then - warnlog " :-(" - endif - Groesse.Check - Breite.More - Hoehe.Less - SVMOptionen.Cancel + Kontext "EMFOptions" + if EMFOptions.Exists (2) then + Exportwidth.More + Exportheight.Less + EMFOptions.Cancel sleep 5 if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed Printlog "ok :-)" @@ -915,12 +863,11 @@ testcase tEMF end if end if if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then - Kontext "SVMOptionen" - if SVMOptionen.Exists (2) then - Groesse.Check - Breite.Less - Hoehe.More - SVMOptionen.OK + Kontext "EMFOptions" + if EMFOptions.Exists (2) then + Exportwidth.More + Exportheight.Less + EMFOptions.OK sleep 5 endif if ( dir(OutputGrafikTBO+sExt) <> "") then @@ -935,53 +882,26 @@ testcase tEMF Call hGrafikEinfuegen ( OutputGrafikTBO+sExt ) endif hCloseDocument () - hFileOpen (sDocument) - kontext "Filterauswahl" - if Filterauswahl.Exists(10) then - Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted." - Filterauswahl.Cancel - goto endsub - endif - printlog "making doc editable if it is readonly" - call fMakeDocumentWritable - hTypeKeys ("<escape><tab>") - fGetSizeXY sx1, sY, TRUE - if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then - Kontext "SVMOptionen" - if SVMOptionen.Exists (2) then - Original.Check - SVMOptionen.OK - sleep 5 - endif - if ( dir(OutputGrafikTBO & "1" & sExt) <> "") then - Printlog "Ok :-) saved as: '" & OutputGrafikTBO & "1" & sExt & "'" - else - warnlog "File didn't get saved :-(" - endif - hCloseDocument () - sleep 5 - hNewDocument() - sleep 5 - Call hGrafikEinfuegen ( OutputGrafikTBO & "1" & sExt ) - bTemp = FALSE - fGetSizeXY sx1, sY, bTemp - if (bTemp = FALSE) then - warnlog "Selected original size NOT OK :-(" - endif - endif - hCloseDocument () + hNewDocument() hRechteckErstellen ( 10, 10, 30, 40 ) if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then - Kontext "SVMOptionen" - if SVMOptionen.Exists (2) then - Groesse.Check - Breite.SetText "9" - Hoehe.SetText "9" - Groesse.Check 'Press "Size" one more time to make the change go through" - sx1 = Breite.GetText - sY = Hoehe.GetText - SVMOptionen.OK + Kontext "EMFOptions" + if EMFOptions.Exists (2) then + Exportwidth.SetText "9" + if Exportmeasurement.GetSelText = "inches" then + sx1 = (Exportwidth.GetText)+ """" + printlog "sx1= " & sx1 + else + sx1 = (Exportwidth.GetText)+ "cm" + endif + if Exportmeasurement.GetSelText = "inches" then + sY = (Exportheight.GetText)+ """" + printlog "sY= " & sY + else + sY = (Exportwidth.GetText)+ "cm" + endif + EMFOptions.OK sleep 5 endif if ( dir(OutputGrafikTBO & "2" & sExt) <> "") then @@ -1002,10 +922,9 @@ testcase tEMF endif if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then - Kontext "SVMOptionen" - if SVMOptionen.Exists (2) then - Groesse.Check - sX2 = Breite.GetText + Kontext "EMFOptions" + if EMFOptions.Exists (2) then + sX2 = Exportwidth.GetText if (LiberalMeasurement(sx1, sX2)) <> TRUE then if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'" @@ -1013,7 +932,7 @@ testcase tEMF warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'" endif endif - sY2 = Hoehe.GetText + sY2 = Exportheight.GetText if (LiberalMeasurement(sY, sY2)) <> TRUE then if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'" @@ -1021,7 +940,7 @@ testcase tEMF warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'" endif endif - SVMOptionen.Cancel + EMFOptions.Cancel sleep 5 endif endif @@ -1050,32 +969,26 @@ testcase tMET sExt = ".met" sDocument = gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString + printlog "loading Test File" hFileOpen sDocument + printlog "----------1st: Trying to export and then canceling it" if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then - Kontext "METOptionen" - if METOptionen.Exists (2) then - Original.Check - if Breite.IsEnabled then - warnlog " :-(" - endif - if Hoehe.IsEnabled then - warnlog " :-(" - endif - Groesse.Check - sTemp = Breite.getText - Breite.More - if (sTemp = Breite.getText) then + Kontext "METOptions" + if METOptions.Exists (2) then + sTemp = Exportwidth.getText + Exportwidth.More + if (sTemp = Exportwidth.getText) then qaErrorLog "Width didn't change on pressing button 'More' #112225#" - Breite.setText "10" - Hoehe.setText "10" + Exportwidth.setText "10" endif - sTemp = Hoehe.getText - Hoehe.Less - if (sTemp = Hoehe.getText) then + sTemp = Exportheight.getText + Exportheight.Less + if (sTemp = Exportheight.getText) then warnlog "Height didn't change on pressing button 'Less'" endif - METOptionen.Cancel + printlog "Canceling export..." + METOptions.Cancel sleep 5 if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed Printlog "ok :-)" @@ -1093,25 +1006,24 @@ testcase tMET Active.OK end if end if + printlog "----------2nd: doing real export.." if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then - Kontext "METOptionen" - if METOptionen.Exists (2) then - Groesse.Check - sTemp = Breite.getText - Breite.Less - if (sTemp = Breite.getText) then + Kontext "METOptions" + if METOptions.Exists (2) then + sTemp = Exportwidth.getText + Exportwidth.Less + if (sTemp = Exportwidth.getText) then warnlog "Width didn't change on pressing button 'Less'" endif - sTemp = Hoehe.getText - Hoehe.More - if (sTemp = Hoehe.getText) then + sTemp = Exportheight.getText + Exportheight.More + if (sTemp = Exportheight.getText) then qaErrorLog "Height didn't change on pressing button 'More' #112225#" - Breite.setText "10" - Hoehe.setText "10" + Exportwidth.setText "10" endif - METOptionen.OK + METOptions.OK iWaitIndex = 0 - do while METOptionen.Exists AND iWaitIndex < 30 + do while METOptions.Exists AND iWaitIndex < 30 sleep (1) iWaitIndex = iWaitIndex + 1 loop @@ -1121,28 +1033,33 @@ testcase tMET else warnlog "File didn't get saved :-(" endif + printlog "Closing test doc." hCloseDocument () sleep 5 + printlog "----------3rd: Inserting export into new doc." + printlog "Opening new doc." hNewDocument() sleep 5 + printlog "Inserting the exported file..." Call hGrafikEinfuegen ( OutputGrafikTBO+sExt ) endif + printlog "Closing file with inserted graphic." hCloseDocument () + printlog "----------4th: Exporting part of test doc." + printlog "Opening test file.." hFileOpen (sDocument) sleep (10) - printlog "making doc editable if it is readonly" call fMakeDocumentWritable - + printlog "Selecting part of doc for export.." hTypeKeys ("<escape><tab>") fGetSizeXY sx1, sY, TRUE if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then - Kontext "METOptionen" - if METOptionen.Exists (2) then - Original.Check - METOptionen.OK + Kontext "METOptions" + if METOptions.Exists (2) then + METOptions.OK iWaitIndex = 0 - do while METOptionen.Exists AND iWaitIndex < 30 + do while METOptions.Exists AND iWaitIndex < 30 sleep (1) iWaitIndex = iWaitIndex + 1 loop @@ -1152,32 +1069,51 @@ testcase tMET else warnlog "File didn't get saved :-(" endif + printlog "Closing testfile" hCloseDocument () sleep 5 + printlog "----------5th: Inserting exported part into new doc." + printlog "Opening new file.." hNewDocument() sleep 5 + printlog "inserting exported part." Call hGrafikEinfuegen ( OutputGrafikTBO & "1" & sExt ) bTemp = FALSE + printlog "Checking size." fGetSizeXY sx1, sY, bTemp if (bTemp = FALSE) then warnlog "Selected original size NOT OK :-(" endif endif + printlog "Closing doc." hCloseDocument () + printlog "----------6th: exporting fresh rectangle." + printlog "opening new file." hNewDocument() + printlog "inserting rectangle." hRechteckErstellen ( 10, 10, 30, 40 ) + printlog "Exporting rectangle.." if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then - Kontext "METOptionen" - if METOptionen.Exists (2) then - Groesse.Check - Breite.SetText "9" - Hoehe.SetText "9" - Groesse.Check ' Click "Size" one more time to make the changes go through. - sx1 = Breite.GetText - sY = Hoehe.GetText - METOptionen.OK + Kontext "METOptions" + if METOptions.Exists (2) then + Exportwidth.SetText "9" + if Exportmeasurement.GetSelText = "inches" then + sx1 = (Exportwidth.GetText)+ """" + printlog "sx1= " & sx1 + else + sx1 = (Exportwidth.GetText)+ "cm" + endif + + if Exportmeasurement.GetSelText = "inches" then + sY = (Exportheight.GetText)+ """" + printlog "sY= " & sY + else + sY = (Exportwidth.GetText)+ "cm" + endif + + METOptions.OK iWaitIndex = 0 - do while METOptionen.Exists AND iWaitIndex < 30 + do while METOptions.Exists AND iWaitIndex < 30 sleep (1) iWaitIndex = iWaitIndex + 1 loop @@ -1187,11 +1123,14 @@ testcase tMET else warnlog "File didn't get saved :-(" endif + printlog "closing doc." hCloseDocument () sleep 5 + printlog "----------7th:Opening exported file with rectangle" hFileOpen (OutputGrafikTBO & "2" & sExt) kontext "DocumentDraw" DocumentDraw.TypeKeys ("<escape><tab>") + printlog "Checking file size." ContextOriginalSize bTemp = FALSE fGetSizeXY sx1, sY, bTemp @@ -1199,30 +1138,6 @@ testcase tMET warnlog "Selected original size NOT OK :-(" endif endif - if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then - Kontext "METOptionen" - if METOptionen.Exists (2) then - Groesse.Check - sX2 = Breite.GetText - if (LiberalMeasurement(sx1, sX2)) <> TRUE then - if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then - Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'" - else - warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'" - endif - endif - sY2 = Hoehe.GetText - if (LiberalMeasurement(sY, sY2)) <> TRUE then - if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then - Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'" - else - warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'" - endif - endif - METOptionen.Cancel - sleep 5 - endif - endif call hCloseDocument endcase 'tMET @@ -1270,27 +1185,20 @@ testcase tWMF sFilter = "WMF - Windows Metafile (.wmf)" sExt = ".wmf" - sDocument = gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString + printlog "Loading testdoc." hFileOpen sDocument + printlog "Starting export as WMF and canceling.." if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then - Kontext "SVMOptionen" - if SVMOptionen.Exists (2) then - Original.Check - if Breite.IsEnabled then - warnlog " :-(" - endif - if Hoehe.IsEnabled then - warnlog " :-(" - endif - Groesse.Check - Breite.More - Hoehe.Less - SVMOptionen.Cancel + Kontext "WMFOptions" + if WMFOptions.Exists (2) then + Exportwidth.Less + Exportheight.More + WMFOptions.Cancel sleep 5 if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed - Printlog "ok :-)" + Printlog "ok :-), nothing exported due to canceling." else warnlog "Dialog was canceled, but file got saved, too :-( - i35177" endif @@ -1305,15 +1213,15 @@ testcase tWMF Active.OK end if end if + printlog "Doing real export." if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then - Kontext "SVMOptionen" - if SVMOptionen.Exists (2) then - Groesse.Check - Breite.Less - Hoehe.More - SVMOptionen.OK + Kontext "WMFOptions" + if WMFOptions.Exists (2) then + Exportwidth.Less + Exportheight.More + WMFOptions.OK iWaitIndex = 0 - do while SVMOptionen.Exists AND iWaitIndex < 30 + do while WMFOptions.Exists AND iWaitIndex < 30 sleep (1) iWaitIndex = iWaitIndex + 1 loop @@ -1323,13 +1231,18 @@ testcase tWMF else warnlog "File didn't get saved :-(" endif + Printlog "Closing test doc." hCloseDocument () sleep 5 + printlog "Opening new odc." hNewDocument() sleep 5 + printlog "Inserting exported graphic." Call hGrafikEinfuegen ( OutputGrafikTBO+sExt ) endif + printlog "Closing." hCloseDocument () + Printlog "Opening exported file." hFileOpen (sDocument) sleep (10) @@ -1339,12 +1252,11 @@ testcase tWMF hTypeKeys ("<escape><tab>") fGetSizeXY sx1, sY, TRUE if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then - Kontext "SVMOptionen" - if SVMOptionen.Exists (2) then - Original.Check - SVMOptionen.OK + Kontext "WMFOptions" + if WMFOptions.Exists (2) then + WMFOptions.OK iWaitIndex = 0 - do while SVMOptionen.Exists AND iWaitIndex < 30 + do while WMFOptions.Exists AND iWaitIndex < 30 sleep (1) iWaitIndex = iWaitIndex + 1 loop @@ -1369,17 +1281,25 @@ testcase tWMF hNewDocument() hRechteckErstellen ( 10, 10, 30, 40 ) if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then - Kontext "SVMOptionen" - if SVMOptionen.Exists (2) then - Groesse.Check - Breite.SetText "9" - Hoehe.SetText "9" - Groesse.Check 'Check "Size" to make changes really go through. - sx1 = Breite.GetText - sY = Hoehe.GetText - SVMOptionen.OK + Kontext "WMFOptions" + if WMFOptions.Exists (2) then + Exportwidth.SetText "9" + if Exportmeasurement.GetSelText = "inches" then + sx1 = (Exportwidth.GetText)+ """" + printlog "sx1= " & sx1 + else + sx1 = (Exportwidth.GetText)+ "cm" + endif + + if Exportmeasurement.GetSelText = "inches" then + sY = (Exportheight.GetText)+ """" + printlog "sY= " & sY + else + sY = (Exportwidth.GetText)+ "cm" + endif + WMFOptions.OK iWaitIndex = 0 - do while SVMOptionen.Exists AND iWaitIndex < 30 + do while WMFOptions.Exists AND iWaitIndex < 30 sleep (1) iWaitIndex = iWaitIndex + 1 loop @@ -1401,30 +1321,6 @@ testcase tWMF warnlog "Selected original size NOT OK :-(" endif endif - if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then - Kontext "SVMOptionen" - if SVMOptionen.Exists (2) then - Groesse.Check - sX2 = Breite.GetText - if (LiberalMeasurement(sx1, sX2)) <> TRUE then - if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then - Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'" - else - warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'" - endif - endif - sY2 = Hoehe.GetText - if (LiberalMeasurement(sY, sY2)) <> TRUE then - if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then - Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'" - else - warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'" - endif - endif - SVMOptionen.Cancel - sleep 5 - endif - endif call hCloseDocument endcase 'tWMF diff --git a/testautomation/graphics/optional/includes/global/g_clipexport.inc b/testautomation/graphics/optional/includes/global/g_clipexport.inc index 64385ffd7..c9569cbf8 100644 --- a/testautomation/graphics/optional/includes/global/g_clipexport.inc +++ b/testautomation/graphics/optional/includes/global/g_clipexport.inc @@ -165,87 +165,138 @@ global Text5 as string global Text6 as string global Text7 as string +'--------------------------- Tests for Writer ---------------------------------- +sub writertest + + try + call Make_And_Check_Formatted_Text_Line_From_Application + catch + warnlog "Something went wrong with testing writertest" + endcatch + + try + call Make_Rectangle_From_Application + call Full_test_Draw + call Full_test_Impress + call Full_test_Writer + call Full_test_Calc + catch + warnlog "something wrong with testing writertest" + endcatch +end sub ' big one + +'---------------------------- Tests for Calc ----------------------------------- +sub calctest + + try + call Make_Rectangle_From_Application + call Full_test_Draw + call Full_test_Impress + call Full_test_Writer + call Full_test_Calc + catch + warnlog "something wrong with calctest" + endcatch + printlog "currently no specific tests from Calc" +end sub + +'------------------------------------------------------------------------------- +sub tClipboardFromDrawTest + + EnableQAErrors = false + FromApp2 = gApplication + printlog "gApplication = " + gApplication + + select case( gApplication ) + case "WRITER" : call writertest() + case "CALC" : call calctest() + case else : warnlog( "Unsupported gApplication provided: " & gApplication ) + end select + +end sub + '------------------------------- "object"-dependant tests ---------------------- -try - call Make_Rectangle_From_Application - call Full_test_Draw - call Full_test_Impress - call Full_test_Writer - call Full_test_Calc -catch - warnlog "something wrong with testing Rectangle" -endcatch - -try - call Make_Make3dObject_From_Application - call Full_test_Draw - call Small_test_Impress - call Small_test_Calc - call Small_test_Writer -catch - warnlog "something wrong with testing 3dObject" -endcatch - -'qaerrorlog "Make_CurveObject_From_Application needs an overview - FHA" -try - call Make_CurveObject_From_Application - call Small_test_Draw - call Small_test_Impress - call Small_test_Calc - call Small_test_Writer -catch - warnlog "something wrong with testing CurveObj" -endcatch - -try - call Make_ConnectorObject_From_Application - call Small_test_Draw - call Small_test_Impress - call Small_test_Calc - call Small_test_Writer -catch - warnlog "something wrong with testing ConnectorObject" -endcatch - -try - call Make_LineObject_From_Application - call Small_test_Draw - call Small_test_Impress - ' call Small_test_Calc - ' call Small_test_Writer -catch - warnlog "something wrong with testing LineObject" -endcatch - -try -catch - warnlog "something wrong with testing ConnectorObject" -endcatch - -try - call Make_Circle_From_Application - call Small_test_Draw - call Small_test_Impress - call Small_test_Calc - call Small_test_Writer -catch - warnlog "something wrong with testing Circle" -endcatch - -try - call Make_TextSquare_From_Application - call Small_test_Draw - call Small_test_Impress - call Small_test_Calc - call Small_test_Writer - -catch - warnlog "something wrong with testing TextSquare" -endcatch - -call clear_all_and_close -Printlog "tClipboardFromDrawTest finished" +sub g_clipexport + try + call Make_Rectangle_From_Application + call Full_test_Draw + call Full_test_Impress + call Full_test_Writer + call Full_test_Calc + catch + warnlog "something wrong with testing Rectangle" + endcatch + + try + call Make_Make3dObject_From_Application + call Full_test_Draw + call Small_test_Impress + call Small_test_Calc + call Small_test_Writer + catch + warnlog "something wrong with testing 3dObject" + endcatch + + 'qaerrorlog "Make_CurveObject_From_Application needs an overview - FHA" + try + call Make_CurveObject_From_Application + call Small_test_Draw + call Small_test_Impress + call Small_test_Calc + call Small_test_Writer + catch + warnlog "something wrong with testing CurveObj" + endcatch + + try + call Make_ConnectorObject_From_Application + call Small_test_Draw + call Small_test_Impress + call Small_test_Calc + call Small_test_Writer + catch + warnlog "something wrong with testing ConnectorObject" + endcatch + + try + call Make_LineObject_From_Application + call Small_test_Draw + call Small_test_Impress + ' call Small_test_Calc + ' call Small_test_Writer + catch + warnlog "something wrong with testing LineObject" + endcatch + + try + catch + warnlog "something wrong with testing ConnectorObject" + endcatch + + try + call Make_Circle_From_Application + call Small_test_Draw + call Small_test_Impress + call Small_test_Calc + call Small_test_Writer + catch + warnlog "something wrong with testing Circle" + endcatch + + try + call Make_TextSquare_From_Application + call Small_test_Draw + call Small_test_Impress + call Small_test_Calc + call Small_test_Writer + + catch + warnlog "something wrong with testing TextSquare" + endcatch + + call clear_all_and_close + Printlog "tClipboardFromDrawTest finished" end sub diff --git a/testautomation/graphics/optional/includes/global/g_clipexport2.inc b/testautomation/graphics/optional/includes/global/g_clipexport2.inc index fae2cdcc7..44fb7bbd5 100644 --- a/testautomation/graphics/optional/includes/global/g_clipexport2.inc +++ b/testautomation/graphics/optional/includes/global/g_clipexport2.inc @@ -61,7 +61,7 @@ sub MakeRectangle end sub '------------------------------------------------------------------------------- -sub MakeCircle +testcase MakeCircle printlog "Create Circle" if gApplication = "WRITER" then @@ -81,10 +81,10 @@ sub MakeCircle gMouseUp (30,30) sleep 1 -end sub +endcase '------------------------------------------------------------------------------- -sub Make3dObject +testcase Make3dObject printlog "Create 3dObject" if (Ucase(gApplication) = "CALC") then @@ -158,10 +158,10 @@ sub Make3dObject endif end if -end sub +endcase '------------------------------------------------------------------------------- -sub MakeCurveObject +testcase MakeCurveObject if (Ucase(gApplication) = "WRITER") then warnlog "Cant make circle in this application" @@ -195,10 +195,10 @@ sub MakeCurveObject hMenuItemUnCheck (7) sleep 1 -end sub +endcase '------------------------------------------------------------------------------- -sub MakeLineObject +testcase MakeLineObject if gApplication = "WRITER" then warnlog "Currently no support for line-object in this application" @@ -224,10 +224,10 @@ sub MakeLineObject Kontext "Arrowshapes" Arrowshapes.Close -end sub +endcase '------------------------------------------------------------------------------- -sub MakeConnectorObject +testcase MakeConnectorObject if gApplication = "WRITER" then warnlog "Cant make connector in this application" @@ -268,7 +268,7 @@ sub MakeConnectorObject gMouseUp (30,37) end if -end sub +endcase '------------------------------------------------------------------------------- sub MakeFormattedTextLine diff --git a/testautomation/graphics/optional/includes/global/g_clipexport3.inc b/testautomation/graphics/optional/includes/global/g_clipexport3.inc index 5a6e86ac2..63eb77cd6 100644 --- a/testautomation/graphics/optional/includes/global/g_clipexport3.inc +++ b/testautomation/graphics/optional/includes/global/g_clipexport3.inc @@ -412,7 +412,7 @@ sub Check_Text_Formatting SetKontextApplication printlog " Check_Text_Formatting Ends" - +end suB '---------------------------------------------------------------------------------------------------- sub Check_Colors_Borders_Attributes @@ -558,26 +558,10 @@ sub Check_Colors_Borders_Attributes ColorModel = Farbmodell.GetSelText printlog " " + ColorModel - select case iSprache ' Prepared for future language-problematics. - if ColorR <> R.GetText then Warnlog "Wrong R-Color. Should be: " + ColorR + " but was: " + R.GetText - if ColorG <> G.GetText then Warnlog "Wrong V-Color. Should be: " + ColorG + " but was: " + G.GetText - if ColorB <> B.GetText then Warnlog "Wrong B-Color. Should be: " + ColorB + " but was: " + B.GetText - Else if ColorC <> C.GetText then Warnlog "Wrong C-Color. Should be: " + ColorC + " but was: " + C.GetText if ColorM <> M.GetText then Warnlog "Wrong M-Color. Should be: " + ColorM + " but was: " + M.GetText if ColorY <> Y.GetText then Warnlog "Wrong J-Color. Should be: " + ColorY + " but was: " + Y.GetText if ColorK <> K.GetText then Warnlog "Wrong N-Color. Should be: " + ColorK + " but was: " + K.GetText - End if - if ColorR <> R.GetText then Warnlog "Wrong R-Color. Should be: " + ColorR + " but was: " + R.GetText - if ColorG <> G.GetText then Warnlog "Wrong G-Color. Should be: " + ColorG + " but was: " + G.GetText - if ColorB <> B.GetText then Warnlog "Wrong B-Color. Should be: " + ColorB + " but was: " + B.GetText - Else - if ColorC <> C.GetText then Warnlog "Wrong C-Color. Should be: " + ColorC + " but was: " + C.GetText - if ColorM <> M.GetText then Warnlog "Wrong M-Color. Should be: " + ColorM + " but was: " + M.GetText - if ColorY <> Y.GetText then Warnlog "Wrong Y-Color. Should be: " + ColorY + " but was: " + Y.GetText - if ColorK <> K.GetText then Warnlog "Wrong K-Color. Should be: " + ColorK + " but was: " + K.GetText - End if - end select Kontext Active.setpage TabFarbverlaeufe @@ -624,7 +608,8 @@ sub Check_Colors_Borders_Attributes Printlog "End of one application" - '---------------------------------- Set the Kontext to the current Application ----------------------------------' +end sub + '---------------------------------- Set the Kontext to the current Application ----------------------------------' sub SetKontextApplication sleep 1 @@ -698,7 +683,7 @@ sub New_Writer end sub '------------------------------------------------------------------------------- -sub Choose_Toapplication +testcase Choose_Toapplication For ToAppCounter = 1 to 4 @@ -724,6 +709,6 @@ sub Choose_Toapplication Call hNewDocument SetKontextApplication -end sub +endcase '-------------------------------------------------------------------------------------------------------- diff --git a/testautomation/graphics/optional/includes/global/g_spellcheck.inc b/testautomation/graphics/optional/includes/global/g_spellcheck.inc index 1c82bf392..f46c75f3e 100644 --- a/testautomation/graphics/optional/includes/global/g_spellcheck.inc +++ b/testautomation/graphics/optional/includes/global/g_spellcheck.inc @@ -29,66 +29,60 @@ '* '* short description : '* -'******************************************************************* -'* -' #1 tiToolsSpellcheckCorrect -' #1 tiToolsSpellcheckError -' #1 tiToolsSpellcheckCheck -' #1 tToolsSpellcheckAutoSpellcheck -'* '\******************************************************************* -testcase tiToolsSpellcheckCorrect - if iSprache = 48 then - qaerrorlog "This test is not adapted for polish, 48." - got endsub +testcase tiToolsSpellcheckCheck_AlwaysIgnore + + Dim sExt as string + + Dim sWrongWord as String + Dim sRightWord as string + + dim aWords(2) as string + aWords() = getWordsForLanguage() + + sWrongWord = aWords(0) + sRightWord = aWords(1) + + if(sWrongWord = "" OR sRightWord = "") then ' if any word is empty then the test should stop + qaerrorlog "no spellcheck test for the langauges " + iSprache + " available." + goto endsub endif - Dim DieDatei as String - dim lFiles(100) as string - dim i as integer - dim iFiles as integer + delete_word_from_dictionary(sWrongWord,"IgnoreAllList") - lFiles(0)=0 - Printlog "- Checking Dictionary-Files" ' borrowed from w_106.inc - select case iSprache - case 01 : DieDatei = "01-44-hyph.dat" - case else : DieDatei = "" & iSprache & "-hyph.dat" - end select - DieDatei = Convertpath(gNetzOfficePath + "share\dict\" + DieDatei) - if gPlatGroup <> "unx" then - if (Dir(DieDatei) = "") then - if bAsianLan then - printlog "Dictionary not found : " + DieDatei + ", but is AsianLan, so OK :-)" - else - if gNetzInst then - printlog "Dictionary not found : " + DieDatei - else - warnlog "Dictionary not found : " + DieDatei - end if - end if - else - Printlog " Dictionary has been installed : " + DieDatei - end if - end if - iFiles = GetFileList (Convertpath (gNetzOfficePath + "share\dict\"), "*.dat" ,lFiles()) - for i = 1 to iFiles - printlog " " + i + ": " + DateiExtract(lFiles(i)) - next i + if Ucase(gApplication) = "DRAW" then + sExt = ".odg" + else + sExt = ".odp" + endif - Call hNewDocument - ' sleep 2 - ToolsSpellcheck - Kontext "Active" - if Active.Exists(5) then - try - printlog "Message: Finished: Want to continue at the beginning? '" + active.gettext + "'" - Active.No - catch - Warnlog "The Active-dialoge didn't have a No-button, tries with OK instead." - Active.Ok - endcatch + Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt) + call fMakeDocumentWritable() + + sleep(1) + + ' Perform the test now: + printlog "Call Tools->Spellcheck" + ToolsSpellcheck + sleep(2) + Kontext "Spellcheck" + printlog "Click button 'Always ignore' on dialog." + IgnoreAll.Click + Sleep 2 + + ToolsOptions + printlog "Select in category 'Languagesettings' entry 'Writing Aids.'" + hToolsOptions ("LANGUAGESETTINGS","WRITINGAIDS") + + fSelectWithString(Benutzerwoerterbuch,"IgnoreAllList") + + Bearbeiten.Click + + Kontext "BenutzerwoerterbuchBearbeiten" + if(Inhalt.getText <> sWrongWord) then + warnlog " added word is not in dictionary: '" + Buch.getSelText + "'" else - Warnlog "No 'Spellcheck finished, do you wish to continue?' message appeared" + printlog " added word is in dictionary: '" + Buch.getSelText + "'" end if sleep 2 @@ -161,7 +155,7 @@ testcase tiToolsSpellcheckError case 39 : FehlerText$ = "Ringrarziamo per l'interessa mostrato a collaborare con la firma." : Fehler$ = "Ringrarziamo" : Sprachenname$ = "Italienisch" case 46 : FehlerText$ = "Detd varierar vad som behandlas och ur vilket perspektiv." : Fehler$ = "Detd" : Sprachenname$ = "Schwedisch" case 49 : FehlerText$ = "Diees ist ein Fehler." : Fehler$ = "Diees" : Sprachenname$ = "Deutsch" - case 50 : FehlerText$ = "Toje napaka, ker manjka presledek." : Fehler$ = "Toje" : Sprachenname$ = "SlovenÅ¡Äina" + case 50 : FehlerText$ = "Toje napaka, ker manjka presledek." : Fehler$ = "Toje" : Sprachenname$ = "SlovenÅ¡Ä?ina" case 55 : FehlerText$ = "Eesta poderia ser a resposta para suas preces?": Fehler$ = "Eesta" : Sprachenname$ = "Portugiesisch" case else : if bAsianLan then @@ -250,140 +244,145 @@ testcase tiToolsSpellcheckError end if end if - printlog "delete textbox" - EditSelectAll - hTypeKeys "<DELETE>" - sleep 1 + printlog "Close dialog 'Edit Custom Dictionary'." + BenutzerwoerterbuchBearbeiten.Close + Kontext "ExtrasOptionenDlg" + printlog "Close the Option dialog." + ExtrasOptionenDlg.OK - printlog "Create same textbox again (test IGNORE function)." - Printlog "Check function Ignore" - hTextrahmenErstellen (FehlerText$,30,30,80,40) - printlog "All 'Tools->Spellcheck->Check'." - - 'printlog "Setting Text to english" - 'sleep 1 - 'EditSelectAll - 'FormatCharacter - 'sleep 1 - 'Kontext - 'Messagebox.SetPage TabFont - 'Kontext "TabFont" - 'Language.Select 41 - 'TabFont.OK + printlog "Close document" + Call hCloseDocument - ToolsSpellcheck - Kontext "Spellcheck" - printlog "press button 'Ignore'" - IgnoreOnce.Click - printlog "spellcheck dialog has to disappear and " - printlog " There has to come up only one active: 'Spellcheck of entire document has been completed [OK]'." - Kontext "Active" - if Active.Exists(5) Then - Printlog " Spellcheck ended because of only 1 defined error. And Ignore worked.'" + active.gettext + "'" - Active.OK + ' remove the word again from the dictionary + delete_word_from_dictionary(sWrongWord,"IgnoreAllList") + +endcase 'tiToolsSpellcheckCheck +'------------------------------------------------------------------------------- +testcase tiToolsSpellcheckCheck_Change + + Dim sExt as string + Dim sWrongWord as String + Dim sRightWord as string + + dim aWords(2) as string + aWords() = getWordsForLanguage() + + sWrongWord = aWords(0) + sRightWord = aWords(1) + + if(sWrongWord = "" OR sRightWord = "") then ' if any word is empty then the test should stop + qaerrorlog "no spellcheck test for the langauges " + iSprache + " available." + goto endsub + endif + + if Ucase(gApplication) = "DRAW" then + sExt = ".odg" else - Printlog " 'Ignore Once' seems to work correctly." - Kontext "Spellcheck" - Spellcheck.Close - Kontext "Active" - if active.exists(5) then - Printlog " Spellcheck dialog closed'" + active.gettext + "'" - Active.OK - else - Printlog " Spellcheck dialog closed'" - end if - end if + sExt = ".odp" + endif + + Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt) - printlog "Call 'Tools->Spellcheck->Check." + call fMakeDocumentWritable + + ' Perform the test now: + printlog "Call Tools->Spellcheck" ToolsSpellcheck + sleep(2) Kontext "Spellcheck" - if Spellcheck.Exists Then - Printlog " Ignore worked" - Spellcheck.Close - Kontext "Active" - if active.exists(5) then - Printlog " " + active.gettext + "'" - Active.OK - else - Printlog " Spellcheck dialog closed'" - end if + printlog "Click button 'Change' on dialog." + Change.Click + sleep(10) + SpellcheckClose.click + + if Ucase(gApplication) = "DRAW" then + Kontext "DocumentDraw" + DocumentDraw.TypeKeys("<TAB>",true) + DocumentDraw.TypeKeys("<SPACE>",true) else - Warnlog " Spellcheck ended even we only ignored the error" - end if + Kontext "DocumentImpress" + DocumentImpress.TypeKeys("<TAB>",true) + DocumentImpress.TypeKeys("<SPACE>",true) + endif - printlog "delete textbox." EditSelectAll - hTypeKeys "<DELETE>" - sleep 1 + EditCopy + + dim s as string + s = getClipBoard() - printlog "create same textbox again (test ALWAYS IGNORE function)." - hTextrahmenErstellen (FehlerText$,30,30,60,40) - - 'printlog "Setting Text to english" - 'sleep 1 - 'EditSelectAll - 'FormatCharacter - 'sleep 1 - 'Kontext - 'Messagebox.SetPage TabFont - 'Kontext "TabFont" - 'Language.Select 41 - 'TabFont.OK - - printlog "Call 'Tools->Spellcheck->Check'." - ToolsSpellcheck - Kontext "Spellcheck" - printlog "click button 'Always Ignore." - IgnoreAll.Click - printlog "spellcheck dialog has to disappear and" - printlog "There has to come up only one active: 'Spellcheck of entire document has been completed [OK]'." - Kontext "Active" - if active.exists(5) then - Printlog " Spellcheck ended because of only 1 defined error. And Ignore worked.'" + active.gettext + "'" - Active.OK + printlog s + + if(Instr(s,sWrongWord) <> 0) then + warnlog "word not changed. '" + s + "' contains still wrong word '" + sWrongWord + "'" else - Printlog " 'Ignore All' seems to work." - Kontext "Spellcheck" - Spellcheck.Close - Kontext "Active" - if active.exists(5) then - Printlog " Spellcheck dialog closed'" + active.gettext + "'" - Active.OK - else - Printlog " Spellcheck dialog closed'" - end if - end if + printlog "word changed." + endif - Printlog "- Delete ignore list" - sleep 1 - printlog "Delete ignore word list." - if (not wIgnorierenlisteLoeschen) then - qaErrorLog "Can't get into Dictionary lists" - goto endsub - end if + if(Instr(s,sRightWord) <> 0) then + printlog "word changed." + else + warnlog "word not changed." + endif + + printlog "Close document" Call hCloseDocument -endcase 'tiToolsSpellcheckError -'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -testcase tiToolsSpellcheckCheck - if iSprache = 48 then - qaerrorlog "This test is not adapted for polish, 48." - got endsub - endif - Dim Datei$ - Dim sWord(2) as string - Dim i as integer - Dim j as integer - Dim s as integer - Dim AlleBuecher as integer +endcase +'------------------------------------------------------------------------------- +testcase tiToolsSpellcheckCheck_ChangeAll + Dim sExt as string - Dim sWordOne as string - Dim sWordTwo as string + Dim sRightWord as String + Dim sWrongWord as string + + dim aWords(2) as string + aWords() = getWordsForLanguage() + + sWrongWord = aWords(0) + sRightWord = aWords(1) + + if(sWrongWord = "" OR sRightWord = "") then ' if any word is empty then the test should stop + qaerrorlog "no spellcheck test for the langauges " + iSprache + " available." + goto endsub + endif + + 'delete_word_from_dictionary(sWord,"IgnoreListAll") + + if Ucase(gApplication) = "DRAW" then + sExt = ".odg" + else + sExt = ".odp" + endif + + Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt) + + call fMakeDocumentWritable() + + ' Perform the test now: + printlog "Call Tools->Spellcheck" + ToolsSpellcheck + sleep(2) + Kontext "Spellcheck" + printlog "Click button 'Change' on dialog." + ChangeAll.Click + 'TODO: check result beware of issue 110688 + Sleep 2 + + SpellCheckClose.click + + printlog "Close document" + Call hCloseDocument + +endcase +'------------------------------------------------------------------------------- +function delete_all_added_words(aWords) + + '/// this function delete the words in sWords in all user dictionaries + + Dim iBookCounter as integer + Dim iWordCounter as integer Dim iBooks as integer - Dim bWordFound(2) as boolean - Dim iSuggestions as integer - Dim iWord(2) as integer - Dim bFound as boolean Select Case Ucase(gApplication) case "DRAW" : sExt = ".odg" @@ -412,7 +411,7 @@ testcase tiToolsSpellcheckCheck case 39 : sWord(1) = "Millano" : sWord(2) = "tarrget" case 46 : sWord(1) = "desa" : sWord(2) = "occh" case 49 : sWord(1) = "Texxt" : sWord(2) = "reichtt" - case 50 : sWord(1) = "Bsedilo" : sWord(2) = "zadosÄa" + case 50 : sWord(1) = "Bsedilo" : sWord(2) = "zadosÄ?a" case 55 : sWord(1) = "esktava" : sWord(2) = "noitee" case else : if bAsianLan then @@ -423,7 +422,6 @@ testcase tiToolsSpellcheckCheck end select sleep 2 - Printlog "Delete all added words from dictionaries." printlog "Call Tools->Options." ToolsOptions printlog "Select in category 'Languagesettings' entry 'Writing Aids.'" @@ -431,487 +429,138 @@ testcase tiToolsSpellcheckCheck sleep 1 Kontext "WRITINGAIDS" sleep 1 - printlog "Click on button 'edit' in section 'User-defined dictionaries.'" - if (fGetIntoDictionary) then - qaErrorLog "wTSC" - goto endsub - end if + printlog "select the first User-defined dictionaries and click EDIT" + Benutzerwoerterbuch.select 1 + Bearbeiten.Click + Kontext "BenutzerwoerterbuchBearbeiten" sleep 1 - printlog "Check every book, if it contains the words that will be added in this test." - iBooks = Buch.getItemCount - bWordFound(1) = false - bWordFound(2) = false - for i = 1 to iBooks - Buch.select(i) + printlog "Check every book, if it contains the words." + iBooks = Buch.getItemCount + for iBookCounter = 1 to iBooks + Buch.select(iBookCounter) printlog "Items in Booklist: " & WordList.getItemCount - for j = 1 to 2 - Wort.setText sWord(j) + for iWordCounter = 1 to uBound(aWords) + Wort.setText aWords(iWordCounter) sleep 1 if ((not neu.isEnabled) and Loeschen.isEnabled) then printlog "If it contains the word, press button 'delete'." Loeschen.click - bWordFound(j) = true - printlog "Added word WAS in dictionary: '" + Buch.getSelText + "' - '" + sWord(j) + "'" + printlog "Added word WAS in dictionary: '" + Buch.getSelText + "' - '" + aWords(iWordCounter) + "'" end if - next j - next i - if (bWordFound(1) OR bWordFound(2))then - qaErrorLog "Word was found in dictionary - check why it was there. '" + sWord(1) + "': " + bWordFound(1) + " '" + sWord(2) + "': " + bWordFound(2) - end if + next iWordCounter + next iBookCounter printlog "Close dialog 'Edit Custom Dictionary.'" BenutzerwoerterbuchBearbeiten.Close sleep 1 Kontext "ExtrasOptionenDlg" printlog "Press button 'OK' on dialog 'Writing Aids'." ExtrasOptionenDlg.OK - printlog "Call dialog again and delete all remaining words from dictionary 'IgnoreAllList'." - if (not wIgnorierenlisteLoeschen) then - qaErrorLog "Can't get into Dictionary lists" - goto endsub - end if - - printlog "Test if spellcheck dialog comes up and check/set direction of spellcheck." - printlog "Call 'Tools->Spellcheck->Check'." - ToolsSpellcheck - Kontext "Spellcheck" - WaitSlot (1000) - printlog "If no dictionary for the language is available, a messagebox comes up:" - printlog ". . . 'Error executing the spellcheck.: Language is not supported by spellchecker funtion." - kontext "active" - if active.exists(5) then - warnlog "$Language is not supported by spellchecker funtion: '" + active.gettext + "'" - Active.OK - printlog ". . . exiting testcase." - goto endsub - end if - Kontext "Spellcheck" - printlog "Close dialog 'Spellcheck'." - Spellcheck.Close - Kontext "Active" - if active.exists(5) then - Warnlog " Should not be any message here: " + active.gettext + "'" - Active.OK - else - printlog "Spellcheck ended, dialog closed" - end if - printlog "Select all." - hTypeKeys "<MOD1 A>" - printlog "Check presupposition: 12 Words have to be complained about." - printlog "All 'Tools->Spellcheck->Check'." - ToolsSpellcheck - WaitSlot (2000) - Kontext "Spellcheck" - printlog "Click button 'Ignore' 12 times." - - for i = 1 to 11 - Kontext "Spellcheck" - IgnoreOnce.Click - Kontext "Active" - if active.exists(5) then - warnlog "Presupposition not met: there are less than 12 errors in the document! " + i - Active.OK - printlog "If errors < 12 -> exiting testcase." - goto endsub - end if - next i - Kontext "Spellcheck" - IgnoreOnce.Click - printlog "Spellcheck dialog has to disapear and messagebox with OK has to come up." - Kontext "Active" - if active.exists(5) then - printlog "Active dialog said: " + active.gettext + "'" - Active.OK - end if - Kontext "Spellcheck" - if Spellcheck.Exists(5) then - warnlog "Presupposition not met: there are more than 12 errors in the document!" - Spellcheck.Close - kontext "Active" - if active.exists(5) then - Active.OK - else - printlog "bug fixed #111972# " - end if - printlog "If errors > 12 -> exiting testcase." - goto endsub - else - Kontext "Active" - if active.exists(5) then - warnlog "There was a Message where none was supposed to be: '" + active.gettext + "'" - Active.NO - end if - printlog "Presupposition met: there are 12 errors in the document!" - end if - - printlog "Perform the test now:" - printlog "Call 'Tools->Spellcheck->Check'" - ToolsSpellcheck - WaitSlot (2000) - Kontext "Spellcheck" - Printlog "----------------------------------------------------------------------------" - Printlog "1st Test: - Ignore now" - printlog "1st error: ignore : 1st pink word in 1st Paragraph." - printlog "Backwards: last green word in 3rd Paragraph." - sWordOne = Suggestions.GetSelText - printlog "********* Suggestion word found: '" + sWordOne + "'" - printlog "##### suggestions: "+Suggestions.GetItemCount+"; Language: "+DictionaryLanguage.getSelText '+" ; dictionary: "+woerterbuch.getSelText - if (Suggestions.GetItemCount > 0) then - printlog "----- "+i+": "+Suggestions.GetSelText (1) - end if - printlog "Click button 'Ignore'." - IgnoreOnce.Click - Sleep 2 - - Printlog "----------------------------------------------------------------------------" - Printlog "2nd Test: - Add" - printlog "2nd error: add : 1st red word in 1st Paragraph -> hasn't to show up anymore from now on." - printlog "Backwards: last turquoise word in 3rd Paragraph -> hasn't to show up anymore from now on." - printlog "Check if word in textfield 'Word' changed." - printlog "(Check if it is the expected next error - you have to look into the source code for the right word!)." - sWordTwo = Suggestions.GetSelText - if (sWordOne = sWordTwo) then - warnlog "Ignore didn't work? Spellcheck didn't go on" - end if - if (sWord(iWord(1)) <> sWordTwo) then - Printlog "The errornous word '" + sWord(iWord(1)) + "' would be replaced with: '" + sWordTwo + "'" - end if - printlog "********* word found: '" + sWordTwo + "'" - printlog "##### suggestions: "+Suggestions.GetItemCount+"; Language: "+DictionaryLanguage.getSelText ' +" ; dictionary: "+woerterbuch.getSelText - if (Suggestions.GetItemCount > 0) then - printlog "----- "+i+": "+Suggestions.GetSelText (1) - end if - Sleep 1 - printlog "Click button 'Add' on dialog '" - AddToDictionary.Click - Sleep 2 - printlog "The menu has: " + MenuGetItemCount + " entries." - hMenuSelectNr(1) 'Default - Kontext "Active" - if Active.Exists(5) Then - Warnlog " - Word could not be added to dictionary: '" + active.getText + "'" - Active.OK - Sleep 1 - end if - printlog "Check in options, if word exists in word list." - printlog "Click button 'Options' on dialog 'Spellcheck'." - Kontext "Spellcheck" - SpellcheckOptions.Click - Kontext "TabLinguistik" - printlog "Click button 'Edit ...' on dialog 'Writing Aids' in section 'User-defined dictionaries'." - if TabLinguistik.exists(5) then - sleep 3 - if (fGetIntoDictionary) then - qaErrorLog "wTSC" - goto endsub - end if - else - qaerrorlog "baeh" - end if - Kontext "BenutzerwoerterbuchBearbeiten" - printlog "Check every book, if it contains the added word." - if not BenutzerwoerterbuchBearbeiten.exists(5) then - sleep 5 - qaerrorlog "baeh" - end if - iBooks = Buch.getItemCount - bWordFound(1) = false - for i = 1 to iBooks - Buch.select(i) - printlog "Book number selected: " & i - Wort.setText sWord(iWord(1)) - sleep 1 - if ((not neu.isEnabled) and Loeschen.isEnabled) then - bWordFound(1) = true - printlog "Added word is in dictionary: '" + Buch.getSelText + "'" - end if - next i - if (not bWordFound(1)) then - warnlog "Word was not added to dictionary" - end if - printlog "Cancel dialog 'Edit Custom Dictionary'." - BenutzerwoerterbuchBearbeiten.Close - Kontext "TabLinguistik" - printlog "Cancel dialog 'Writing Aids'." - TabLinguistik.Close - Kontext "Spellcheck" - - Printlog "----------------------------------------------------------------------------" - Printlog " 3rd Test: - Always Ignore" - printlog "3rd error: always ignore : 1st turquoise word in 1st Paragraph -> hasn't to show up anymore from now on." - printlog "Check if word in textfield 'Word' changed." - printlog "(check if it is the expected next error - you have to look into the source code for the right word!)" - sWordOne = sWordTwo - sWordTwo = Suggestions.GetSelText 'wort.getText - if (sWordOne = sWordTwo) then - warnlog "Add didn't work? Spellcheck didn't go on." - end if - if (sWord(iWord(2)) <> sWordTwo) then - Printlog "The erroneous word '" + sWord(iWord(2)) + "' would be replaced with: '" + sWordTwo + "'" - else - warnlog "ERROR: SAME WORD in the dictionary as in the text??? Must be wrong." - end if - printlog "********* word found: '" + sWordTwo + "'" - printlog "##### suggestions: "+Suggestions.GetItemCount+"; Language: "+DictionaryLanguage.getSelText ' +" ; dictionary: "+DictionaryLanguage.getSelText 'Wort.GetItemCount 'Woerterbuch.GetSelText - if (Suggestions.GetItemCount > 0) then 'Wort.GetItemCount > 0) then - printlog "----- "+i+": "+Suggestions.GetItemText (1) 'Wort.GetItemText (1) - end if - Sleep 1 - printlog "Click button 'Always ignore' on dialog." - IgnoreAll.Click - Sleep 2 - printlog "Check in options, if word exists in word list." - printlog "Click button 'Options' on dialog 'Spellcheck'." - SpellcheckOptions.Click - Kontext "TabLinguistik" - printlog "Click button 'Edit ...' on dialog 'Writing Aids' in section 'User-defined dictionaries." - if TabLinguistik.exists(5) then - sleep 3 'culprint swedish windows; wait until butrton exists? - if (fGetIntoDictionary) then - qaErrorLog "wTSC" - goto endsub - end if - else - qaerrorlog "baeh" - end if - Kontext "BenutzerwoerterbuchBearbeiten" - if not BenutzerwoerterbuchBearbeiten.exists(5) then - sleep 3 - qaerrorlog "baeh" - end if - printlog "Check every book, if it contains the added word." - iBooks = Buch.getItemCount - bWordFound(2) = false - for i = 1 to iBooks - Kontext "BenutzerwoerterbuchBearbeiten" - Buch.select(i) - Inhalt.setText sWord(iWord(2)) 'Wort.setText sWord(iWord(2)) - sleep 1 - if ((not neu.isEnabled) and Loeschen.isEnabled) then - bWordFound(2) = true - printlog " added word is in dictionary: '" + Buch.getSelText + "'" - end if - next i - if (not bWordFound(2)) then - warnlog "Word was not added to dictionary, #ixxxxxx" - end if - printlog "Cancel dialog 'Edit Custom Dictionary'." - BenutzerwoerterbuchBearbeiten.Close - Kontext "TabLinguistik" - printlog "Cancel dialog 'Writing Aids'." - TabLinguistik.Close - kontext "Spellcheck" - - Printlog "----------------------------------------------------------------------------" - Printlog "4th test: - Replace" - printlog "4th error: replace : 1st green word in 1st Paragraph." - printlog "Check if word in textfield 'Word' changed." - printlog "(check if it is the expected next error - you have to look into the source code for the right word!)." - sWordOne = sWordTwo - sWordTwo = Suggestions.GetSelText - if (sWordOne = sWordTwo) then - warnlog "Always ignore didn't work? Spellcheck didn't go on." - end if - printlog "********* word found: '" + sWordTwo + "'" - iSuggestions = Suggestions.GetItemCount - printlog "##### suggestions: " + iSuggestions + "; Language: "+DictionaryLanguage.getSelText '+"; dictionary: "+woerterbuch.getSelText - if (Suggestions.GetItemCount > 0) then - printlog "----- "+i+": "+Suggestions.GetItemText (1) - end if - Sleep 1 - printlog "Click button 'Replace'." - if (iSuggestions > 0) then - Change.click - else - qaerrorlog "Please change the text in the file, so the spellchecker can make a suggestion for the word: '" + sWordTwo + "'" - IgnoreOnce.Click - end if + +end function +'------------------------------------------------------------------------------- +function delete_word_from_dictionary(sWord as String, sDictionary as String) - Printlog "----------------------------------------------------------------------------" - Printlog "5th Test: - Always Replace" - printlog "5th error: always replace : 1st pink word in 2nd Paragraph -> hasn't to show up anymore from now on." - printlog "backwards: 1st green word in 2nd Paragraph -> hasn't to show up anymore from now on." - printlog "check if word in textfield 'Word' changed." - printlog "(check if it is the expected next error - you have to look into the source code for the right word!)." - sWordOne = sWordTwo - sWordTwo = Suggestions.GetSelText - if (sWordOne = sWordTwo) then - warnlog "Replace didn't work? Spellcheck didn't go on" - end if - printlog "********* word found: '" + sWordTwo + "'" - iSuggestions = Suggestions.GetItemCount - printlog "##### suggestions: " + iSuggestions + "; Language: "+DictionaryLanguage.getSelText ' +" ; dictionary: "+woerterbuch.getSelText - if (Suggestions.GetItemCount > 0) then - printlog "----- "+i+": "+Suggestions.GetItemText (1) - end if - Sleep 1 - printlog "click button 'Always Replace'." - if (iSuggestions > 0) then - ChangeAll.click - else - qaErrorLog "Please change the text in the file, so the spellchecker can make a suggestion for the word: '" + sWordTwo + "'" - IgnoreOnce.Click - end if + '/// this function delete the words in sWords in all user dictionaries - printlog "2 errors are left: 4th word (green) in 2nd and 3rd paragraph." - printlog "backwards: 1st word (pink) in 2nd and 1st paragraph." - Kontext "Spellcheck" - sWordOne = sWordTwo - sWordTwo = Suggestions.GetSelText - if (sWordOne <> sWordTwo) then - printlog sWordTwo - else - warnlog "there is anopther word left, that wasn't expected!. '" + sWordTwo +"'" - end if - printlog "Click button 'Ignore' 2 times." - IgnoreOnce.Click - - Kontext "Spellcheck" - sWordOne = sWordTwo - sWordTwo = Suggestions.GetSelText - if (sWordOne <> sWordTwo) then - warnlog "there is anopther word left, that wasn't expected!. '" + sWordTwo +"'" - else - printlog sWordTwo - end if - printlog "Click button 'Ignore' 2 times." - IgnoreOnce.Click - Kontext "Active" - if active.exists(5) then - printlog "Spellcheck works :-) '" + active.gettext + "'" - Active.No - else - warnlog "Spellcheck didn't work :-(! there are still errors in the document." - Kontext "Spellcheck" - Spellcheck.Close - Kontext "Active" - if active.exists(5) then - qaErrorLog " Spellcheck dialog closed'" + active.gettext + "'" - Active.No - end if - end if - sleep 2 + Dim iBookCounter as integer + Dim iWordCounter as integer + Dim iBooks as integer - Printlog "Delete all added words from dictionaries." + Printlog "Delete the given word from dictionaries." printlog "Call Tools->Options." ToolsOptions - printlog "Select in category 'Languagesettings' entry 'Writing Aids'." + printlog "Select in category 'Languagesettings' entry 'Writing Aids.'" hToolsOptions ("LANGUAGESETTINGS","WRITINGAIDS") sleep 1 Kontext "WRITINGAIDS" - printlog "Click on button 'edit' in section 'User-defined dictionaries'." - if (fGetIntoDictionary) then - qaErrorLog "wTSC" - goto endsub - end if + sleep 1 + printlog "select the dictionary and click EDIT" + + fSelectWithString(Benutzerwoerterbuch,sDictionary) + + Bearbeiten.Click + Kontext "BenutzerwoerterbuchBearbeiten" - printlog "Check every book, if it contains the added word." - iBooks = Buch.getItemCount - bWordFound(1) = false - bWordFound(2) = false - for i = 1 to iBooks - Buch.select(i) - for j = 1 to 2 - Wort.setText sWord(j) - sleep 1 - if ((not neu.isEnabled) and Loeschen.isEnabled) then - printlog "If it contains the word, press button 'delete'." - Loeschen.click - bWordFound(j) = true - printlog " added word is in dictionary: '" + Buch.getSelText + "' - '" + sWord(j) + "'" - end if - next j - next i - if ((not bWordFound(1)) AND (not bWordFound(2)))then - warnlog "Word was not found in dictionary. '" + sWord(1) + "': " + bWordFound(1) + " '" + sWord(2) + "': " + bWordFound(2) + + Wort.setText sWord + sleep 1 + if ((not neu.isEnabled) and Loeschen.isEnabled) then + printlog "If it contains the word, press button 'delete'." + Loeschen.click + printlog "Added word WAS in dictionary: '" + Buch.getSelText + "' - '" + sWord + "'" end if - printlog "Close dialog 'Edit Custom Dictionary'." + + printlog "Close dialog 'Edit Custom Dictionary.'" BenutzerwoerterbuchBearbeiten.Close sleep 1 Kontext "ExtrasOptionenDlg" - printlog "press button 'OK' on dialog 'Writing Aids'." + printlog "Press button 'OK' on dialog 'Writing Aids'." ExtrasOptionenDlg.OK - printlog "Call dialog again and delete all remaining words from dictionary 'IgnoreAllList'." - if (not wIgnorierenlisteLoeschen) then - qaErrorLog "Can't get into Dictionary lists" - goto endsub - end if - printlog "Close document" - Call hCloseDocument -endcase 'tiToolsSpellcheckCheck +end function -'------------------------------------------------------------------------------- -testcase tToolsSpellcheckAutoSpellcheck - - QaErrorLog "#i81928# - outcommented tToolsSpellcheckAutoSpellcheck due to bug." - goto endsub - dim i as integer - dim x as integer - dim y as integer - dim q as integer - dim z as integer - dim iResult as long - dim iTemp as long - dim iTemp2 as long - dim sTemp as string - dim sCompare as string - dim iCompare as long - dim iError as long - dim sError as string - - call hNewDocument - - call hTextrahmenErstellen ("Ein Tipp: Schiffahrt schreibt man nun mit 3f Tunfisch Amboss a", 10, 10, 90, 50) +function fSelectWithString(oControl as Object,sText as String) - EditSelectAll - setCharacterLanguage(glLocale(4)) - sleep 10 - printlog "## check ENGLISH auto spellchecking" - iError = 0 - ' Get underlined words / wrong recognized words by spellchecker - iResult = sAnalyseContextMenu(11, iError) - sTemp = sLongToBinary(iResult, 11) - sError = sLongToBinary(iError, 11) - ' reference of words, which should be underlined - sCompare = "11011001011" - iCompare = sBinaryToLong(sCompare) - ' compare result with reference -> get the difference - iTemp = not (iResult EQV iCompare) - ' eliminate errors from open bugs -> get the real errors - iTemp2 = iTemp AND NOT iError - if (iTemp2 > 0) then - warnlog "wrong words are not underlined? Should be: " + sCompare - warnlog "Is: " + sTemp - warnlog "Differences: " + sLongToBinary(iTemp, 11) - warnlog "Wrong after merging errors from bugs " + sLongToBinary(iTemp2, 11) - end if + dim iCounter as Integer + dim iNumberOfItems as Integer + iNumberOfItems = oControl.getItemCount() - sleep 1 - ' call hTypeKeys "<F2>" - call hTypeKeys "<mod1 end> <Shift mod1 home>" - setCharacterLanguage(glLocale(6)) - sleep 10 - printlog "## check GERMAN auto spellchecking" - iError = 0 - iResult = sAnalyseContextMenu(11, iError) - sTemp = sLongToBinary(iResult, 11) - sError = sLongToBinary(iError, 11) - sCompare = "00010000000" - iCompare = sBinaryToLong(sCompare) - ' compare result with reference -> get the difference - iTemp = not (iResult EQV iCompare) - ' eliminate errors from open bugs -> get the real errors - iTemp2 = iTemp AND NOT iError - if (iTemp2 > 0) then - warnlog "wrong words are not underlined? Should be: " + sCompare - warnlog "Is: " + sTemp - warnlog "Differences: " + sLongToBinary(iTemp, 11) - warnlog "Wrong after merging errors from bugs " + sLongToBinary(iTemp2, 11) - end if - printlog "-----------------------------------" + for iCounter = 1 to iNumberOfItems + oControl.select iCounter + if( Instr(oControl.getSelText,sText) <> 0 ) then ' the correct entry is selected + iCounter = iNumberOfItems ' stop the loop + endif + next - hCloseDocument() -endcase 'tToolsSpellcheckAutoSpellcheck +end function -'------------------------------------------------------------------------------- + +function getWordsForLanguage() + + dim sWrongWord as String + dim sRightWord as String + dim aWords(2) as String + + select case iSprache + case 1 : + sWrongWord = "documente" + sRightWord = "document" + case 31 : + sWrongWord = "miejn" + sRightWord = "mijn" + case 33 : + sWrongWord = "projjet" + sRightWord = "projet" + case 34 : + sWrongWord = "lazsos" + sRightWord = "lazos" + case 36 : + sWrongWord = "Bozniai" + sRightWord = "Boszniai" + case 39 : + sWrongWord = "borrdo" + sRightWord = "borro" + case 46 : + sWrongWord = "desa" + sRightWord = "edas" + case 48 : + sWrongWord = "werrsji" + sRightWord = "wersji" + case 49 : + sWrongWord = "Feehlern" + sRightWord = "Fehlern" + case 55 : + sWrongWord = "Elle" + sRightWord = "Elze" + case else : + sWrongWord = "" + sRightWord = "" + end select + + aWords(0) = sWrongWord + aWords(1) = sRightWord + + getWordsForLanguage = aWords + +end function diff --git a/testautomation/graphics/optional/includes/global/g_tools.inc b/testautomation/graphics/optional/includes/global/g_tools.inc index fa3f429bb..04fc0b92d 100644 --- a/testautomation/graphics/optional/includes/global/g_tools.inc +++ b/testautomation/graphics/optional/includes/global/g_tools.inc @@ -340,7 +340,7 @@ testcase tiToolsHyphenation1 case 46 : hTextrahmenErstellen ("Detta är en text utan delade ord",10,10,40,40) case 48 : hTextrahmenErstellen (" Jeoli jednak zechcesz",10,10,40,40) case 49 : hTextrahmenErstellen ("Dies ist ein Text ohne eine Moeglichkeit Woerter zu trennen",10,10,40,40) - case 50 : hTextrahmenErstellen ("Zato ves Äas iÅ¡Äemo nove Älane: sodelujte",10,10,40,40) + case 50 : hTextrahmenErstellen ("Zato ves Ä?as iÅ¡Ä?emo nove Ä?lane: sodelujte",10,10,40,40) case 55 : hTextrahmenErstellen ("a Sun tentou adquirir a Apple",10,10,40,40) case else : if bAsianLan then printlog "For the language " + iSprache +" nothing is prepared yet, but is AsianLan, so OK :-)" diff --git a/testautomation/graphics/optional/includes/global/id_001.inc b/testautomation/graphics/optional/includes/global/id_001.inc deleted file mode 100644 index 15a99c0d3..000000000 --- a/testautomation/graphics/optional/includes/global/id_001.inc +++ /dev/null @@ -1,725 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : -'* -'\********************************************************************************** - - -testcase tiFileSaveAs - - dim sFileName as string ' test document & new created doc - ' dim sFormula as string ' container for formula to create document with - dim sTemp as string - dim sFilter (50) as string - dim i as integer - dim x as integer - dim y as integer - dim Exlist(100) as string ' files to be deleted - dim sFile as string ' filename to export - dim sPath as string ' filename to export - - if (gApplication = "IMPRESS") then - ExtensionString = "odp" - else - ExtensionString = "odg" - end if - - sFilter (0) = 0 ' initalize ;-)... - - sFileName = "graphics\required\input\tbo_alf_." + ExtensionString ' this is the file with all features - sFile = "isas_" ' this is the filename of the export files - sPath = ConvertPath ( gOfficePath + "user/work/graphics/required/"+gApplication+"\"+ gPlatform) ' this is the export path - if dir (sPath) = "" then - app.mkdir (sPath) - end if - - if gSamePC = TRUE then ' delete export directory - GetFileList ( sPath, sFile+"*", Exlist() ) - if KillFileList ( Exlist() ) <> TRUE then - Warnlog "Couldn't delete all Files in Output-Export-Directory, the followings are still there:" - for i=1 to ListCount ( Exlist() ) - printlog " <> " + Exlist(i) - next i - end if - end if - - Call hFileOpen ( ConvertPath(gTesttoolPath + sFileName) ) - WaitSlot (3000) - - - ' to use the helper fileSaveAs functions i get alll available filters... - FileSaveAs - WaitSlot (2000) - Kontext "SpeichernDlg" - for i = 0 to 5 - if i=0 then x = Dateityp.GetItemCount - if (i) then ' set border, whenm start from beginning/end - y = i ' set filter from beginning - else - y = x-3 ' set filter from end - end if - ListAppend(sFilter(), Dateityp.GetItemText (y)) - next i - SpeichernDlg.Cancel - y = ListCount(sFilter()) - - if gtSYSName = "Linux" then y=y-1 - '#i45961# - last part of filter-list deactivated due to BUG - FHA - 'TODO: JSI->FHA please verify if this special handling needed after the issue has been fixed. - - for i = 1 to y - sFileName = sPath + sFile + (i) - hFileSaveAsWithFilter (sFileName, sFilter(i), TRUE ) - kontext - if messagebox.exists then - messagebox.Yes ' to go on .... - end if - printlog " saved with filter ("+i+"/"+y+"): "+ sFilter(i) - next i - ' TODO TBO: small check, if correct filter was used! - WaitSlot (3000) - fileclose - WaitSlot (3000) - kontext "Messagebox" - if Messagebox.exists then - printlog "Messagebox about informationloss... :-) that's OK: 'Text in the messagebox: "+Messagebox.GetText+"'" - Messagebox.YES - end if - - '----------------------------------------------------------------- - hNewDocument - - - sFilter (0) = 0 - sFileName = sPath - GetFileList ( sFileName, sFile + "*", sFilter() ) - - ' call hNewDocument - x = ListCount ( sFilter() ) - for i = 1 to x - printlog "("+i+"/"+x+"): "+sFilter(i) - hFileOpen ( sFilter(i) ) - WaitSlot (3000) - If hIsNamedDocLoaded (sFilter(i)) Then - printlog " used filter: " + hGetUsedFilter() - else - sTemp = left(right(sFilter(i),2),1) - if ( (sTemp = "t") OR (sTemp = "o") ) then - printlog "document is --- TEMPLATE?! --- " - else - qaErrorlog "#116563# document didn't get loaded " - end if - end if - hCloseDocument - WaitSlot (2000) - next i - ' Call hCloseDocument -endcase - -testcase tiFileReload - Dim DokumentPfad$ - Dim Datei$ - - if (gApplication = "IMPRESS") then - ExtensionString = "odp" - else - ExtensionString = "odg" - end if - - Datei$= (ConvertPath (gOfficePath + "user/work/graphics/required/version1." + ExtensionString)) - - if app.dir(ConvertPath (gOfficePath + "user/work/graphics/required/")) = "" then - app.mkdir (ConvertPath (gOfficePath + "user/work/graphics/required/")) - end if - Call hNewDocument - WaitSlot (2000) - Call hFileSaveAsKill (Datei$) - WaitSlot (2000) - Call hCloseDocument - - Call hFileOpen (Datei$) - WaitSlot (2000) - call hTBOtypeInDoc - WaitSlot (2000) - FileReload - WaitSlot (2000) - Kontext "Messagebox" - sleep 2 - Messagebox.No - WaitSlot (2000) - - FileReload - WaitSlot (2000) - Kontext "Messagebox" - sleep 2 - Messagebox.Yes - WaitSlot (1000) - - Call hCloseDocument - if Dir (Datei$) <> "" AND gSamePC = TRUE then kill Datei$ -endcase - -testcase tiFileVersion - Dim DokumentPfad$ - Dim Datei$ - - if (gApplication = "IMPRESS") then - ExtensionString = "odp" - else - ExtensionString = "odg" - end if - - Datei$= (ConvertPath (gOfficePath + "user/work/graphics/required/erwin." + ExtensionString)) - 'if dir (ConvertPath (gOfficePath + "user/work/graphics/required/")) = "" then - if dir (Datei$) = "" then app.mkdir (ConvertPath (gOfficePath + "user/work/graphics/required/")) - Call hNewDocument - WaitSlot (1000) - Call hFileSaveAsKill (Datei$) - WaitSlot (1000) - Call hCloseDocument - - Call hFileOpen (Datei$) - WaitSlot (1000) - call hTBOtypeInDoc - WaitSlot (1000) - try - FileVersions - catch - Warnlog "- File / Versions not accessible!" - goto endsub - endcatch - - Kontext "Versionen" - Call DialogTest ( Versionen ) - Speichern.Click - Kontext "VersionskommentarEingeben" - Call DialogTest ( VersionskommentarEingeben ) - VersionskommentarEingeben.Cancel - Kontext "Versionen" - Versionen.Close - Call hCloseDocument - ' if Dir (Datei$) <> "" AND gSamePC = TRUE then kill Datei$ -endcase - -testcase tiFilePassword - goto endsub - Dim DokumentPfad$ - Dim Datei$ - dim sFileName as string ' test document & new created doc - ' dim sFormula as string ' container for formula to create document with - dim e as string - dim sTemp as string - dim sFilter (50) as string - dim i as integer - dim x as integer - dim y as integer - dim Exlist(100) as string ' files to be deleted - dim sFileIn as string ' filename to import - dim sFile as string ' filename to export - dim sPath as string ' and path to export - - if (gApplication = "IMPRESS") then - ExtensionString = "odp" - else - ExtensionString = "odg" - end if - - sFile = "isp__" ' this is the filename of the export files - sPath = ConvertPath ( gOfficePath + "user/work/graphics/required/"+gApplication+"\"+ gPlatform+"\") ' this is the export path - mkdir (sPath) - if dir (sPath) = "" then app.mkdir (sPath) - sFileIn = (sPath + sFile + "." + ExtensionString) - if gSamePC = TRUE then ' delete export directory - GetFileList ( sPath, sFile+"*", Exlist() ) - if KillFileList ( Exlist() ) <> TRUE then - Warnlog "Couldnt delete all Files in Output-Export-Directory, the followings are still there:" - for i=1 to ListCount ( Exlist() ) - printlog " <> " + Exlist(i) - next i - end if - end if - - Call hNewDocument - WaitSlot (1000) - FileSaveAs - Kontext "SpeichernDlg" - Datei$ = ConvertPath ( sFileIn ) - printlog " will use the file: "+Datei$ - if Dir (Datei$) <> "" then - kill Datei$ - end if - Passwort.Check - Dateiname.SetText Datei$ - Speichern.Click - WaitSlot (2000) - Kontext "Passwort" - PasswortName.SetText "12345" - PasswortBestaetigen.Settext "54321" - Passwort.OK - WaitSlot (2000) - Kontext "Messagebox" - if Messagebox.Exists(1) then - Messagebox.OK - else - Warnlog "- Wrong password not recognized" - end if - Kontext "Passwort" - PasswortName.SetText "12345" - PasswortBestaetigen.SetText "12345" - Passwort.OK - sleep 2 - FileClose - sleep 2 - - FileOpen - Kontext "OeffnenDlg" - WaitSlot (2000) - Dateiname.SetText Datei$ - Oeffnen.Click - WaitSlot (2000) - Kontext "PasswordFileOpen" - PasswortName.SetText "34567" - try - PasswordFileOpen.OK - catch - Printlog "- Wrong password not accepted" - endcatch - Kontext - if Not Messagebox.Exists(1) then - Warnlog "Wrong password while loading not recognized" - else - Messagebox.OK - printlog "Wrong password on loading ok - recogniced" - end if - WaitSlot (3000) - Kontext "PasswordFileOpen" - PasswortName.SetText "12345" - PasswordFileOpen.OK - WaitSlot (5000) - FileSaveAs - Kontext "SpeichernDlg" - Dateiname.SetText Datei$ - if (Passwort.IsChecked <> TRUE) then - Warnlog "Password has to be checked! :-(" - end if - Speichern.Click - WaitSlot (1000) - Kontext "Messagebox" - if Messagebox.Exists(5) then - Messagebox.Yes - end if - Kontext "Passwort" - if (Passwort.Exists(5) = FALSE)then - Warnlog "- Password dialog Didn't pop up after pressing save" - else - Kontext "Passwort" - WaitSlot (1000) - PasswortName.SetText "a12345" - PasswortBestaetigen.SetText "a12345" - Passwort.OK - WaitSlot (1000) - FileClose - WaitSlot (1000) - end if - FileOpen - WaitSlot (2000) - Kontext "OeffnenDlg" - Dateiname.SetText Datei$ - Oeffnen.Click - Kontext "PasswordFileOpen" - WaitSlot (1000) - PasswortName.SetText "a12345" - PasswordFileOpen.OK - WaitSlot (5000) - FileSaveAs - Kontext "SpeichernDlg" - Dateiname.SetText Datei$ - if (Passwort.IsChecked <> TRUE) then - Warnlog "Password has to be checked! :-(" - end if - Passwort.UnCheck - Speichern.Click - Kontext "Messagebox" - if Messagebox.Exists(5) then Messagebox.Yes - Kontext "Passwort" - if (Passwort.Exists(5))then - Warnlog "- Password dialog didn't pop up after pressing save" - Kontext "Passwort" - password.cancel - FileClose - else - hCloseDocument - end if -endcase - -testcase tiFileTemplates - Call hNewDocument - - FileTemplatesOrganize - Kontext "DVVerwalten" - WaitSlot (1000) - Call DialogTest (DVVerwalten) - sleep 1 - PopuplisteLinks.Select 2 - WaitSlot (1000) - PopuplisteRechts.Select 2 - WaitSlot (1000) - WelcheDatei.Click - WaitSlot (1000) - Kontext "Oeffnendlg" - Call DialogTest (OeffnenDlg) - sleep 1 - OeffnenDlg.Cancel - WaitSlot (2000) - Kontext "DVVerwalten" - DVVerwalten.Close - - if gtSYSName = "Solaris x86" then - qaErrorLog "#i62423# - FileTemplatesAddressBookSource outcommented under x86. - FHA" - else - FileTemplatesAddressBookSource - Printlog "- AddressBookAssignment" - kontext "AddressBookSource" - Call DialogTest (AddressBookSource) - Administrate.Click - kontext "AddressSourceAutopilot" - AddressSourceAutopilot.Cancel - kontext "AddressBookSource" - AddressBookSource.Cancel - end if - - FileTemplatesSave - Printlog "- Save template" - WaitSlot (1000) - Kontext "Dokumentvorlagen" - sleep 1 - Call DialogTest (Dokumentvorlagen) - WaitSlot (1000) - Verwalten.Click - WaitSlot (2000) - Kontext "DVVerwalten" - Call DialogTest (DVVerwalten) - WaitSlot (3000) - DVVerwalten.Close - WaitSlot (1000) - Kontext "Dokumentvorlagen" - sleep 1 - Dokumentvorlagen.Cancel - WaitSlot (1000) - - try - FileTemplatesEdit - Printlog "- Edit template" - WaitSlot (1000) - Kontext "OeffnenDlg" - sleep 1 - Call DialogTest (OeffnenDlg) - WaitSlot (1000) - OeffnenDlg.Cancel - catch - Warnlog "- There are problems with File-Template-Save" - endcatch - WaitSlot (1000) - Call hCloseDocument -endcase - - -'----------------------------------------------------------- -'******************* M A T H dito ************************* -'----------------------------------------------------------- - - -testcase tmFileNewFromTemplate - Call hNewDocument - FileNewFromTemplate - WaitSlot (5000) - Kontext "TemplateAndDocuments" - if TemplateAndDocuments.NotExists then - Warnlog "Dialog Templates and Documents are not up!" - goto endsub - end if - Call DialogTest (TemplateAndDocuments) - WaitSlot (5000) - try - TemplateAndDocuments.Cancel - catch - endcatch - WaitSlot (5000) - Call hCloseDocument -endcase - -testcase tmFileOpen - call hNewDocument - FileOpen - Kontext "OeffnenDlg" - UebergeordneterOrdner.Click - Standard.Click - NurLesen.check - Call DialogTest ( OeffnenDlg ) - OeffnenDlg.Cancel - WaitSlot (2000) - Call hCloseDocument -endcase - -testcase tmFileClose - printlog "- File Close" - hNewDocument ' just for the records: I open ONE document - call hTBOtypeInDoc - WaitSlot (2000) - FileClose - Kontext ' Expecting "Modified, do you want to close?" - if active.exists (5) then - printlog " Ok, active came up: " + active.gettext - Active.Cancel ' No, not this time - else - warnlog "active missing (1)" - end if - WaitSlot (2000) - - FileClose - Kontext - Active.Yes ' but now - records: this document is closed - WaitSlot (2000) - - Kontext "SpeichernDlg" - Call DialogTest ( SpeichernDlg ) - SpeichernDlg.Cancel - WaitSlot (2000) - - FileClose ' now the office gets closed! (if there were no modifications!) - Kontext - Active.No - WaitSlot (2000) -endcase -'----------------------------------------------------------- -testcase tmFileSave - hNewDocument - call hTBOtypeInDoc - - FileSave - WaitSlot (2000) - Kontext "SpeichernDlg" - UebergeordneterOrdner.click - Standard.Click - Call DialogTest (SpeichernDlg) - Kontext "SpeichernDlg" - Standard.Click - SpeichernDlg.Cancel - WaitSlot (2000) - Call hCloseDocument -endcase - -testcase tmFileSaveAs - - hNewDocument - WaitSlot (2000) - call hTBOtypeInDoc - - FileSaveAs - WaitSlot (2000) - Kontext "SpeichernDlg" - if (SpeichernDlg.exists (5) = FALSE) then - warnlog "FileSaveAs dialog is not visible" - end if - WaitSlot (2000) - Passwort.check - Passwort.uncheck - UebergeordneterOrdner.click - Standard.Click - - NeuerOrdner.click - kontext "NeuerOrdner" - neuerordner.cancel - Kontext "SpeichernDlg" - - Call DialogTest (SpeichernDlg) - - Kontext "SpeichernDlg" - SpeichernDlg.Cancel - WaitSlot (2000) - Call hCloseDocument -endcase - -testcase tmFileSaveAll - printlog "- File SaveAll" - - hNewDocument - call hTBOtypeInDoc - - Printlog " open 2. window" - hNewDocument - call hTBOtypeInDoc - - Printlog " call save all" - FileSaveAll - Printlog " cancel 1. save" - Kontext "SpeichernDlg" - SpeichernDlg.Cancel - - Printlog " cancel 2. save" - WaitSlot (2000) - Kontext "SpeichernDlg" - SpeichernDlg.Cancel - WaitSlot (2000) - - try - Kontext "SpeichernDlg" - SpeichernDlg.Cancel - printlog "smth had been typed in the starting window (just a hint ;-) )" - catch - printlog "--------- no other window wants to get saved. :-)" - endcatch - - WaitSlot (2000) - Printlog " hCloseDocument both" - Call hCloseDocument - sleep 2 - Printlog " first closed" - Call hCloseDocument - WaitSlot (2000) - Printlog " second closed" - WaitSlot (5000) -endcase - -testcase tmFileProperties - printlog "- File Properties" - - Call hNewDocument - FileProperties - - Kontext - active.SetPage TabDokument - Kontext "TabDokument" - Call DialogTest ( TabDokument ) - - Kontext - active.SetPage TabDokumentInfo - Kontext "TabDokumentInfo" - Call DialogTest ( TabDokumentInfo ) - - 'Deactivating this part because of #i95523#: - 'Kontext - 'active.SetPage TabBenutzer - 'Kontext "TabBenutzer" - 'Call DialogTest ( TabBenutzer ) - 'Infofelder.Click - ' Kontext "InfonamenBearbeiten" - ' Call DialogTest (InfonamenBearbeiten) - 'InfonamenBearbeiten.Cancel - - Kontext - active.SetPage TabInternet - Kontext "TabInternet" - Call DialogTest (TabInternet) - TabInternet.Cancel - - Call hCloseDocument -endcase - -testcase tmFilePrinterSetting - printlog "- File Printersettings" - Call hNewDocument - WaitSlot (3000) - FilePrintersettings - kontext - if active.exists(5) then - active.ok - qaerrorlog "There is no printer available - please install one on your system!" - end if - WaitSlot (2000) - Kontext "DruckerEinrichten" - Call DialogTest (DruckerEinrichten) - sleep 2 - DruckerEinrichten.Cancel - WaitSlot (2000) - Call hCloseDocument -endcase - -testcase tdFileExport - goto endsub - dim x as integer - Call hNewDocument - WaitSlot (3000) - FileExport - Kontext "ExportierenDlg" - Call DialogTest ( ExportierenDlg ) - UebergeordneterOrdner.Click - Kontext "SpeichernDlg" - x=Dateityp.getitemcount - if x <> 18 then warnlog "the number of filters is not 18, it is: " + x - SpeichernDlg.Cancel - WaitSlot (2000) - Call hCloseDocument - WaitSlot (2000) -endcase - -testcase tmFileExit - goto endsub - printlog "- File Close" - Call hNewDocument - WaitSlot (2000) - try - FileExit "SynchronMode", TRUE - WaitSlot (2000) - Kontext - WaitSlot (2000) - Kontext "MessageBox" - if MessageBox.Exists(1) then ' this is the messagebox from the first window! - Printlog MessageBox.GetText - try - MessageBox.OK - catch - MessageBox.No - endcatch - end if - Kontext "MessageBox" - if MessageBox.Exists(1) then - Warnlog "MsgBox popped up and there were no changes in the document" - Printlog MessageBox.GetText - try - MessageBox.OK - catch - MessageBox.No - endcatch - end if - catch - printlog "this exit is wanted :-)" - endcatch - try - WaitSlot (20000) - call hStartTheOffice ' from master.inc - catch - printlog "catch AGAIN" - endcatch - Kontext "SD_Praesentation" - if SD_Praesentation.exists (2) then - ViewToolbarsPresentation - end if -endcase diff --git a/testautomation/graphics/optional/includes/global/id_002.inc b/testautomation/graphics/optional/includes/global/id_002.inc deleted file mode 100644 index c199ab998..000000000 --- a/testautomation/graphics/optional/includes/global/id_002.inc +++ /dev/null @@ -1,440 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : -'* -'\********************************************************************************** - -testcase tiEditUndoRedo - - hNewDocument - call hTBOtypeInDoc - - EditUndo - WaitSlot (2000) - EditRedo - WaitSlot (2000) - Call hCloseDocument -endcase - -testcase tiEditRepeat - goto endsub 'Quaste, ask FHA - Call hNewDocument - - gMouseClick 50,50 - Call hRechteckErstellen ( 30, 10, 70, 30 ) - WaitSlot (1000) - Call hRechteckErstellen ( 20, 20, 60, 40 ) - WaitSlot (1000) - Call hRechteckErstellen ( 80, 50, 40, 20 ) - WaitSlot (1000) - ContextArrangeBringBackward - WaitSlot (2000) - try - EditRepeat - catch - Warnlog " Menu entry is disabled #i26129#" - endcatch - - Call hCloseDocument -endcase - -testcase tiEditCutPasteCopySelectall - Call hNewDocument - - call hTBOtypeInDoc - - EditCut - WaitSlot (2000) - EditPaste - WaitSlot (2000) - EditCopy - WaitSlot (2000) - EditPaste - WaitSlot (2000) - EditSelectAll - WaitSlot (2000) - EditCut - WaitSlot (2000) - EditPaste - WaitSlot (2000) - EditDeleteContents - WaitSlot (2000) - Call hCloseDocument -endcase - -testcase tiEditPasteSpecial - Call hNewDocument - - SetClipboard "This is a Text in the Clipboard" - - EditPasteSpecial - WaitSlot (1000) - Kontext "InhaltEinfuegen" - DialogTest ( InhaltEinfuegen ) - - InhaltEinfuegen.Cancel - WaitSlot (1000) - Call hCloseDocument -endcase - -testcase tiEditSearchAndReplace - Call hNewDocument - - try - EditSearchAndReplace - WaitSlot (1000) - Kontext "FindAndReplace" - DialogTest ( FindAndReplace ) - - More.Click - SimilaritySearch.Check ' culprint for errors if not resetted ! - WaitSlot (1000) - SimilaritySearchFor.Click - Kontext "Aehnlichkeitssuche" - DialogTest (Aehnlichkeitssuche ) - Aehnlichkeitssuche.Cancel - Kontext "FindAndReplace" - SimilaritySearch.UnCheck - More.Click - FindAndReplace.Close - catch - Warnlog "EditSearchAndReplace caused an error" - endcatch - Call hCloseDocument -endcase - -testcase tiEditDuplicate - Call hNewDocument - call hTBOtypeInDoc - EditSelectAll - EditDuplicate - - Kontext "Duplizieren" - Call DialogTest ( Duplizieren ) - Duplizieren.Cancel - - Call hCloseDocument -endcase - -testcase tEditPoints - Call hNewDocument - call hTBOtypeInDoc - FormatEditPoints - EditGluePoints - Call hCloseDocument -endcase - -testcase tiEditFields - Call hNewDocument - WaitSlot (2000) - InsertFieldsDateFix - WaitSlot (1000) - gMouseDoubleClick 10,10 - - hTypeKeys "<ESCAPE>" - hTypeKeys "<Tab>" ' With a Tab catches we always the Object - hTypeKeys "<F2>" ' Here we enter Edit-Mode and therefore also the right place - hTypeKeys "<Home>" ' Here we enter Edit-Mode and therefore also the right place - - try - EditFieldsDraw - Kontext "FeldbefehlBearbeitenDraw" - Call DialogTest ( FeldbefehlBearbeitenDraw ) - FeldbefehlBearbeitenDraw.Close - catch - Warnlog "- Slot could not be accessed" - endcatch - - Call hCloseDocument -endcase - -testcase tdEditDeleteSlide - Call hNewDocument - InsertSlide - WaitSlot (2000) - hTypekeys "<Pagedown>" - WaitSlot (2000) - Kontext "Navigator" - sleep (2) - if Navigator.exists then - printlog "Navigator: open :-)" - else - printlog "Navigator: NOT available :-( Will be opened now!" - ViewNavigator - end if - WaitSlot (2000) - Kontext "NavigatorDraw" - if Liste.GetItemCount<>2 Then - Warnlog "- No slide inserted" - Kontext "Navigator" - Navigator.Close - Call hCloseDocument - goto endsub - else - Liste.Select 2 - Kontext "Navigator" - Navigator.Close - end if - WaitSlot (2000) - EditDeleteSlide - WaitSlot (2000) - Call hCloseDocument -endcase - -testcase tiEditLinks - Call hNewDocument - - InsertGraphicsFromFile - Kontext "GrafikEinfuegenDlg" - try - if Link.Exists then - Link.Check - else - Warnlog "- Link in Insert graphic is not working" - end if - Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif") - Oeffnen.Click - Kontext "Messagebox" - if Messagebox.Exists=True Then - Warnlog Messagebox.GetText - Messagebox.Ok - end if - InsertGraphicsFromFile - Kontext "GrafikEinfuegenDlg" - Link.Check - Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp") - Oeffnen.Click - - kontext "Messagebox" - if Messagebox.Exists( 2 ) then - Warnlog Messagebox.GetText - Messagebox.OK - sleep 1 - end if - catch - Warnlog "Insert graphic caused errors" - endcatch - - WaitSlot (2000) - try - EditLinksDraw - WaitSlot (2000) - Kontext "VerknuepfungenBearbeiten" - Call DialogTest ( VerknuepfungenBearbeiten ) - VerknuepfungenBearbeiten.Close - WaitSlot (1000) - catch - Warnlog "- EditLinks could not be executed, could be the graphic was not imported" - endcatch - - Call hCloseDocument -endcase - -testcase tiEditImageMap - Call hNewDocument - - EditImageMap - - Kontext "ImageMapEditor" - if ImageMapEditor.Exists( 5 ) then - printlog "- ImageMap exists" - DialogTest ( ImageMapEditor ) - try - ImageMapEditor.Close - Printlog "ImageMap closed using the close button" - catch - EditImageMap - Printlog "ImageMap closed using menue 'edit-imagemap'" - endcatch - else - warnlog "ImageMap didn't come up!" - end if - Call hCloseDocument -endcase - -testcase tiEditObjectProperties - dim i as integer - - Call hNewDocument - - InsertFloatingFrame - WaitSlot (2000) - - Kontext "TabEigenschaften" - FrameName.SetText "Hello" - Inhalt.SetText ConvertPath ( gTesttoolpath + "global\input\graf_inp\desp.bmp" ) - WaitSlot (2000) - TabEigenschaften.OK - WaitSlot (2000) - gMouseDoubleClick 1,1 - - hTypekeys "<tab>" - - kontext - WaitSlot (2000) - EditObjectProperties - WaitSlot (1000) - Kontext "TabEigenschaften" - DialogTest ( TabEigenschaften ) - Oeffnen.Click - Kontext "OeffnenDlg" - Call DialogTest ( OeffnenDlg ) - OeffnenDlg.Cancel - Kontext "TabEigenschaften" - TabEigenschaften.Cancel - - Call hCloseDocument -endcase - -testcase tiEditObjectEdit - dim i as integer - Call hNewDocument - - InsertObjectOLEObject - WaitSlot (1000) - Kontext "OLEObjektEinfuegen" - ObjektTyp.Select 1 - OLEObjektEinfuegen.OK - WaitSlot (1000) - - gMouseClick 20,1 - - hTypekeys "<tab>" - - EditObjectEdit - ' try EditObjectEdit again, to see, if it is in edit mode ! - WaitSlot (2000) - try - ContextNameObject - warnlog " Couldn't get into edit mode!" - catch - printlog "Reached edit mode - ok :-)" - gMouseClick 20,1 - endcatch - - EditSelectAll - - EditObjectSaveCopyAs - Kontext "SpeichernDlg" - Call DialogTest ( SpeichernDlg ) - SpeichernDlg.Cancel - WaitSlot (2000) - Kontext "Active" - if Active.Exists(2) then Active.No - Call hCloseDocument -endcase - -testcase tiEditPlugIn - Call hNewDocument - - InsertObjectPlugin - Kontext "PlugInEinfuegen" - ' DialogTest ( PlugInEinfuegen) - Durchsuchen.click - Kontext "OeffnenDlg" - ' Call DialogTest ( OeffnenDlg ) - if OeffnenDlg.exists (5) then - OeffnenDlg.Cancel - else - warnlog "Open file dialog didn't come up" - end if - WaitSlot (5000) - Kontext "PlugInEinfuegen" - if PlugInEinfuegen.exists then - DateiUrl.SetText (ConvertPath ( gTesttoolpath + "graphics\required\input\sample.mov" )) - - Optionen.SetText "Fiddler's Green" - Optionen.TypeKeys "<HOME>" - Optionen.TypeKeys "<SHIFT><END>" - Optionen.TypeKeys "<delete>" - PlugInEinfuegen.Ok - else - warnlog "Insert plugin isn't visible" - end if - WaitSlot (5000) - kontext "Messagebox" - if Messagebox.exists (5) then - warnlog "Messagebox: " + Messagebox.gettext - Messagebox.ok - end if - EditPlugIn - printlog "Editplugin works!" - - Call hCloseDocument -endcase - -testcase tiEditHyperlink - hNewDocument - InsertHyperlink - - kontext "HyperlinkDialog" - if ( HyperlinkDialog.exists( 2 ) ) then - Kontext "Hyperlink" - Auswahl.MouseDown 50, 5 - Auswahl.MouseUp 50, 5 - Auswahl.typekeys "<PAGEDOWN><PAGEUP>" - Auswahl.typekeys "<TAB>" - sleep( 1 ) - Kontext "TabHyperlinkInternet" - - 'Workaround to get rid of a Focusing-problem... - NameText.Typekeys "alal <RETURN>" - NameText.Typekeys "<MOD1 A><DELETE>" - TabHyperlinkInternet.Typekeys "<TAB>", 6 - TabHyperlinkInternet.Typekeys "<LEFT>", 3 - 'End of workaround... - - Internet.Check 'Just to make sure the radio-button is addressable. - ZielUrl.Settext "http://www.liegerad-fahrer.de" - - Uebernehmen.Click() - - kontext "HyperlinkDialog" - HyperlinkDialog.Close() - - hTypeKeys "<TAB><F2>" - EditSelectAll - try - EditHyperlinkDraw - Kontext "HyperlinkDialog" - if ( HyperlinkDialog.Exists( 1 ) ) then - HyperlinkDialog.Close() - else - Warnlog "- Hyperlinkdialog not up" - end if - catch - Warnlog "- Not able to edit Hyperlink!" - endcatch - else - warnlog( "Failed to open <HyperlinkDialog>" ) - endif - - Call hCloseDocument -endcase diff --git a/testautomation/graphics/optional/includes/global/id_003.inc b/testautomation/graphics/optional/includes/global/id_003.inc deleted file mode 100644 index 4ada1beaa..000000000 --- a/testautomation/graphics/optional/includes/global/id_003.inc +++ /dev/null @@ -1,264 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : -'* -'\********************************************************************************** - -testcase tiViewNavigator - Call hNewDocument - - Kontext "NavigatorDraw" - if Not NavigatorDraw.Exists Then - ViewNavigator - end if - Kontext "NavigatorDraw" - Call DialogTest ( NavigatorDraw ) - - try - Kontext "Navigator" - Navigator.Close - catch - Errorlog " Navigator wasn't closed, second try with Menu" - ViewNavigator - endcatch - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tiViewZoom - Call hNewDocument - UseBindings - ViewZoom - Kontext "Massstab" - DialogTest ( Massstab ) - Massstab.Cancel - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tiViewToolbar - Call hNewDocument - - ViewToolbarsThreeDSettings - WaitSlot (1000) - ViewToolbarsThreeDSettings - WaitSlot (1000) - - ViewToolbarsAlign - WaitSlot (1000) - ViewToolbarsAlign - WaitSlot (1000) - - ViewToolbarsTools - WaitSlot (1000) - ViewToolbarsTools - WaitSlot (1000) - - ViewToolbarsBezier - WaitSlot (1000) - ViewToolbarsBezier - WaitSlot (1000) - - ViewToolbarsFontwork - WaitSlot (1000) - ViewToolbarsFontwork - WaitSlot (1000) - - ' if gApplication = "IMPRESS" then - ' ViewToolbarsPresentation ' only in impress, not draw - ' ViewToolbarsPresentation - ' endif - - ViewToolbarsFormControls - WaitSlot (1000) - ViewToolbarsFormControls - WaitSlot (1000) - - '----------------- - ViewToolbarsFormDesign - WaitSlot (1000) - ViewToolbarsFormDesign - WaitSlot (1000) - - ViewToolbarsFormNavigation - WaitSlot (1000) - ViewToolbarsFormNavigation - WaitSlot (1000) - - ViewToolbarsGluepoints - WaitSlot (1000) - ViewToolbarsGluepoints - WaitSlot (1000) - ViewToolbarsInsert - WaitSlot (1000) - ViewToolbarsInsert - WaitSlot (1000) - - ViewToolbarsGraphic - WaitSlot (1000) - ViewToolbarsGraphic - WaitSlot (1000) - - ViewToolbarsMediaPlayback - WaitSlot (1000) - ViewToolbarsMediaPlayback - WaitSlot (1000) - - ViewToolbarsOptionbar - WaitSlot (1000) - ViewToolbarsOptionbar - WaitSlot (1000) - - ViewToolbarsPicture - WaitSlot (1000) - ViewToolbarsPicture - WaitSlot (1000) - - ViewToolbarsStandard - WaitSlot (1000) - ViewToolbarsStandard - WaitSlot (1000) - - ViewToolbarsStandardView - WaitSlot (1000) - ViewToolbarsStandardView - WaitSlot (1000) - - ViewToolbarsHyperlinkbar - WaitSlot (1000) - ViewToolbarsHyperlinkbar - WaitSlot (1000) - - ViewToolbarsColorBar - WaitSlot (1000) - ViewToolbarsColorBar - WaitSlot (1000) - - ViewToolbarsCustomize - WaitSlot (1000) - Kontext - try - Messagebox.SetPage TabCustomizeMenu ' 1 ------------------ - catch - warnlog "couldn't switch to tabpage 'Menus'" - endcatch - Kontext "TabCustomizeMenu" - if TabCustomizeMenu.exists(5) then - Call DialogTest ( TabCustomizeMenu ) - Menu.typeKeys("<down>") - Entries.typeKeys("<down>") - sleep 2 - BtnNew.Click - sleep 1 - Kontext "MenuOrganiser" - Call DialogTest ( MenuOrganiser ) - MenuOrganiser.cancel - sleep 1 - Kontext "TabCustomizeMenu" - TabCustomizeMenu.Close - end if - sleep (1) - - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tiViewDisplayQuality - Call hNewDocument - - Call hRechteckErstellen 20,20,40,40 - - try - ViewQualityBlackWhite - Printlog "- Quality set to black and white" - catch - Warnlog "- Slot could not be accessed" - endcatch - WaitSlot (1000) - try - ViewQualityGreyscale - Printlog "- View quality set to greyscale" - catch - Warnlog "- View quality greyscale could not be accessed" - endcatch - WaitSlot (1000) - try - ViewQualityColour - Printlog "- View quality set to colour" - catch - Warnlog "- View quality colour could not be accessed" - endcatch - Call hClosedocument -endcase - -'------------------------------------------------------------------------- - -testcase tiViewLayer - Call hNewDocument - - ViewLayer - WaitSlot (1000) - ViewLayer - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tViewGrid - Call hNewDocument - - ViewGridVisible - ViewGridUse - ViewGridFront - ViewGridVisible - ViewGridUse - ViewGridFront - WaitSlot (1000) - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tViewSnapLines - Call hNewDocument - - ViewSnapLinesVisible - ViewSnapLinesUse - ViewSnapLinesFront - ViewSnapLinesVisible - ViewSnapLinesUse - ViewSnapLinesFront - WaitSlot (1000) - Call hCloseDocument -endcase - diff --git a/testautomation/graphics/optional/includes/global/id_004.inc b/testautomation/graphics/optional/includes/global/id_004.inc deleted file mode 100644 index 2e1aa6db3..000000000 --- a/testautomation/graphics/optional/includes/global/id_004.inc +++ /dev/null @@ -1,370 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : -'* -'\********************************************************************************** - - -testcase tiInsertSlide - - Call hNewDocument - InsertSlide - WaitSlot (2000) - hTypekeys "<Pagedown>" - WaitSlot (2000) 'sleep 2 - Call hCloseDocument -endcase - -testcase tiInsertDuplicateSlide - Call hNewDocument - Call hRechteckErstellen ( 30, 40, 40, 50 ) - InsertDuplicateSlide - WaitSlot (2000) - Call hCloseDocument -endcase - -testcase tiInsertField - Call hNewDocument - - InsertFieldsTimeFix - WaitSlot (1000) - printlog "OK Time Fix" - EditSelectAll - hTypekeys "<Delete>" - sleep 1 - - InsertFieldsDateFix - WaitSlot (1000) - printlog "OK Date Fix" - EditSelectAll - hTypekeys "<Delete>" - sleep 1 - - InsertFieldsTimeVariable - WaitSlot (1000) - printlog "OK Time Variabel" - EditSelectAll - hTypekeys "<Delete>" - sleep 1 - - InsertFieldsDateVariable - WaitSlot (1000) - printlog "OK Date Variabel" - EditSelectAll - hTypekeys "<Delete>" - sleep 1 - - InsertFieldsAuthorDraw - WaitSlot (1000) - printlog "OK Author" - EditSelectAll - hTypekeys "<Delete>" - sleep 1 - - InsertFieldsPageNumberDraw - WaitSlot (1000) - printlog "OK Page number" - EditSelectAll - hTypekeys "<Delete>" - sleep 1 - - InsertFieldsFileName - WaitSlot (1000) 'sleep 1 - printlog "OK File name" - EditSelectAll - hTypekeys "<Delete>" - sleep 2 - Call hCloseDocument -endcase - -testcase tiInsertSpecialCharacter - Call hNewDocument - - hTextrahmenErstellen ("This is a testtext",30,40,60,50) - sleep 2 - InsertSpecialCharacterDraw - - Kontext "Sonderzeichen" - if ( Sonderzeichen.exists( 2 ) ) then - Call DialogTest (Sonderzeichen) - hCloseDialog( Sonderzeichen, "Cancel" ) - else - warnlog( "<Special Characters> dialog not open" ) - endif - Call hCloseDocument -endcase - -testcase tiInsertHyperlink - - Call hNewDocument - InsertHyperlink - - kontext "HyperlinkDialog" - if ( HyperlinkDialog.exists( 2 ) ) then - - Kontext "TabHyperlinkInternet" - Auswahl.MouseDown 50, 5 - Auswahl.MouseUp 50, 5 - Auswahl.typekeys "<PAGEDOWN><PAGEUP>" - Auswahl.typekeys "<TAB>" - - 'Workaround to get rid of a Focusing-problem... - NameText.Typekeys "alal <RETURN>" - NameText.Typekeys "<MOD1 A><DELETE>" - TabHyperlinkInternet.Typekeys "<TAB>", 6 - TabHyperlinkInternet.Typekeys "<LEFT>", 3 - 'End of workaround... - - Internet.Check - ZielUrl.SetText( "http://www.nowhere.com" ) - Uebernehmen.Click() - - kontext "HyperlinkDialog" - HyperlinkDialog.Close() - - else - warnlog "Failed to open <HyperlinkDialog>" - end if - Call hCloseDocument -endcase - -testcase tiInsertGraphic - Call hNewDocument - InsertGraphicsFromFile - WaitSlot (2000) ' - try - Kontext "GrafikEinfuegenDlg" - if Link.exists then - Link.Check - else - Warnlog "Linking grafik doesn't work :-(" - end if - if Preview.exists then - Preview.Check - else - Warnlog "Preview of graphic doesn't work :-(" - end if - DialogTest (GrafikEinfuegenDlg) - - Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif") - Oeffnen.click - catch - Warnlog "Insert graphic doesn't work :-(" - endcatch - - Call hCloseDocument -endcase - -testcase tiInsertObjectSound - goto endsub ' disabled for final, because always wrong (TZ 01/2002) - 'TODO: TBO: enhance! - Call hNewDocument - try - InsertObjectSound - WaitSlot (1000) - Kontext "OeffnenDlg" - ' Call Dialogtest (OeffnenDlg) ' just be sure to check one pth and one open dialog : TZ 28.11.201 - - OeffnenDlg.Cancel - catch - printlog "'Insert -> Object -> Sound' not available. TestDevelopmentInProgress (TDIP) ;-)" - endcatch - Call hCloseDocument -endcase - -testcase tiInsertObjectVideo - goto endsub - 'TODO: TBO: enhance! - Call hNewDocument - try - InsertObjectVideo - Kontext "OeffnenDlg" - ' Call Dialogtest (OeffnenDlg) - WaitSlot (1000) - OeffnenDlg.Cancel - catch - printlog "'Insert -> Object -> Video' not available. (TDIP) ;-)" - endcatch - Call hCloseDocument -endcase - -testcase tiInsertChart - Call hNewDocument - InsertChart - - Kontext "Messagebox" - if ( Messagebox.Exists( 2 ) ) then - Warnlog Messagebox.GetText - hCloseDialog( Messagebox, "OK" ) - end if - gMouseClick 1,1 - sleep 2 - Call hCloseDocument -endcase - -testcase tiInsertObjectOLEObjects - hNewDocument - InsertObjectOLEObject - Kontext "OLEObjektEinfuegen" - ' Call Dialogtest ( OLEObjektEinfuegen ) - ' NeuErstellen.Check ' is default value - Call DialogTest (OLEObjektEinfuegen, 1) - AusDateiErstellen.Check - Call DialogTest (OLEObjektEinfuegen, 2) - Durchsuchen.click - Kontext "OeffnenDlG" - OeffnenDLG.Cancel - Kontext "OLEObjektEinfuegen" - OLEObjektEinfuegen.Cancel - sleep 1 - Call hCloseDocument -endcase - -testcase tiInsertSpreadsheet - if gtSYSName = "Linux" then - printlog "Linux = wont test tiInsertSpreadsheet" - goto endsub - endif - - Call hNewDocument - WaitSlot (2000) - InsertSpreadsheetDraw - WaitSlot (2000) - Kontext "Messagebox" - if Messagebox.Exists (5) then - Warnlog Messagebox.GetText - hCloseDialog( Messagebox, "ok" ) - end if - gMouseClick 1,1 - sleep 1 - hTypekeys "<Tab><Delete>" - sleep 2 - Call hCloseDocument -endcase - -testcase tiInsertFormula - Call hNewDocument - InsertObjectFormulaDraw - - Kontext "Messagebox" - if ( Messagebox.Exists( 2 ) ) then - Warnlog Messagebox.GetText - hCloseDialog( Messagebox, "ok" ) - end if - gMouseClick 1,1 - sleep 1 - hTypekeys "<Tab><Delete>" - Call hCloseDocument -endcase - -testcase tiInsertFloatingFrame - Call hNewDocument - InsertFloatingFrame - WaitSlot (2000) - Kontext "TabEigenschaften" - Dialogtest (TabEigenschaften) - Oeffnen.Click - Kontext "OeffnenDlg" - hCloseDialog( OeffnenDlg, "Cancel" ) - Kontext "TabEigenschaften" - TabEigenschaften.Cancel - Call hCloseDocument -endcase - -testcase tiInsertFile - Call hNewDocument - WaitSlot (1000) - InsertFileDraw - WaitSlot (1000) - Kontext "OeffnenDLG" - ' Call Dialogtest ( OeffnenDLG ) - OeffnenDLG.Cancel - Call hCloseDocument -endcase - -testcase tiInsertPlugin - call hNewDocument - InsertObjectPlugIn - Kontext "PluginEinfuegen" - if PluginEinfuegen.exists (5) then - call Dialogtest (PluginEinfuegen) - Durchsuchen.Click - sleep 1 - Kontext "Messagebox" - if Messagebox.Exists (5) Then - Warnlog Messagebox.GetText - Messagebox.OK - else - printlog "No Messagebox :-)" - end if - Kontext "OeffnenDlG" - if OeffnenDlG.exists (5) then - OeffnenDLG.Cancel - end if - Kontext "PluginEinfuegen" - if PluginEinfuegen.exists (5) then PluginEinfuegen.Cancel - else - warnlog "Insert Plugin does not work :-(" - end if - Call hCloseDocument -endcase - -testcase tiInsertScan - goto endsub - Call hNewDocument - InsertScanRequest ' as long as there is no scanner available, nothing happens - WaitSlot (1000) - InsertScanSelectSource - WaitSlot (1000) - printlog "Not testable, not translatable, just callable, because of systemdialog :-(" - Call hCloseDocument -endcase - -testcase tiInsertSnappointLine - Call hNewDocument - InsertSnapPointLine - Kontext "NeuesFangobjekt" - DialogTest ( NeuesFangobjekt ) - NeuesFangobjekt.Cancel - sleep 2 - Call hCloseDocument -endcase - -testcase tdInsertLayer - Call hNewDocument - WaitSlot (1000) - ViewLayer - InsertLayer - Kontext "EbeneEinfuegenDlg" - DialogTest ( EbeneEinfuegenDlg ) - EbeneEinfuegenDlg.Cancel - Call hCloseDocument -endcase - diff --git a/testautomation/graphics/optional/includes/global/id_005.inc b/testautomation/graphics/optional/includes/global/id_005.inc deleted file mode 100644 index 4aefb701a..000000000 --- a/testautomation/graphics/optional/includes/global/id_005.inc +++ /dev/null @@ -1,808 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : -'* -'*********************************************************************************** -' #1 tiFormatDefault -' #1 tiFormatLine -' #1 tdFormatArea -' #1 tiFormatText -' #1 tiFormatPositionAndSize -' #1 tiFormatCharacter -' #1 tiFormatControlForm -' #1 tiFormatDimensions -' #1 tiFormatConnector -' #1 tiFormat3D_Effects -' #1 tiFormatNumberingBullets -' #1 tiFormatCaseCharacter -' #1 tiFormatParagraph -' #1 tiFormatPage -' #1 tiFormatStylesAndFormatting -' #1 tiFormatStylesSlideDesign -' #1 tiFormatFontwork -' #1 tiFormatGroup -' #1 hWalkTheStyles -'\********************************************************************************** - -testcase tiFormatDefault - - Call hNewDocument - gMouseClick 50,50 - Call hRechteckErstellen ( 10, 10, 20, 40 ) - FormatStandardDraw - Call hCloseDocument -endcase - -testcase tiFormatLine - hNewDocument - gMouseClick 50,50 - Call hRechteckErstellen ( 10, 10, 20, 40 ) - FormatLine - Kontext - Messagebox.SetPage TabLinie - kontext "TabLinie" - Call DialogTest ( TabLinie ) - - Kontext - Messagebox.SetPage TabLinienstile - kontext "TabLinienstile" - Call DialogTest ( TabLinienstile ) - Hinzufuegen.click - Kontext "NameDLG" - Call DialogTest ( NameDlg ) - NameDlg.Cancel - - kontext "TabLinienstile" - Aendern.Click - Kontext "NameDlg" - Call DialogTest ( NameDlg ) - NameDlg.Cancel - kontext "TabLinienstile" - Loeschen.Click - Kontext "Messagebox" - Messagebox.no - - kontext "TabLinienstile" - Oeffnen.click - Kontext "OeffnenDLG" - call Dialogtest (OeffnenDLG) - OeffnenDLG.Cancel - kontext "TabLinienstile" - Speichern.click - Kontext "SpeichernDLG" - call Dialogtest (SpeichernDLG) - SpeichernDLG.Cancel - Kontext - Messagebox.SetPage TabLinienenden - kontext "TabLinienenden" - Call DialogTest ( TabLinienenden ) - Hinzufuegen.Click - Kontext "NameDLG" - Call DialogTest ( NameDlg ) - NameDlg.Cancel - - kontext "TabLinienenden" - Aendern.Click - Kontext "Messagebox" - try - Messagebox.OK - catch - 'print "TabLinienenden" - endcatch - - kontext "NameDlg" - Call DialogTest ( NameDlg ) - NameDlg.Cancel - - kontext "TabLinienenden" - Loeschen.Click - Kontext "Messagebox" - Messagebox.no - - kontext "TabLinienenden" - Oeffnen.click - Kontext "OeffnenDLG" - call Dialogtest (OeffnenDLG) - OeffnenDLG.Cancel - kontext "TabLinienenden" - Speichern.click - Kontext "SpeichernDLG" - call Dialogtest (SpeichernDLG) - SpeichernDlg.Cancel - kontext "TabLinienenden" - TabLinienenden.cancel - Call hCloseDocument -endcase - -testcase tdFormatArea - Call hNewDocument - gMouseClick 50,50 - Call hRechteckErstellen (15,15,65,65) - gMouseClick 30,30 - FormatArea - WaitSlot (1000) - Kontext - Messagebox.SetPage TabArea - Kontext "TabArea" - Call DialogTest ( TabArea ) - Kontext - Messagebox.SetPage TabSchatten - kontext "TabSchatten" - Anzeigen.Check - Call DialogTest ( TabSchatten ) - Kontext - Messagebox.SetPage TabFarben - kontext "TabFarben" - Farbe.select 1 - Farbmodell.Select 1 - Call DialogTest ( TabFarben,1 ) - Farbmodell.Select 2 - Call DialogTest ( TabFarben,2 ) - - Hinzufuegen.click - Kontext "Messagebox" - Messagebox.OK - kontext "NameDlg" - Call DialogTest ( NameDlg ) - NameDlg.Cancel - kontext "TabFarben" - Loeschen.click - Kontext "Messagebox" - Messagebox.no - - kontext "TabFarben" - sleep 1 - Speichern.click - Kontext "SpeichernDLG" - call Dialogtest (SpeichernDLG) - SpeichernDlg.Cancel - sleep 1 - - kontext "TabFarben" - Oeffnen.click - Kontext "OeffnenDLG" - call Dialogtest (OeffnenDLG) - OeffnenDLG.Cancel - Kontext "TabFarben" - - Kontext - Messagebox.SetPage TabFarbverlaeufe - kontext "TabFarbverlaeufe" - Call DialogTest ( TabFarbverlaeufe ) - - Hinzufuegen.click - Kontext "NameDlg" - Call DialogTest ( NameDlg ) - NameDlg.Cancel - - kontext "TabFarbverlaeufe" - Aendern.Click - Kontext "NameDlg" - Call DialogTest ( NameDlg ) - NameDlg.Cancel - - kontext "TabFarbverlaeufe" - loeschen.click - try - kontext "Messagebox" - Messagebox.no - catch - warnlog "nobody cares about deleting a gradient :-(" - endcatch - - kontext "TabFarbverlaeufe" - Oeffnen.click - Kontext "OeffnenDLG" - call Dialogtest (OeffnenDLG) - OeffnenDLG.Cancel - kontext "TabFarbverlaeufe" - Speichern.click - Kontext "SpeichernDLG" - call Dialogtest (SpeichernDLG) - SpeichernDLG.Cancel - - Kontext - Messagebox.SetPage TabSchraffuren - kontext "TabSchraffuren" - Call DialogTest ( TabSchraffuren) - - Hinzufuegen.click - Kontext "NameDlg" - Call DialogTest ( NameDlg ) - NameDlg.Cancel - - kontext "TabSchraffuren" - Aendern.Click - Kontext "NameDlg" - Call DialogTest ( NameDlg ) - NameDlg.Cancel - - kontext "TabSchraffuren" - Loeschen.click - kontext "Messagebox" - Messagebox.no - - kontext "TabSchraffuren" - Oeffnen.click - Kontext "OeffnenDLG" - call Dialogtest (OeffnenDLG) - OeffnenDLG.Cancel - kontext "TabSchraffuren" - Speichern.click - Kontext "SpeichernDLG" - call Dialogtest (SpeichernDLG) - SpeichernDLG.Cancel - - Kontext - Messagebox.SetPage TabBitmap - kontext "TabBitmap" - Call DialogTest ( TabBitmap ) - zurueck.click - sleep 1 - hinzufuegen.click - Kontext "NameDlg" - Call DialogTest ( NameDlg ) - NameDlg.cancel - - kontext "TabBitmap" - try - Aendern.Click - Kontext "NameDlg" - Call DialogTest ( NameDlg ) - NameDlg.cancel - catch - WarnLog "Control is disabled - modify bitmap" - endcatch - kontext "TabBitmap" - Import.Click - try - Kontext "GrafikEinfuegenDlg" - Call DialogTest ( GrafikEinfuegenDlg ) - Kontext "GrafikEinfuegenDlg" - GrafikEinfuegenDlg.Cancel - catch - Warnlog "Insert graphic does not work" - endcatch - - kontext "TabBitmap" - loeschen.click - kontext "Messagebox" - Messagebox.no - - kontext "TabBitmap" - Oeffnen.click - Kontext "OeffnenDLG" - call Dialogtest (OeffnenDLG) - OeffnenDLG.Cancel - kontext "TabBitmap" - Speichern.click - Kontext "SpeichernDLG" - call Dialogtest (SpeichernDLG) - SpeichernDLG.Cancel - kontext "TabBitmap" - TabBitmap.Cancel - Call hCloseDocument -endcase - -testcase tiFormatText - Call hNewDocument - FormatTextDraw - Kontext - Messagebox.SetPage TabText - Kontext "TabText" - DialogTest ( TabText ) - Kontext - Messagebox.SetPage TabLauftext - Kontext "TabLauftext" - DialogTest ( TabLauftext ) - TabLauftext.Cancel - Call hCloseDocument -endcase - -testcase tiFormatPositionAndSize - Call hNewDocument - Call hRechteckErstellen ( 10, 10, 20, 40 ) - ContextPositionAndSize - Kontext - Messagebox.setpage TabPositionAndSize - Kontext "TabPositionAndSize" - call Dialogtest ( TabPositionAndSize ) - kontext "PositionPosition" - PositionPosition.TypeKeys ("<right>", 2) - kontext "SizePosition" - SizePosition.TypeKeys ("<down>", 2) - Kontext - Messagebox.setPage TabDrehung - Kontext "TabDrehung" - call Dialogtest ( TabDrehung ) - Kontext - Messagebox.setpage TabSchraegstellen - Kontext "TabSchraegstellen" - call Dialogtest ( TabSchraegstellen ) - TabSchraegstellen.cancel - Call hCloseDocument -endcase - -testcase tiFormatCharacter - Call hNewDocument - FormatCharacter - WaitSlot (1000) - Kontext - Messagebox.SetPage TabFont - kontext "TabFont" - sleep 1 - Call DialogTest ( TabFont ) - Kontext - Messagebox.SetPage TabFontEffects - kontext "TabFontEffects" - sleep 1 - Call DialogTest ( TabFontEffects ) - sleep 1 - Kontext - Messagebox.SetPage TabFontPosition - Kontext "TabFontPosition" - sleep 1 - Call DialogTest ( TabFontPosition ) - sleep 2 - TabFontPosition.Cancel - Call hCloseDocument -endcase - -testcase tiFormatControlForm - - printlog "testcase: check if controls are available" - - printlog "open new document" - Call hNewDocument - - 'click in the document to get the focus into the document - if ( UCase(gApplication) = "DRAW" ) then - Kontext "DocumentDraw" - DocumentDraw.MouseDown(50,50) - DocumentDraw.MouseUp(50,50) - else 'Impress - Kontext "DocumentImpress" - DocumentImpress.MouseDown(50,50) - DocumentImpress.MouseUp(50,50) - endif - - printlog "open the form controls toolbar" - call hToolbarSelect("FormControls",true) - - kontext "FormControls" - printlog "insert a PushButton" - Pushbutton.Click - Sleep 1 - gMouseMove (50, 20,70, 40) - - printlog "open the control properties dialog" - FormatControl - - Kontext "ControlPropertiesDialog" - WaitSlot (1000) - printlog "close the control properties dialog" - ControlPropertiesDialog.Close - - printlog "open the form properties dialog" - FormatForm - Kontext "ControlPropertiesDialog" - WaitSlot (1000) - printlog "close the form properties dialog" - ControlPropertiesDialog.Close - - printlog "close the form control toolbar" - call hToolbarSelect("FormControls",false) - - printlog "close application" - Call hCloseDocument - -endcase - -testcase tiFormatDimensions - Call hNewDocument - FormatDimensioning - Kontext "Bemassung" - DialogTest ( Bemassung ) - Bemassung.Cancel - Call hCloseDocument -endcase - -testcase tiFormatConnector - Call hNewDocument - FormatConnector - Kontext "Verbinder" - DialogTest ( Verbinder ) - Verbinder.Cancel - Call hCloseDocument -endcase - -testcase tiFormat3D_Effects - Call hNewDocument - Format3D_Effects - Kontext "Drei_D_Effekte" - Call DialogTest ( Drei_D_Effekte,1 ) - Geometrie.Click - Call DialogTest ( Drei_D_Effekte,2 ) - Darstellung.Click - Call DialogTest ( Drei_D_Effekte,3 ) - Beleuchtung.Click - Call DialogTest ( Drei_D_Effekte,4 ) - Texturen.Click - Call DialogTest ( Drei_D_Effekte,5 ) - Material.Click - Call DialogTest ( Drei_D_Effekte,6 ) - Kontext "Drei_D_Effekte" - Drei_D_Effekte.Close - Call hCloseDocument -endcase - -'--------------------------------------------------------------------------------------- - -testcase tiFormatNumberingBullets - Call hNewDocument - WaitSlot (2000) - FormatNumberingBulletsDraw - WaitSlot (2000) - Kontext - Messagebox.SetPage TabBullet - Kontext "TabBullet" - Call DialogTest ( TabBullet ) - Kontext - Messagebox.SetPage TabNumerierungsart - Kontext "TabNumerierungsart" - Call DialogTest ( TabNumerierungsart ) - Kontext - Messagebox.SetPage TabGrafiken - Kontext "TabGrafiken" - Call DialogTest ( TabGrafiken ) - Kontext - Messagebox.SetPage TabPositionNumerierung - Kontext "TabPositionNumerierung" - Call DialogTest ( TabPositionNumerierung ) - Kontext - Messagebox.SetPage TabOptionenNumerierung - Kontext "TabOptionenNumerierung" - Call DialogTest ( TabOptionenNumerierung ) - Numerierung.Select 9 ' last one always ? -> graphics - TabOptionenNumerierung.MouseDown 50,60 - TabOptionenNumerierung.MouseUp 50,60 - Auswahl.TypeKeys "<SPACE>" - hMenuSelectNr (1) - sleep 3 - Kontext "OeffnenDlg" - OeffnenDlg.Cancel - sleep 1 - sleep 1 - Kontext - Messagebox.SetPage TabOptionenNumerierung - Kontext "TabOptionenNumerierung" - sleep 1 - try - Auswahl.TypeKeys "<SPACE>" - hMenuSelectNr (2) - hMenuSelectNr (3) - Sleep 2 - catch - warnlog "couldn't do something :-) (1)" - Exceptlog - Call hMenuClose - endcatch - TabOptionenNumerierung.Cancel - sleep 1 - Call hCloseDocument -endcase - -'--------------------------------------------------------------------------------------- - -testcase tiFormatCaseCharacter - Call hNewDocument - Call hTextrahmenErstellen ("testit",20,20,50,30) - sleep 1 - hTypeKeys "<left>" - - FormatChangeCaseUpper - WaitSlot (1000) - FormatChangeCaseLower - WaitSlot (2000) - if bAsianLan then - if not gAsianSup then - qaerrorlog "This is an asian language-office, but asian support was disabled in a previous test?" - end if - try - FormatChangeCaseHalfWidth - catch - Warnlog "Format / Change Case / Half Width does not work." - endcatch - WaitSlot (1000) - try - FormatChangeCaseFullWidth - catch - Warnlog "Format / Change Case / Full Width does not work!" - endcatch - sleep 1 - try - FormatChangeCaseHiragana - catch - Warnlog "Format / Change Case / Hiragana does not work." - endcatch - sleep 1 - try - FormatChangeCaseKatagana - catch - Warnlog "Format / Change Case / Katagana does not work." - endcatch - end if - Call hCloseDocument -endcase - -'--------------------------------------------------------------------------------------- - -testcase tiFormatParagraph - Call hNewDocument - FormatParagraph - Kontext - Messagebox.SetPage TabEinzuegeUndAbstaende - kontext "TabEinzuegeUndAbstaende" - Call DialogTest ( TabEinzuegeUndAbstaende ) - Kontext - Messagebox.SetPage TabAusrichtungAbsatz - Kontext "TabAusrichtungAbsatz" - Call DialogTest ( TabAusrichtungAbsatz ) - Kontext - Messagebox.SetPage TabTabulator - kontext "TabTabulator" - Call DialogTest ( TabTabulator ) - TabTabulator.Cancel - Call hCloseDocument -endcase - -'--------------------------------------------------------------------------------------- - -testcase tiFormatPage - Call hNewDocument - FormatSlideDraw - kontext - if Messagebox.exists (5) then - Messagebox.SetPage TabSeite - Kontext "TabSeite" - if TabSeite.exists (5) then - Call Dialogtest (TabSeite) - else - warnlog "nope :-(1" - endif - sleep 1 - kontext - Messagebox.SetPage TabArea - sleep 1 - kontext - if messagebox.GetRT = 304 then - printlog "active about pagesize != printersettings, will say NO: " + Messagebox.GetText - try - Messagebox.No - catch - warnlog messagebox.getText - Messagebox.ok ' should be Error loading BASIC of document ##? - kontext - if messagebox.GetRT = 304 then - try - warnlog messagebox.getText - Messagebox.ok - catch - printlog "not expected state." - endcatch - endif - endcatch - endif - sleep 1 - kontext - Messagebox.SetPage TabArea - Kontext "TabArea" - if TabArea.exists (5) then - Call Dialogtest (TabArea) - endif - sleep 1 - TabArea.Cancel - else - warnlog "FormatPage doesn't come up with dialog :-(" - endif - Call hCloseDocument -endcase - -'--------------------------------------------------------------------------------------- - -testcase tiFormatStylesAndFormatting - Dim sTemp as String - dim sSettings(20,3) ' Control_name; control_type; value - dim i as integer - dim abctemp - - Call hNewDocument - sleep 5 - - hTextrahmenErstellen ("I love Wednesdays...",20,20,80,40) - sleep 1 - printlog "Checking if TextObjectBar is up" - Kontext "TextObjectbar" - if TextObjectbar.Exists Then - printlog "TextObjectbar.Exists = " + TextObjectbar.Exists - else - ViewToolbarsTextFormatting - endif - FormatStylist - WaitSlot (1000) - Kontext "Stylist" - if (Stylist.NotExists) then - qaErrorLog "There is no stylist open, trying again now" - FormatStylist - end if - WaitSlot (1000) - Vorlagenliste.TypeKeys "<End>" - Vorlagenliste.TypeKeys "<Up>" - Vorlagenliste.TypeKeys "<Up>" - sleep 1 - Vorlagenliste.OpenContextMenu - sleep 1 - hMenuSelectNr (1) - sleep 1 - - Kontext - if Messagebox.exists (5) then - try - Messagebox.SetPage TabVerwalten - Kontext "TabVerwalten" - TabVerwalten.TypeKeys "<TAB>" - VorlagenName.setText("1Test") - sTemp = VorlagenName.getText - VerknuepftMit.getSelText - Bereich.getSelText - TabVerwalten.OK - catch - warnlog "Under Gnome we have a focus problem here." - endcatch - end if - sleep 1 - Kontext "Stylist" - Vorlagenliste.TypeKeys "<Home>" 'to go to the style we've created ourselves. - sleep 1 - Vorlagenliste.OpenContextMenu - sleep 1 - hMenuSelectNr (2) 'modify... - sleep 1 - Kontext - if Messagebox.exists (5) then - try - Messagebox.SetPage TabVerwalten - Kontext "TabVerwalten" - VorlagenName.setText("2Test") - TabVerwalten.OK - catch - warnlog "Under Gnome we have a focus problem here." - endcatch - end if - - sleep 3 - Kontext "Stylist" - Vorlagenliste.TypeKeys "<Home>" 'to go to the style we've created ourselves. - sleep 1 - try - Vorlagenliste.TypeKeys "<Delete>" 'To delete the style. - Kontext "Active" 'do you really wish to delete? - Active.YES - sleep 2 - catch - Warnlog "Couldnt delete the new Style, or maybe wrong position?" - endcatch - Kontext "Stylist" - if (Stylist.NotExists) then - ErrorLog "There was no Stylist open, should be." - else - if lcase(gPlatform) = "osx" then - hTypekeys "<mod1 t>" - else - hTypekeys "<F11>" - endif - Kontext "Stylist" - if (Stylist.Exists) then - ErrorLog "The Stylist should be closed now." - endif - endif - Call hCloseDocument -endcase - -'--------------------------------------------------------------------------------------- - -testcase tiFormatFontwork - Call hNewDocument - Call hTextrahmenErstellen ("Flightplanning via www.aua.com is hard!",20,20,50,30) - sleep 1 - FormatFontwork - Kontext "FontWork" - if FontWork.exists (5) then - DialogTest ( FontWork ) - sleep 1 - FontWork.Close - else - warnlog "FontWork didn't came up :-(" - endif - Call hCloseDocument -endcase - -'--------------------------------------------------------------------------------------- - -testcase tiFormatGroup - Call hNewDocument - hRechteckErstellen ( 10, 10, 20, 20 ) - hRechteckErstellen ( 30, 30, 40, 40 ) - EditSelectAll - FormatGroupDraw - WaitSlot (1000) - FormatEditGroupDraw - WaitSlot (1000) - FormatExitGroupDraw - WaitSlot (1000) - FormatUngroupDraw - WaitSlot (1000) - Call hCloseDocument -endcase - -'--------------------------------------------------------------------------------------- - -testcase tiFormatStylesSlideDesign - ' create recktanglr; click outside ? - Call hNewDocument - WaitSlot (3000) - FormatModifyLayout ' is OK : Format->Styles->Slide Design; 27064; SID_PRESENTATION_LAYOUT - WaitSlot (1000) - Kontext "Seitenvorlage" - Call DialogTest ( Seitenvorlage ) - HintergrundseiteAustauschen.check - DeleteUnusedBackgrounds.check - Laden.Click - kontext "Neu" - Zusaetze.click - sleep 1 - kontext "Neu" - try - Vorschau.check - catch - printlog "Preview wasn't checkable :-( hopfully now:" - Zusaetze.click - sleep 1 - Vorschau.check - printlog "... OK :-)" - endcatch - Neu.cancel - Kontext "Seitenvorlage" - Seitenvorlage.Cancel - sleep 2 - Call hCloseDocument -endcase - -'--------------------------------------------------------------------------------------- diff --git a/testautomation/graphics/optional/includes/global/id_006.inc b/testautomation/graphics/optional/includes/global/id_006.inc deleted file mode 100644 index bcbfa3d7c..000000000 --- a/testautomation/graphics/optional/includes/global/id_006.inc +++ /dev/null @@ -1,362 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : -'* -'*********************************************************************************** -' #1 tiToolsSpellchecking -' #1 tiToolsSpellcheckingAutomatic -' #1 tiToolsThesaurus -' #1 tiToolsHyphenation -' #1 tiToolsAutoCorrect -' #1 tChineseTranslation -' #1 tiToolsMacro -' #1 tiToolsGallery -' #1 tiToolsEyedropper -' #1 tiToolsOptions -'\********************************************************************************** - - -testcase tiToolsSpellchecking - - if not gOOO then ' Spellcheck doesn't work in OOo builds. - Call hNewDocument - WaitSlot (2000) 'sleep 2 - call hSetSpellHypLanguage - Call hTextrahmenErstellen ("Whaaaat", 10, 10, 30, 40) - sleep 1 - ToolsSpellCheck - WaitSlot (1000) 'sleep 1 - Kontext "MessageBox" - if MessageBox.exists(2) then - qaerrorlog "Messagebox : " + MessageBox.gettext() + " appear." - qaerrorlog "Maybe no spellchecking for this languages is available." - MessageBox.OK - else - Kontext "Rechtschreibung" - if Rechtschreibung.exists then - Call DialogTest ( Rechtschreibung ) - Rechtschreibung.Close - else - warnlog " Spellcheck dialog didn't came up :-(" - end if - end if - sleep 1 - Kontext "Messagebox" - if Messagebox.exists (5) then - warnlog "Shouldn't be any messagebox after pressing close in spellchecker" - Messagebox.OK - sleep (2) - Kontext - end if - Call hCloseDocument - else goto endsub - endif -endcase - -'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- - -testcase tiToolsSpellcheckingAutomatic - Call hNewDocument - ToolsSpellcheckAutoSpellcheck - Call hTextrahmenErstellen ("What", 10, 10, 30, 40) - sleep 2 - ToolsSpellcheckAutoSpellcheck - Call hCloseDocument -endcase - -'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- - -testcase tiToolsThesaurus - if not gOOO then ' Thesaurus doesn't work in OOo builds. - - dim sFileName as String - - call hSetSpellHypLanguage - if (gApplication = "IMPRESS") then - sFileName = (ConvertPath (gTesttoolPath + "graphics\required\input\engtext.odp")) - else - sFileName = (ConvertPath (gTesttoolPath + "graphics\required\input\engtext.odg")) - end if - if FileExists ( sFileName ) = FALSE then - warnlog "The language-file was not found or accessible! The test ends." - goto endsub - end if - Call hFileOpen (sFileName) - sleep (2) - - hTypeKeys "<TAB><RETURN>" - hTypeKeys "<END><SHIFT HOME>" - - ' Call hTextrahmenErstellen ("SimpleTest" + "<Mod1 Shift left>", 10, 10, 30, 40) - try - ExtrasThesaurusDraw - Kontext "Thesaurus" - Call DialogTest ( Thesaurus ) - Sprache.Click - Kontext "SpracheAuswaehlen" - Call DialogTest ( SpracheAuswaehlen ) - SpracheAuswaehlen.cancel - Kontext "Thesaurus" - Nachschlagen.Click - kontext - if Messagebox.exists (5) then - printlog "Messagebox: word not in thesaurus: '"+Messagebox.gettext+"'" - Messagebox.ok - end if - sleep 1 - Kontext "Thesaurus" - Thesaurus.Cancel - catch - warnlog "Thesaurus didn't work :-(" - endcatch - sleep 1 - Call hCloseDocument - else goto endsub - endif -endcase - -'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- - -testcase tiToolsHyphenation - Call hNewDocument - ToolsLanguageHyphenationDraw - WaitSlot (2000) 'sleep 2 - ToolsLanguageHyphenationDraw - Call hCloseDocument -endcase - -testcase tiToolsAutoCorrect - dim iLanguage as integer ' for resetting the language - Call hNewDocument - WaitSlot (1000) 'sleep 1 - ToolsAutocorrect - WaitSlot (2000) 'sleep 1 - Kontext - Messagebox.SetPage TabErsetzung - Kontext "TabErsetzung" - Call DialogTest ( TabErsetzung ) - iLanguage = WelcheSprache.GetSelIndex - WelcheSprache.Select 1 ' select language with empty list - Kuerzel.SetText "a" - ErsetzenDurch.SetText "b" - Neu.Click - sleep 1 - Loeschen.Click - sleep 1 - try - Loeschen.Click - catch - printlog "ok was CRASH before" '# - endcatch - WelcheSprache.select (iLanguage) - Kontext - Messagebox.SetPage TabAusnahmen - Kontext "TabAusnahmen" - Call DialogTest ( TabAusnahmen ) - Abkuerzungen.settext "Lala" - AbkuerzungenNeu.click - AbkuerzungenLoeschen.click - Woerter.settext "LALA" - WoerterAutomatisch.Check - WoerterNeu.click - WoerterLoeschen.click - WoerterAutomatisch.UnCheck - Kontext - Messagebox.SetPage TabOptionen - Kontext "TabOptionen" - Call DialogTest ( TabOptionen ) - Kontext - Messagebox.SetPage TabLocalizedOptions - Kontext "TabLocalizedOptions" ' 1a - SingleQuotesReplace.Check - SingleQuotesStart.Click - Kontext "Sonderzeichen" - Call DialogTest ( Sonderzeichen, 1 ) - Sonderzeichen.Cancel - Kontext "TabLocalizedOptions" ' 1b - SingleQuotesEnd.Click - Kontext "Sonderzeichen" - Call DialogTest ( Sonderzeichen, 2 ) - Sonderzeichen.Cancel - Kontext "TabLocalizedOptions" ' 1s - SingleQuotesDefault.Click - - Kontext "TabLocalizedOptions" ' 2a - DoubleQuotesStart.Click - Kontext "Sonderzeichen" - Call DialogTest ( Sonderzeichen, 3 ) - Sonderzeichen.Cancel - Kontext "TabLocalizedOptions" ' 2b - DoubleQuotesEnd.Click - Kontext "Sonderzeichen" - Call DialogTest ( Sonderzeichen, 4 ) - Sonderzeichen.Cancel - Kontext "TabLocalizedOptions" ' 2s - DoubleQuotesDefault.Click - SingleQuotesReplace.UnCheck - TabLocalizedOptions.cancel - Call hCloseDocument -endcase - -'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- - -testcase tChineseTranslation - - qaerrorlog( "#i89634# - Chinese Translation dialog does not close" ) - goto endsub - - dim sFileName as string - dim bSavedAsianSupport as boolean - - if uCase(gApplication) = "IMPRESS" then - sFileName = "graphics\required\input\tchinese.odp" - else - sFileName = "graphics\required\input\tchinese.odg" - end if - - Call hNewDocument - WaitSlot (2000) 'sleep 1 - bSavedAsianSupport = ActiveDeactivateAsianSupport(TRUE) - Call hFileOpen ( ConvertPath(gTesttoolPath + sFileName) ) - sleep (2) - Kontext "Standardbar" - if Bearbeiten.GetState(2) <> 1 then - Bearbeiten.Click '0 = not pressed. 1 = pressed. - Kontext - if Active.Exists(1) then - Active.Yes - else - warnlog "No messagebox after making document editable? - Test canceled here" - goto endsub - end if - end if - if uCase(gApplication) = "IMPRESS" then - Kontext "DocumentImpress" - else - Kontext "DocumentDraw" - end if - EditSelectAll - hTypeKeys "<RETURN>" - hTypeKeys "<MOD1 HOME><RIGHT><RIGHT><SHIFT RIGHT RIGHT>" - ToolsChineseTranslation - WaitSlot (2000) 'sleep 1 - kontext "ChineseTranslation" - Call DialogTest ( ChineseTranslation ) - EditTerms.Click - kontext "ChineseDictionary" - Call DialogTest ( ChineseDictionary ) - ChineseDictionary.Ok - kontext "ChineseTranslation" - ChineseTranslation.OK - kontext - if Messagebox.exists (5) then - printlog "Messagebox: "+Messagebox.gettext+"'" - Messagebox.ok - end if - ActiveDeactivateAsianSupport(bSavedAsianSupport) - Call hCloseDocument -endcase - -'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- - -testcase tiToolsMacro - Call hNewDocument - WaitSlot (2000) 'sleep 2 - ToolsMacro - Kontext "Makro" - Call DialogTest ( Makro ) - Verwalten.Click - - Kontext - Messagebox.SetPage TabModule - Kontext "TabModule" - Call DialogTest ( TabModule ) - - Kontext - Messagebox.SetPage TabBibliotheken - Kontext "TabBibliotheken" - Call DialogTest ( TabBibliotheken ) - Hinzufuegen.Click - Kontext "Messagebox" - if Messagebox.Exists (5) then - if Messagebox.GetRT = 304 then - Warnlog Messagebox.Gettext - Messagebox.Ok - end if - end if - Kontext "OeffnenDlg" - OeffnenDlg.Cancel - Kontext "TabBibliotheken" - Neu.Click - kontext "NeueBibliothek" - sleep 1 'Bibliotheksname - NeueBibliothek.cancel - Kontext "TabBibliotheken" - TabBibliotheken.Close - - Kontext "Makro" - Makro.Cancel - Call hCloseDocument -endcase - -'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- - -testcase tiToolsGallery - Call hNewDocument - ToolsGallery - WaitSlot (2000) 'sleep 1 - ToolsGallery - Call hCloseDocument -endcase - -'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- - -testcase tiToolsEyedropper - Call hNewDocument - ToolsEyedropper - Kontext "Pipette" - Call DialogTest (Pipette) - Pipette.Close - sleep 1 - Call hCloseDocument -endcase - -'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- - -testcase tiToolsOptions - Call hNewDocument - ToolsOptions - WaitSlot (2000) 'sleep 1 - kontext "OptionenDlg" - OptionenDlg.Close - Call hCloseDocument -endcase - -'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- diff --git a/testautomation/graphics/optional/includes/global/id_007.inc b/testautomation/graphics/optional/includes/global/id_007.inc deleted file mode 100644 index bbc870953..000000000 --- a/testautomation/graphics/optional/includes/global/id_007.inc +++ /dev/null @@ -1,426 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : -'* -'*********************************************************************************** -' #1 tdModifyFlipVertikal -' #1 tdModifyFlipHorizontal -' #1 tdContextConvertIntoCurve -' #1 tdContextConvertIntoPolygon -' #1 tdContextConvertIntoContour -' #1 tdContextConvertInto3D -' #1 tdContextConvertIntoRotationObject -' #1 tdContextConvertIntoBitmap -' #1 tdContextConvertIntoMetaFile -' #1 tdModifyArrange -' #1 tdModifyArrangeObjects -' #1 tdModifyAlignment -' #1 tdContextDistribution -' #1 tdContextDescriptionObject -' #1 tdContextNameObject -' #1 tdModifyConnectBreak -' #1 tdModifyShapes -' #1 tdModifyCombineSplit -'\********************************************************************************** - -testcase tdModifyFlipVertikal - - Call hNewDocument ' imp: contextmenue same SID! - sleep 1 - Call hRechteckErstellen ( 10, 10, 20, 40 ) - try - ContextFlipVerticalDraw - Printlog "- Flip-vertical is working" - catch - Warnlog "- Flip-Vertical does not work" - endcatch - sleep 1 - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdModifyFlipHorizontal - Call hNewDocument ' imp: contextmenue same SID! - WaitSlot (1000) - Call hRechteckErstellen ( 10, 10, 20, 40 ) - try - ContextFlipHorizontalDraw - Printlog "- Flip-horizontal is working" - catch - Warnlog "- Flip-horizontal does not work" - endcatch - sleep 1 - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdContextConvertIntoCurve - Call hNewDocument - Call hRechteckErstellen ( 10, 10, 20, 40 ) - ContextConvertIntoCurve - WaitSlot (2000) - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdContextConvertIntoPolygon - dim iWaitIndex as integer - Call hNewDocument ' imp: contextmenue same SID! - InsertGraphicsFromFile - Kontext "GrafikEinfuegenDlg" - iWaitIndex = 0 - do while NOT GrafikEinfuegenDlg.Exists AND iWaitIndex < 10 - sleep(1) - iWaitIndex = iWaitIndex + 1 - loop - if NOT GrafikEinfuegenDlg.Exists AND iWaitIndex = 10 then - warnlog "Dialogue Insert Graphics didnt work. Ending testcase." - Call hCloseDocument - goto endsub - end if - Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp") - Oeffnen.Click - sleep 3 - ContextConvertIntoPolygon - Kontext "InPolygonUmwandeln" - Call DialogTest (InPolygonUmwandeln) - LoecherFuellen.Check - Farbanzahl.More - Punktreduktion.More - Kachelgroesse.More - Vorschau.Click - sleep 10 - InPolygonUmwandeln.Cancel - sleep (2) - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdContextConvertIntoContour - Call hNewDocument - Call hRechteckErstellen ( 10, 10, 20, 40 ) - ContextConvertIntoContour - WaitSlot (1000) - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdContextConvertInto3D - Call hNewDocument - Call hRechteckErstellen ( 10, 10, 20, 40 ) - ContextConvertInto3D - WaitSlot (1000) - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdContextConvertIntoRotationObject - Call hNewDocument - WaitSlot (1000) - Call hRechteckErstellen (20,20,50,50) - sleep 2 - ContextConvertInto3DRotationObject - WaitSlot (1000) - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdContextConvertIntoBitmap - Call hNewDocument - WaitSlot (3000) - InsertGraphicsFromFile - WaitSlot (3000) - Kontext "GrafikEinfuegenDlg" - sleep 2 - Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf") - sleep 2 - Oeffnen.Click - sleep 2 - try - ContextConvertIntoBitmap - Printlog "- Convert into bitmap is working" - catch - Warnlog "- Convert into bitmap does not work" - endcatch - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdContextConvertIntoMetaFile - Call hNewDocument - WaitSlot (3000) - InsertGraphicsFromFile - WaitSlot (1000) - kontext "Messagebox" - if Messagebox.Exists (5) Then Messagebox.OK - sleep 1 - Kontext "GrafikEinfuegenDlg" - sleep 2 - Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp") - sleep 2 - Preview.Click - sleep 3 - Oeffnen.Click - sleep 5 - try - ContextConvertIntoMetafile - Printlog "- convert into meta file does work" - catch - Warnlog "- convert into meta file does not work" - endcatch - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdModifyArrange - Call hNewDocument - Call hRechteckErstellen ( 10, 10, 20, 40 ) - hTypeKeys("<escape>") - Call hRechteckErstellen ( 30, 30, 50, 60 ) - FormatArrangeBringToFront - WaitSlot (1000) - ContextArrangeBringForward - WaitSlot (1000) - ContextArrangeBringBackward - WaitSlot (1000) - FormatArrangeSendToBack - WaitSlot (1000) - EditSelectAll - ContextArrangeReverse - WaitSlot (1000) - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdModifyArrangeObjects - Call hNewDocument - WaitSlot (1000) - Call hRechteckErstellen ( 20, 20, 30, 50 ) - hTypeKeys("<escape>") - Call hRechteckErstellen ( 30,30,50,50 ) - ContextArrangeInFrontOfObject - gMouseClick 11,11 - ContextArrangeBehindObject - gMouseClick 45,45 - sleep 1 - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdModifyAlignment - Call hNewDocument - WaitSlot (1000) - Call hRechteckErstellen ( 20, 20, 30, 50 ) - ContextAlignmentLeft - WaitSlot (1000) - ContextAlignmentCentered - WaitSlot (1000) - ContextAlignmentRight - WaitSlot (1000) - ContextAlignmentTop - WaitSlot (1000) - ContextAlignmentBottom - WaitSlot (1000) - ContextAlignmentCenter - WaitSlot (1000) - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdContextDistribution - Call hNewDocument - WaitSlot (3000) - Call hRechteckErstellen (20,20,30,30) - Call hRechteckErstellen (40,40,50,50) - Call hRechteckErstellen (60,60,70,70) - sleep 1 - EditSelectAll - sleep 1 - ContextDistribution - Kontext "VerteilenDlg" - sleep 1 - Call DialogTest (VerteilenDlg) - sleep 1 - Links.Check - MitteHorizontal.Check - AbstandHorizontal.Check - Rechts.Check - KeineHorizontal.Check - Oben.Check - MitteVertikal.Check - AbstandVertikal.Check - Unten.Check - KeineVertikal.Check - VerteilenDlg.Cancel - sleep 2 - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdContextDescriptionObject - Call hNewDocument - WaitSlot (1000) - Call hRechteckErstellen ( 10, 10, 20, 40 ) - ContextDescriptionObject - Kontext "DescriptionObject" - Call DialogTest (DescriptionObject) - DescriptionObject.Cancel - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdContextNameObject - Call hNewDocument - WaitSlot (1000) - Call hRechteckErstellen ( 20, 20, 30, 50 ) - hTypeKeys("<escape>") - Call hRechteckErstellen ( 30, 40, 50, 60 ) - sleep 1 - gMouseMove 1,1,95,95 - sleep 1 - FormatGroupGroup - WaitSlot (1000) - ContextNameObject - Kontext "NameDlgObject" - Call DialogTest (NameDlgObject) - NameDlgObject.Cancel - FormatUngroupDraw - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdModifyConnectBreak - Call hNewDocument - sleep 1 - Call hRechteckErstellen (10,10,30,30) - Call hRechteckErstellen (35,35,50,50) - sleep 1 - EditSelectAll - ContextConnect - sleep 1 - try - ContextBreak - catch - Warnlog "- Modify-Break does not work" - endcatch - sleep 1 - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdModifyShapes - Call hNewDocument - sleep 1 - gMouseClick 50,50 - Call hRechteckErstellen (30,30,50,50) - Call hRechteckErstellen (60,60,80,80) - sleep 1 - EditSelectAll - sleep 1 - try - ModifyShapesMerge ' 1 - WaitSlot (1000) 'sleep 1 - Printlog "- Modify-Shape merge is working" - catch - Warnlog "- Modify-shape merge is not working" - endcatch - EditSelectAll - sleep 1 - hTypeKeys "<DELETE>" - sleep 1 - Call hRechteckErstellen (30,30,50,50) - Call hRechteckErstellen (60,60,80,80) - sleep 1 - EditSelectAll - sleep 1 - try - ModifyShapesSubstract ' 2 - Printlog "- Modify-shape-substract is working" - catch - Warnlog "- Modify-shape substract is not working" - endcatch - sleep 1 - EditSelectAll - sleep 1 - hTypeKeys "<DELETE>" - sleep 1 - Call hRechteckErstellen (30,30,50,50) - sleep 1 - Call hRechteckErstellen (60,60,80,80) - sleep 1 - EditSelectall - sleep 1 - try - ModifyShapesIntersect ' 3 - Printlog "- Modify-shape intersect is working" - catch - Warnlog "- Modify-Shape intersect is not working" - endcatch - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ - -testcase tdModifyCombineSplit - Call hNewDocument - sleep 1 - Call hRechteckErstellen (30,30,50,50) - Call hRechteckErstellen (60,60,80,80) - sleep 1 - EditSelectAll - sleep 1 - try - ContextCombine - Printlog "- Modify combine is working" - ContextSplit - Printlog "- Modify-split is working" - catch - Warnlog "- Modify-combine and split are not working" - endcatch - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------ diff --git a/testautomation/graphics/optional/includes/global/id_008.inc b/testautomation/graphics/optional/includes/global/id_008.inc deleted file mode 100644 index 654cae0f0..000000000 --- a/testautomation/graphics/optional/includes/global/id_008.inc +++ /dev/null @@ -1,71 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : -'* -'****************************************************************** -' #1 tiWindowNewWindow -' #1 tidWindow123 'wrn:2 -'\***************************************************************** - -testcase tiWindowNewWindow - - Call hNewDocument - Call hRechteckErstellen ( 10, 10, 20, 40 ) - WindowNewWindow - WaitSlot (2000) - Call hCloseDocument -endcase - -testcase tidWindow123 - goto endsub '' testing TBO: 29.03.2002 - dim iMenues as integer - Call hNewDocument - Call hRechteckErstellen ( 10, 10, 20, 40 ) - - Kontext "DocumentImpress" - DocumentImpress.UseMenu - iMenues = MenuGetItemCount - warnlog "---- Number of Main menus: " & iMenues - MenuSelect(Menugetitemid(8)) - sleep 1 - iMenues = MenuGetItemCount - printlog "---- Number of Main menus: " & iMenues - ' MenuSelect(Menugetitemid(14)) - sleep 1 - i=1 - printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";" - i=2 - printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";" - warnlog "Dynamic entries not accessible ? :-(((((" - ' i=3 - ' printlog "count: " + i + "; of submenue: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";" - Call hCloseDocument -endcase - diff --git a/testautomation/graphics/optional/includes/global/id_009.inc b/testautomation/graphics/optional/includes/global/id_009.inc deleted file mode 100644 index 7096a1a86..000000000 --- a/testautomation/graphics/optional/includes/global/id_009.inc +++ /dev/null @@ -1,243 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : Testcases to test the Help-Menu. -'* -'*********************************************************************************** -' #1 tmHelpHelpAgent -' #1 tmHelpTips -' #1 tmHelpExtendedTips -' #1 tmHelpAboutStarOffice -' #1 tmHelpContents -' #1 tCheckIfTheHelpExists -'\********************************************************************************** -' -testcase tmHelpHelpAgent - - Call hNewDocument - - hTBOtypeInDoc - - HelpHelpAgent ' it's just a switch - sleep 2 - HelpHelpAgent - - Call hCloseDocument -endcase - -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... - -testcase tmHelpTips - Call hNewDocument - hTBOtypeInDoc - - HelpTips - Sleep 2 - HelpTips - - Call hCloseDocument -endcase - -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... - -testcase tmHelpExtendedTips - Call hNewDocument - hTBOtypeInDoc - - HelpEntendedHelp - Sleep (2) - HelpEntendedHelp - - Call hCloseDocument -endcase - -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... - -testcase tmHelpAboutStarOffice - Call hNewDocument - hTBOtypeInDoc - - HelpAboutStarOffice - Kontext "UeberStarMath" - DialogTest (UeberStarMath) - UeberStarMath.OK - - Call hCloseDocument -endcase - -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... - -testcase tmHelpContents - goto endsub '"#i84486# - tmHelpContents outcommented due to crash." - dim i as integer - - Call hNewDocument - HelpContents - sleep(8) - kontext "StarOfficeHelp" - if Not StarOfficeHelp.Exists then - Warnlog "Help is not up!" - else - Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'" - '################ left half ################ - TabControl.SetPage ContentPage - Printlog "SearchContent: '" + SearchContent.GetItemCount + "'" - TabControl.SetPage IndexPage - Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'" - sleep 5 - DisplayIndex.Click - sleep 5 - TabControl.SetPage FindPage - Printlog "SearchFind: '" + SearchFind.GetItemCount + "'" - if SearchFind.GetSelText = "" then - if FindButton.IsEnabled then - warnlog " The Find-Button should have been inactive, but was active." - endif - else - warnlog " The Search-Text-Field shouldn't contain any text. But contained: " + SearchFind.GetSelText - endif - SearchFind.SetText "Doobbidedooo" - FindButton.Click - kontext - if (active.exists (2) )then - Printlog "active came up: '" + active.gettext + "'" - active.ok - endif - kontext "StarOfficeHelp" - FindFullWords.Check - FindInHeadingsOnly.Check - Printlog "Result: '" + Result.GetItemCount + "'" - DisplayFind.Click - TabControl.SetPage BookmarksPage - Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'" - DisplayBookmarks.Click - '################ right half ################ - '################ toolbar ################ - Kontext "TB_Help" - Index.Click - sleep 1 - Index.Click - sleep 1 - GoToStart.Click - sleep 1 - Backward.Click - sleep 1 - Forward.Click - sleep 1 - PrintButton.Click - sleep (1) - - kontext "Active" - if Active.Exists( 2 ) then - qaerrorlog "No default printer defined: " & Active.GetText - Active.Ok - end if - - kontext "Printing" - if Printing.Exists( 2 ) then - Printing.cancel - else - warnlog "the Print-Dialogue didnt appear." - end if - Kontext "TB_Help" - sleep 1 - SetBookmarks.Click - sleep 1 - Kontext "AddBookmark" - Printlog "Bookmarkname: '" + Bookmarkname.GetText + "'" - AddBookmark.Cancel - sleep 1 - '################ help display ################ - kontext "HelpContent" - HelpContent.OpenContextMenu - - sleep 1 - Printlog " i: " + hMenuItemGetCount - hMenuClose() - '################ right scroolbar ################ - kontext "HelpContent" - if HelpContentUP.IsVisible then - HelpContentUP.Click - sleep 1 - endif - if HelpContentNAVIGATION.IsVisible then - HelpContentNAVIGATION.Click - sleep 1 - endif - kontext "NavigationsFenster" - NavigationsFenster.Close - sleep 1 - kontext "HelpContent" - if HelpContentDOWN.IsVisible then - HelpContentDOWN.Click - sleep 1 - endif - kontext "StarOfficeHelp" - Printlog "trying to close the help now" - try - StarOfficeHelp.TypeKeys "<Mod1 F4>" ' strg F4 supported since bug #103586# - catch - Warnlog "failed to close the help window :-(" - endcatch - kontext "StarOfficeHelp" - if StarOfficeHelp.Exists then - warnlog "Help still up!" - endif - endif - Call hCloseDocument -endcase - -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... - -testcase tCheckIfTheHelpExists - Call hNewDocument - HelpContents - kontext "HelpContent" - sleep (5) - HelpContent.TypeKeys "<MOD1 A>" - sleep (1) - HelpContent.TypeKeys "<MOD1 C>" - if GetClipBoard = "" then - Warnlog " No content in the Help-Content -view." - else - Printlog " The Help-Content -view contained content. Good." - endif - kontext "StarOfficeHelp" - try - StarOfficeHelp.TypeKeys "<MOD1 F4>" - catch - Warnlog " Failed to close the help window :-(" - endcatch - kontext "StarOfficeHelp" - if StarOfficeHelp.Exists then - warnlog "Help was still visible!" - endif - hTypeKeys "." - Call hCloseDocument -endcase 'tCheckIfTheHelpExists diff --git a/testautomation/graphics/optional/includes/global/id_011.inc b/testautomation/graphics/optional/includes/global/id_011.inc deleted file mode 100644 index b1880d098..000000000 --- a/testautomation/graphics/optional/includes/global/id_011.inc +++ /dev/null @@ -1,995 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'******************************************************************************* -' 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 : wolfram.garten@oracle.com -'* -'* short description : -'* -'\****************************************************************************** - -testcase tiTextToolbar - - Dim iWaitIndex as integer - Dim Zufall as integer - Dim i as integer - - Call hNewDocument - - hTextrahmenErstellen ("This is a Text, which will be formatted in several ways", 20,20,40,80) - sleep 2 - EditSelectAll - sleep 2 - Kontext "TextObjectbar" - if TextObjectbar.Exists <> TRUE then 'isVisible - ViewToolbarsTextFormatting - endif - WaitSlot (3000) 'sleep (3) - Kontext "TextObjectbar" - Printlog "- choose random font" - randomize - Zufall=((2*Rnd)+1) ' wird nicht auf den verfuegbaren bereich getreckt :-( TODO TBO! - Schriftart.GetItemcount - Schriftart.GetSelText - Schriftart.Select (Zufall) - Printlog Schriftart.GetSelText + " chosen" - - Kontext "TextObjectbar" - sleep 2 - Printlog "- Change size of font" - Schriftgroesse.Select (Zufall) - Printlog Schriftgroesse.GetSelText + " chosen" - - Kontext "TextObjectbar" - Printlog "- Font attribute bold" - Fett.Click - sleep 2 - - Kontext "TextObjectbar" - Printlog "- Font attribute cursive" - Kursiv.Click - sleep 2 - - Kontext "TextObjectbar" - Printlog "- Font attribute cursiv" - Unterstrichen.Click - sleep 2 - - Kontext "TextObjectbar" - Printlog "- font attribute color" - sleep 3 - FontColorGraphics.TearOff - Kontext "TB_Farbe" - TB_Farbe.Move 20, 20 - Sleep 2 - TB_Farbe.MouseDoubleClick 50, 50 - Sleep 2 - TB_Farbe.Close - - Kontext "TextObjectbar" - Printlog "- Allign text left" - Linksbuendig.Click - sleep 2 - - Kontext "TextObjectbar" - Printlog "- Allign text centered" - Zentriert.Click - sleep 2 - - Kontext "TextObjectbar" - Printlog "- align text to right" - Rechtsbuendig.Click - sleep 2 - - Kontext "TextObjectbar" - Printlog "- Justified" - Blocksatz.Click - sleep 2 - - Kontext "TextObjectbar" - if TextObjectbar.isEnabled <> TRUE then - warnlog "Couldn't access TextObjectbar - known bug with bars - FHA" - ViewToolbarsTextFormatting - endif - WaitSlot (2000) 'sleep 2 - Printlog "- Raising Font spacing" - - kontext "TextObjectbar" - sleep 1 - iWaitIndex = 0 - do while NOT TextObjectbar.isEnabled AND iWaitIndex < 10 - sleep(1) - iWaitIndex = iWaitIndex + 1 - loop - if NOT TextObjectbar.isEnabled AND iWaitIndex = 10 then - warnlog "Dialogue TextObjectbar didnt work. Ending testcase." - Call hCloseDocument - goto endsub - endif - TextObjectbar.OpenContextMenu - sleep 2 - hMenuselectNr (1) - sleep 2 - hMenuItemCheck (13) - sleep 2 - TextObjectbar.OpenContextMenu - sleep 2 - hMenuselectNr (1) - sleep 2 - hMenuItemCheck (14) - sleep 2 - ZeilenabstandErhoehen.Click - sleep 2 - - Kontext "TextObjectbar" - Printlog "- Decrease Spacing" - ZeilenabstandVerringern.Click - sleep 2 - - Kontext "TextObjectbar" - Printlog "- Numbering and Bullets" - sleep 2 - BulletsOnOff.Click - sleep 2 - BulletsOnOff.Click - - Kontext "TextObjectBar" - Printlog "- Increase Font /Reduce Font" - sleep 2 - printlog "Click on Increase Font" - IncreaseFont.Click - sleep 2 - printlog "Click on Reduce Font" - ReduceFont.Click - - Kontext "TextObjectbar" - Printlog "- Text direction from left to right" - sleep 2 - Printlog "- click button 'Text direction from left to right - try - TextdirectionLeftToRight.Click - printlog "hor does work :-)" - if (NOT gAsianSup) then - warnlog " this doesn't have to work if asian lang support is disabled :-)" - endif - catch - if (gAsianSup) then - warnlog "hor does NOT work :-(" - endif - endcatch - Printlog "- click button 'Text direction from top to bottom" - try - TextdirectionTopToBottom.Click - printlog "ver does work :-)" - if (gAsianSup = FALSE) then - warnlog " this doesnt have to work if asian lang support is disabled :-)" - endif - catch - if (gAsianSup = TRUE) then - warnlog "ver does NOT work :-( , AsianLanguage support is enabled !" - endif - endcatch - - Printlog "- open character dialog" - Kontext "TextObjectbar" - sleep 2 - Zeichenformat.Click - sleep 2 - - Kontext - Active.SetPage TabFont - - Kontext "TabFont" - sleep 2 - if TabFont.Exists Then - TabFont.Cancel - Printlog "- Tabfont exists" - else - Warnlog "- No dialog exists " - endif - - Kontext "TextObjectbar" - sleep 2 - Printlog "- call properties for paragraph using text object toolbar" - Absatzformat.Click - sleep 2 - - Kontext - Active.SetPage TabTabulator - - Kontext "TabTabulator" - if TabTabulator.Exists Then - Printlog "- TabTabulator exists" - TabTabulator.Cancel - else - Warnlog "- TabTabulator does not exist" - endif - - if ( gApplication = "IMPRESS" ) then ' IMPRESS only - - Kontext "TextObjectbar" - OutlineBullet.Click - kontext - if active.exists (5) then - messagebox.SetPage TabOptionenNumerierung - - kontext "TabOptionenNumerierung" - if (TabOptionenNumerierung.exists (5) ) then - Printlog "Numbering/Bullets window came up :-)" - TabOptionenNumerierung.cancel - else - warnlog "no Numbering/Bullets window came up :-(" - endif - else - warnlog "no Numbering/Bullets window came up :-( 2" - endif - - Printlog "-change order of outline points" - sleep 3 - ViewWorkspaceOutlineView - WaitSlot (2000) 'sleep (3) - - Kontext "DocumentImpressOutlineView" - sleep 1 - DocumentImpressOutlineView.TypeKeys "Bla bla bla <RETURN><TAB>bla bla bla bla bla <MOD1 SHIFT LEFT>" - sleep 1 - - Kontext "TextObjectbar" - HierachieRunter.Click - sleep 1 - Printlog "- Move back down" - HierachieHoch.Click - sleep 1 - HierachieHoch.Click - sleep 1 - Printlog "- Move paragraph up" - AbsatzHoch.Click - sleep 1 - Printlog "- move paragraph back down and switch to drawing view" - AbsatzRunter.Click - sleep 1 - - Kontext "Vorschau" - if Vorschau.Exists then - printlog "- - - - preview window is open, hope there is no problem" - ' Vorschau.Close - endif - - else ' DRAW only - Kontext "TextObjectbar" - Printlog "- Double" - LineSpacing2.Click - sleep 2 - - Kontext "TextObjectbar" - Printlog "- 1.5 lines" - LineSpacing15.Click - sleep 2 - - Kontext "TextObjectbar" - Printlog "- Single" - LineSpacing1.Click - sleep 2 - endif - - iWaitIndex = 0 - - Kontext "TextObjectbar" - do while TextObjectbar.isEnabled = FALSE AND iWaitIndex < 10 - sleep(1) - iWaitIndex = iWaitIndex + 1 - loop - if TextObjectbar.isEnabled = FALSE AND iWaitIndex = 10 then - warnlog "Dialogue TextObjectbar didnt work. Ending testcase." - Call hCloseDocument - goto endsub - endif - sleep 2 - - Kontext "TextObjectbar" - TextObjectbar.OpenContextMenu - sleep 2 - hMenuselectNr (1) - sleep 2 - hMenuItemUnCheck (13) - sleep 2 - TextObjectbar.OpenContextMenu - sleep 2 - hMenuselectNr (1) - sleep 2 - hMenuItemUnCheck (14) - sleep 2 - ViewToolbarsTextFormatting - WaitSlot (2000) 'sleep 1 - if ( gApplication = "IMPRESS" ) then - Kontext "DocumentImpressOutlineView" - DocumentImpressOutlineView.TypeKeys "<ESCAPE>" - hUseAsyncSlot( "EditSelectAll" ) - DocumentImpressOutlineView.TypeKeys "<DELETE>" - sleep (3) - ViewWorkspaceDrawingView - - Kontext "DocumentImpress" - WaitSlot (2000) 'sleep 1 - DocumentImpress.TypeKeys "<ESCAPE>" - hUseAsyncSlot( "EditSelectAll" ) - DocumentImpress.TypeKeys "<DELETE>" - else - Kontext "DocumentDraw" - DocumentDraw.TypeKeys "<ESCAPE>" - hUseAsyncSlot( "EditSelectAll" ) - DocumentDraw.TypeKeys "<DELETE>" - endif - Printlog "Test ended." - - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------' - -testcase tiDrawObjectBar - Dim a as string - Dim Zaehler as integer - Dim i as integer - Dim x as integer - - Call hNewDocument - - Call hRechteckErstellen (20,20,70,70) - sleep 1 - '--------------------------- format line ------------------------ - Printlog "- call format line using graphic object toolbar" - Kontext "DrawingObjectbar" - if DrawingObjectbar.Exists = FALSE then - ViewToolbarsGraphic - endif - if DrawingObjectbar.Exists = FALSE then - warnlog "Drawing-Objectbar should have been opened, but wasnt" - ViewToolbarsGraphic - endif - - sleep 3 - Linie.Click - sleep 2 - Kontext - Active.SetPage TabLinie - Kontext "TabLinie" - if TabLinie.Exists Then - TabLinie.Cancel - Printlog "- TabLinie exists " - else - Warnlog "- TabLinie does not exist" - endif - - '--------------------------- Linienendenstil -------------------- - Printlog "- Style of line ends" - Kontext "DrawingObjectbar" - sleep 1 - Linienendenstil.TearOff - sleep 2 - Kontext "Linienenden" - if Linienenden.Exists Then - Printlog "- dialog exists" - Linienenden.Close - else - Warnlog "- Arrowheads does not exist" - endif - - '--------------------------- Linienstil ------------------------- - Printlog "- choose style of lines using graphic object toolbar" - - Kontext "DrawingObjectbar" - sleep 1 - Linienstil.Select 2 - Printlog Linienstil.GetSelText + " chosen" - Linienstil.Select Linienstil.GetItemCount - Printlog Linienstil.GetSelText + " chosen" - sleep 2 - - '--------------------------- Linienbreite------------------------ - Printlog "- check style of lines using graphic object toolbar" - Kontext "DrawingObjectbar" - sleep 1 - a = Linienbreite.GetText - SetClipboard a - sleep 1 - Linienbreite.SetText "0,5" - sleep 2 - if Linienbreite.GetText = a Then - Warnlog "- changes in edit field did not happen; is: '"+Linienbreite.GetText+"', should be : '"+"0,5"+"'" - else - Printlog "- Width of lines changed" - endif - - '--------------------------- Linienfarbe ------------------------ - Printlog "- change line color" - Kontext "DrawingObjectbar" - sleep 1 - Zaehler = Linienfarbe.GetItemCount - randomize - i = Int(Zaehler*Rnd+1) - Linienfarbe.Select i - Printlog Linienfarbe.GetSelText + " chosen" - - '--------------------------- Flaechenformatierung --------------- - Printlog "- Call Format area using graphic object toolbar" - Kontext "DrawingObjectbar" - sleep 1 - try - Flaeche.Click - catch - printlog "clicking on area took ages :-(" - endcatch - sleep 5 - Kontext - Active.SetPage TabArea - Kontext "TabArea" - if TabArea.Exists Then - Printlog "- TabArea exists " - TabArea.Cancel - else - Warnlog "- TabArea does not exist" - endif - - '--- - sleep 1 - Kontext "DrawingObjectbar" - sleep 1 - x = AreaStyle.GetItemCount - i = 1 - for i = i to x - AreaStyle.Select i - Printlog "Area Style: (" + i + "/" + x + ") - " + AreaStyle.GetSelText - sleep 1 - if AreaStyle.GetSelIndex > 1 then - Printlog " Area Filling " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetItemCount - if (i <> 1) AND (AreaFilling.GetItemCount <> 0) then - if (AreaFilling.GetSelIndex = 0) AND (AreaFilling.GetItemCount > 0) then - printlog "default item is 0 => means nothing; NO BUG! 100909" - endif - AreaFilling.Select (AreaFilling.GetItemCount) - Printlog " Selected: " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetSelText - endif - endif - next i - - '---------------------------- Schatten -------------------------- - Printlog "- Assign shadow using graphic object toolbar" - Kontext "DrawingObjectbar" - sleep 1 - Schatten.Click - sleep 1 - Printlog "- shadow assigned" - - '---------------------------- Praesentationsflyer --------------- - if ( gApplication = "IMPRESS" ) then ' IMPRESS only - Printlog "- Call presentation flyer" - Kontext "CommonTaskbar" ' first check , if presentation flyer is up! if not -> make it up :-) - if CommonTaskbar.Exists Then - printlog "- flyer is already visible :-)" - else - printlog "- flyer wasn't visible :-( -will be now!" - Kontext "DrawingObjectbar" - sleep 1 - ViewToolbarsPresentation ' put it up again! - endif - endif - if ((UCase(gApplication)) = "IMPRESS") then ' IMPRESS only - Kontext "DrawingObjectbar" - if DrawingObjectbar.isVisible = FALSE then - ViewToolbarsGraphic - endif - endif - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------' - -testcase tiGraphicsObjectBar - dim i as integer - Call hNewDocument - - hGrafikeinfuegen ConvertPath (gTesttoolPath & "global\input\graf_inp\desp.bmp") - sleep 1 - Kontext "GraphicObjectbar" - if ( NOT GraphicObjectbar.Exists() ) then - ViewToolbarsPicture - endif - sleep 1 - Filter.TearOff - sleep 1 - Kontext "GraphicFilterBar" - sleep 1 - Printlog "invert" - Invert.Click - sleep 3 - Printlog "smooth" - Smooth.Click - sleep 3 - Printlog "sharpen" - Sharpen.Click - sleep 3 - Printlog "remove noise" - Remove.Click - sleep 3 - Printlog "solarization" - Solarization.Click - sleep 3 - Kontext "Solarization" - if Solarization.exists (5) then - sleep 1 - Call Dialogtest ( Solarization ) - sleep 1 - Value.More - Value.Less - Invert.Check - Solarization.OK - else - warnlog "solarization didn't came up :-(" - endif - sleep 1 - Kontext "GraphicFilterBar" - sleep 1 - Printlog "aging" - Aging.Click - Kontext "Aging" - sleep 1 - Call Dialogtest ( Aging ) - AgingDegree.More - AgingDegree.Less - sleep 1 - Aging.OK - sleep 1 - Kontext "GraphicFilterBar" - sleep 1 - Printlog "poster" - Posterize.Click - sleep 1 - Kontext "Posterize" - sleep 1 - Call Dialogtest ( Posterize ) - PosterColors.More - PosterColors.Less - sleep 1 - Posterize.OK - sleep 2 - kontext "GraphicFilterBar" - sleep 1 - Printlog "pop" - Art.Click - sleep 3 - Printlog "charcoal" - CharcoalSketch.Click - sleep 3 - Printlog "relief" - Relief.Click - Kontext "Relief" - sleep 1 - Call Dialogtest ( Relief ) - LightSource.TypeKeys "<left><up>" - Relief.OK - sleep 3 - Kontext "GraphicFilterBar" - Printlog "mos" - Mosaic.Click - sleep 1 - Kontext "Mosaic" - sleep 1 - Call Dialogtest ( Mosaic ) - Width.More - Width.Less - Height.More - Height.Less - EnhanceEdges.Check - Mosaic.OK - sleep 3 - Kontext "GraphicFilterBar" - GraphicFilterBar.Close - - Kontext "GraphicObjectbar" - if GraphicObjectbar.Exists = FALSE then - ViewToolbarsPicture - endif - sleep 1 - for i = 1 to Grafikmodus.GetItemCount - Grafikmodus.select i - sleep 1 - next i - - ColorSettings.Click - Kontext "ColorBar" - - try - Rotanteil.More - Rotanteil.Less - catch - warnlog "not working from testtool redvalue "+ rotanteil.GetRT - endcatch - try - Gruenanteil.More - Gruenanteil.Less - catch - warnlog "not working from testtool Greenvalue." - endcatch - try - Blauanteil.More - Blauanteil.Less - catch - warnlog "not working from testtool Bluevalue." - endcatch - try - Helligkeit.More - Helligkeit.Less - catch - warnlog "not working from testtool Brightness." - endcatch - try - Kontrast.More - Kontrast.Less - catch - warnlog "not working from testtool Contrast." - endcatch - try - Gamma.More - Gamma.Less - catch - warnlog "not working from testtool Gamma." - endcatch - - ColorBar.Close - Kontext "GraphicObjectbar" - - try - Transparenz.More - Transparenz.Less - catch - warnlog "Not working from testtool Transparency." - endcatch - - Crop.click - FormatCropPicture - - kontext "TabZuschneiden" - GroesseBeibehalten.Check - MassstabBeibehalten.Check - Links.More - Links.Less - Rechts.More - Rechts.Less - Oben.More - Oben.Less - Unten.More - Unten.Less - MassstabBreite.More - MassstabBreite.Less - MassstabHoehe.More - MassstabHoehe.Less - GroesseBreite.More - GroesseBreite.Less - GroesseHoehe.More - GroesseHoehe.Less - Originalgroesse.Click - TabZuschneiden.Cancel - - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------' - -testcase tiGluepointToolbar - Call hNewDocument - - Call hRechteckErstellen 20,20,40,40 - Call hRechteckErstellen 60,60,80,80 - sleep 2 - ViewToolbarsOptionbar - sleep 2 - - Kontext "Optionsbar" - if Optionsbar.Exists = False Then - ViewToolbarsOptionbar - Kontext "Optionsbar" - if Optionsbar.Exists = False Then - warnlog "Can't open Optionsbar." - endif - endif - sleep 2 - Kontext "Toolbar" - sleep 1 - Verbinder.Click - gMouseMove 30,30,70,70 - sleep 3 - Kontext "Toolbar" - GluePoints.Click - sleep 1 - Kontext "Gluepointsobjectbar" - if Gluepointsobjectbar.Exists = False Then - ViewToolbarsGluepoints - endif - sleep 3 - '-------------------------------------- Klebepunkt einfuegen ---- - try - PunkteEinfuegen.Click - sleep 2 - gMouseClick 25,30 - sleep 1 - gMouseclick 25,30 - Printlog "- insert gluepoint works" - catch - Warnlog "- gluepoint could not be insert. Following errors might have their reason here" - endcatch - sleep 3 - Kontext "Gluepointsobjectbar" - - '-------------------------------------- Links ------------------- - try - Links.Click - Printlog "- gluepoint left works" - catch - Warnlog "- gluepoint left does not work" - endcatch - sleep 1 - '-------------------------------------- Rechts ------------------ - try - Rechts.Click - Printlog "- gluepoint right works" - catch - Warnlog "- gluepoint right does not work" - endcatch - sleep 1 - '-------------------------------------- Oben -------------------- - try - Oben.Click - Printlog "- gluepoint top works" - catch - Warnlog "- gluepoint top does not work" - endcatch - sleep 1 - '-------------------------------------- Unten ------------------- - try - Unten.Click - Printlog "- gluepoint bottom works" - catch - Warnlog "- gluepoint bottom does not work" - endcatch - sleep 1 - '---------------------- Position an Objekt anpassen ------------- - try - PositionAnObjektAnpassen.Click - Printlog "- align position to object works" - gMouseClick 25,30 ' if you don't click onto an existing point, the state changes back :-[ - catch - Warnlog "- align position to object does not work" - endcatch - Kontext "Gluepointsobjectbar" - sleep 1 - '------------------------------------- Horizontal links --------- - if PositionAnObjektAnpassen.exists then - printlog "PositionAnObjektAnpassen = Exists" - endif - if PositionAnObjektAnpassen.GetState(2) <> 0 then - PositionAnObjektAnpassen.Click ' make unpressed! - endif - '0 = not pressed. 1 = pressed. - sleep 2 - try - Kontext "Gluepointsobjectbar" - HorizontalLinks.Click - Printlog "- align horizontal left works" - catch - Warnlog "- align horizontal left does not work" - PositionAnObjektAnpassen.Click ' that's the middle button, it has to be UP/not activated! - for i = 1 to Gluepointsobjectbar.GetItemCount - if (Gluepointsobjectbar.GetState ( i, 0 ) <> 0 ) then ' is no seperator - printlog "----------------------------------------------------------------------" - printlog "helpid : " + Gluepointsobjectbar.Getstate ( i, 0 ) + " number in row: " + i - printlog "itemtype: " + Gluepointsobjectbar.GetState ( i, 1 ) - printlog "state : " + Gluepointsobjectbar.GetState ( i, 2 ) - printlog "----------------------------------------------------------------------" - endif - next i - endcatch - sleep 2 - '------------------------------------- Horizontal rechts -------- - try - HorizontalRechts.Click - Printlog "- Align horizontal right does work" - catch - Warnlog "- Align horizontal right does notwork" - endcatch - sleep 1 - '------------------------------------- Horizontal zentriert ----- - try - HorizontalZentriert.Click - Printlog "- align horizontal center does work" - catch - Warnlog "- align horizontal center does work" - endcatch - sleep 1 - '------------------------------------- Vertikal oben ------------ - try - VertikalOben.Click - sleep 1 - Printlog "- Align vertical top does work" - catch - Warnlog "- Align vertical top does not work" - endcatch - '------------------------------------- Vertikal unten ----------- - try - VertikalUnten.Click - sleep 1 - printlog "- Align vertical bottom does work" - catch - Warnlog "- Align vertical bottom does not work" - endcatch - '------------------------------------- Vertikal zentriert ------- - try - VertikalZentriert.Click - sleep 1 - Printlog "- Align vertical center does work" - catch - Warnlog "- Align vertical center does not work" - endcatch - - Printlog "- End of testing gluepoints" - - ViewToolbarsOptionbar - sleep 2 - Kontext "Optionsbar" - if Optionsbar.Exists Then - warnlog "Couldnt close Optionsbar." - endif - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------' - -testcase tdBezierToolbar - Call hNewDocument - - Call hRechteckErstellen ( 10, 10, 30, 40 ) - sleep (1) - - Call hOpenContextMenu - sleep (1) - - Call hOpenContextMenu - sleep (2) - - Kontext "Bezierobjectbar" - if Bezierobjectbar.Exists <> TRUE then - ViewToolbarsBezier - Sleep (2) - if Bezierobjectbar.Exists <> TRUE then - warnlog "Bezierobjectbar did not show up. Check why." - endif - endif - - '----------------------------------- Punkte verschieben ------------------------------------ - - Kontext "Bezierobjectbar" - if Bezierobjectbar.Exists <> TRUE then - ViewToolbarsBezier - Sleep 2 - endif - if Bezierobjectbar.Exists <> TRUE then - Warnlog "The Bezier-Objectbar should have been opened, but wasnt." - ViewToolbarsBezier - Sleep 2 - endif - - Kontext "Bezierobjectbar" - sleep 1 - Printlog "- Move points" - Verschieben.Click - sleep 2 - - hTypeKeys "<MOD1 TAB>" - - Printlog "- Insert points" - Kontext "Bezierobjectbar" - Einfuegen.Click - sleep 2 - Bezierobjectbar.Move 20, 20 - sleep (1) - Printlog "- Delete points" - - gMouseMove 25,25,45,45 - - - sleep 2 - Kontext "Bezierobjectbar" - sleep 2 - Printlog "- Convert into curve" - InKurve.Click - sleep 2 - Printlog "- Place edge point" - Ecke.Click - sleep 2 - Printlog "- Smooth transition" - Glatt.Click - sleep 2 - Printlog "- Symetric transition" - Symmetrisch.Click - sleep 2 - - Kontext "Bezierobjectbar" - PunkteReduzieren.Click - sleep 2 - - hTypeKeys "<MOD1 TAB>" - hTypeKeys "<MOD1 SHIFT SPACE>" - - Kontext "Bezierobjectbar" - try - Auftrennen.Click - catch - Warnlog "- 'Break' could not be executed" - endcatch - sleep 2 - - hTypeKeys "<MOD1 TAB>" - hTypeKeys "<MOD1 A>" - - Printlog "- Close bezier" - Kontext "Bezierobjectbar" - try - Schliessen.Click - catch - InKurve.Click - sleep 2 - try - Schliessen.Click - catch - warnlog "Couldn't push button :-( can't reproduce it now, mostly seen on linux, if i loop this test, it happens only 1/5 of the time ... :-)" - endcatch - endcatch - sleep 2 - - hTypeKeys "<MOD1 TAB>" - hTypeKeys "<MOD1 A>" - - Kontext "Bezierobjectbar" - Printlog "- Break curve" - try - Loeschen.Click - sleep 2 - catch - warnlog "Delete didn't work... why?" - endcatch - - Kontext "Toolbar" - sleep 2 - Toolbar.OpenContextMenu ' Enable forms button in menuebar - sleep 2 - hMenuselectNr (1) - sleep 2 - hMenuItemUnCheck (7) - sleep 2 - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------' diff --git a/testautomation/graphics/optional/includes/impress/i_us2_present.inc b/testautomation/graphics/optional/includes/impress/i_us2_present.inc index eeeeb5eff..1db9740b5 100644 --- a/testautomation/graphics/optional/includes/impress/i_us2_present.inc +++ b/testautomation/graphics/optional/includes/impress/i_us2_present.inc @@ -37,14 +37,13 @@ testcase i_us2_pres1 dim iPictures as integer dim PresentationFile1 as string PresentationFile1 = (ConvertPath (gOfficePath + "user\work\PwrPres1.odp")) + kontext "DocumentImpress" - printlog "New - Wizard - Presentation." + printlog "Starting with New - Wizard - Presentation." FileAutopilotPresentation - printlog "Called File-Autopilot-Presentation." - printlog "Create from Template" + printlog "Called File-Autopilot-Presentation, create from template." kontext "AutoPilotPraesentation1" FromTemplate.Check - 'This part is for language-indepencancy if gOOO = TRUE then TemplateRegion.Select (1) printlog "Choose a Presentation" @@ -56,7 +55,7 @@ testcase i_us2_pres1 if TemplateList.GetItemCount < 40 then TemplateRegion.Select (3) if TemplateList.GetItemCount < 40 then - Warnlog " No Templates selectable in the wizard. Please check." + Warnlog "No Templates selectable in the wizard. Please check." goto endsub endif endif @@ -71,29 +70,29 @@ testcase i_us2_pres1 sleep (1) Nextbutton.Click - printlog " Switched to the second Wizard-page." + printlog "Switched to the second Wizard-page." sleep (1) printlog "Presentations" kontext "AutoPilotPraesentation2" printlog "Output: Screen" - if gOOO = TRUE then 'OpenOffice.org + if gOOO = TRUE then Background.Select (2) if Backgroundchoice.GetItemCount < 2 then Background.Select (1) if Backgroundchoice.GetItemCount = 0 then - Warnlog " No Backgrounds selectable in the wizard. Please check." + Warnlog "No Backgrounds selectable in the wizard. Please check." goto endsub endif endif Backgroundchoice.Select (2) - else 'StarOffice + else Background.Select (3) if Backgroundchoice.GetItemCount < 10 then Background.Select (2) if Backgroundchoice.GetItemCount < 10 then Background.Select (3) if Backgroundchoice.GetItemCount < 10 then - Warnlog " No Backgrounds selectable in the wizard. Please check." + Warnlog "No Backgrounds selectable in the wizard. Please check." goto endsub endif endif @@ -104,7 +103,7 @@ testcase i_us2_pres1 printlog "Next" Nextbutton.Click - printlog " Switched to the third Wizard-page." + printlog "Switched to the third Wizard-page." sleep (1) kontext "AutoPilotPraesentation3" printlog "Random Effect. Random Speed. Click through every choice." @@ -118,7 +117,7 @@ testcase i_us2_pres1 printlog "Next" Nextbutton.Click - printlog " Switched to the fourth Wizard-page." + printlog "Switched to the fourth Wizard-page." sleep (1) kontext "AutoPilotPraesentation4" printlog "Fill in some company-name-subject-text" @@ -136,36 +135,50 @@ testcase i_us2_pres1 AutoPilotPraesentation5.OK sleep (1) - printlog " Pressed 'Create'." + printlog "Pressed 'Create'." printlog "Add a Slide via Insert - Slide." Kontext "DocumentImpress" - hTypeKeys "What we will talk about" - gMouseClick 1,1 - Kontext "DocumentImpress" DocumentImpress.UseMenu hMenuSelectNr (4) hMenuSelectNr (1) - call sSelectEmptyLayout + + Kontext "DocumentImpress" + DocumentImpress.UseMenu + hMenuSelectNr (5) + hMenuSelectNr (13) + printlog "Changing focus to TaskPane." + kontext "Tasks" + sleep (1) + printlog "Selecting 5th layout." + LayoutsPreview.TypeKeys "<HOME>" + sleep (1) + LayoutsPreview.TypeKeys "<RIGHT>", 4 + LayoutsPreview.TypeKeys "<RETURN>" sleep (1) + kontext "DocumentImpress" + + sleep (1) + hTypeKeys "What we will talk about" + gMouseClick 1,1 kontext "Slides" - SlidesControl.TypeKeys "<HOME><RETURN>" + SlidesControl.TypeKeys "<HOME>" kontext "DocumentImpress" - DocumentImpress.TypeKeys "<TAB>Text we just wrote..." + DocumentImpress.TypeKeys "<TAB>" + DocumentImpress.TypeKeys "Text we just wrote..." + DocumentImpress.TypeKeys "<ESCAPE>" printlog "Switch to the second slide." kontext "Slides" - SlidesControl.TypeKeys "<DOWN><RETURN>" - SlidesControl.TypeKeys "<RETURN>" + SlidesControl.TypeKeys "<DOWN>" kontext "DocumentImpress" printlog "Insert three lines with text, all with different formatting." call hTextrahmenErstellen ("First line with text",20,50,70,50) call hTextrahmenErstellen ("Second line with text",20,60,70,60) call hTextrahmenErstellen ("Third line with text",20,70,70,70) - printlog "Go down to the eleventh slide." + printlog "Go down to the third slide." kontext "Slides" SlidesControl.TypeKeys "<HOME>" - SlidesControl.TypeKeys "<PAGEDOWN>", 10 - SlidesControl.TypeKeys "<RETURN>" + SlidesControl.TypeKeys "<PAGEDOWN>", 3 printlog "Insert Smiley, + two circles around the eyes, + two new pupils," printlog "placed at some interesteing place inside the circles." Kontext "Toolbar" @@ -202,12 +215,12 @@ testcase i_us2_pres1 hTypeKeys "<Escape>" sleep (1) - printlog "Insert new slide." kontext "Slides" printlog "get to the last slide." - SlidesControl.TypeKeys "<PAGEDOWN>", 15 + SlidesControl.TypeKeys "<PAGEDOWN>", 3 + printlog "Insert 4th slide." SlidesControl.TypeKeys "<RETURN>" - printlog "Delete the two fields the stylist has." + printlog "Delete everything on the page." kontext "DocumentImpress" gMouseClick 1,1 EditSelectAll @@ -220,22 +233,25 @@ testcase i_us2_pres1 Oeffnen.Click gMouseClick 1,1 printlog "Add a text above the picture. 'There is movement..." - call hTextrahmenErstellen ("There is movement...",20,20,70,30) + call hTextrahmenErstellen ("There is movement...",20,40,70,30) printlog "Add a new slide." InsertSlide - printlog " Inserted new slide." + printlog "Inserted new slide." kontext "DocumentImpress" printlog "Bla bla about everything..." - call hTextrahmenErstellen ("Bla bla about everything...",20,20,70,30) + DocumentImpress.TypeKeys "<TAB>" + DocumentImpress.TypeKeys "Bla bla about everything..." + DocumentImpress.TypeKeys "<ESCAPE>",2 printlog "Add a new slide." InsertSlide printlog " Inserted new slide." kontext "DocumentImpress" printlog "Write text: Q & A" - call hTextrahmenErstellen ("Q & A",20,20,70,30) - DocumentImpress.TypeKeys "<SHIFT HOME>" + DocumentImpress.TypeKeys "<TAB>" + DocumentImpress.TypeKeys "Q & A" + DocumentImpress.TypeKeys "<ESCAPE>",2 sleep (1) printlog "Add a new slide." @@ -243,11 +259,13 @@ testcase i_us2_pres1 kontext "DocumentImpress" printlog "Thanks for listening, time for coffee... (ending)" - call hTextrahmenErstellen ("Class dismissed...",20,20,70,30) + DocumentImpress.TypeKeys "<TAB>" + DocumentImpress.TypeKeys "Class dismissed..." + DocumentImpress.TypeKeys "<ESCAPE>",2 printlog "Save Document" call hFileSaveAsKill (PresentationFile1) - printlog "OK saved at ", PresentationFile1 + printlog "OK, saved at ", PresentationFile1 sleep (1) printlog "Close Document" diff --git a/testautomation/graphics/optional/includes/impress/i_us_present.inc b/testautomation/graphics/optional/includes/impress/i_us_present.inc index ee0019586..ea0d1ff3a 100644 --- a/testautomation/graphics/optional/includes/impress/i_us_present.inc +++ b/testautomation/graphics/optional/includes/impress/i_us_present.inc @@ -31,20 +31,36 @@ '* '\******************************************************************** -testcase i_us_presentation1 +testcase i_us_presentation - dim iPictures as integer - dim PresentationFile1 as string + dim iPictures as integer 'variable for the number of the used picture gallery theme + dim iAnimations as Integer 'variable used for the number of the used animation gallery theme + dim iSize as integer 'step variable + dim sFileName as string 'name for ppt export file + dim iKeyStroke as integer 'counter variable for hitting space in running presentation + dim PresentationFile as string 'variable for the file name - PresentationFile1 = ConvertPath( gOfficePath + "user\work\PowerPes1.odp" ) - printlog "New impress document" + PresentationFile = ConvertPath( gOfficePath + "user\work\PowerPres1.odp" ) + printlog "Setting up an impress document in several steps..." + printlog "1. New impress document" Call hNewDocument - Call sSelectEmptyLayout + Kontext "DocumentImpress" + printlog "Selecting layout: Centered Text" + DocumentImpress.UseMenu + hMenuSelectNr (5) + hMenuSelectNr (13) + printlog "Changing focus to TaskPane." + sleep 1 + Kontext "Tasks" + printlog "to get to the very first position" + LayoutsPreview.TypeKeys "<HOME>" + printlog "'to get to the right position" + LayoutsPreview.TypeKeys "<RIGHT>", 5 + LayoutsPreview.TypeKeys "<RETURN>" WaitSlot (2000) kontext "DocumentImpress" - - printlog "Add second Master-Page " + printlog "Add a second Master-Page " ViewMasterPage kontext "Slides" SlidesControl.OpenContextMenu(true) @@ -54,9 +70,9 @@ testcase i_us_presentation1 sleep (1) printlog "Inserted second Master-Slide" - printlog "set background to picture(Gallery)" Kontext "Gallery" + if Gallery.Exists(2) then warnlog "The Gallery was already visible. Check earlier ran tests for inconsistency." sleep (2) @@ -111,20 +127,22 @@ testcase i_us_presentation1 MenuSelect 27353 sleep (2) Kontext "ExportierenDlg" + if ExportierenDlg.IsVisible(5) then printlog "Gallery-object correctly copied into Slide." ExportierenDlg.Close WaitSlot (2000) end if + kontext "GraphicObjectbar" + if GraphicObjectbar.Exists(5) = FALSE then kontext "DocumentImpress" ViewToolbarsPicture end if - kontext "Gallery" - Gallerys.Select (iPictures) - printlog " 50% Transparency" + kontext "GraphicObjectbar" + printlog "50% Transparency" WaitSlot (2000) kontext "GraphicObjectbar" Transparenz.SetText "50" @@ -134,23 +152,16 @@ testcase i_us_presentation1 sleep (1) kontext "GraphicFilterBar" Mosaic.Click - WaitSlot (2000) - kontext "Mosaic" - Width.SetText "16" - Height.SetText "16" - Mosaic.OK - - kontext "GraphicFilterBar" - Mosaic.Click kontext "Mosaic" if ( Mosaic.exists( 2 ) ) then Width.SetText "16" Height.SetText "16" Mosaic.OK else - warnlog( "Dialog <Mosaic> did not open" ) + warnlog "Dialog did not came up." endif kontext "GraphicFilterBar" + printlog "Closing dialog and Gallery." GraphicFilterBar.Close ToolsGallery WaitSlot (1000) @@ -158,13 +169,12 @@ testcase i_us_presentation1 gMouseClick 50,50 sleep (1) FormatPositionAndSize - kontext if ( Active.exists( 2 ) ) then active.setPage(TabPositionAndSize) kontext "TabPositionAndSize" - Width.SetText "15" - Height.SetText "11" + Width.SetText "28" + Height.SetText "21" SizePosition.TypeKeys "<RIGHT><DOWN>" TabPositionAndSize.OK else @@ -173,31 +183,26 @@ testcase i_us_presentation1 printlog "Close Master" hUseAsyncSlot( "ViewNormal" ) - + kontext "DocumentImpress" + printlog "Inserting title on first slide." + DocumentImpress.TypeKeys "<TAB>" + DocumentImpress.TypeKeys "<RETURN>" + DocumentImpress.TypeKeys "WELCOME!" + DocumentImpress.TypeKeys "<ESCAPE>", 2 + sleep 1 printlog "Save Document" - call hFileSaveAsKill (PresentationFile1) - + call hFileSaveAsKill (PresentationFile) ActiveDeactivateCTLSupport (FALSE) - printlog "Close Document" hFileCloseAll() -endcase 'i_us_presentation1 + printlog "-------------------------------------------------------------------------------" -'------------------------------------------------------------------------------- - -testcase i_us_presentation2 - - dim PresentationFile1 as string - dim PresentationFile2 as string - - PresentationFile1 = ConvertPath( gOfficePath + "user\work\PowerPes1.odp" ) - PresentationFile2 = ConvertPath( gOfficePath + "user\work\PowerPes2.odp" ) - - if ( FileExists( PresentationFile1 ) ) then 'if file exists... - hFileOpen (PresentationFile1) + printlog "2. Loading file again..." + if ( FileExists(PresentationFile) ) then 'if file exists... + hFileOpen (PresentationFile) else - warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester." + warnlog "Testdoc is missing or did not get saved." goto endsub end if sleep (2) @@ -206,55 +211,46 @@ testcase i_us_presentation2 SlidesControl.TypeKeys( "<PAGEDOWN>", 3 ) SlidesControl.TypeKeys "<SHIFT F10>" 'OpenContextMenu(true) sleep (1) - MenuSelect(MenuGetItemID(1)) 'New Slide 'No 2 - printlog " Inserted second normal Slide" - call sSelectEmptyLayout - printlog "2. Layouts: Text. Bild: Gallery: Animation - Gif" + printlog "Inserted second normal Slide" + printlog "Select 4th Layout: Title and 2 Content blocks" Kontext "Tasks" printlog "to get to the very first position" LayoutsPreview.TypeKeys "<HOME>" printlog "'to get to the right position" - LayoutsPreview.TypeKeys "<RIGHT>", 9 + LayoutsPreview.TypeKeys "<RIGHT>", 3 LayoutsPreview.TypeKeys "<RETURN>" - hUseAsyncSlot( "ViewNormal" ) - - printlog "3. Hide Slidepane (Oops! The user were too fast: accidently hide the pane)" + printlog "Hide Slidepane (Oops! The user were too fast: accidently hide the pane)" kontext "Slides" SlidesControl.FadeOut WaitSlot (1000) - - printlog "4. Restore Pane." + printlog "Restore Pane." SlidesControl.FadeIn - - printlog " Did the 'mistake' to FadeIn/Out the Slidepane" - -InsertGraphicsFromFile -Kontext "GrafikEinfuegenDlg" -if GrafikEinfuegenDlg.exists(5) then -printlog " The Insertgraphics-dialogue showed up correctly." -sleep (5) -else -warnlog " The Insertgraphics-dialogue didn't show up." -endif + printlog "Did the 'mistake' to FadeIn/Out the Slidepane" + InsertGraphicsFromFile + Kontext "GrafikEinfuegenDlg" + if GrafikEinfuegenDlg.exists(5) then + printlog " The Insertgraphics-dialogue showed up correctly." + sleep (5) + else + warnlog " The Insertgraphics-dialogue didn't show up." + endif printlog "Graphics-Import-dialogue. Select i_us_large.jpg" Kontext "GrafikEinfuegenDlg" - if ( GrafikEinfuegenDlg.exists( 2 ) ) then + if ( GrafikEinfuegenDlg.exists( 2 ) ) then Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg") Oeffnen.Click - Kontext "DocumentImpress" printlog "Deselect graphic" - DocumentImpress.MouseDoubleClick 90,90 - printlog " Inserted Graphic into the second Slide" - + DocumentImpress.TypeKeys "<ESCAPE>" + printlog "Inserted Graphic into the second Slide" printlog "Change text on the two text-boxes" DocumentImpress.TypeKeys "<TAB>" 'First text. DocumentImpress.TypeKeys "<RETURN>" 'To get into edit-mode. - DocumentImpress.TypeKeys "The World has just become a bit easier" + DocumentImpress.TypeKeys "The World has just become easier now.." DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>" DocumentImpress.TypeKeys "<TAB><TAB><TAB>" DocumentImpress.TypeKeys "<RETURN>" @@ -262,9 +258,9 @@ endif DocumentImpress.TypeKeys "<RETURN>" DocumentImpress.TypeKeys "Very durable" DocumentImpress.TypeKeys "<RETURN>" - DocumentImpress.TypeKeys "Priced lower than its predecessor!" + DocumentImpress.TypeKeys "Priced lower!" DocumentImpress.TypeKeys "<RETURN>" - DocumentImpress.TypeKeys "Sexy" + DocumentImpress.TypeKeys "Astonishing!" DocumentImpress.TypeKeys "<RETURN>" DocumentImpress.TypeKeys "Energy-efficient" DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>" @@ -273,52 +269,36 @@ endif endif printlog "Save Document" - call hFileSaveAsKill (PresentationFile2) - - ActiveDeactivateCTLSupport (FALSE) - + call hFileSaveAsKill (PresentationFile) printlog "Close Document" hFileCloseAll() -endcase 'i_us_presentation2 - -'------------------------------------------------------------------------------- + printlog "-------------------------------------------------------------------------------" -testcase i_us_presentation3 - - dim PresentationFile2 as string - dim PresentationFile3 as string - - PresentationFile2 = ConvertPath( gOfficePath + "user\work\PowerPes2.odp" ) - PresentationFile3 = ConvertPath( gOfficePath + "user\work\PowerPes3.odp" ) - - if ( FileExists( PresentationFile2 ) ) then 'if file exists... - hFileOpen( PresentationFile2 ) + printlog "3. Loading file again.." + if ( FileExists(PresentationFile) ) then 'if file exists... + hFileOpen(PresentationFile) else - warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester." + warnlog "Testdoc is missing or did not get saved." goto endsub end if - printlog "Insert New Slide" + printlog "Insert New Slide, 3rd one" kontext "slides" SlidesControl.TypeKeys( "<PAGEDOWN>", 3 ) - kontext "DocumentImpress" - InsertSlide 'No 3 - - printlog "5. Layout. Clip/Text" + InsertSlide + printlog "5. Layout. Title only" kontext "Tasks" LayoutsPreview.TypeKeys "<HOME>" 'to get to the very first position LayoutsPreview.TypeKeys "<RIGHT>", 4 'to get to the right position LayoutsPreview.TypeKeys "<RETURN>" - hUseAsyncSlot( "ViewNormal" ) - kontext "DocumentImpress" Call gMouseClick 50,50 DocumentImpress.TypeKeys "<TAB><RETURN>" DocumentImpress.TypeKeys "A new form" - + DocumentImpress.TypeKeys "<ESCAPE>", 2 printlog "6. (Fat picture) InsertPictureFromFile: (empty slide) (ev size-fit)" printlog "insert graphic file (i_us_large.jpg)" InsertGraphicsFromFile @@ -329,39 +309,21 @@ testcase i_us_presentation3 Oeffnen.Click WaitSlot (2000) Kontext "DocumentImpress" - printlog "The user corrects the picture" DocumentImpress.MouseDown 50,50 DocumentImpress.MouseUp 50,50 DocumentImpress.TypeKeys "<DOWN>", 30 - printlog "Deselect graphic" DocumentImpress.MouseDoubleClick 90,90 - - printlog " Wrote Text, Inserted Graphic, and moved it in the third Slide" - + printlog "Wrote Text, Inserted Graphic, and moved it in the third Slide" printlog "Save Document" - call hFileSaveAsKill (PresentationFile3) - - ActiveDeactivateCTLSupport (FALSE) - + call hFileSaveAsKill (PresentationFile) printlog "Close Document" hFileCloseAll() -endcase 'i_us_presentation3 - -'------------------------------------------------------------------------------- - -testcase i_us_presentation4 - - dim PresentationFile3 as string - dim PresentationFile4 as string - dim iAnimations as Integer - dim iSize as integer - - PresentationFile3 = ConvertPath( gOfficePath + "user\work\PowerPes3.odp" ) - PresentationFile4 = ConvertPath( gOfficePath + "user\work\PowerPes4.odp" ) + printlog "-------------------------------------------------------------------------------" + printlog "4. reopening file..." select case iSprache case 01 : iAnimations = 01 'English case 07 : iAnimations = 01 'Russian @@ -382,167 +344,126 @@ testcase i_us_presentation4 warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache end select - if ( FileExists( PresentationFile3 ) ) then 'if file exists... - hFileOpen( PresentationFile3 ) + if ( FileExists(PresentationFile) ) then 'if file exists... + hFileOpen( PresentationFile) else - warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester." + warnlog "Testdoc is missing or did not get saved." goto endsub end if kontext "slides" SlidesControl.TypeKeys( "<PAGEDOWN>", 5 ) - kontext "DocumentImpress" printlog "insert slide no 4" hUseAsyncSlot( "InsertSlide" ) - printlog "Background: picture (Gallery)" Kontext "Gallery" + if ( Not Gallery.Exists() ) then ToolsGallery end if kontext "Gallery" + if ( Gallery.exists( 2 ) ) then Gallerys.Select (iAnimations) kontext "Gallery" View.TypeKeys "<HOME><RIGHT><RIGHT>" - wait( 200 ) + sleep 1 View.TypeKeys "<SHIFT F10>" 'OpenContextMenu - wait( 200 ) + sleep 1 MenuSelect(MenuGetItemID(1)) 'Insert - wait( 200 ) + sleep 1 MenuSelect(MenuGetItemID(1)) 'Copy else warnlog( "Could not access Gallery" ) endif - printlog "Check that we really got a copy of the object" - kontext "DocumentImpress" - DocumentImpress.OpenContextMenu(true) - WaitSlot (1000) - MenuSelect 27353 - - Kontext "ExportierenDlg" - if ( ExportierenDlg.exists( 5 ) ) then - printlog " Gallery-object correctly copied into Slide." - ExportierenDlg.Close - else - warnlog " Doesn't seem like we copied anything from the Gallery... ?" - end if - + sleep 1 kontext "DocumentImpress" - DocumentImpress.TypeKeys "<UP>", 82 - DocumentImpress.TypeKeys "<LEFT>", 130 - + DocumentImpress.TypeKeys "<UP>", 75 + DocumentImpress.TypeKeys "<LEFT>", 100 printlog "Deselect graphic" DocumentImpress.MouseDoubleClick 90,90 - printlog "Close the Gallery" ToolsGallery - printlog "Change Text on slide" DocumentImpress.TypeKeys "<TAB>" DocumentImpress.TypeKeys "<RETURN>" - DocumentImpress.TypeKeys "The process starts to flourish" + DocumentImpress.TypeKeys "The process starts here.." DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>" gMouseClick 50,50 - - ActiveDeactivateCTLSupport (TRUE) - printlog( "Decrease..." ) - for iSize = 100 to 25 step -25 + + for iSize = 80 to 20 step -20 CreateTextSetEffectAndAngle - DocumentImpress.TypeKeys "<DOWN>", 80 + DocumentImpress.TypeKeys "<DOWN>", 70 DocumentImpress.TypeKeys "<LEFT>", iSize gMouseClick 90,90 next iSize printlog( "Increase..." ) - for iSize = 25 to 100 step 25 + + for iSize = 20 to 80 step 20 CreateTextSetEffectAndAngle - DocumentImpress.TypeKeys "<DOWN>", 80 - DocumentImpress.TypeKeys "<LEFT>", iSize + DocumentImpress.TypeKeys "<DOWN>", 70 + DocumentImpress.TypeKeys "<RIGHT>", iSize gMouseClick 90,90 next iSize - printlog " Inserted fourth slide with Gallery-object." - + printlog "Inserted fourth slide with Gallery-object." + printlog "Switching back task pane to default..." + Kontext "DocumentImpress" + DocumentImpress.UseMenu + hMenuSelectNr (5) + hMenuSelectNr (13) printlog "Save Document" - call hFileSaveAsKill (PresentationFile4) - - ActiveDeactivateCTLSupport (FALSE) - + call hFileSaveAsKill (PresentationFile) printlog "Close Document" hFileCloseAll() -endcase 'i_us_presentation4 - -'------------------------------------------------------------------------------- - -testcase i_us_presentation5 + printlog "-------------------------------------------------------------------------------" - dim PresentationFile4 as string - dim PresentationFile5 as string - - PresentationFile4 = ConvertPath( gOfficePath + "user\work\PowerPes4.odp" ) - PresentationFile5 = ConvertPath( gOfficePath + "user\work\PowerPes5.odp" ) - - if ( FileExists( PresentationFile4 ) ) then 'if file exists... - hFileOpen( PresentationFile4 ) + printlog "5. reloading file..." + if ( FileExists(PresentationFile) ) then + hFileOpen(PresentationFile) else - warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester." + warnlog "Testdoc is missing or did not get saved." goto endsub end if kontext "slides" SlidesControl.TypeKeys( "<PAGEDOWN>", 7 ) - kontext "DocumentImpress" - printlog "8. New Slide. (Insert Menu) (Duplicate slide)" - InsertDuplicateSlide 'No 5 + printlog "New Slide. (Insert Menu) (Duplicate slide)" + InsertDuplicateSlide printlog "Change the text in some way. (the user is making a joke with the audience)" gMouseClick 90,90 DocumentImpress.TypeKeys "<TAB>" DocumentImpress.TypeKeys "<RETURN>" hUseAsyncSlot( "EditSelectAll" ) DocumentImpress.TypeKeys "And does it with strength..." - - printlog " Inserted fifth slide with audience-joke." - + printlog "Inserted fifth slide with audience-joke." printlog "Save Document" - call hFileSaveAsKill (PresentationFile5) - - ActiveDeactivateCTLSupport (FALSE) - + call hFileSaveAsKill (PresentationFile) printlog "Close Document" hFileCloseAll() -endcase 'i_us_presentation5 - -'------------------------------------------------------------------------------- + printlog "-------------------------------------------------------------------------------" -testcase i_us_presentation6 - - dim PresentationFile5 as string - dim PresentationFile6 as string - - PresentationFile5 = ConvertPath( gOfficePath + "user\work\PowerPes5.odp" ) - PresentationFile6 = ConvertPath( gOfficePath + "user\work\PowerPes6.odp" ) - - if ( FileExists( PresentationFile5 ) ) then 'if file exists... - hFileOpen( PresentationFile5 ) + printlog "6. reloading file..." + if ( FileExists(PresentationFile) ) then 'if file exists... + hFileOpen(PresentationFile) else - warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester." + warnlog "Testdoc is missing or did not get saved." goto endsub end if kontext "slides" SlidesControl.TypeKeys( "<PAGEDOWN>", 6 ) - kontext "DocumentImpress" - printlog "9. Q&A Slide" + printlog "Q&A Slide" InsertSlide WaitSlot (1000) kontext "DocumentImpress" @@ -551,15 +472,15 @@ testcase i_us_presentation6 DocumentImpress.TypeKeys "Q&A" DocumentImpress.TypeKeys "<SHIFT HOME>" wait( 500 ) - Kontext "TextObjectbar" + if ( not TextObjectbar.Exists() ) then ViewToolbarsTextFormatting end if Kontext "TextObjectbar" wait( 500 ) - Printlog "- Change size of font" + Printlog "Change size of font" Schriftgroesse.Select "26" Schriftgroesse.TypeKeys "<RETURN>" Fett.Click @@ -569,77 +490,59 @@ testcase i_us_presentation6 Auswahl.Click gMouseClick 60,60 hUseAsyncSlot( "EditSelectAll" ) - DocumentImpress.TypeKeys "<DOWN>", 50 kontext "DocumentImpress" - printlog " Inserted sixth slide with Q&A." - + printlog "Inserted sixth slide with Q&A." printlog "Save Document" - call hFileSaveAsKill (PresentationFile6) - - ActiveDeactivateCTLSupport (FALSE) - + call hFileSaveAsKill (PresentationFile) printlog "Close Document" hFileCloseAll() -endcase 'i_us_presentation6 - -'------------------------------------------------------------------------------- - -testcase i_us_presentation7 + printlog "-------------------------------------------------------------------------------" - const KEY_STROKE_REPEAT = 8 + printlog "7. reloading file..." + sFileName = ConvertPath( gOfficePath + "user\work\export-test.ppt" ) - dim sFilter as string - dim sFileName as string - dim PresentationFile6 as string - dim PresentationFile7 as string - dim iKeyStroke as integer - - PresentationFile6 = ConvertPath( gOfficePath + "user\work\PowerPes6.odp" ) - PresentationFile7 = ConvertPath( gOfficePath + "user\work\PowerPes7.odp" ) - sFileName = ConvertPath( gOfficePath + "user\work\export-test.ppt" ) - - if ( FileExists( PresentationFile6 ) ) then 'if file exists... - hFileOpen( PresentationFile6 ) + if ( FileExists(PresentationFile) ) then 'if file exists... + hFileOpen(PresentationFile) else - warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester." + warnlog "Testdoc is missing or did not get saved." goto endsub end if kontext "slides" - SlidesControl.TypeKeys( "<PAGEDOWN>", KEY_STROKE_REPEAT ) - + SlidesControl.TypeKeys( "<PAGEDOWN>",7) kontext "DocumentImpress" - printlog " inserting Ending Slide" + printlog "inserting Ending Slide" InsertSlide 'No 7 - DocumentImpress.TypeKeys "Ende" - printlog " Inserted ending -slide." - + DocumentImpress.TypeKeys "End" + printlog "Inserted ending -slide." Kontext "Gallery" + if Gallery.Exists(2) then - warnlog " The Gallery was visible. Closed it. Check earlier ran tests for inconsistency." + warnlog "The Gallery was visible. Closed it. Check earlier ran tests for inconsistency." ToolsGallery WaitSlot (2000) end if kontext "slides" - for i = 1 to 7 + + for i = 1 to 8 sleep 1 SlidesControl.TypeKeys "<PAGEUP>" next i - SlidesControl.TypeKeys "<RETURN>" 'At the first slide hTypeKeys "<F5>" - kontext "DocumentPresentation" - for iKeyStroke = 1 to KEY_STROKE_REPEAT + + for iKeyStroke = 1 to 8 wait( 3000 ) DocumentPresentation.TypeKeys "<PAGEDOWN>" wait( 2000 ) next iKeyStroke kontext "DocumentPresentation" + if ( DocumentPresentation.notExists( 5 ) ) then printlog( "Presentation closed. Good." ) else @@ -656,17 +559,15 @@ testcase i_us_presentation7 kontext "DocumentImpress" printlog "Save Document" - call hFileSaveAsKill (PresentationFile7) - + call hFileSaveAsKill (PresentationFile) printlog( "Save as Powerpoint-file (Using filter at pos. 5 in the filter list)" ) FileSaveAs - Kontext "SpeichernDlg" - if ( SpeichernDlg.exists( 2 ) ) then + if ( SpeichernDlg.exists( 2 ) ) then Dateiname.SetText sFileName Dateityp.Select 5 ' Powerpoint (possibly) - printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5) + printlog "Trying to save with filter: " + Dateityp.GetSelText Speichern.Click Kontext "Messagebox" @@ -680,15 +581,11 @@ testcase i_us_presentation7 printlog "Close all open documents" hFileCloseAll() - printlog( "Reload file: " & sFileName ) hFileOpen sFileName sleep( 3 ) - printlog "Close the office-session" - ActiveDeactivateCTLSupport (FALSE) - printlog "Close Documents" hFileCloseAll() -endcase 'i_us_presentation7 +endcase 'i_us_presentation
\ No newline at end of file diff --git a/testautomation/graphics/optional/includes/impress/im_002_.inc b/testautomation/graphics/optional/includes/impress/im_002_.inc deleted file mode 100644 index d1fa457ae..000000000 --- a/testautomation/graphics/optional/includes/impress/im_002_.inc +++ /dev/null @@ -1,52 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : Impress Required Test Library (2) -'* -'\***************************************************************** - -testcase tiEditDeleteSlide -'/// open application ///' - Call hNewDocument -'/// Insert->Slide; press 'OK' ///' - InsertSlide - sleep 2 - hTypekeys "<Pagedown>" - sleep 2 -'/// Edit->Delete Slide ///' - try - EditDeleteSlide - catch - warnlog "Error when deleting slide" - endcatch - Call hCloseDocument -'/// close application ///' -endcase - - diff --git a/testautomation/graphics/optional/includes/impress/im_003_.inc b/testautomation/graphics/optional/includes/impress/im_003_.inc deleted file mode 100644 index 1db0627e4..000000000 --- a/testautomation/graphics/optional/includes/impress/im_003_.inc +++ /dev/null @@ -1,254 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : Impress Resource Test: View Menu -'* -'*********************************************************************************** -' #1 tiViewPanes -' #1 tiViewMasterView -' #1 tiViewSlideMaster -' #1 tiViewToolbar_1 -'\********************************************************************************** - -testcase tiViewPanes - goto endsub 'TODO WG, tiViewPanes outcommented due to reconstruction of test - dim bState as boolean - '/// open application ///' - Call hCloseDocument - Call hNewDocument - sleep 1 - kontext "Tasks" - if (NOT Tasks.exists) then - warnlog "Tasks Panel not visible on opening application. Opening now." - ViewTaskPane - endif - kontext "Slides" - if (NOT Slides.exists) then - warnlog "Slides Panel not visible on opening application. Opening now." - ViewTaskSlide - endif - kontext "Tasks" - '/// Deactivate all but "masterpages" ///' - View.OpenMenu - hMenuSelectNr (2) - View.OpenMenu - hMenuSelectNr (3) - View.OpenMenu - hMenuSelectNr (4) - - sleep 1 - - Tasks.TypeKeys ("<RIGHT><RIGHT><RIGHT>") - - try - kontext "recentlyUsed" - printlog "Toggeling Master Pages now with <space>" - kontext "MasterPages" - MasterPages.typeKeys "<space>" - kontext "recentlyUsed" - if (recentlyUsed.IsVisible = FALSE) then 'exists = FALSE) then - warnlog "View-menu didn't work" - endif - kontext "Tasks" - sleep 1 - '/// View->Task Pane ///' - ViewTaskPane - sleep 1 - if (Tasks.exists) then - warnlog "View->Task Panel failed" - ViewTaskPane - endif - '/// View->Task Pane ///' - ViewTaskPane - sleep 1 - if (NOT Tasks.exists) then - warnlog "View->Task Panel failed" - ViewTaskPane - endif - catch - warnlog "View->Task Pane couldn't get executed" - endcatch - kontext "Slides" - try - ViewTaskSlide - if (Slides.exists) then - warnlog "View->Slide Panel failed." - ViewTaskSlide - endif - '/// View->Slide Pane ///' - ViewTaskSlide - sleep 1 - if (NOT Slides.exists) then - warnlog "View->Slide Panel failed." - ViewTaskSlide - endif - catch - warnlog "View->Slide Pane couldn't get executed" - endcatch - - '/// Reactivate all pages in the Task-panel ///' - kontext "Tasks" - View.OpenMenu - hMenuSelectNr (2) - View.OpenMenu - hMenuSelectNr (3) - View.OpenMenu - hMenuSelectNr (4) -endcase - -testcase tiViewMasterView -'/// open application ///' - Call hNewDocument -'/// View->Master View->Drawing View ///' - sleep 1 - ViewWorkspaceDrawingView -' Kontext "DocumentImpress" -' gMouseClick 70,70 - sleep 5 -'/// View->Master View->Outline View ///' - ViewWorkspaceOutlineView -' Kontext "DocumentImpressOutlineView" -' DocumentImpressOutlineView.MouseDown 70,70 -' DocumentImpressOutlineView.MouseUp 70,70 - sleep 1 -'/// View->Master View->Slides View ///' - ViewWorkspaceSlidesView -' Kontext "DocumentImpressSlideView" -' DocumentImpressSlideView.MouseDown 70,70 -' DocumentImpressSlideView.MouseUp 70,70 - sleep 1 -'/// View->Master View->Notes View ///' - ViewWorkspaceNotesView - sleep 1 -'/// View->Master View->Handout View ///' - ViewWorkspaceHandoutView - sleep 1 -'/// View->Master View->Drawing View ///' - ViewWorkspaceDrawingView -'/// close application ///' - sleep 1 - Call hCloseDocument -endcase - -testcase tiViewSlideMaster -'/// open application with : File->Autopilot->Presentation; OK; OK ///' -' Call hNewDocument - FileAutopilotPresentation ' to get a title :-) - sleep 2 - Kontext "AutopilotPraesentation1" - AutopilotPraesentation1.Ok - sleep 1 - Kontext "Seitenlayout" ' aka: Modify Slide - if Seitenlayout.exists(5) then - warnlog "Slidelayout has to vanish; moved to sidebar" - Seitenlayout.OK - endif - kontext "DocumentImpress" - sleep 1 -'/// View->Slide ///' - ViewSlide - Sleep 1 -'/// View->Master->Drawing ///' - ViewDrawing - Sleep 1 -'/// View->Slide ///' - ViewSlide - Sleep 1 -'/// View->Master->Title ///' - try - ViewTitle - Errorlog "View - Master - Title Slide Master should NOT be accessable" - catch - printlog "View - Master - Title Slide Master not accessable - good" - endcatch - Sleep 1 -'/// View->Slide ///' - ViewSlide - Sleep 1 -'/// View->Master->Handout ///' - ViewHandout - Sleep 1 -' ViewSlide - Sleep 1 -'/// View->Master->Notes ///' - ViewNotes - kontext "DocumentImpress" - Sleep 1 -'/// View->Slide ///' - ViewSlide - Sleep 1 -'/// close application ///' - Call hCloseDocument -endcase - -testcase tiViewToolbar_1 - Dim Zaehler as integer - Dim i as integer - -'/// open application ///' - Call hNewDocument - sleep 2 -'/// Insert->Graphic... : "global\input\graf_inp\desp.bmp" ///' - InsertGraphicsFromFile - sleep 2 - Kontext "GrafikEinfuegenDlg" - sleep 1 - Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp") - sleep 1 - Oeffnen.Click - sleep 3 - Kontext "Messagebox" - if Messagebox.Exists then - Warnlog Messagebox.GetText - Messagebox.OK - end if - Kontext "DocumentImpress" -'/// select graphic ///' - EditSelectAll - sleep 2 - Kontext "GraphicObjectbar" - sleep 1 -'/// The Graphics Toolbar has to be visible now; If not -> ERROR ///' - if GraphicObjectbar.Exists Then - Printlog "- graphic object toolbar exists" - Zaehler=Grafikmodus.GetItemCount - for i = 1 to Zaehler - Printlog "- access all controls in the toolbar (" +i+"/"+Zaehler+")" - Grafikmodus.Select i - sleep 3 - next i - sleep 3 - else - Warnlog "- No graphic function toolbar visible" - end if -'/// close application ///' - Call hCloseDocument -endcase - - diff --git a/testautomation/graphics/optional/includes/impress/im_004_.inc b/testautomation/graphics/optional/includes/impress/im_004_.inc deleted file mode 100644 index 17d00addc..000000000 --- a/testautomation/graphics/optional/includes/impress/im_004_.inc +++ /dev/null @@ -1,58 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : Impress Required Test Library (4) -'* -'\***************************************************************** - -testcase tiInsertSlideExpandSummary - -'/// open application ///' - Call hNewDocument - ' presupposition -'/// View->Master View->Outline View ///' - ViewWorkspaceOutlineView - Sleep 1 - Kontext "DocumentImpressOutlineView" -'/// Type 2 rows ///' - DocumentImpressOutlineView.TypeKeys "Herbert<Return>Rudi" -'/// View->Master View->Drawing View ///' - ViewWorkspaceDrawingView - Sleep 1 - ' test menue entries -'/// Insert->Summery Slide ///' - InsertSummerySlide - Sleep 1 -'/// Insert->Expand Slide ///' - InsertExpandSlide - Sleep 2 -'/// close application ///' - Call hCloseDocument -endcase - diff --git a/testautomation/graphics/optional/includes/impress/im_005_.inc b/testautomation/graphics/optional/includes/impress/im_005_.inc deleted file mode 100644 index 1aa218f3e..000000000 --- a/testautomation/graphics/optional/includes/impress/im_005_.inc +++ /dev/null @@ -1,50 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : Impress Required Test Library (5) -'* -'\***************************************************************** - -testcase tiFormatModifyLayout - -'/// open application ///' - Call hNewDocument -'/// Impress: Format->Modify Layout ///' -'/// Draw : kontext menu: Slide-> Modify Slide (always disabled :-( ?///' - FormatPage ' 27046 SID_MODIFYPAGE - Kontext "SeitenLayout" - DialogTest ( SeitenLayout ) - sleep 1 -'/// cancel dialog 'Page Setup' ///' - SeitenLayout.Cancel -'/// close application ///' - Call hCloseDocument -endcase - - diff --git a/testautomation/graphics/optional/includes/impress/im_007_.inc b/testautomation/graphics/optional/includes/impress/im_007_.inc deleted file mode 100644 index fc9ba2800..000000000 --- a/testautomation/graphics/optional/includes/impress/im_007_.inc +++ /dev/null @@ -1,693 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : Impress Required Test Library (7) -'* -'\***************************************************************** - -' this menue is only in impress availble -testcase tSlideShowSlideShow - '/// open application ///' - Call hNewDocument - '/// Slide Show->Slide Show Settings ///' - SlideShowPresentationSettings - Kontext "Bildschirmpraesentation" - '/// check if 'type' 'default' is checked, it has to be the default !///' - if standard.IsChecked then - if LogoAnzeigen.isEnabled then - Warnlog "'Show Logo' is Enabled :-(" - endif - else - Warnlog "type 'default' is not checked as default :-(" - endif - '/// check checkbox 'Window' ///' - Fenster.Check - Printlog "- Presentation in window mode is checked" - '/// close dialog with OK 'Slide Show' ///' - Bildschirmpraesentation.Ok - sleep 3 - '/// Slide Show->Slide Show ///' - SlideShowSlideshow - Sleep 5 - try - Kontext "DocumentPresentation" - sleep 3 - '/// Press <Esc> to leave presentation mode ///' - DocumentPresentation.Typekeys ("<Escape>") - Sleep 3 - Kontext "DocumentImpress" - DocumentImpress.MouseDoubleClick ( 50, 50 ) - Sleep 3 - catch - ' FileClose - warnlog "had to catch <the ball> :-( " - ' Kontext "Messagebox" - ' if Messagebox.Exists (5) Then Messagebox.No - ' Kontext - ' sleep (12) - ' start sAppExe$ - ' sleep (6) - ' Kontext - ' if Office.Exists(2) then Resetapplication - ' Warnlog "Slide didn't end, application wasn't in document edit mode" - endcatch - '/// close application ///' - Call hCloseDocument -endcase - -testcase tSlideShowRehearseTimings - goto endsub - '/// open application ///' - Call hNewDocument - '/// Slide Show->Slide Show Settings ///' - SlideShowPresentationSettings - Kontext "Bildschirmpraesentation" - '/// check checkbox 'Window' ///' - Fenster.Check - '/// close dialog with OK 'Slide Show' ///' - Bildschirmpraesentation.Ok - '/// Slide Show->Rehearse Timings ///' - SlideShowRehearseTimings - sleep 2 - Kontext "DocumentPresentation" - '/// Press <Esc> to leave presentation mode ///' - if DocumentPresentation.Exists (5) then - DocumentPresentation.Typekeys ("<Escape>") - else - Warnlog "SlideShowRehearseTimings mode not accessible" - endif - Sleep 3 - if DocumentPresentation.Exists then ' the kontext hasnt to be available, else ERROR - DocumentPresentation.TypeKeys "<ESCAPE>" ' => I mustn't be here ever ! - Warnlog "- Slide show mode should have ended" - else - printlog "SlideShowRehearseTimings mode not accessible :-) " - end if - sleep 3 - try - Kontext "DocumentImpress" - DocumentImpress.MouseDoubleClick ( 50, 50 ) - - sleep 3 - catch - warnlog "Had to catch <the ball> :-( " - endcatch - sleep 3 - '/// close application ///' - Call hCloseDocument -endcase - -testcase tSlideShowSlideShowSettings - '/// open application ///' - Call hNewDocument - sleep 2 - '/// Slide Show->Slide Show Settings ///' - SlideShowPresentationSettings - Kontext "Bildschirmpraesentation" - call Dialogtest (Bildschirmpraesentation) - '/// check checkbox in section 'Range' - 'From: ///' - AbDia.Check - '/// select the 3rd item from the top from listbox 'From:' ///' - AbDiaName.GetSelText - '/// check checkbox 'All Slides' ///' - AlleDias.Check - '///' RangeCustomSlideShow ' gets tested in tSlideShowCustomSlideShow ///' - ' IndividuellePraesentationName - '///<b> check checkbox 'window' </b>///' - Fenster.Check - '/// check checkbox 'default' ///' - Standard.Check - '///<b> check check box 'Auto' -> implies looping of slideshow in fullscreen mode </b>///' - Auto.Check - '/// set duration of pause to '00:00:05' ///' - Zeit.GetText - '/// check check box 'Show logo' ///' - LogoAnzeigen.Check - '///<b> check checkbox 'Change slides maually' </b>///' - DiawechselManuel.Check - '///<b> check checkbox 'Mouse pointer as pen' </b>///' - MauszeigerAlsStift.Check - '///<b> UNcheck checkbox 'Mouse pointer visible' </b>///' - MauszeigerSichtbar.UnCheck - '///<b> check checkbox 'Navigator visible' </b>///' - NavigatorSichtbar.Check - '///<b> UNcheck checkbox 'animations allowed' </b>///' - AnimationenZulassen.UnCheck - '///<b> UNcheck checkbox 'Change slides by clicking on background' </b>///' - DiaWechselAufHintergrund.UnCheck - '///<b> check checkbox 'Presentation always on top' </b>///' - PraesentationImmerImVordergrund.Check - '/// cancel dialog 'Slide Show' ///' - Bildschirmpraesentation.Cancel - '/// close application ///' - Call hCloseDocument -endcase - -testcase tSlideShowCustomSlideShow - '/// open application ///' - Call hNewDocument - sleep 2 - '/// Slide Show->Custom Slide Show ///' - SlideShowCustomSlideshow - Kontext "IndividuellePraesentation" - call Dialogtest (IndividuellePraesentation) - '/// click button 'New' ///' - Neu.Click - Kontext "IndividuellePraesentationDefinieren" - Call DialogTest (IndividuellePraesentationDefinieren) - '/// select the first entry in the list 'Existing Slides' ///' - SeitenPraesentation.Select 1 - '/// click button '>>' ///' - Hinzufuegen.Click - '/// close dialog 'Define Custom Slide Show' with OK ///' - IndividuellePraesentationDefinieren.OK - Kontext "IndividuellePraesentation" - '/// click button 'Copy' ///' - Kopieren.Click - '/// click button 'Delete' ///' - Loeschen.Click - '/// click button 'Edit' ///' - Bearbeiten.Click - Kontext "IndividuellePraesentationDefinieren" - '/// select 1st entry in the list 'Selected Slides' ///' - SelectedSlides.Select 1 - '/// click button '<<' ///' - Entfernen.Click - '/// close dialog 'Define Custom Slide Show' with Cancel ///' - IndividuellePraesentationDefinieren.Cancel - Kontext "IndividuellePraesentation" - '/// check checkbox 'Use Custom Slide Show' ///' - IndividuellePraesentationBenutzen.Check - sleep 1 - '///+ UNcheck checkbox 'Use Custom Slide Show' ///' - IndividuellePraesentationBenutzen.UnCheck - '/// click button 'Start...' ///' - Starten.Click - sleep 5 - '/// press key [space] 2 times ///' - kontext "DocumentPresentation" - DocumentPresentation.TypeKeys "<space>" - sleep 1 - DocumentPresentation.TypeKeys "<space>" - sleep 1 - '/// close dialog 'Custom Slide Shows' ///' - ' IndividuellePraesentation.Close ' slide show ends dialog ! - '/// Slide Show->Slide Show Settings ///' - try - SlideShowPresentationSettings - catch - warnlog "Presentation did not end :-(" - DocumentPresentation.TypeKeys "<escape>" - endcatch - Kontext "Bildschirmpraesentation" - if Bildschirmpraesentation.exists (5) then - '/// check checkbox 'Custom Slide Show' ///' - RangeCustomSlideShow.Check - printlog "check: '" + IndividuellePraesentationName.GetSelText + "'" - '/// cancel dialog 'Slide Show' ///' - Bildschirmpraesentation.Cancel - else - warnlog "Dialog not open? SlideShowPresentationSettings" - endif - '/// Slide Show->Custom Slide Show ///' - SlideShowCustomSlideshow - Kontext "IndividuellePraesentation" - if (IndividuellePraesentation.exists (5)) then - '/// click button 'Delete' ///' - Loeschen.Click - '/// close dialog 'Custom Slide Shows' ///' - IndividuellePraesentation.Close - else - warnlog "Dialog not open? SlideShowCustomSlideshow" - endif - '/// close application ///' - Call hCloseDocument -endcase - -testcase tSlideShowSlideTransition - goto endsub '"#149943# - Outcommented tSlideShowSlideTransition due to bug." - dim i as integer - dim a as integer - dim iCount as integer - - '/// open application ///' - Call hNewDocument - '/// create rectangle ///' - Call hRechteckErstellen ( 10, 10, 20, 40 ) - sleep 1 - '/// Slide Show->Slide Transition ///' - SlideShowSlideTransition - sleep 2 - '/// The 'Slide Transition' in the right 'Tasks' Pane has to come up ///' - Kontext "Tasks" - '/// Select the second entry from teh Listbox 'Applay to selected slides' ///' - TransitionApplyToSelectedSlide.select (2) - sleep 5 ' takes some time, until it is run - Printlog "Count of effects : "+TransitionApplyToSelectedSlide.GetItemCount - Printlog "Count of Speeds : "+TransitionSpeed.GetItemCount - iCount = TransitionSound.GetItemCount - Printlog "Count of Sounds : " + iCount - - '/// One Entry of the Listbox 'Sound' is 'Other sound...', select it ///' - TransitionSound.typeKeys "<home>" - i = 0 - for a = 1 to iCount - TransitionSound.select (a) - kontext "OeffnenDlg" - if (OeffnenDlg.exists (5)) then - if (0=i) then - ' remember when dialog came up - i = a - OeffnenDlg.cancel - else - warnlog "File Open Dialog comes up a second time!" - OeffnenDlg.cancel - endif - endif - kontext "Tasks" - ' the Checkbox is disabled on teh first three entries: <No Sound>, <Stop previous sound>... - if (TransitionLoopUntilNextSound.isEnabled AND (a<4)) then - qaErrorLog "May be Language specific -> Evaluation of TBO; " + a - endif - next a - TransitionSound.select (i) - '/// The dialog 'Open' comes up///' - sleep 1 - kontext "OeffnenDlg" - if (OeffnenDlg.exists (5)) then - '/// Read all entries in Listbox 'File type' ///' - for i = 1 to Dateityp.getItemCount - printlog "" + i + ":" + Dateityp.getItemText(i) - next i - '/// cancel dialog 'Open' ///' - OeffnenDlg.cancel - else - warnlog "Impress:Tasks Pane:Slide Transition:Sound:Other sound... disdn't bring up teh File Open Dialog!" - endif - kontext "Tasks" - sleep (2) - '/// check checkbox 'Automatically after' ///' - TransitionAutomaticallyAfter.check - sleep (2) - '/// press key 'Page Up' in box ///' - TransitionAutomaticallyAfterTime.typeKeys "<PageUp>" - sleep 9 - '/// check the standard checkbox 'On mouse click' ///' - TransitionOnMouseClick.check - sleep (2) - '/// press button 'Apply to All Slides' ///' - TransitionApplyToAllSlides.click - sleep (2) - '/// press button 'Play' ///' - TransitionPlay.click - sleep 10 - '/// press button 'Slide Show' ///' - TransitionSlideShow.click - sleep 2 - kontext "DocumentPresentation" - if DocumentPresentation.exists (10) then - printlog "Presentation started :-)" - DocumentPresentation.typeKeys "<escape>" - else - warnlog "Impress:Tasks Pane:Slide Transition:Slide Show button doesn't start slideshow!" - endif - kontext "Tasks" - - '/// uncheck and check Checkbox 'Automatic Preview' ///' - '/// default is checked ///' - if (NOT TransitionAutomaticPreview.isChecked) then - warnlog "Impress:Tasks Pane:Slide Transition: Automatic preview has to be checked by default, wasn't!" - endif - sleep (2) - TransitionAutomaticPreview.unCheck - sleep (2) - TransitionAutomaticPreview.Check - '/// close application ///' - Call hCloseDocument -endcase - -testcase tSlideShowShowHideSlide - '/// open application ///' - Call hNewDocument - '/// create rectangle ///' - Call hRechteckErstellen ( 10, 10, 20, 40 ) - '/// View->Master View->Slides View ///' - ViewWorkspaceSlidesView - sleep 1 - '/// Slide Show->Hide Slide ///' - SlideShowHideSlide - sleep 1 - '/// Slide Show->Show Slide ///' - SlideShowShowSlide - '/// close application ///' - Call hCloseDocument -endcase - -testcase tSlideShowAnimation - '/// open application ///' - Call hNewDocument - sleep 1 - '/// create rectangle ///' - Call hRechteckErstellen ( 10, 10, 20, 40 ) - sleep 1 - '/// Insert ->Animated image ///' - Opl_SD_EffekteZulassen - Kontext "Animation" - sleep 1 - '/// click button 'Apply Object' ///' - BildAufnehmen.Click 'BildAufnehmen - '/// click button 'Create' ///' - Erstellen.Click - sleep 1 - '/// Select 1st entry from top in 'Alignment' ///' - Anpassung.Select 1 - sleep 1 - '/// click button 'Create' ///' - Erstellen.Click - sleep 1 - '/// click button 'Apply Objects Individually' ///' - AlleAufnehmen.Click - sleep 1 - '/// click button 'First Image' ///' - ErstesBild.Click - sleep 1 - '/// click button 'Last Image' ///' - LetztesBild.Click - sleep 1 - '/// click button 'BAckwards' ///' - Rueckwaerts.Click - sleep 1 - '/// click button 'Play' ///' - Abspielen.Click - sleep 1 - '/// click in Number field 'Image Number' Less - More ///' - AnzahlBilder.Less - sleep 1 - AnzahlBilder.More - sleep 1 - '/// check 'Bitmap Object' ///' - AnimationsgruppeBitmapobjekt.Check - sleep 1 - '/// Type '10' into the field 'Duration' ///' - AnzeigedauerProBild.SetText "10" - '/// click button 'Play' ///' - Abspielen.Click - '/// wait 5 seconds ///' - sleep 5 - '/// click button 'Stop' ///' - try - Stopp.Click - catch - warnlog "Stopbutton doesn't work" - endcatch - sleep 1 - '/// Select 1st entry from top in 'Loop Count' ///' - AnzahlDurchlaeufe.Select 1 - sleep 1 - '/// click button 'Delete Current Image' ///' - BildLoeschen.Click - sleep 1 - '/// check 'Group Object' ///' - AnimationsgruppeGruppenobjekt.Check - sleep 1 - '/// click button 'Delete All Images' ///' - AlleLoeschen.Click - kontext "Messagebox" - '/// there has to be a messagebox 'Really delete?' say YES!; else ERROR ///' - if Messagebox.exists (5) then - Messagebox.YES - else - warnlog "No one cares about my data :-( No one asked if all shall be deleted :-( " - endif - sleep 1 - kontext "Animation" - '/// close dialog 'Animation' ///' - Animation.Close - '/// close application ///' - Call hCloseDocument -endcase - -testcase tSlideShowCustomAnimation - dim bError as boolean - - '/// open application ///' - Call hNewDocument - '/// create textbox with text ///' - Call hTextrahmenErstellen ("Test text to test text effects", 10, 10, 20, 40 ) - '/// Slide Show->Custom Animation... ///' - SlideShowCustomAnimation - Kontext "Tasks" - '/// click button 'Add...' ///' - EffectAdd.click - '/// Dialog 'Custom Animation' comes up ///' - kontext - '/// Switch to TabPage: Entrance ///' - active.setPage(TabEntrance) - kontext "TabEntrance" - if TabEntrance.exists(5) then - DialogTest(TabEntrance) - '/// select in the listbox 'Effects' the second entry///' - Effects.select(2) - Speed.getItemCount - AutomaticPreview.unCheck - sleep 1 - AutomaticPreview.Check - kontext - '/// Switch to TabPage: Emphasis ///' - active.setPage(TabEmphasis) - kontext "TabEmphasis" - if TabEmphasis.exists(5) then - DialogTest(TabEmphasis) - else - bError = true - warnlog "Impress:Tasks Pane:Custom Animation:TabEmphasis tabPage doesn't work." - endif - kontext - '/// Switch to TabPage: Exit ///' - active.setPage(TabExit) - kontext "TabExit" - if TabExit.exists(5) then - DialogTest(TabExit) - else - bError = true - warnlog "Impress:Tasks Pane:Custom Animation:TabExit tabPage doesn't work." - endif - kontext - '/// Switch to TabPage: Motion Paths ///' - active.setPage(TabMotionPaths) - kontext "TabMotionPaths" - if TabMotionPaths.exists(5) then - DialogTest(TabMotionPaths) - Effects.select(7) - else - bError = true - warnlog "Impress:Tasks Pane:Custom Animation:TabMotionPaths tabPage doesn't work." - endif - '/// Close dialog 'Custom Animation' with 'OK' ///' - TabMotionPaths.OK - bError = false - else - bError = true - warnlog "Impress:Tasks Pane:Custom Animation:Add... button didn't work." - endif - Kontext "Tasks" - if (NOT bError) then - '/// click button 'Change...' ///' - EffectChange.click - '/// Dialog 'Custom Animation' comes up ///' - kontext - '/// Switch to TabPage: Entrance ///' - active.setPage(TabEntrance) - kontext "TabEntrance" - if (NOT TabEntrance.exists(5)) then - warnlog "Impress:Tasks Pane:Custom Animation:Change... button didn't work." - endif - TabEntrance.cancel - Kontext "Tasks" - EffectStart.getItemCount - if EffectProperty.isEnabled then - EffectProperty.getItemCount - endif - '/// CLick on button '...' (Options) ///' - EffectOptions.click - kontext "TabEffect" - if TabEffect.exists(5) then - dialogTest(TabEffect) - Sound.getItemCount - AfterAnimation.getItemCount - '/// switch to TabPage 'Timing' ///' - Kontext - active.setPage TabTiming - kontext "TabTiming" - if TabTiming.exists(5) then - dialogTest(TabTiming) - TimingStart.getItemCount - Delay.getText - Speed.getItemCount - Repeat.getItemCount - Rewind.ischecked - TriggerAnimate.isChecked - TriggerStart.isChecked - Shape.getItemCount - else - warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: Timing TabPage didn't work." - endif - '/// switch to TabPage 'Timing' ///' - Kontext - active.setPage TabTextAnimation - kontext "TabTextAnimation" - if TabTextAnimation.exists(5) then - dialogTest(TabTextAnimation) - GroupText.getItemCount - AnimateAttachedShape.isChecked - TabTextAnimation.cancel - else - warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: TextAnimation TabPage didn't work." - endif - else - warnlog "Impress:Tasks Pane:Custom Animation:... button didn't work." - endif - Kontext "Tasks" - EffectSpeed.getItemCount - EffectList.getItemCount - EffectPlay.click - '/// Wait five seconds so the Playfunction has ended ///' - sleep 5 - EffectSlideShow.click - sleep 1 - kontext "DocumentPresentation" - if DocumentPresentation.exists (5) then - printlog "Presentation started :-)" - DocumentPresentation.typeKeys "<escape>" - else - warnlog "Impress:Tasks Pane:Custom Animation:Slide Show button doesn't start slideshow!" - endif - kontext "Tasks" - EffectAutomaticPreview.isChecked - '/// click button 'Remove' ///' - EffectRemove.click - endif - '/// close application ///' - Call hCloseDocument -endcase - -testcase tSlideShowInteraction - '/// open application ///' - Call hNewDocument - sleep 2 - '/// create rectangle ///' - Call hRechteckErstellen (10, 10, 20, 20) - sleep 3 - '/// Slide Show->Interaction ///' - SlideShowInteraction - Kontext "TabInteraktion" - Call DialogTest (TabInteraktion, 1) - '///+ Select 6th entry from top in 'Action at mouse click' : 'Go to page or object' ///' - AktionBeiMausklick.select 6 - Printlog AktionBeiMausklick.GetSelText + " chosen" - Call DialogTest (TabInteraktion, 2) - '///+ click button 'Find' ///' - sleep 1 - suchen.click - Kontext "TabInteraktion" - '/// Select 7th entry from top in 'Action at mouse click' : 'Go to document' ///' - sleep 1 - AktionBeiMausklick.select 7 - sleep 1 - Printlog AktionBeiMausklick.GetSelText + " chosen" - Kontext "TabInteraktion" - Call DialogTest (TabInteraktion, 3) - '///+ click button 'Browse...' ///' - Durchsuchen.click - sleep 1 - kontext "OeffnenDlg" - call Dialogtest (OeffnenDlg) - '///+ cancel dialog 'open' ///' - OeffnenDlg.cancel - Kontext "TabInteraktion" - sleep 1 - '/// Select 9th entry from top in 'Action at mouse click' : 'Play Sound' ///' - AktionBeiMausklick.select 8 - Printlog AktionBeiMausklick.GetSelText + " chosen" - Call DialogTest (TabInteraktion, 4) - '///+ click button 'Browse...' ///' - Durchsuchen.click - sleep 1 - Kontext "OeffnenDlg" - Call dialogTest (OeffnenDlg) - '///+ cancel dialog 'open' ///' - OeffnenDlg.Cancel - sleep 1 - Kontext "TabInteraktion" - '/// Select 8th entry from top in 'Action at mouse click' : 'Run Program' ///' - AktionBeiMausklick.select 9 - Printlog AktionBeiMausklick.GetSelText + " chosen" - Call DialogTest (TabInteraktion, 7) - Kontext "TabInteraktion" - '///+ click button 'Browse...' ///' - Durchsuchen.Click - sleep 1 - Kontext "OeffnenDlg" - Call dialogTest (OeffnenDlg) - '///+ cancel dialog 'open' ///' - OeffnenDlg.Cancel - sleep 1 - '/// Select 9th entry from top in 'Action at mouse click' : 'Run Macro' ///' - Kontext "TabInteraktion" - AktionBeiMausklick.select 10 - Printlog AktionBeiMausklick.GetSelText + " chosen" - sleep 3 - Call DialogTest (TabInteraktion, 6) - '///+ click button 'Browse...' ///' - Durchsuchen.Click - sleep 1 - Kontext "ScriptSelector" - sleep 1 - Call DialogTest ( ScriptSelector, 1) - sleep 1 - '///+ cancel dialog 'ScriptSelector' ///' - ScriptSelector.Cancel - sleep 1 - '/// Select 10th entry from top in 'Action at mouse click' : 'Exit Presentation' ///' - Kontext "TabInteraktion" - AktionBeiMausklick.select 11 - Printlog AktionBeiMausklick.GetSelText + " chosen" - Call DialogTest (TabInteraktion, 7) - Kontext "TabInteraktion" - '/// close dialog 'Interaction' ///' - TabInteraktion.Close - sleep 2 - '/// close application ///' - Call hCloseDocument -endcase - - - - - diff --git a/testautomation/graphics/optional/includes/impress/im_011_.inc b/testautomation/graphics/optional/includes/impress/im_011_.inc deleted file mode 100644 index 30ab1bebb..000000000 --- a/testautomation/graphics/optional/includes/impress/im_011_.inc +++ /dev/null @@ -1,173 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : Impress Required Test Library (11) -'* -'\***************************************************************** - -testcase tiDiaLeiste - -' only in IMPRESS - dim sTemp as string - Dim i,x as integer - -'/// open application ///' - Call hNewDocument - sleep 1 -'/// Change options so the presentation won't start from the current, but the first slide. ///' - ToolsOptions - hToolsOptions ( "IMPRESS", "General" ) - MitAktuellerSeite.Uncheck - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - -'/// insert a graphic: "global\input\graf_inp\desp.bmp") ///' - Printlog "- Insert graphic from file so there is something for the slide mode" - hGrafikEinfuegen ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp") - sleep 3 -'///+ Insert->Slide ///' - InsertSlide - sleep 2 - hTypekeys "<Pagedown>" - sleep 2 -'///+ insert a graphic: "global\input\graf_inp\desp.bmp") ///' - hGrafikeinfuegen ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp") - sleep 3 -'///+ View->Master View->Slides View ///' - ViewWorkspaceSlidesView - sleep 2 -'-------------------------------- Ueberblendeffekt ---------------------------------------- - Printlog "- Test blend effect" - Kontext "SlideViewObjectbar" ' CORRECT - sleep 5 - - if Ueberblendeffekt.GetItemCount <> 57 then warnlog "these are not 57: " + Ueberblendeffekt.GetItemCount -'/// select last entry 'Automatic (random)' in listbox 'Slide Effects' on object toolbar ///' - Ueberblendeffekt.Select (Ueberblendeffekt.GetItemCount) - Printlog " select last effect (random effect): " + Ueberblendeffekt.GetSelText - -' Printlog Geschwindigkeit.GetRT ' 341 listbox -' Printlog Diawechsel.GetRT ' 341 listbox -' Printlog Zeit.GetRT ' 353 spinfield -' Printlog DiasProReihe.GetRT ' 353 spinfield -' Printlog PraesentationMitZeitnahme.GetRT doesn't work, but behave as button -' Printlog DiaAnzeigen.GetRT doesn't work, but behave as button - -'-------------------------------- Geschwindigkeit ----------------------------------------- - Printlog "- Check different speed settings" - Kontext "SlideViewObjectbar" -'/// select every item in list 'Transition Speed' ///' - x = Geschwindigkeit.GetItemCount - for i = 1 to x - Geschwindigkeit.Select i - Printlog " changed to: " + Geschwindigkeit.GetSelText - next i -'-------------------------------- Diawechsel ---------------------------------------------- - Printlog "- Style of slide change" - Kontext "SlideViewObjectbar" -'/// select every item in list 'Auto Transition' ///' - x = Diawechsel.GetItemCount - for i = 1 to x - Diawechsel.Select i - Printlog " Changed to: " + Diawechsel.GetSelText + "; is time enabled ?: "+Zeit.IsEnabled - next i -'-------------------------------- Diawechsel Zeitintervall -------------------------------- - Printlog "- Zeitintervall testen" - Kontext "SlideViewObjectbar" -'/// select last entry 'Automatic' in listbox 'Auto Transition' ///' - Diawechsel.Select (Diawechsel.GetItemCount) ' automatic is usually the last one - sleep 1 - if (Zeit.IsEnabled = FALSE) Then Warnlog "- Time should be editable, if automatic is chosen" -'/// type "15" into the field 'Time' ///' - Zeit.SetText "15" - sleep 1 - Printlog " Time set to: " + Zeit.GetText -'-------------------------------- Praesentation mit Zeitnahme ------------------------------ - Printlog "- Presentation with rehearsed timings" - Kontext "SlideViewObjectbar" -'/// click button 'Rehearse Timings' ///' - PraesentationMitZeitnahme.Click - sleep 2 - Kontext "DocumentPresentation" - if DocumentPresentation.exists (5) then - sleep 5 -'/// wait some seconds and click with mouse ///' - DocumentPresentation.MouseDown 50,50 - DocumentPresentation.MouseUp 50,50 - sleep 2 -'/// wait some seconds and click with mouse ///' - DocumentPresentation.MouseDown 50,50 - DocumentPresentation.MouseUp 50,50 - sleep 3 - else - warnlog "Didn't switch into presentation mode :-(" - endif - Kontext "DocumentPresentation" - if DocumentPresentation.exists (5) then - warnlog "We are still in presentation mode :-( WHY!!!!???" - endif -'------------------------------- Dia anzeigen ja/nein -------------------------------------- - Printlog "- Show slide yes/no" - Kontext "SlideViewObjectbar" -'/// click button 'Show/Hide Slide' ///' - DiaAnzeigen.Click - sleep 3 -'/// click button 'Show/Hide Slide' ///' - DiaAnzeigen.Click -'------------------------------- Dias pro Reihe -------------------------------------------- - Printlog "- Presentation with rehearsed timings" - Kontext "SlideViewObjectbar" - sTemp = DiasProReihe.GetText -'/// press button 'less' in field 'Slides Per Row' ///' - DiasProReihe.Less - if sTemp = DiasProReihe.GetText then warnlog " nothing changed (less)" - sTemp = DiasProReihe.GetText -'/// press button 'more' in field 'Slides Per Row' ///' - DiasProReihe.more - if sTemp = DiasProReihe.GetText then warnlog " nothing changed (more 1)" - sTemp = DiasProReihe.GetText -'/// press button 'more' in field 'Slides Per Row' ///' - DiasProReihe.more - if sTemp = DiasProReihe.GetText then warnlog " nothing changed (more 2)" - kontext - if active.exists then - warnlog "active (1): '"+active.gettext+"'" - endif -'/// Restore default settings in ToolsOptions ///' - ToolsOptions - hToolsOptions ( "IMPRESS", "General" ) - MitAktuellerSeite.Check - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK -'/// close application ///' - Call hCloseDocument - sleep 2 -endcase - - diff --git a/testautomation/graphics/required/includes/global/gallery.inc b/testautomation/graphics/required/includes/global/gallery.inc deleted file mode 100644 index cfdac0029..000000000 --- a/testautomation/graphics/required/includes/global/gallery.inc +++ /dev/null @@ -1,987 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : Global Required/resource test: Checking the gallery -'* -'\****************************************************************************** -testcase tGallery_DialogTest - '///Open a new Writer document - '///Tools / Gallery - printlog "- Working with Gallery-Beamer!" - gApplication = "WRITER" - call hNewDocument - call hOpenGallery - Kontext "DocumentWriter" - '///+Undock the <i>Gallery Beamer</i> - printlog "- undock the Gallery Beamer" - Kontext "Gallery" - Gallery.Undock ( AlignTop ) - sleep(2) - '///+<ul><li>Move the gallery-window</li></ul> - printlog " - move the gallery window" - Gallery.move ( 20, 20 ) - sleep(2) - '///+Dock the <i>Gallery Beamer</i> - printlog "- dock the Gallery Beamer" - Gallery.Dock ( AlignTop ) - sleep(2) - '///+Close the <i>Gallery Beamer</i> (Tools / Gallery) - printlog "- close the Gallery Beamer" - ToolsGallery - call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tGallery_ActivateAndUpdateAllThemes - Dim iThemeCount as Integer - Dim i as Integer - Dim j as Integer - Dim Gallerytext as string - '///Activate and update all gallery themes (NET installation: Activate only!) - '///Open a new Writer document - '///+Tools / Gallery - '///+Click on each theme and update it (via context menu) - printlog "activate and update all gallery-themes" - gApplication = "WRITER" - call hNewDocument - Kontext - call hOpenGallery - Kontext "Gallery" - iThemeCount = Gallerys.GetItemCount - for i=1 to iThemeCount - if gNetzInst = FALSE then - Kontext "Gallery" - Gallerytext = Gallerys.GetItemText(i) - printlog "- " + i + ". entry (" & Gallerytext & ")" - Gallerys.Select i - Gallerys.MouseMove ( 10, 10 ) - Gallerys.OpenContextMenu - sleep (3) - printlog " - update" - hMenuSelectNr (1) - sleep (3) - Kontext "Messagebox" - if Messagebox.Exists(3) then - if Messagebox.getRT=304 then - printlog "- 'MyTheme' is the " & i & "'s entry." - Messagebox.No - end if - else - for j = 1 to 800 - Kontext "AktualisierenGallery" - if AktualisierenGallery.Exists then - printlog "DEBUG (j): " & j - sleep (1) - else - printlog "DEBUG: 800 reached!" - j=801 - end if - next j - end if - end if - next i - call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tGallery_CheckNames - Dim iThemeCount as Integer - Dim i as Integer - Dim j as Integer - Dim ssList (100) as String - Dim siList (100) as String - Dim sFileName as String - Dim iGalleryThemes as integer - - if gOOO = true then - sFileName = ConvertPath ( gTesttoolPath + "graphics\required\input\gallery\gal_oo_" + iSprache + ".txt" ) - else - sFileName = ConvertPath ( gTesttoolPath + "graphics\required\input\gallery\gal_" + iSprache + ".txt" ) - end if - - '///Check the names for the gallery themes - '///Open a new Writer document - '///+Tools / Gallery - gApplication = "WRITER" - call hNewDocument - Kontext - call hOpenGallery - '///+Check the number of gallery themes. For StarOffice: should be 32. For OpenOffice.Org: should be 6. - printlog "- check the number of gallery-themes" - Kontext "Gallery" - if NOT gOOO then - if bAsianLan then - iGalleryThemes = 29 ' Flags are not allowed! - else - iGalleryThemes = 30 - end if - else - if bAsianLan then - iGalleryThemes = 6 ' Flags are not allowed! - else - iGalleryThemes = 6 - end if - end if - iThemeCount = Gallerys.GetItemCount - if (iThemeCount <> iGalleryThemes) then - warnlog "Difference in count of gallery themes; found: '" + iThemeCount + "'; expected: '"+ iGalleryThemes +"'" - end if - for i=1 to iThemeCount - Gallerys.Select i - ListAppend ( siList(), Gallerys.GetSelText ) - next i - '///+Check all names with a list which depends on language (<i>gTestToolPath</i>/graphics/udpate/input/gallery) - printlog "- check the names of gallery-themes" - if Dir ( sFilename ) = "" then - warnlog "The file for comparison does not exists. The file will be written!" - warnlog "Please control : " + sFilename - ListWrite ( siList(), sFilename, "utf8" ) - else - printlog " file for comparison is : " + sFilename - ListRead ( ssList (), sFilename, "uft8" ) - gCompare2Lists ( siList(), ssList () ) - end if - ToolsGallery - call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tGallery_CheckContextMenuForGalleryThemes - Dim iForBidden as Integer - Dim iMenuEntries as Integer - Dim i as Integer - Dim iThemeCount as Integer - '/// Check the contextmenu for the gallery themes - '/// Open a new Writer document - '/// +Tools / Gallery - printlog "check the contextmenu for the gallery-themes" - gApplication = "WRITER" - call hNewDocument - call hOpenGallery - '/// +Testing <i>rename</i> and <i>properties</i> for each gallery theme (via context-menu) - '/// +<ul><li>Only the private gallery theme must be deleteable (different 3 entries in the context-menu than the rest)</li></ul> - Kontext "Gallery" - iThemeCount = Gallerys.GetItemCount - Gallerys.MouseMove ( 10, 10 ) - for i=1 to iThemeCount - Kontext "Gallery" - printlog "- " + i + ". entry" - sleep 1 - Gallerys.Select 1 - sleep (1) - Gallerys.Select i - sleep (1) - Gallerys.OpenContextMenu - sleep (2) - iMenuEntries = hMenuItemGetCount - if iMenuEntries <> 3 then - if gNetzInst = FALSE then - warnlog "There are not 3 entries! => no test on the contextmenu!" - else - if iMenuEntries <> 1 then - warnlog "Net-Inst : There are not 1 entries! => no test on the contextmenu!" - else - sleep (3) - hMenuSelectNr(1) - Kontext - if Active.GetPageCount <> 1 then - warnlog "There are more than 1 Tabpage in Net-Installation ( perhaps no root-installation )!" - end if - Active.SetPage TabAllgemeinGallery - Kontext "TabAllgemeinGallery" - TabAllgemeinGallery.Cancel - sleep (1) - end if - end if - else - sleep (1) - hMenuSelectNr(2) - Kontext "GalleryNewTitle" - GalleryNewTitle.Cancel - sleep(1) - Kontext "Gallery" - Gallerys.OpenContextMenu - sleep (3) - hMenuSelectNr (3) - Kontext - Active.SetPage TabAllgemeinGallery - Active.SetPage TabDateien - Kontext "TabDateien" - TabDateien.Cancel - sleep(1) - end if - next i - ToolsGallery - call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tGallery_CreateAndWorkWithANewGalleryThemes - Dim iMenuEntries as Integer - Dim j as Integer - '/// Open a new Writer document - '/// Tools / Gallery - printlog "create a new gallery-theme ( TT-theme )" - gApplication = "WRITER" - call hNewDocument - call hOpenGallery - iMenuEntries = Gallerys.GetItemCount - printlog "- Clicking on 'New Theme' and creating a new theme" - '/// Create a new gallery-theme - '/// + by clicking on <i>New Theme</i> - NewTheme.Click - '/// +Activate <i>General</i> tabpage and insert <b><i>TT-theme</b></i> as name - Kontext - Active.SetPage TabAllgemeinGallery - Kontext "TabAllgemeinGallery" - NeuesThema.SetText "TT-theme" - sleep (1) - printlog " - named the new theme 'TT-theme' on the general-page" - printlog " - insert all files out of '[gTestToolpath]\global\input\graf_inp' in the files-page" - '/// +Activate <i>Files</i> tabpage - Kontext - Active.SetPage TabDateien - Kontext "TabDateien" - printlog " - click 'add' without a selected file => insert-graphic-dialog has to be be visible" - '/// +Click on <i>Add</i> (If no file is selected the <i>Graphic-Insert</i> dialog has to be be opened -> close it) - Hinzufuegen.Click - sleep (1) - Kontext "GrafikEinfuegenDlg" - GrafikEinfuegenDlg.Cancel - sleep (1) - printlog " - click 'find files' to insert the path for graphics" - '///+Click on <i>Find Files</i> => <i>select-path</i> dialog will be visible - Kontext "TabDateien" - Suche.Click - sleep (1) - '/// +Insert [gTesttoolPath]/input/global/graf_inp as path-name as click on <i>Select</i> - Kontext "OeffnenDlg" - Pfad.SetText ( convertPath ( gTesttoolPath + "global\input\graf_inp" ) ) - sleep (1) - Auswaehlen.Click - sleep (10) - '/// +Click on <i>Add</i> for some graphics - printlog " - 'add' one by one" - Kontext "TabDateien" - DateiListe.Select 1 - WaitSlot(1000) - Hinzufuegen.Click - sleep (1) - DateiListe.Select 1 - Hinzufuegen.Click - sleep (1) - '/// +Click on <i>Add all</i> for rest of the graphics - '/// +<ul><li>apply-dialog -> cancel</li></ul> - '/// +click on <i>Add all</i> for rest of the graphics - printlog " - 'add all' for the rest of the files" - DateiListe.Select 1 - HinzufuegenAlle.Click - printlog " - apply-dialog -> cancel" - Kontext "ApplyGallery" - for j=1 to 100 - if ApplyGallery.Exists then - try - ApplyGallery.Cancel - catch - endcatch - else - if j>5 then j=101 - sleep (1) - end if - next j - Kontext "TabDateien" - if DateiListe.GetItemCount > 1 then - printlog " - 'add all' for the rest of the files" - DateiListe.Select 1 - HinzufuegenAlle.Click - sleep (2) - Kontext "ApplyGallery" - for j=1 to 100 - If ApplyGallery.Exists then - sleep (1) - else - j=101 - end if - next j - end if - Kontext "TabDateien" - printlog " - click 'OK' for the tabpages" - TabDateien.OK - '/// +Check if the new entry is inserted and select it - printlog " - check if the new entrie is inserted and select it" - Kontext "Gallery" - if Gallerys.GetItemCount <> ( iMenuEntries + 1 ) then - warnlog "No new theme was created => the test ends here" - ToolsGallery - call hCloseDocument - else - gMouseClick 50,50 '/// make mouseclick to set focus ///' - Kontext "Gallery" - Gallerys.Select "TT-theme" - Gallerys.MouseMove ( 10, 10 ) - sleep (1) - Gallerys.OpenContextMenu - '/// +Update the entry (1. entry in context menu ) => cancel it - printlog " - update the entry => cancel the update" - sleep (3) - hMenuSelectNr (1) - sleep (1) - Kontext "AktualisierenGallery" - if AktualisierenGallery.Exists <> TRUE then - AktualisierenGallery.Cancel - end if - do - sleep 1 - loop while AktualisierenGallery.Exists - Kontext "Gallery" - Gallerys.Select "TT-theme" - Gallerys.OpenContextMenu - '/// +Update it (1. entry in context menu ) - printlog " - update" - sleep (3) - hMenuSelectNr (1) - for j=1 to 100 - Kontext "AktualisierenGallery" - if AktualisierenGallery.Exists <> TRUE then - j=101 - else - sleep (1) - end if - next j - '/// +Rename it (3. entry in context menu) - printlog " - rename ( 3. entry in context-menu )" - Kontext "Gallery" - Gallerys.OpenContextMenu - sleep (3) - hMenuSelectNr (3) - Kontext "GalleryNewTitle" - Title.SetText "New TT-theme" - GalleryNewTitle.OK - Kontext "Gallery" - Gallerys.Select "New TT-theme" - '///+Add new files in properties (4. entry in context menu) - printlog " - add new graphics in properties ( 4. entry in context-menu )" - Kontext "Gallery" - Gallerys.OpenContextMenu - sleep (3) - hMenuSelectNr (4) - Kontext - Active.SetPage TabDateien - Kontext "TabDateien" - Suche.Click - Kontext "OeffnenDlg" - Pfad.SetText ( convertPath ( gTesttoolPath + "global\input\graf_inp" ) ) - Auswaehlen.Click - sleep (10) - Kontext "TabDateien" - DateiListe.Select 1 - Hinzufuegen.Click - TabDateien.OK - '/// +Delete the entry (2. entry in context menu) - printlog " - delete the entry ( 2. entry in context-menu )" - printlog " - messagebox -> no" - Kontext "Gallery" - Gallerys.Select "New TT-theme" - sleep (3) - Gallerys.OpenContextMenu - sleep (3) - hMenuSelectNr (2) - Kontext "Active" - sleep (1) - Active.No - printlog " - messagebox -> yes" - Kontext "Gallery" - sleep (1) - Gallerys.Select "New TT-theme" - sleep (1) - Gallerys.OpenContextMenu - sleep (3) - hMenuSelectNr (2) - Kontext "Active" - Active.Yes - try - Kontext "Gallery" - Gallerys.Select "New TT-theme" - warnlog "The entry isn't deleted!" - catch - endcatch - end if - sleep 10 - ToolsGallery - call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tGallery_GalleryView_Preview - Dim jpeg_bkg as Integer - Dim iAnimation as Integer - Dim iSound as Integer - Dim i as Integer - Dim iPreview as Integer - Dim iTitle as Integer - if NOT gOOO then - select case iSprache - case 01 : jpeg_bkg = 3 : iAnimation = 1 : iSound = 28 - case 07 : jpeg_bkg = 29 : iAnimation = 1 : iSound = 6 - case 31 : jpeg_bkg = 3 : iAnimation = 3 : iSound = 11 - case 33 : jpeg_bkg = 13 : iAnimation = 1 : iSound = 29 - case 34 : jpeg_bkg = 11 : iAnimation = 1 : iSound = 28 - case 36 : jpeg_bkg = 12 : iAnimation = 1 : iSound = 10 - case 39 : jpeg_bkg = 10 : iAnimation = 1 : iSound = 27 - case 46 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 17 - case 48 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 17 - case 49 : jpeg_bkg = 12 : iAnimation = 1 : iSound = 16 - case 55 : jpeg_bkg = 21 : iAnimation = 1 : iSound = 28 - case 81 : jpeg_bkg = 21 : iAnimation = 1 : iSound = 10 'FHA TODO: Find out the right numbers for Asian languages. - case 82 : jpeg_bkg = 1 : iAnimation = 17 : iSound = 12 - case 86 : jpeg_bkg = 1 : iAnimation = 9 : iSound = 13 - case 88 : jpeg_bkg = 1 : iAnimation = 7 : iSound = 20 - case else : jpeg_bkg = 10 : iAnimation = 1 : iSound = 17 - warnlog "Please insert the entrienumbers for 'Backgrounds', 'Sounds' and one with normal files ( Animations )" - end select - else ' Testing OOO - select case iSprache - case 01 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2 - case 07 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2 - case 31 : jpeg_bkg = 3 : iAnimation = 1 : iSound = 1 - case 33 : jpeg_bkg = 3 : iAnimation = 1 : iSound = 2 - case 34 : jpeg_bkg = 1 : iAnimation = 1 : iSound = 2 - case 36 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 2 - case 39 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 2 - case 46 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2 - case 48 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2 - case 49 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2 - case 55 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2 - case 81 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2 'FHA TODO: Find out the right numbers for Asian languages. - case 82 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2 - case 86 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 3 - case 88 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2 - case else : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2 - warnlog "Please insert the entrienumbers for 'Backgrounds', 'Sounds' and one with normal files ( Animations )" - end select - end if - '/// Open a new Writer document - '/// Tools / Gallery - printlog "open a writer and the gallery" - gApplication = "WRITER" - call hNewDocument - Kontext - call hOpenGallery - '/// Check the view for Background-pictures (JPEGs), for standard graphic files (Animation) and for <i>Sound</i> objects - for i=1 to 3 - if i=1 then - Gallerys.Select jpeg_bkg - printlog "selected gallery-theme : Backgrounds (Jpeg-files)" - end if - if i=2 then - Gallerys.Select iAnimation - printlog "selected gallery-theme : Animation" - end if - if i=3 then - Gallerys.Select iSound - printlog "selected gallery-theme : Sound" - end if - if gNetzInst = FALSE then - iPreview = 2 : iTitle = 3 - else - iPreview = 2 : iTitle = 0 - end if - '/// Test the list-view - '/// +Click on List-View-Button in toolbar - printlog "- list-view" - printlog " - open the list-view" - ListView.Click - sleep (1) - printlog " - Press Home + Enter to focus and enter Preview-mode." - '/// +Double-click on an object (preview has to be visible) - View.TypeKeys "<HOME>" - View.TypeKeys "<RETURN>" - sleep (2) - '/// +Back to normal view with Enter - View.TypeKeys "<RETURN>" - sleep (2) - '/// +Preview out of context menu on/off - printlog " - preview out of context menu on/off" - View.TypeKeys "<HOME>" - Sleep (2) - View.OpenContextMenu true - sleep (3) - hMenuSelectNr ( iPreview ) - sleep (3) - kontext "Gallery" - Sleep (2) - View.OpenContextMenu true - sleep (2) - hMenuSelectNr ( iPreview ) - sleep (3) - '/// +Title (FAT installation only) - if gNetzInst = FALSE then - printlog " - title" - Kontext "Gallery" - sleep (2) - View.OpenContextMenu true - sleep (3) - hMenuSelectNr ( iTitle ) - Kontext "GalleryNewTitle" - sleep (1) - GalleryNewTitle.Cancel - sleep (1) - Kontext "Gallery" - end if - View.OpenContextMenu true - sleep (3) - hMenuSelectNr ( iPreview ) - sleep (3) - '/// Should now be in Preview-mode. Check if we are. ///' - View.OpenContextMenu true - sleep (3) - printlog MenuIsItemChecked (MenuGetItemID(iPreview+1)) - if MenuIsItemChecked (MenuGetItemID(iPreview+1)) then - Printlog " Entered Preview-mode correctly" - sleep (1) - else - Warnlog " Didnt seem to enter preview-mode correctly." - end if - MenuSelect (0) - sleep (1) - '/// From here, try switching to icon-view ///' - '///+Click on Icon-View-Button in toolbar - printlog "- icon-view" - if IconView.isEnabled then - IconView.Click - qaErrorLog "The bug 64543 has been fixed! Please report to FHA." - end if - sleep (1) - View.TypeKeys "<HOME>" - printlog " - Enter to get out of Preview-mode" - '/// +Press Return on an object (preview has to be visible) - View.TypeKeys "<RETURN>" - sleep (2) - '/// +Back to normal view with Return - View.TypeKeys "<RETURN>" - sleep (2) - '/// +Preview out of context menu on/off - printlog " - preview out of context menu on/off" - View.TypeKeys "<HOME>" - sleep (3) - View.OpenContextMenu true - sleep (3) - hMenuSelectNr ( iPreview ) - sleep (3) - View.OpenContextMenu true - sleep (3) - hMenuSelectNr ( iPreview ) - sleep (3) - '/// +Title (FAT installation only) - if gNetzInst = FALSE then - printlog " - title" - try - View.OpenContextMenu true - sleep (3) - catch - warnlog "Could not open Contextmenu for Title nr:" +iTitle - endcatch - hMenuSelectNr ( iTitle ) - Kontext "GalleryNewTitle" - GalleryNewTitle.Cancel - Kontext "Gallery" - end if - next i - sleep 1 ' else crash - ToolsGallery - - '/// If the MediaPlayer exists - close it ///' - kontext "Mplayer" - if Mplayer.Exists then - if (gApplication = "IMPRESS") then - kontext "DocumentImpress" - else - kontext "DocumentDraw" - end if - ToolsMediaPlayer - else - if (gApplication = "IMPRESS") then - kontext "DocumentImpress" - else - kontext "DocumentDraw" - end if - end if - - call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tGallery_GalleryView_Insert - Dim jpeg_bkg as Integer - Dim iAnimation as Integer - Dim i as Integer - Dim j as Integer - Dim k as Integer - '/// Test gallery-view -> insert gallery-object with context-menu (3D-Object (<i>internal object</i>), Animation (<i>as file</i>)) - if NOT gOOO then - select case iSprache - case 01 : jpeg_bkg = 3 : iAnimation = 1 - case 07 : jpeg_bkg = 29 : iAnimation = 1 - case 31 : jpeg_bkg = 3 : iAnimation = 3 - case 33 : jpeg_bkg = 13 : iAnimation = 1 - case 34 : jpeg_bkg = 7 : iAnimation = 1 - case 36 : jpeg_bkg = 12 : iAnimation = 1 - case 39 : jpeg_bkg = 10 : iAnimation = 1 - case 46 : jpeg_bkg = 1 : iAnimation = 2 - case 48 : jpeg_bkg = 3 : iAnimation = 1 - case 49 : jpeg_bkg = 1 : iAnimation = 2 - case 55 : jpeg_bkg = 8 : iAnimation = 1 - case 81 : jpeg_bkg = 1 : iAnimation = 3 - case 82 : jpeg_bkg = 1 : iAnimation = 17 - case 86 : jpeg_bkg = 17 : iAnimation = 15 - case 88 : jpeg_bkg = 17 : iAnimation = 15 - case else : jpeg_bkg = 1 : iAnimation = 2 - warnlog "Please insert the entrienumbers for 'Backgrounds' and one with normal files ( Animations )" - end select - else ' Testing OOO - select case iSprache - case 01 : jpeg_bkg = 3 : iAnimation = 1 - case 07 : jpeg_bkg = 5 : iAnimation = 1 - case 31 : jpeg_bkg = 3 : iAnimation = 3 - case 33 : jpeg_bkg = 5 : iAnimation = 1 - case 34 : jpeg_bkg = 6 : iAnimation = 1 - case 36 : jpeg_bkg = 5 : iAnimation = 1 - case 39 : jpeg_bkg = 5 : iAnimation = 1 - case 46 : jpeg_bkg = 1 : iAnimation = 2 - case 48 : jpeg_bkg = 3 : iAnimation = 1 - case 49 : jpeg_bkg = 1 : iAnimation = 2 - case 55 : jpeg_bkg = 6 : iAnimation = 1 - case 81 : jpeg_bkg = 1 : iAnimation = 3 - case 82 : jpeg_bkg = 1 : iAnimation = 1 - case 86 : jpeg_bkg = 5 : iAnimation = 5 - case 88 : jpeg_bkg = 5 : iAnimation = 1 - case else : jpeg_bkg = 1 : iAnimation = 2 - warnlog "Please insert the entrienumbers for 'Backgrounds' and one with normal files ( Animations )" - end select - end if - '/// Test following for all applications (Writer, Calc, Impress, Draw) - for i=1 to 4 ' each application - if i=1 then gApplication = "WRITER" - if i=2 then gApplication = "CALC" - if i=3 then gApplication = "IMPRESS" - if i=4 then gApplication = "DRAW" - - '/// +Open a new document - '/// +Open the Gallery - printlog gApplication 'Chr(13) - call hNewDocument - call hOpenGallery - '/// +Select 3D-theme (these are internal objects and not realy files) - '/// +<ul><li>on context menu there are only 2 entries for insert (copy, link) - '/// +<li>insert the object per <i>copy</i></li> - '/// +<li>insert the object per <i>link</i></li></ul> - '/// +Select Animation theme (these are realy files) - '/// +<ul><li>On context menu there are only 2 entries for insert (copy, link ) for Calc, Draw Impress</li> - '/// +<li>On context menu there are only 3 entries for insert (copy, link, background / page, paragraph ) for Writer</li> - '/// +<li>insert the object per <i>copy</i></li> - '/// +<li>insert the object per <i>link</i></li> - '/// +<li>Only for the Writer:<ul> - '/// +<li>Insert the object per background / page</li> - '/// +<li>insert the object per background / paragraph</li></ul></li></ul> - '/// +Close the Gallery - '/// +Close the document - '/// Since the GraphicObjectbar could disturb our testing, we close it if it is open ///' - ' kontext "GraphicObjectbar" - ' if GraphicObjectbar.Exists then GraphicObjectbar.Close - for j=1 to 2 ' the two gallery-theme - if j=1 then - Gallerys.Select jpeg_bkg - printlog " selected gallery-theme : Backgrounds" - end if - - if j=2 then - Gallerys.Select iAnimation - printlog " selected gallery-theme : Animation" - end if - - if i=1 then ' test for writer - for k=1 to 2 - if k=1 then - ListView.Click - printlog " - insert on list view" - else - IconView.Click - printlog " - insert on icon view" - end if - - sleep (2) - View.Mousedown ( 5, 18 ) - View.Mouseup ( 5, 18 ) - View.typekeys "<DOWN>,<UP>" - - sleep (3) - View.TypeKeys "<SHIFT F10>" ' OpenContextMenu - sleep (3) - hMenuSelectNr ( 1 ) - - if j=1 then - printlog " - copy" - sleep (1) - hMenuSelectNr ( 1 ) - sleep (2) - else - printlog " - copy" - sleep (1) - hMenuSelectNr ( 1 ) - sleep (3) - - printlog " - link" - View.TypeKeys "<SHIFT F10>" 'OpenContextMenu - sleep (1) - hMenuSelectNr ( 1 ) - hMenuSelectNr ( 2 ) - sleep (3) - - printlog " - background -> page" - View.TypeKeys "<SHIFT F10>" 'OpenContextMenu - sleep (2) - hMenuSelectNr ( 1 ) - hMenuSelectNr ( 3 ) - hMenuSelectNr ( 1 ) - sleep (3) - - printlog " - background -> paragraph" - View.TypeKeys "<SHIFT F10>" 'OpenContextMenu - sleep (2) - hMenuSelectNr ( 1 ) - hMenuSelectNr ( 3 ) - hMenuSelectNr ( 2 ) - sleep (3) - end if - - kontext "GraphicObjectbar" - if GraphicObjectbar.Exists then - if GraphicObjectbar.isDocked = False then - GraphicObjectbar.Move 900,900 - end if - end if - kontext "Gallery" - - next k - else ' test for other applications ( calc, impress, draw ) - kontext "GraphicObjectbar" - if GraphicObjectbar.Exists then - if GraphicObjectbar.isDocked = False then - GraphicObjectbar.Move 900,900 - end if - end if - kontext "Gallery" - - kontext "Gluepointsobjectbar" - if Gluepointsobjectbar.Exists then - if Gluepointsobjectbar.isDocked = false then - Gluepointsobjectbar.Move 900,900 - end if - end if - kontext "Gallery" - - kontext "Optionsbar" - if Optionsbar.Exists then - if Optionsbar.isDocked = false then - Optionsbar.Move 900,900 - end if - end if - kontext "Gallery" - - for k=1 to 2 - if k=1 then - ListView.Click - printlog " - insert on list view" - else - IconView.Click - printlog " - insert on icon view" - end if - - sleep (1) - View.Mousedown ( 5, 18 ) - View.Mouseup ( 5, 18 ) - View.typekeys "<DOWN>,<UP>" - - sleep (1) - View.TypeKeys "<SHIFT F10>" 'OpenContextMenu - printlog " - copy" - sleep (3) - hMenuSelectNr ( 1 ) - hMenuSelectNr ( 1 ) - sleep (3) - - if j=2 then - View.TypeKeys "<SHIFT F10>" 'OpenContextMenu - printlog " - link" - sleep (3) - hMenuSelectNr ( 1 ) - hMenuSelectNr ( 2 ) - sleep (2) - end if - - next k - end if - next j - ToolsGallery - WaitSlot (2000) - call hCloseDocument - WaitSlot (2000) - next i -endcase - -'------------------------------------------------------------------------- - -testcase tGallery_GalleryView_Delete - Dim jpeg_bkg as Integer - Dim iAnimation as Integer - Dim iSound as Integer - Dim i as Integer - Dim j as Integer - Dim k as Integer - - if gNetzInst = TRUE then - ' TODO: since we now only know net- installations, make it work! - printlog "No test for 'net' installations, because there are no rights to delete objects out of Gallery!" - 'NOTE: Jump to NotForNetInst... - Goto NotForNetInst - end if - - '/// Test gallery view -> delete objects with context-menu ( Backgrounds (<i>internal object</i>), Animation (<i>file</i>), Sound (<i>file</i>)) - select case iSprache - case 01 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 28 - case 07 : jpeg_bkg = 29 : iAnimation = 1 : iSound = 6 - case 31 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 28 - case 33 : jpeg_bkg = 13 : iAnimation = 1 : iSound = 29 - case 34 : jpeg_bkg = 7 : iAnimation = 1 : iSound = 28 - case 36 : jpeg_bkg = 12 : iAnimation = 1 : iSound = 10 - case 39 : jpeg_bkg = 10 : iAnimation = 1 : iSound = 27 - case 46 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 18 - case 49 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 17 - case 55 : jpeg_bkg = 8 : iAnimation = 1 : iSound = 30 - case 81 : jpeg_bkg = 1 : iAnimation = 3 : iSound = 10 - case 82 : jpeg_bkg = 1 : iAnimation = 17 : iSound = 12 - case 86 : jpeg_bkg = 1 : iAnimation = 9 : iSound = 13 - case 88 : jpeg_bkg = 1 : iAnimation = 7 : iSound = 20 - case else : jpeg_bkg = 1 : iAnimation = 2 : iSound = 17 - warnlog "Please insert the entrienumbers for '3D-graphics', 'Sounds' and one with normal files ( Animations )" - end select - - '/// Open a new writer-doc - '/// Tools / Gallery - gApplication = "WRITER" - call hNewDocument - call hOpenGallery - '/// Delete one object in list-view and icon-view for 3D, Animation and Sound - for i=1 to 3 - Kontext "Gallery" - if i=1 then - Gallerys.Select jpeg_bkg - printlog " selected gallery-theme : Backgrounds" - end if - - if i=2 then - Gallerys.Select iAnimation - printlog " selected gallery-theme : Animation" - end if - - if i=3 then - Gallerys.Select iSound - printlog " selected gallery-theme : Sound" - end if - - for j=1 to 2 - Kontext "Gallery" - if j=1 then - IconView.Click - printlog " Icon view" - sleep 1 - end if - if j=2 then - ListView.Click - printlog " List view" - end if - - for k=1 to 2 - Kontext "Gallery" - sleep (1) - View.MouseMove ( 5, 15 ) - View.TypeKeys "<SHIFT F10>" 'OpenContextMenu true - hMenuSelectNr ( 4 ) - kontext "Active" - if k=1 then - Active.No - printlog " delete one object => no" - else - Active.Yes - printlog " delete one object => yes" - end if - next k - next j - next i - ToolsGallery - call hCloseDocument - 'NOTE: Jump End NotForNetInst - NotForNetInst: -endcase - -'------------------------------------------------------------------------- -testcase tGallery_Quick_check - - '/// Short check, if at least 2 files exist in the gallery, and if they are > 0 in size ///' - '/// One in the gallery folder itself and the other one in a subfolder. ///' - dim sFile(1) as string - dim i as integer - - sFile(0) = ConvertPath ( gOfficeBasisPath + "share/gallery/apples.gif" ) ' - sFile(1) = ConvertPath ( gOfficeBasisPath + "share/gallery/bullets/coffee_1.gif" ) ' - '/// Open a new document - call hNewDocument - for i = 0 to 1 - '/// Click to deselect any selected objects ///' - gMouseclick 1, 50 - if FileExists(sFile(i)) then - if (FileLen(sFile(i)) > 0 ) then - call hGrafikEinfuegen ( sFile(i) ) - else - warnlog "File lenght is 0: '" + sFile(i) + "'" - end if - else - warnlog "File doesn't exist: '" + sFile(i) + "'" - end if - next i - '///close the document - call hCloseDocument -endcase - diff --git a/testautomation/graphics/required/includes/global/gallery2.inc b/testautomation/graphics/required/includes/global/gallery2.inc deleted file mode 100644 index 0662b3412..000000000 --- a/testautomation/graphics/required/includes/global/gallery2.inc +++ /dev/null @@ -1,290 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' 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 : wolfram.garten@oracle.com -'* -'* short description : Checking all gallery themes -'* -'***************************************************************** -'* -' #1 tLoad100GalleryGraphicFiles 'Inserting 100 gallery graphics and checking the sizes -' #1 tCheckAllGalleryGraphicFiles 'Checking the size ( > 0 Byte ) of all gallery-files. -' #1 tInsertGalleryObjects 'Inserting random objects via contextmenu-insert-copy. -' #0 LoadGraphic -' #0 CheckGraphic -' #0 makeNumOutOfText -' #1 tSettingsToCM 'Measurement unit for textdocuments to cm -' #1 tResetSettings 'Resetting the measurement unit for textdocuments. -'* -'\****************************************************************************** - -testcase tSettingsToCM - - printlog " Setting the measurement unit for textdocuments to cm." - printlog " +Tools / options / text documents / general" - ExitRestartTheOffice - WaitSlot (10000) - Call hNewDocument - ToolsOptions - hToolsOptions ( "WRITER", "General" ) - iSaveSetting = Masseinheit.GetSelIndex - Masseinheit.Select 2 - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Call hCloseDocument - -endcase -'------------------------------------------------------------------------- -testcase tLoad100GalleryGraphicFiles - - '/// Inserting all gallery graphics in a Writer document and checking the sizes. - Dim lsFiles (3000) as String - Dim lsGraphics (3000) as String - Dim i as Integer - Dim y as Integer - Dim t as Integer - Dim iCount as Integer - Dim corLoad as Boolean - Dim x as boolean - - '/// Geting all installed gallery objects out of the installation in a list. - if gNetzInst = TRUE then - GetAllFileList ( ConvertPath ( gOfficeBasisPath + "share\gallery\" ), "*.*", lsFiles () ) - else - GetAllFileList ( ConvertPath ( gOfficePath + "share\gallery\" ), "*.*", lsFiles () ) - end if - call GetOnlyGraphics ( lsFiles (), lsGraphics() ) - iCount = ListCount ( lsGraphics() ) - printlog " We have " + iCount + " graphics in the gallery." - '/// + Open a new document - call hNewDocument - - for i = 1 to 100 - for y = 1 to 1 - randomize - t = Int((iCount*Rnd)) - if (t<1) then 'just so we get it between 1 and the amount of items. - y = y - 1 - end if - next y - - corLoad = FALSE - try - '/// <i>Loop begin</i> - '/// + Inserting all gallery files and checking the sizes - '/// +- Iinsert / graphic / from file - '/// +- Check the size in 'format / graphics' on the <i>Type</i> tabpage - '/// +-- The size should noz be smaler than 17*25cm / photos 21*25cm - '/// + Deleting the graphic with <delete> of the keyboard - '/// <i>Loop ends</i> - x = LoadGraphic ( lsGraphics(t), corLoad ) - printlog - catch - ExceptLog - if corLoad = FALSE then - warnlog "Problems with " + lsGraphics(t) - ResetApplication - call hNewDocument - end if - endcatch - if (not x) then - printlog " Tested nr: " + t + " : " + lsGraphics(t) - end if - next i - - '/// Close the gallery ///' - ToolsGallery - WaitSlot (2000) - '/// Close the document ///' - call hCloseDocument -endcase 'tLoadAllGalleryGraphicFiles - -'------------------------------------------------------------------------- - -testcase tCheckAllGalleryGraphicFiles -'/// Checking the filesize of all gallery graphics. - Dim lsFiles (3000) as String - Dim lsGraphics (3000) as String - Dim i as Integer - Dim y as Integer - Dim t as Integer - Dim iCount as Integer - Dim corLoad as Boolean - Dim x as boolean - - '/// Geting all installed gallery objects out of the installation in a list. - if gNetzInst = TRUE then - GetAllFileList ( ConvertPath ( gOfficeBasisPath + "share\gallery\" ), "*.*", lsFiles () ) - else - GetAllFileList ( ConvertPath ( gOfficePath + "share\gallery\" ), "*.*", lsFiles () ) - end if - call GetOnlyGraphics ( lsFiles (), lsGraphics() ) - iCount = ListCount ( lsGraphics() ) - printlog " We have " + iCount + " graphics in the gallery." - '/// Open a new document - call hNewDocument - - for i=1 to iCount - corLoad = FALSE - try - '/// <i>Loop begin</i> - '///+ Inserting all gallery files and checking the sizes - '///+- Iinsert / graphic / from file - '///+- Check the size in 'format / graphics' on the <i>Type</i> tabpage - '///+-- The size should noz be smaler than 17*25cm / photos 21*25cm - '///+ Deleting the graphic with <delete> of the keyboard - '/// <i>Loop ends</i> - x = CheckGraphic ( lsGraphics(i), corLoad ) - catch - ExceptLog - if corLoad = FALSE then - warnlog "Problems with " + lsGraphics(i) - ResetApplication - call hNewDocument - end if - endcatch - if (not x) then - printlog " Tested nr: " + i + " : " + lsGraphics(i) - end if - next i - '/// Close the gallery ///' - ToolsGallery - WaitSlot (2000) - '/// Close the document ///' - call hCloseDocument -endcase 'tLoadAllGalleryGraphicFiles - -'------------------------------------------------------------------------- - -testcase tInsertGalleryObjects - Dim lsFiles (3000) as String - Dim lsGraphics (3000) as String - Dim CountOfThemes - Dim HowManyItems as Integer - Dim WhichOne as Integer - Dim CountOfItems as Integer - Dim ct as Integer - Dim i as Integer - Dim d as Integer - Dim iCount as Integer - Dim corLoad, x as Boolean - - '/// 1. Select theme ///' - call hNewDocument - call hOpenGallery - kontext "Gallery" - CountOfThemes = Gallerys.GetItemCount - for ct = 1 to CountOfThemes - Gallerys.Select ct - printlog " Selected Gallery-Theme nr: " + ct + ": " + Gallerys.GetSelText - kontext "Gallery" - CountOfItems = View.GetItemCount() - '/// 2. Choose if we should test 3,4 or 5 objects. ///' - for d = 1 to 1 - randomize - HowManyItems=Int((5*Rnd)+(3*Rnd)) - if CountOfItems = 0 then - QaErrorLog " There were no objects in the the gallery-theme on position: " + ct - else - if (HowManyItems<3) then 'just so we get it between 3 and 5. - d = d - 1 - else - printlog " Will now select and copy " + HowManyItems + " items from this Theme." - end if - for i = 1 to HowManyItems - '/// 3. Select the objects ///' - for x = 1 to 1 - randomize - WhichOne=Int(CountOfItems*RND) '(5*Rnd)+(CountOfItems*Rnd)) - if (WhichOne<1) then 'just so we get it between 1 and the amount of items. '>(CountOfItems + 1)) OR (WhichOne<1) then ' - x = x - 1 - end if - next x - printlog " Will copy object nr: " + WhichOne - View.Mousemove (1,1) - View.TypeKeys "<HOME>" - View.TypeKeys "<RIGHT>", (WhichOne) - kontext "GraphicObjectBar" - if GraphicObjectBar.Exists then - if GraphicObjectBar.IsDocked = False then GraphicObjectBar.Dock - end if - kontext "Gallery" - sleep (1) - View.TypeKeys("<shift f10>") - sleep (1) - try - dim number as integer - number = MenuGetItemCount - if (number > 2) AND (number < 10) then - '/// 4. Copy the selected item into our document. ///' - hMenuSelectNr (1) 'Insert - hMenuSelectNr (1) 'As Copy - sleep (1) - else - Warnlog " The contextmenu came up, but the number of entries were strange." - printlog " Number of entries:" + number - MenuSelect(0) - end if - catch - warnlog " A contextmenu didnt come up for the gallery-theme on position: " + ct - i = HowManyItems - endcatch - '/// 5. Repeat 3.-5. until 2. is fulfilled. ///' - next i - end if 'if the theme didnt have any objects, we landed here. - next d - '/// 6. Change Theme. ///' - '/// 7. Repeat 2. - 8. until all themes are done. ///' - next ct - - Kontext "Gallery" - if Gallery.Exists(2) then - ToolsGallery - WaitSlot (2000) - end if - - '/// Remove the last copied object. ///' - hTypeKeys "<DELETE>" - call hCloseDocument - -endcase 'tInsertGalleryObjects - -'------------------------------------------------------------------------- -testcase tResetSettings - - printlog "Resetting the measurement unit for textdocuments." - printlog "+Tools / options / text documents / general" - call hNewDocument - ToolsOptions - hToolsOptions ( "WRITER", "General" ) - Masseinheit.Select iSaveSetting - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - call hCloseDocument - -endcase 'tResetSettings -'------------------------------------------------------------------------- diff --git a/testautomation/graphics/required/includes/global/id_001.inc b/testautomation/graphics/required/includes/global/id_001.inc index 18555fcfc..5e2b4912f 100644 --- a/testautomation/graphics/required/includes/global/id_001.inc +++ b/testautomation/graphics/required/includes/global/id_001.inc @@ -30,7 +30,34 @@ '* short description : '* '\****************************************************************************** - +sub id_001 + + printLog Chr(13) + "--------- id_001 ----------" + + qaerrorlog "#74988# tiFilePassword outcommented due to bug. -FHA" + call tiFilePassword + call tiFileSaveAs + call tiFileReload + call tiFileVersion + printlog " File->Send not possible to test, because extrnal prg get's called!" + call tiFileTemplates + ' Call tiFileNew instead i call: + call tmFileNewFromTemplate + call tmFileOpen + call tmFileClose + call tmFileSave + call tmFileSaveAs + call tmFileExit + + call tmFileSaveAll + call tmFileProperties + call tdFileExport + call tmFilePrinterSetting + ' special cases + ' Call AutoPilot 'inc\desktop\autopilo.inc + call tmFileExit ' don't test because unpredictable behaviour +end sub +'------------------------------------------------------------------------------ testcase tiFileSaveAs dim sFileName as string ' test document & new created doc diff --git a/testautomation/graphics/required/includes/global/id_002.inc b/testautomation/graphics/required/includes/global/id_002.inc index 9cc7dd10d..0b2a91818 100644 --- a/testautomation/graphics/required/includes/global/id_002.inc +++ b/testautomation/graphics/required/includes/global/id_002.inc @@ -30,6 +30,27 @@ '* short description : '* '\****************************************************************************** +sub id_002 + + printLog Chr(13) + "--------- id_002 ----------" + + call tiEditUndoRedo + call tiEditRepeat + call tiEditCutPasteCopySelectall + call tiEditPasteSpecial + call tiEditSearchAndReplace + call tiEditDuplicate + call tEditPoints + call tiEditFields + call tdEditDeleteSlide + call tiEditLinks + call tiEditImageMap + call tiEditObjectProperties + call tiEditObjectEdit + call tiEditPlugIn + call tiEditHyperlink +end sub +'------------------------------------------------------------------------- testcase tiEditUndoRedo printlog " open application" diff --git a/testautomation/graphics/required/includes/global/id_003.inc b/testautomation/graphics/required/includes/global/id_003.inc index 65e11b8a4..e7c47b2c4 100644 --- a/testautomation/graphics/required/includes/global/id_003.inc +++ b/testautomation/graphics/required/includes/global/id_003.inc @@ -30,6 +30,21 @@ '* short description : '* '\****************************************************************************** + +sub id_003 + + printLog Chr(13) + "--------- id_003 ----------" + + call tiViewNavigator + call tiViewZoom + call tiViewToolbar + Call tToolsCustomize 'global\required\include + call tiViewDisplayQuality + call tiViewLayer + call tViewSnapLines + call tViewGrid +end sub +'------------------------------------------------------------------------- testcase tiViewNavigator printlog " open application " diff --git a/testautomation/graphics/required/includes/global/id_004.inc b/testautomation/graphics/required/includes/global/id_004.inc index 3e4d3d86c..42b0170fe 100644 --- a/testautomation/graphics/required/includes/global/id_004.inc +++ b/testautomation/graphics/required/includes/global/id_004.inc @@ -30,6 +30,34 @@ '* short description : '* '\****************************************************************************** +sub id_004 + + printLog Chr(13) + "--------- id_004 ----------" + + call tiInsertSlide + call tiInsertDuplicateSlide + ' v expand slide + ' v summary slide + call tiInsertField + call tiInsertSpecialCharacter + call tiInsertHyperlink + call tiInsertScan + call tiInsertGraphic + call tiInsertObjectSound + call tiInsertObjectVideo + call tiInsertObjectSound + call tiInsertObjectVideo + call tiInsertChart + call tiInsertObjectOLEObjects + call tiInsertSpreadsheet + call tiInsertFormula + call tiInsertFloatingFrame + call tiInsertFile + call tiInsertPlugin + call tiInsertSnappointLine + call tdInsertLayer ' IMPRESS: Edit->Layer->Insert +end sub +'------------------------------------------------------------------------------ testcase tiInsertSlide printlog "Dateiname.settext Convertpath (gTesttoolPath + global\input\graf_inp\stabler.tif) " diff --git a/testautomation/graphics/required/includes/global/id_005.inc b/testautomation/graphics/required/includes/global/id_005.inc index 07783761b..6ec5a5988 100644 --- a/testautomation/graphics/required/includes/global/id_005.inc +++ b/testautomation/graphics/required/includes/global/id_005.inc @@ -30,6 +30,33 @@ '* short description : '* '\****************************************************************************** +sub id_005 + + printLog Chr(13) + "--------- id_005 ----------" + + call tiFormatDefault + call tiFormatLine + call tdFormatArea + call tiFormatText + call tiFormatPositionAndSize + call tiFormatCharacter + call tiFormatControlForm + ' ^ Form + call tiFormatDimensions + call tiFormatConnector + call tiFormat3D_Effects + call tiFormatNumberingBullets + call tiFormatCaseCharacter + call tiFormatParagraph + call tiFormatPage + call tiFormatStylesAndFormatting + call tiFormatStylesSlideDesign + call tiFormatFontwork + call tiFormatGroup + printlog " format->group is also modify->group " + ' tiFormatLayer ' not in impress +end sub +'------------------------------------------------------------------------------ testcase tiFormatDefault printlog "open application" @@ -985,8 +1012,8 @@ testcase tiFormatStylesSlideDesign DeleteUnusedBackgrounds.check printlog "click button 'Load...'" Laden.Click - kontext "Neu" - printlog "click button 'more'" + sleep (10) + Kontext "Neu" Zusaetze.click sleep 1 kontext "Neu" diff --git a/testautomation/graphics/required/includes/global/id_006.inc b/testautomation/graphics/required/includes/global/id_006.inc index 0b210157e..434959a7a 100644 --- a/testautomation/graphics/required/includes/global/id_006.inc +++ b/testautomation/graphics/required/includes/global/id_006.inc @@ -30,7 +30,6 @@ '* short description : '* '\********************************************************************************** - sub id_Tools printLog "--------- id_006 ----------" call tiToolsSpellchecking diff --git a/testautomation/graphics/required/includes/global/id_007.inc b/testautomation/graphics/required/includes/global/id_007.inc index 17a4456cc..29791d4b7 100644 --- a/testautomation/graphics/required/includes/global/id_007.inc +++ b/testautomation/graphics/required/includes/global/id_007.inc @@ -29,8 +29,33 @@ '* '* short description : '* -'\********************************************************************************** - +'\****************************************************************************** + +sub id_007 + + printLog Chr(13) + "--------- id_007 ----------" + ' in imp available via context menu, in draw via modify menu + + call tdModifyFlipVertikal + call tdModifyFlipHorizontal + call tdContextConvertIntoCurve + call tdContextConvertIntoPolygon + call tdContextConvertIntoContour + call tdContextConvertInto3D + call tdContextConvertIntoRotationObject + call tdContextConvertIntoBitmap + call tdContextConvertIntoMetaFile + call tdModifyArrange + call tdModifyArrangeObjects + call tdModifyAlignment + call tdContextDistribution + call tdContextDescriptionObject + call tdContextNameObject + call tdModifyConnectBreak + call tdModifyShapes + call tdModifyCombineSplit +end sub +'------------------------------------------------------------------------------- testcase tdModifyFlipVertikal '/// open application ///' diff --git a/testautomation/graphics/required/includes/global/id_008.inc b/testautomation/graphics/required/includes/global/id_008.inc index 4add85a48..8848c7337 100644 --- a/testautomation/graphics/required/includes/global/id_008.inc +++ b/testautomation/graphics/required/includes/global/id_008.inc @@ -30,7 +30,15 @@ '* short description : '* '\***************************************************************** +sub id_008 + printLog Chr(13) + "--------- id_008 ----------" + + Call tiWindowNewWindow + call tidWindow123 + +end sub +'------------------------------------------------------------------------------- testcase tiWindowNewWindow '/// open application ///' diff --git a/testautomation/graphics/required/includes/global/id_009.inc b/testautomation/graphics/required/includes/global/id_009.inc index 57ff31138..d03d99b60 100644 --- a/testautomation/graphics/required/includes/global/id_009.inc +++ b/testautomation/graphics/required/includes/global/id_009.inc @@ -30,7 +30,19 @@ '* short description : Testcases to test the Help-Menu. '* '\****************************************************************************** -' +sub id_009 + + printLog Chr(13) + "--------- id_009 ----------" + + call tCheckIfTheHelpExists + Call tmHelpContents + Call tmHelpHelpAgent + Call tmHelpTips + Call tmHelpExtendedTips + Call tmHelpAboutStarOffice + +end sub +'------------------------------------------------------------------------------ testcase tmHelpHelpAgent Call hNewDocument diff --git a/testautomation/graphics/required/includes/global/id_011.inc b/testautomation/graphics/required/includes/global/id_011.inc index 0bc685678..186c5e1b5 100644 --- a/testautomation/graphics/required/includes/global/id_011.inc +++ b/testautomation/graphics/required/includes/global/id_011.inc @@ -30,7 +30,18 @@ '* short description : '* '\****************************************************************************** +sub id_011 + printLog Chr(13) + "--------- id_011 ----------" + + call tdBezierToolbar + call tiDrawObjectBar + call tiTextToolbar + call tiGraphicsObjectBar + call tiGluepointToolbar + +end sub +'------------------------------------------------------------------------------- testcase tiTextToolbar Dim iWaitIndex as integer diff --git a/testautomation/graphics/required/includes/global/id_opt_2.inc b/testautomation/graphics/required/includes/global/id_opt_2.inc index b959b7185..8d38b2b9d 100644 --- a/testautomation/graphics/required/includes/global/id_opt_2.inc +++ b/testautomation/graphics/required/includes/global/id_opt_2.inc @@ -64,39 +64,6 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string) Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - FileExport - Kontext "ExportierenDlg" - Dateiname.SetText "adagio" - Dateityp.Select "BMP - Windows Bitmap (.bmp)" - if AutomatischeDateinamenserweiterung.Exists then - AutomatischeDateinamenserweiterung.Check - else - warnlog( "Automatic Filename Extension checkbox is mising" ) - endif - Speichern.Click - kontext "AlienWarning" - if AlienWarning.exists(5) then - warnlog "#i41983# Alien Warning on export not allowed" - AlienWarning.OK - endif - Kontext "Messagebox" - if Messagebox.Exists(2) then - Messagebox.Yes - endif - Sleep 3 - Kontext "BMPOptionen" - Groesse.Check - sUnitDialog = getMeasUnit(Breite.getText) ' (2) - if (getMeasUnit(Hoehe.getText) <> sUnitDialog) then - warnlog " Measurement Unit is different for Width:'" + sUnitDialog + "' and Hight:'" + getMeasUnit(Hoehe.getText) + "'" - else - printlog "Measurement Unit is same for Width:'" + sUnitDialog + "' and Hight:'" + getMeasUnit(Hoehe.getText) + "'" - endif - if (sUnitOptions <> sUnitDialog) then - printlog "#109705# Measurement Unit is different for Options:'" + sUnitOptions + "' and BMP Dialog:'" + sUnitDialog + "' (1) <> (2)" - endif - BMPOptionen.Cancel - Format3D_Effects Kontext "Drei_D_Effekte" Geometrie.Click diff --git a/testautomation/graphics/required/includes/impress/im_003_.inc b/testautomation/graphics/required/includes/impress/im_003_.inc index 0eec59322..744c24fb9 100644 --- a/testautomation/graphics/required/includes/impress/im_003_.inc +++ b/testautomation/graphics/required/includes/impress/im_003_.inc @@ -161,43 +161,27 @@ testcase tiViewSlideMaster else warnlog( "Dialog <AutopilotPraesentation1> did not open" ) endif - Kontext "Seitenlayout" ' aka: Modify Slide - - if ( Seitenlayout.exists( 5 ) ) then - warnlog "Slidelayout has to vanish; moved to sidebar" - hCloseDialog( Seitenlayout, "ok" ) - endif - kontext "DocumentImpress" - printlog "View->Slide " + + printlog "View->Slide" hUseAsyncSlot( "ViewSlide" ) - printlog "View->Master->Drawing " + printlog "View->Master->Drawing" hUseAsyncSlot( "ViewDrawing" ) - printlog "View->Slide " - hUseAsyncSlot( "ViewSlide" ) - - printlog "View->Master->Title " - try - ViewTitle - Errorlog "View - Master - Title Slide Master should NOT be accessable" - catch - printlog "View - Master - Title Slide Master not accessable - good" - endcatch - - printlog "View->Slide " + printlog "View->Slide" hUseAsyncSlot( "ViewSlide" ) - printlog "View->Master->Handout " + printlog "View->Master->Handout" hUseAsyncSlot( "ViewHandout" ) - printlog "View->Master->Notes " + printlog "View->Master->Notes" hUseAsyncSlot( "ViewNotes" ) kontext "DocumentImpress" - printlog "View->Slide " + printlog "View->Slide" hUseAsyncSlot( "ViewSlide" ) + sleep 1 printlog "close application " Call hCloseDocument @@ -210,12 +194,18 @@ testcase tiViewToolbar_1 Dim NumberOfGraphicModes as integer Dim iCurrentGraphicsMode as integer - dim TestFile as string + dim i as integer + TestFile = ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp") printlog "open application " Call hNewDocument + Call sSelectEmptyLayout + printlog "delete default content" + hUseAsyncSlot( "EditSelectAll" ) + Kontext "DocumentImpress" + DocumentImpress.typeKeys("<DELETE>",true) printlog "use the empty layout" call sSelectEmptyLayout @@ -238,8 +228,17 @@ testcase tiViewToolbar_1 printlog "select graphic " hUseAsyncSlot( "EditSelectAll" ) - Kontext "GraphicObjectbar" printlog "The Graphics Toolbar has to be visible now; If not -> ERROR " + ' workaround for i113609; there should have been a style selected without elements on creating the document - what failed; the elements should have been deleted before inserting the grafik in this test - which failed; so the workaround is to use <tab> to travel to the graphic selection here: + for i=1 to 3 + Kontext "GraphicObjectbar" + if ( not GraphicObjectbar.Exists( DEFAULT_DELAY ) ) Then + hTypeKeys("<tab>") + qaerrorlog "delete default content failed" + end if + next i + + Kontext "GraphicObjectbar" if ( GraphicObjectbar.Exists( DEFAULT_DELAY ) ) Then Printlog "- graphic object toolbar exists" diff --git a/testautomation/graphics/required/includes/impress/im_004_.inc b/testautomation/graphics/required/includes/impress/im_004_.inc index 2c55bc4c2..38fe040ec 100644 --- a/testautomation/graphics/required/includes/impress/im_004_.inc +++ b/testautomation/graphics/required/includes/impress/im_004_.inc @@ -41,25 +41,30 @@ end sub testcase tiInsertSlideExpandSummary - printlog "open application " + printlog "open application" Call hNewDocument - printlog "View->Master View->Outline View " + printlog "View->Master View->Outline View" ViewWorkspaceOutlineView - WaitSlot() + Sleep 1 Kontext "DocumentImpressOutlineView" - printlog "Type 2 rows " + printlog "Type 2 rows" DocumentImpressOutlineView.TypeKeys "Herbert<Return>Rudi" - sleep(1) - printlog "View->Master View->Drawing View " + printlog "View->Master View->Drawing View" ViewWorkspaceDrawingView - WaitSlot() - printlog "Insert->Summery Slide " + Sleep 1 + printlog "Insert->Summery Slide" InsertSummerySlide - WaitSlot() - printlog "Insert->Expand Slide " + Sleep 1 + printlog "Making sure we are on the 3rd slide.." + kontext "slides" + SlidesControl.TypeKeys "<PAGEDOWN>", 2 + sleep 1 + kontext "DocumentImpress" + printlog "Insert->Expand Slide" InsertExpandSlide - WaitSlot( 3000 ) - printlog "close application " + Sleep 2 + printlog "close application" Call hCloseDocument -endcase + +endcase 'tiInsertSlideExpandSummary diff --git a/testautomation/graphics/required/input/recht_1.odg b/testautomation/graphics/required/input/recht_1.odg Binary files differindex 7463fbaf1..720c437fa 100755 --- a/testautomation/graphics/required/input/recht_1.odg +++ b/testautomation/graphics/required/input/recht_1.odg diff --git a/testautomation/graphics/required/input/recht_1.odp b/testautomation/graphics/required/input/recht_1.odp Binary files differindex 24442ce94..fbad5296d 100755 --- a/testautomation/graphics/required/input/recht_1.odp +++ b/testautomation/graphics/required/input/recht_1.odp diff --git a/testautomation/graphics/required/input/recht_3.odg b/testautomation/graphics/required/input/recht_3.odg Binary files differindex c2f3461b9..b2df97654 100755 --- a/testautomation/graphics/required/input/recht_3.odg +++ b/testautomation/graphics/required/input/recht_3.odg diff --git a/testautomation/graphics/required/input/recht_3.odp b/testautomation/graphics/required/input/recht_3.odp Binary files differindex 768fbad4b..84ab26098 100644..100755 --- a/testautomation/graphics/required/input/recht_3.odp +++ b/testautomation/graphics/required/input/recht_3.odp diff --git a/testautomation/graphics/required/input/recht_31.odg b/testautomation/graphics/required/input/recht_31.odg Binary files differindex abe6d48ed..e7b1c4561 100755 --- a/testautomation/graphics/required/input/recht_31.odg +++ b/testautomation/graphics/required/input/recht_31.odg diff --git a/testautomation/graphics/required/input/recht_31.odp b/testautomation/graphics/required/input/recht_31.odp Binary files differindex 23f5c77c1..4f74eee30 100644..100755 --- a/testautomation/graphics/required/input/recht_31.odp +++ b/testautomation/graphics/required/input/recht_31.odp diff --git a/testautomation/graphics/required/input/recht_33.odg b/testautomation/graphics/required/input/recht_33.odg Binary files differindex 1288c85f2..03b6119a0 100755 --- a/testautomation/graphics/required/input/recht_33.odg +++ b/testautomation/graphics/required/input/recht_33.odg diff --git a/testautomation/graphics/required/input/recht_33.odp b/testautomation/graphics/required/input/recht_33.odp Binary files differindex c6acada25..c49571f51 100644..100755 --- a/testautomation/graphics/required/input/recht_33.odp +++ b/testautomation/graphics/required/input/recht_33.odp diff --git a/testautomation/graphics/required/input/recht_34.odg b/testautomation/graphics/required/input/recht_34.odg Binary files differindex b3fd1da6d..5789dd14f 100755 --- a/testautomation/graphics/required/input/recht_34.odg +++ b/testautomation/graphics/required/input/recht_34.odg diff --git a/testautomation/graphics/required/input/recht_34.odp b/testautomation/graphics/required/input/recht_34.odp Binary files differindex 2dcbd561f..fec4da84f 100644..100755 --- a/testautomation/graphics/required/input/recht_34.odp +++ b/testautomation/graphics/required/input/recht_34.odp diff --git a/testautomation/graphics/required/input/recht_36.odg b/testautomation/graphics/required/input/recht_36.odg Binary files differindex 81951c928..a328b9827 100755 --- a/testautomation/graphics/required/input/recht_36.odg +++ b/testautomation/graphics/required/input/recht_36.odg diff --git a/testautomation/graphics/required/input/recht_36.odp b/testautomation/graphics/required/input/recht_36.odp Binary files differindex 45f7fd3a4..318c75fb1 100644..100755 --- a/testautomation/graphics/required/input/recht_36.odp +++ b/testautomation/graphics/required/input/recht_36.odp diff --git a/testautomation/graphics/required/input/recht_39.odg b/testautomation/graphics/required/input/recht_39.odg Binary files differindex 0ef147755..6f0404a13 100755 --- a/testautomation/graphics/required/input/recht_39.odg +++ b/testautomation/graphics/required/input/recht_39.odg diff --git a/testautomation/graphics/required/input/recht_39.odp b/testautomation/graphics/required/input/recht_39.odp Binary files differindex bf649b488..777844272 100644..100755 --- a/testautomation/graphics/required/input/recht_39.odp +++ b/testautomation/graphics/required/input/recht_39.odp diff --git a/testautomation/graphics/required/input/recht_46.odg b/testautomation/graphics/required/input/recht_46.odg Binary files differindex 1ad25dad2..35abb9663 100755 --- a/testautomation/graphics/required/input/recht_46.odg +++ b/testautomation/graphics/required/input/recht_46.odg diff --git a/testautomation/graphics/required/input/recht_46.odp b/testautomation/graphics/required/input/recht_46.odp Binary files differindex e9de83b58..2c73a2a83 100644..100755 --- a/testautomation/graphics/required/input/recht_46.odp +++ b/testautomation/graphics/required/input/recht_46.odp diff --git a/testautomation/graphics/required/input/recht_48.odg b/testautomation/graphics/required/input/recht_48.odg Binary files differindex 1e3206ffc..ec17c200c 100755 --- a/testautomation/graphics/required/input/recht_48.odg +++ b/testautomation/graphics/required/input/recht_48.odg diff --git a/testautomation/graphics/required/input/recht_48.odp b/testautomation/graphics/required/input/recht_48.odp Binary files differindex f836b0521..635063049 100644..100755 --- a/testautomation/graphics/required/input/recht_48.odp +++ b/testautomation/graphics/required/input/recht_48.odp diff --git a/testautomation/graphics/required/input/recht_48.sxd b/testautomation/graphics/required/input/recht_48.sxd Binary files differdeleted file mode 100755 index ef01f9ff9..000000000 --- a/testautomation/graphics/required/input/recht_48.sxd +++ /dev/null diff --git a/testautomation/graphics/required/input/recht_48.sxi b/testautomation/graphics/required/input/recht_48.sxi Binary files differdeleted file mode 100755 index bdbd34003..000000000 --- a/testautomation/graphics/required/input/recht_48.sxi +++ /dev/null diff --git a/testautomation/graphics/required/input/recht_49.odg b/testautomation/graphics/required/input/recht_49.odg Binary files differindex 0898a8b99..d3bd17ae6 100755 --- a/testautomation/graphics/required/input/recht_49.odg +++ b/testautomation/graphics/required/input/recht_49.odg diff --git a/testautomation/graphics/required/input/recht_49.odp b/testautomation/graphics/required/input/recht_49.odp Binary files differindex 88c93c285..d8c6e495c 100644..100755 --- a/testautomation/graphics/required/input/recht_49.odp +++ b/testautomation/graphics/required/input/recht_49.odp diff --git a/testautomation/graphics/required/input/recht_55.odg b/testautomation/graphics/required/input/recht_55.odg Binary files differindex fc21ecba1..6f4f649b1 100755 --- a/testautomation/graphics/required/input/recht_55.odg +++ b/testautomation/graphics/required/input/recht_55.odg diff --git a/testautomation/graphics/required/input/recht_55.odp b/testautomation/graphics/required/input/recht_55.odp Binary files differindex 6e78d94e8..001e79a70 100644..100755 --- a/testautomation/graphics/required/input/recht_55.odp +++ b/testautomation/graphics/required/input/recht_55.odp diff --git a/testautomation/graphics/tools/id_tools.inc b/testautomation/graphics/tools/id_tools.inc index c774710c8..57bac12e8 100644 --- a/testautomation/graphics/tools/id_tools.inc +++ b/testautomation/graphics/tools/id_tools.inc @@ -104,10 +104,10 @@ function LiberalMeasurement ( sShould$, sActual$) as Boolean printlog "took units from http://gsl.openoffice.org/source/browse/gsl/vcl/source/src/units.src" select case GetMeasUnit(sShould$) case "mm", "ミリ", "公厘" : iTolerance = 2.0 '01, 81, 88 - case "cm","センãƒ","厘米","公分" : iTolerance = 0.5 '01, 81, 86, 88 + case "cm","センãƒ?","厘米","公分" : iTolerance = 0.5 '01, 81, 86, 88 case chr$(34) : iTolerance = 2.5 case "pi","ピクセル" : iTolerance = 2.5 '01, 81 - case "pt", "ãƒã‚¤ãƒ³ãƒˆ" : iTolerance = 2.5 '01, 81 + case "pt", "ãƒ?イント" : iTolerance = 2.5 '01, 81 case "" : iTolerance = 1.5 ' cm is presubposition in old functions case else iTolerance = 2.5 @@ -264,51 +264,51 @@ function fMakeDocumentWritable() as boolean printlog "Document is already writable." fMakeDocumentWritable = true endif - + sleep(1) end function '------------------------------------------------------------------------------- - -function fGetSizeXY (sX as string, sY as string, bRetrieveOnly as boolean) as Boolean - - const RC_FAILURE = -1 - +function fGetSizeXY (sX as string, sY as string, bGet as boolean) as Boolean dim sTx as string dim sTy as string + dim bReturn as boolean - fGetSizeXY() = True - - if ( hUseAsyncSlot( "ContextPositionAndSize" ) <> RC_FAILURE ) then - - kontext - active.SetPage TabPositionAndSize - - kontext "TabPositionAndSize" - if ( TabPositionAndSize.exists( 2 ) ) then - sTx = Width.GetText() - sTy = Height.GetText() - hCloseDialog( TabPositionAndSize, "ok" ) - else - warnlog "Couldn't switch tab page :-( " + bReturn = True + try + printlog "Trying to open Position and size Dialog.." + ContextPositionAndSize + catch + warnlog "couldn't call 'ContextPositionAndSize' no object selected ?" + endcatch + kontext + active.SetPage TabPositionAndSize + kontext "TabPositionAndSize" + printlog "Getting some sizes from Position and Size dialog." + if TabPositionAndSize.exists (5) then + sTx = Width.GetText + printlog "Width, sTx=" & sTx + sTy = Height.GetText + printlog "Height, sTy=" & sTy + TabPositionAndSize.OK + else + warnlog "Couldn't switch tab page :-( " + endif + if bGet then ' Get the Values only + sY = sTy + printlog "sY=" & sY + sX = sTx + printlog "sX=" & sX + else ' Get the Values and COMPARE them + if (LiberalMeasurement (sX,sTx) <> TRUE) then + warnlog "width is different :-( XXXXXXXXXXXXX should: '"+sX+"' is: '"+sTx+"'" + "eventually a result of i35519" + bReturn = False endif - - if ( bRetrieveOnly ) then ' Get the Values only - sY = sTy - sX = sTx - else ' Get the Values and compare them - if ( not LiberalMeasurement (sX,sTx) ) then - warnlog "width is different :-( should: '"+sX+"' is: '"+sTx+"'" + "eventually a result of i35519" - fGetSizeXY() = False - endif - if (not LiberalMeasurement (sY,sTy) ) then - warnlog "hight is different :-( should: '"+sY+"' is: '"+sTy+"'" + "eventually a result of i35519" - fGetSizeXY() = False - endif + if (LiberalMeasurement (sY,sTy) <> TRUE) then + warnlog "hight is different :-( xxxxxxxxxxxx should: '"+sY+"' is: '"+sTy+"'" + "eventually a result of i35519" + bReturn = False endif - else - warnlog( "Failed to open <Position And Size> dialog" ) + bGet = bReturn endif - end function '------------------------------------------------------------------------- diff --git a/testautomation/graphics/tools/id_tools_2.inc b/testautomation/graphics/tools/id_tools_2.inc index 435e58a73..60836bdb2 100644 --- a/testautomation/graphics/tools/id_tools_2.inc +++ b/testautomation/graphics/tools/id_tools_2.inc @@ -181,56 +181,6 @@ sub sPrintCheckOrder (optional bcheck as boolean) Printlog "-----------------------------------" end sub -'--------------------------- Tests for Writer ---------------------------------- -sub writertest - - try - call Make_And_Check_Formatted_Text_Line_From_Application - catch - warnlog "Something went wrong with testing writertest" - endcatch - - try - call Make_Rectangle_From_Application - call Full_test_Draw - call Full_test_Impress - call Full_test_Writer - call Full_test_Calc - catch - warnlog "something wrong with testing writertest" - endcatch -end sub ' big one - -'---------------------------- Tests for Calc ----------------------------------- -sub calctest - - try - call Make_Rectangle_From_Application - call Full_test_Draw - call Full_test_Impress - call Full_test_Writer - call Full_test_Calc - catch - warnlog "something wrong with calctest" - endcatch - printlog "currently no specific tests from Calc" -end sub - -'------------------------------------------------------------------------------- -sub tClipboardFromDrawTest - - EnableQAErrors = false - FromApp2 = gApplication - printlog "gApplication = " + gApplication - - select case( gApplication ) - case "WRITER" : call writertest() - case "CALC" : call calctest() - case else : warnlog( "Unsupported gApplication provided: " & gApplication ) - end select - -end sub - '------------------------------------------------------------------------------- sub Select_Copy @@ -621,212 +571,7 @@ sub GetOnlyGraphics ( OldList() as String, NewList() as String ) end if next i end sub - -'------------------------------------------------------------------------- -sub id_001 - - printLog Chr(13) + "--------- id_001 ----------" - - qaerrorlog "#74988# tiFilePassword outcommented due to bug. -FHA" - call tiFilePassword - call tiFileSaveAs - call tiFileReload - call tiFileVersion - printlog " File->Send not possible to test, because extrnal prg get's called!" - call tiFileTemplates - ' Call tiFileNew instead i call: - call tmFileNewFromTemplate - call tmFileOpen - call tmFileClose - call tmFileSave - call tmFileSaveAs - call tmFileExit - - call tmFileSaveAll - call tmFileProperties - call tdFileExport - call tmFilePrinterSetting - ' special cases - ' Call AutoPilot 'inc\desktop\autopilo.inc - call tmFileExit ' don't test because unpredictable behaviour -end sub - -'------------------------------------------------------------------------------ -sub id_002 - - printLog Chr(13) + "--------- id_002 ----------" - - call tiEditUndoRedo - call tiEditRepeat - call tiEditCutPasteCopySelectall - call tiEditPasteSpecial - call tiEditSearchAndReplace - call tiEditDuplicate - call tEditPoints - call tiEditFields - call tdEditDeleteSlide - call tiEditLinks - call tiEditImageMap - call tiEditObjectProperties - call tiEditObjectEdit - call tiEditPlugIn - call tiEditHyperlink -end sub - -'------------------------------------------------------------------------- -sub id_003 - - printLog Chr(13) + "--------- id_003 ----------" - - call tiViewNavigator - call tiViewZoom - call tiViewToolbar - Call tToolsCustomize 'global\required\include - call tiViewDisplayQuality - call tiViewLayer - call tViewSnapLines - call tViewGrid -end sub - -'------------------------------------------------------------------------- -sub id_004 - - printLog Chr(13) + "--------- id_004 ----------" - - call tiInsertSlide - call tiInsertDuplicateSlide - ' v expand slide - ' v summary slide - call tiInsertField - call tiInsertSpecialCharacter - call tiInsertHyperlink - call tiInsertScan - call tiInsertGraphic - call tiInsertObjectSound - call tiInsertObjectVideo - call tiInsertObjectSound - call tiInsertObjectVideo - call tiInsertChart - call tiInsertObjectOLEObjects - call tiInsertSpreadsheet - call tiInsertFormula - call tiInsertFloatingFrame - call tiInsertFile - call tiInsertPlugin - call tiInsertSnappointLine - call tdInsertLayer ' IMPRESS: Edit->Layer->Insert -end sub - -'------------------------------------------------------------------------------ -sub id_005 - - printLog Chr(13) + "--------- id_005 ----------" - - call tiFormatDefault - call tiFormatLine - call tdFormatArea - call tiFormatText - call tiFormatPositionAndSize - call tiFormatCharacter - call tiFormatControlForm - ' ^ Form - call tiFormatDimensions - call tiFormatConnector - call tiFormat3D_Effects - call tiFormatNumberingBullets - call tiFormatCaseCharacter - call tiFormatParagraph - call tiFormatPage - call tiFormatStylesAndFormatting - call tiFormatStylesSlideDesign - call tiFormatFontwork - call tiFormatGroup - printlog " format->group is also modify->group " - ' tiFormatLayer ' not in impress -end sub - -'------------------------------------------------------------------------------ -sub id_006 - - printLog Chr(13) + "--------- id_006 ----------" - - call tiToolsSpellchecking - call tiToolsSpellcheckingAutomatic - call tiToolsThesaurus - call tiToolsHyphenation - call tiToolsAutoCorrect - call tChineseTranslation - call tiToolsMacro - call tiToolsGallery - call tiToolsEyedropper - call tiToolsOptions ' get just called one time here... - Call tToolsOptionsTest ' global one -end sub - '------------------------------------------------------------------------------- -sub id_007 - - printLog Chr(13) + "--------- id_007 ----------" - ' in imp available via context menu, in draw via modify menu - - call tdModifyFlipVertikal - call tdModifyFlipHorizontal - call tdContextConvertIntoCurve - call tdContextConvertIntoPolygon - call tdContextConvertIntoContour - call tdContextConvertInto3D - call tdContextConvertIntoRotationObject - call tdContextConvertIntoBitmap - call tdContextConvertIntoMetaFile - call tdModifyArrange - call tdModifyArrangeObjects - call tdModifyAlignment - call tdContextDistribution - call tdContextDescriptionObject - call tdContextNameObject - call tdModifyConnectBreak - call tdModifyShapes - call tdModifyCombineSplit -end sub - -'------------------------------------------------------------------------------- -sub id_008 - - printLog Chr(13) + "--------- id_008 ----------" - - Call tiWindowNewWindow - call tidWindow123 -end sub - -'------------------------------------------------------------------------------ -sub id_009 - - printLog Chr(13) + "--------- id_009 ----------" - - call tCheckIfTheHelpExists - Call tmHelpContents - Call tmHelpHelpAgent - Call tmHelpTips - Call tmHelpExtendedTips - Call tmHelpAboutStarOffice - -end sub - -'------------------------------------------------------------------------------ -sub id_011 - - printLog Chr(13) + "--------- id_011 ----------" - - call tdBezierToolbar - call tiDrawObjectBar - call tiTextToolbar - call tiGraphicsObjectBar - call tiGluepointToolbar - -end sub - -'-------------------------------------------------------------------------------' - sub hWalkTheStyles (optional a as integer,optional b as integer) dim i as integer @@ -992,4 +737,4 @@ sub sSelectEmptyLayout else printlog "No change of Layout needed." endif -end sub
\ No newline at end of file +end sub diff --git a/testautomation/math/optional/includes/m_105.inc b/testautomation/math/optional/includes/m_105.inc index e7b97e705..0caad76e7 100644 --- a/testautomation/math/optional/includes/m_105.inc +++ b/testautomation/math/optional/includes/m_105.inc @@ -448,7 +448,7 @@ testcase tToolsCatalog '///+ insert the copied text into the document ///' DocumentWriter.typeKeys "<Mod1 End> - " + sTemp + ": " + j + "<Tab>" sAllSymbols = sAllSymbols + sTemp - listAppend(lAllSymbols(), rTrim(sTemp)) + listAppend(lAllSymbols(), rtrim(sTemp)) next j next i diff --git a/testautomation/math/required/includes/m_005_.inc b/testautomation/math/required/includes/m_005_.inc index d9c773ef7..f2c2a5d0c 100755..100644 --- a/testautomation/math/required/includes/m_005_.inc +++ b/testautomation/math/required/includes/m_005_.inc @@ -67,6 +67,17 @@ testcase tToolsCatalog '/// Click Button 'Modify' ///' Modify.Click sleep 1 + '/// cancel dialog 'Edit Symbols' ///' + EditSymbols.Cancel + ' since cws tl82 - dev300m88 we need to go into dialog again to get the others buttons + Kontext "SymboleMath" + printlog "count of 'Symbol set' :" + Symbolset.GetItemCount + '/// click button 'Edit...' ///' + Bearbeiten.Click + Kontext "EditSymbols" + '/// select last item in listbox 'Font' ///' + Font.Select (Font.GetItemCount) + sleep 1 '/// Click Button 'Delete' ///' Delete.Click sleep 1 diff --git a/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc b/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc index 70a75dd24..6328a62f5 100755..100644 --- a/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc @@ -238,6 +238,7 @@ testcase tFileOpenCSV Oeffnen.Click Kontext "TextImport" TextImport.ok + sleep (2) Printlog " - CSV import dialog is in function" sleep (1) Kontext "DocumentCalc" @@ -358,7 +359,7 @@ endcase testcase tFileRecentDocuments if gPlatform = "lin" then - qaerrorlog "#110649# Due to bug this testcase is not available" + warnlog "#110649# Due to bug this testcase is not available" goto endsub end if diff --git a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc index bcc263147..bcc263147 100755..100644 --- a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc diff --git a/testautomation/spreadsheet/tools/input/Functionnames.ods b/testautomation/spreadsheet/tools/input/Functionnames.ods Binary files differindex e7d59b7e9..1d9f3edab 100755 --- a/testautomation/spreadsheet/tools/input/Functionnames.ods +++ b/testautomation/spreadsheet/tools/input/Functionnames.ods diff --git a/testautomation/writer/required/includes/w_004_.inc b/testautomation/writer/required/includes/w_004_.inc index ea1972cba..ea1972cba 100755..100644 --- a/testautomation/writer/required/includes/w_004_.inc +++ b/testautomation/writer/required/includes/w_004_.inc diff --git a/testautomation/xml/optional/includes/sxc7_01.inc b/testautomation/xml/optional/includes/sxc7_01.inc index 0dace41f0..0dace41f0 100755..100644 --- a/testautomation/xml/optional/includes/sxc7_01.inc +++ b/testautomation/xml/optional/includes/sxc7_01.inc diff --git a/testautomation/xml/optional/includes/sxc7_02.inc b/testautomation/xml/optional/includes/sxc7_02.inc index 8696cb359..8696cb359 100755..100644 --- a/testautomation/xml/optional/includes/sxc7_02.inc +++ b/testautomation/xml/optional/includes/sxc7_02.inc diff --git a/testautomation/xml/optional/includes/sxc7_03.inc b/testautomation/xml/optional/includes/sxc7_03.inc index 5c8661303..5c8661303 100755..100644 --- a/testautomation/xml/optional/includes/sxc7_03.inc +++ b/testautomation/xml/optional/includes/sxc7_03.inc diff --git a/testgraphical/prj/build.lst b/testgraphical/prj/build.lst index 45fb77fd8..75878a6d9 100755 --- a/testgraphical/prj/build.lst +++ b/testgraphical/prj/build.lst @@ -1,7 +1,7 @@ -gfxcmp testgraphical : instsetoo_native NULL +gfxcmp testgraphical : instsetoo_native qadevOOo NULL gfxcmp testgraphical usr1 - all gfxcmp_mkout NULL #gfxcmp testgraphical\prechecks nmake - all gfxcmp_pre NULL gfxcmp testgraphical\ui\java\ConvwatchGUIProject nmake - all gfxcmp_java_ui NULL gfxcmp testgraphical\ui\java nmake - all gfxcmp_java gfxcmp_java_ui NULL # gfxcmp testgraphical\source nmake - all gfxcmp_src gfxcmp_java NULL -gfxcmp testgraphical\qa\graphical nmake - all gfxcmp_qa gfxcmp_java NULL +#i112751 gfxcmp testgraphical\qa\graphical nmake - all gfxcmp_qa gfxcmp_java NULL diff --git a/testtools/com/sun/star/comp/bridge/TestComponent.java b/testtools/com/sun/star/comp/bridge/TestComponent.java index e6a4dfa99..515bf9448 100644 --- a/testtools/com/sun/star/comp/bridge/TestComponent.java +++ b/testtools/com/sun/star/comp/bridge/TestComponent.java @@ -1310,23 +1310,4 @@ public class TestComponent { return xSingleServiceFactory; } - - /** - * Writes the service information into the given registry key. - * This method is called by the <code>JavaLoader</code> - * <p> - * @return returns true if the operation succeeded - * @param regKey the registryKey - * @see com.sun.star.comp.loader.JavaLoader - */ - public static boolean __writeRegistryServiceInfo(XRegistryKey regKey) { - boolean result = true; - - result = result & FactoryHelper.writeRegistryServiceInfo(_TestObject.class.getName(), _TestObject.__serviceName, regKey); - result = result & FactoryHelper.writeRegistryServiceInfo(_PerformancTestObject.class.getName(), - _PerformancTestObject.__serviceName, regKey); - - return result; - } - } diff --git a/testtools/prj/build.lst b/testtools/prj/build.lst index 24dce4119..775075aa8 100644 --- a/testtools/prj/build.lst +++ b/testtools/prj/build.lst @@ -1,6 +1,6 @@ -tt testtools : cpputools io remotebridges stoc javaunohelper pyuno cli_ure offapi NULL +tt testtools : cpputools io remotebridges stoc javaunohelper pyuno cli_ure offapi ure NULL tt testtools\inc nmake - all tt_inc NULL -tt testtools\source\bridgetest nmake - all tt_bridgetest tt_bridgetest_idl tt_javaTestObjs tt_inc NULL +tt testtools\source\bridgetest nmake - all tt_bridgetest tt_bridgetest_idl tt_inc NULL tt testtools\source\bridgetest\cli nmake - w,vc7 tt_cli tt_bridgetest tt_bridgetest_idl tt_inc NULL tt testtools\source\bridgetest\idl nmake - all tt_bridgetest_idl tt_inc NULL tt testtools\com\sun\star\comp\bridge nmake - all tt_javaTestObjs tt_bridgetest_idl tt_inc NULL diff --git a/testtools/source/bridgetest/bridgetest.component b/testtools/source/bridgetest/bridgetest.component new file mode 100644 index 000000000..e2dec0b74 --- /dev/null +++ b/testtools/source/bridgetest/bridgetest.component @@ -0,0 +1,34 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!--********************************************************************** +* +* 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. +* +**********************************************************************--> + +<component loader="com.sun.star.loader.SharedLibrary" + xmlns="http://openoffice.org/2010/uno-components"> + <implementation name="com.sun.star.comp.bridge.BridgeTest"> + <service name="com.sun.star.test.bridge.BridgeTest"/> + </implementation> +</component> diff --git a/testtools/source/bridgetest/bridgetest.cxx b/testtools/source/bridgetest/bridgetest.cxx index ad6367955..88172dac0 100644 --- a/testtools/source/bridgetest/bridgetest.cxx +++ b/testtools/source/bridgetest/bridgetest.cxx @@ -47,7 +47,6 @@ #include <com/sun/star/lang/XServiceInfo.hpp> #include <com/sun/star/lang/XComponent.hpp> #include <com/sun/star/lang/XMain.hpp> -#include <com/sun/star/registry/XRegistryKey.hpp> #include <com/sun/star/bridge/UnoUrlResolver.hpp> #include <com/sun/star/bridge/XUnoUrlResolver.hpp> #include "com/sun/star/uno/RuntimeException.hpp" @@ -1323,27 +1322,6 @@ void SAL_CALL component_getImplementationEnvironment( *ppEnvTypeName = CPPU_CURRENT_LANGUAGE_BINDING_NAME; } //================================================================================================== -sal_Bool SAL_CALL component_writeInfo( void *, void * pRegistryKey ) -{ - if (pRegistryKey) - { - try - { - Reference< XRegistryKey > xNewKey( - reinterpret_cast< XRegistryKey * >( pRegistryKey )->createKey( - OUString( RTL_CONSTASCII_USTRINGPARAM("/" IMPLNAME "/UNO/SERVICES") ) ) ); - xNewKey->createKey( OUString( RTL_CONSTASCII_USTRINGPARAM(SERVICENAME) ) ); - - return sal_True; - } - catch (InvalidRegistryException &) - { - OSL_ENSURE( sal_False, "### InvalidRegistryException!" ); - } - } - return sal_False; -} -//================================================================================================== void * SAL_CALL component_getFactory( const sal_Char * pImplName, void * pServiceManager, void * ) { diff --git a/testtools/source/bridgetest/constructors.component b/testtools/source/bridgetest/constructors.component new file mode 100644 index 000000000..3f3957c7c --- /dev/null +++ b/testtools/source/bridgetest/constructors.component @@ -0,0 +1,37 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!--********************************************************************** +* +* 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. +* +**********************************************************************--> + +<component loader="com.sun.star.loader.SharedLibrary" + xmlns="http://openoffice.org/2010/uno-components"> + <implementation name="comp.test.testtools.bridgetest.Constructors"> + <service name="test.testtools.bridgetest.Constructors"/> + </implementation> + <implementation name="comp.test.testtools.bridgetest.Constructors2"> + <service name="test.testtools.bridgetest.Constructors2"/> + </implementation> +</component> diff --git a/testtools/source/bridgetest/constructors.cxx b/testtools/source/bridgetest/constructors.cxx index 813cec993..3fdc09ea7 100644 --- a/testtools/source/bridgetest/constructors.cxx +++ b/testtools/source/bridgetest/constructors.cxx @@ -508,10 +508,3 @@ extern "C" void SAL_CALL component_getImplementationEnvironment( { *envTypeName = CPPU_CURRENT_LANGUAGE_BINDING_NAME; } - -extern "C" ::sal_Bool SAL_CALL component_writeInfo( - void * serviceManager, void * registryKey) -{ - return ::cppu::component_writeInfoHelper( - serviceManager, registryKey, entries); -} diff --git a/testtools/source/bridgetest/cppobj.component b/testtools/source/bridgetest/cppobj.component new file mode 100644 index 000000000..239e8e348 --- /dev/null +++ b/testtools/source/bridgetest/cppobj.component @@ -0,0 +1,34 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!--********************************************************************** +* +* 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. +* +**********************************************************************--> + +<component loader="com.sun.star.loader.SharedLibrary" + xmlns="http://openoffice.org/2010/uno-components"> + <implementation name="com.sun.star.comp.bridge.CppTestObject"> + <service name="com.sun.star.test.bridge.CppTestObject"/> + </implementation> +</component> diff --git a/testtools/source/bridgetest/cppobj.cxx b/testtools/source/bridgetest/cppobj.cxx index 0963b4b5b..233c27835 100644 --- a/testtools/source/bridgetest/cppobj.cxx +++ b/testtools/source/bridgetest/cppobj.cxx @@ -42,7 +42,6 @@ #include "cppuhelper/compbase_ex.hxx" #include <com/sun/star/lang/XServiceInfo.hpp> #include <com/sun/star/lang/XComponent.hpp> -#include <com/sun/star/registry/XRegistryKey.hpp> #include "com/sun/star/uno/Any.hxx" #include "com/sun/star/uno/RuntimeException.hpp" #include "com/sun/star/uno/Sequence.hxx" @@ -1182,27 +1181,6 @@ void SAL_CALL component_getImplementationEnvironment( *ppEnvTypeName = CPPU_CURRENT_LANGUAGE_BINDING_NAME; } //================================================================================================== -sal_Bool SAL_CALL component_writeInfo( void *, void * pRegistryKey ) -{ - if (pRegistryKey) - { - try - { - Reference< XRegistryKey > xNewKey( - reinterpret_cast< XRegistryKey * >( pRegistryKey )->createKey( - OUString( RTL_CONSTASCII_USTRINGPARAM("/" IMPLNAME "/UNO/SERVICES") ) ) ); - xNewKey->createKey( OUString( RTL_CONSTASCII_USTRINGPARAM(SERVICENAME) ) ); - - return sal_True; - } - catch (InvalidRegistryException &) - { - OSL_ENSURE( sal_False, "### InvalidRegistryException!" ); - } - } - return sal_False; -} -//================================================================================================== void * SAL_CALL component_getFactory( const sal_Char * pImplName, void * pServiceManager, void * ) { diff --git a/testtools/source/bridgetest/makefile.mk b/testtools/source/bridgetest/makefile.mk index 9b75a1aed..945af7c0f 100644 --- a/testtools/source/bridgetest/makefile.mk +++ b/testtools/source/bridgetest/makefile.mk @@ -41,18 +41,23 @@ DLLPRE = # no leading "lib" on .so files BATCH_SUFFIX=.bat GIVE_EXEC_RIGHTS=@echo MY_URE_INTERNAL_JAVA_DIR=$(strip $(subst,\,/ file:///$(shell @$(WRAPCMD) echo $(SOLARBINDIR)))) -MY_LOCAL_CLASSDIR=$(strip $(subst,\,/ file:///$(shell $(WRAPCMD) echo $(PWD)$/$(CLASSDIR)))) +MY_LOCAL_CLASSDIR=$(strip $(subst,\,/ file:///$(shell $(WRAPCMD) echo $(PWD)/$(CLASSDIR)/))) .ELIF "$(GUI)"=="OS2" BATCH_SUFFIX=.cmd GIVE_EXEC_RIGHTS=@echo MY_URE_INTERNAL_JAVA_DIR=$(strip $(subst,\,/ file:///$(shell @$(WRAPCMD) echo $(SOLARBINDIR)))) -MY_LOCAL_CLASSDIR=$(strip $(subst,\,/ file:///$(shell $(WRAPCMD) echo $(PWD)$/$(CLASSDIR)))) +MY_LOCAL_CLASSDIR=$(strip $(subst,\,/ file:///$(shell $(WRAPCMD) echo $(PWD)/$(CLASSDIR)/))) .ELSE GIVE_EXEC_RIGHTS=chmod +x MY_URE_INTERNAL_JAVA_DIR=file://$(SOLARBINDIR) -MY_LOCAL_CLASSDIR=file://$(PWD)$/$(CLASSDIR) +MY_LOCAL_CLASSDIR=file://$(PWD)/$(CLASSDIR)/ .ENDIF +my_components = bridgetest constructors cppobj +.IF "$(SOLAR_JAVA)" != "" +my_components += testComponent +.END + .IF "$(GUI)"=="WNT" .IF "$(compcheck)" != "" CFLAGSCXX += -DCOMPCHECK @@ -122,6 +127,7 @@ JAVATARGETS=\ .IF "$(L10N_framework)"=="" ALLTAR: \ runtest \ + $(DLLDEST)/services.rdb \ $(DLLDEST)$/uno_types.rdb \ $(DLLDEST)$/uno_services.rdb \ $(DLLDEST)$/bridgetest_server$(BATCH_SUFFIX) \ @@ -130,7 +136,8 @@ ALLTAR: \ ################################################################# -runtest : $(DLLDEST)$/uno_types.rdb $(DLLDEST)$/uno_services.rdb makefile.mk +runtest : $(DLLDEST)$/uno_types.rdb $(DLLDEST)$/uno_services.rdb makefile.mk \ + $(SHL1TARGETN) $(SHL2TARGETN) $(SHL3TARGETN) .IF "$(COM)$(OS)$(CPU)" == "GCCMACOSXP" @echo "Mac OSX PPC GCC fails this test!, likely broken UNO bridge. Fix me." .ELSE @@ -139,14 +146,18 @@ runtest : $(DLLDEST)$/uno_types.rdb $(DLLDEST)$/uno_services.rdb makefile.mk -s com.sun.star.test.bridge.BridgeTest -- \ com.sun.star.test.bridge.CppTestObject .ENDIF - + +$(DLLDEST)/services.rdb : + $(COPY) $(SOLARXMLDIR)/ure/services.rdb $@ + $(DLLDEST)$/uno_types.rdb : $(SOLARBINDIR)$/udkapi.rdb echo $(DLLDEST) $(GNUCOPY) $? $@ $(REGMERGE) $@ / $(BIN)$/bridgetest.rdb $(DLLDEST)$/bridgetest_client$(BATCH_SUFFIX) .ERRREMOVE: makefile.mk - echo '$(AUGMENT_LIBRARY_PATH)' '$(SOLARBINDIR)'/uno -ro uno_services.rdb -ro uno_types.rdb \ + echo '$(AUGMENT_LIBRARY_PATH)' '$(SOLARBINDIR)'/uno -ro services.rdb \ + -ro uno_services.rdb -ro uno_types.rdb \ -s com.sun.star.test.bridge.BridgeTest -- \ -u \''uno:socket,host=127.0.0.1,port=2002;urp;test'\' > $@ $(GIVE_EXEC_RIGHTS) $@ @@ -175,44 +186,44 @@ $(DLLDEST)$/bridgetest_javaserver$(BATCH_SUFFIX) : makefile.mk $(GIVE_EXEC_RIGHTS) $@ $(DLLDEST)$/bridgetest_inprocess_java$(BATCH_SUFFIX) .ERRREMOVE: makefile.mk - echo '$(AUGMENT_LIBRARY_PATH)' '$(SOLARBINDIR)'/uno -ro uno_services.rdb -ro uno_types.rdb \ + echo '$(AUGMENT_LIBRARY_PATH)' '$(SOLARBINDIR)'/uno -ro services.rdb \ + -ro uno_services.rdb -ro uno_types.rdb \ -s com.sun.star.test.bridge.BridgeTest \ -env:URE_INTERNAL_JAVA_DIR=$(MY_URE_INTERNAL_JAVA_DIR) \ + -env:MY_CLASSDIR_URL=$(MY_LOCAL_CLASSDIR) \ -- com.sun.star.test.bridge.JavaTestObject noCurrentContext > $@ $(GIVE_EXEC_RIGHTS) $@ .ENDIF -$(DLLDEST)$/uno_services.rdb .ERRREMOVE: $(DLLDEST)$/uno_types.rdb \ - $(DLLDEST)$/bridgetest.uno$(DLLPOST) $(DLLDEST)$/cppobj.uno$(DLLPOST) \ - $(MISC)$/$(TARGET)$/bootstrap.rdb $(SHL3TARGETN) - - $(MKDIR) $(@:d) - $(REGCOMP) -register -br $(DLLDEST)$/uno_types.rdb \ - -r $(DLLDEST)$/uno_services.rdb -wop \ - -c acceptor.uno$(DLLPOST) \ - -c bridgefac.uno$(DLLPOST) \ - -c connector.uno$(DLLPOST) \ - -c remotebridge.uno$(DLLPOST) \ - -c uuresolver.uno$(DLLPOST) \ - -c stocservices.uno$(DLLPOST) - cd $(DLLDEST) && $(REGCOMP) -register -br uno_types.rdb \ - -r uno_services.rdb -wop=./ \ - -c .$/bridgetest.uno$(DLLPOST) \ - -c .$/cppobj.uno$(DLLPOST) \ - -c .$/$(SHL3TARGETN:f) -.IF "$(SOLAR_JAVA)" != "" - $(REGCOMP) -register -br $(DLLDEST)$/uno_types.rdb -r $@ \ - -c javaloader.uno$(DLLPOST) -c javavm.uno$(DLLPOST) - $(REGCOMP) -register -br $(MISC)$/$(TARGET)$/bootstrap.rdb -r $@ -c \ - $(MY_LOCAL_CLASSDIR)/testComponent.jar \ - -env:URE_INTERNAL_JAVA_DIR=$(MY_URE_INTERNAL_JAVA_DIR) -.ENDIF +$(DLLDEST)$/uno_services.rdb .ERRREMOVE : $(SOLARENV)/bin/packcomponents.xslt \ + $(MISC)/uno_services.input $(my_components:^"$(MISC)/":+".component") + $(XSLTPROC) --nonet --stringparam prefix $(PWD)/$(MISC)/ -o $@ \ + $(SOLARENV)/bin/packcomponents.xslt $(MISC)/uno_services.input -$(MISC)$/$(TARGET)$/bootstrap.rdb .ERRREMOVE: - - $(MKDIR) $(@:d) - $(COPY) $(SOLARBINDIR)$/types.rdb $@ -.IF "$(SOLAR_JAVA)" != "" - $(REGCOMP) -register -r $@ -c javaloader.uno$(DLLPOST) \ - -c javavm.uno$(DLLPOST) -c stocservices.uno$(DLLPOST) -.ENDIF -.ENDIF # L10N_framework +$(MISC)/uno_services.input : + echo \ + '<list>$(my_components:^"<filename>":+".component</filename>")</list>' \ + > $@ + +$(MISC)/bridgetest.component .ERRREMOVE : $(SOLARENV)/bin/createcomponent.xslt \ + bridgetest.component + $(XSLTPROC) --nonet --stringparam uri './$(SHL2TARGETN:f)' -o $@ \ + $(SOLARENV)/bin/createcomponent.xslt bridgetest.component +$(MISC)/constructors.component .ERRREMOVE : \ + $(SOLARENV)/bin/createcomponent.xslt constructors.component + $(XSLTPROC) --nonet --stringparam uri './$(SHL3TARGETN:f)' -o $@ \ + $(SOLARENV)/bin/createcomponent.xslt constructors.component + +$(MISC)/cppobj.component .ERRREMOVE : $(SOLARENV)/bin/createcomponent.xslt \ + cppobj.component + $(XSLTPROC) --nonet --stringparam uri './$(SHL1TARGETN:f)' -o $@ \ + $(SOLARENV)/bin/createcomponent.xslt cppobj.component + +$(MISC)/testComponent.component .ERRREMOVE : \ + $(SOLARENV)/bin/createcomponent.xslt testComponent.component + $(XSLTPROC) --nonet --stringparam uri \ + 'vnd.sun.star.expand:$${{MY_CLASSDIR_URL}}testComponent.jar' -o $@ \ + $(SOLARENV)/bin/createcomponent.xslt testComponent.component + +.ENDIF # L10N_framework diff --git a/testtools/source/bridgetest/pyuno/makefile.mk b/testtools/source/bridgetest/pyuno/makefile.mk index fb7a78f71..ded3cdbc7 100644 --- a/testtools/source/bridgetest/pyuno/makefile.mk +++ b/testtools/source/bridgetest/pyuno/makefile.mk @@ -33,6 +33,8 @@ LIBTARGET=NO TARGETTYPE=CUI ENABLE_EXCEPTIONS=TRUE +my_components = pythonloader + # --- Settings ----------------------------------------------------- .INCLUDE : settings.mk @@ -55,12 +57,12 @@ PYTHONPATH:=$(SOLARLIBDIR)$/pyuno:$(PWD):$(SOLARLIBDIR):$(SOLARLIBDIR)$/python:$ .IF "$(GUI)"!="WNT" && "$(GUI)"!="OS2" TEST_ENV=export FOO=file://$(shell @pwd)$/$(DLLDEST) \ - UNO_TYPES=pyuno_regcomp.rdb UNO_SERVICES=pyuno_regcomp.rdb + UNO_TYPES=uno_types.rdb UNO_SERVICES=pyuno_services.rdb .ELSE # "$(GUI)" != "WNT" # aaaaaa, how to get the current working directory on windows ??? CWD_TMP=$(strip $(shell @echo "import os;print os.getcwd()" | $(PYTHON))) TEST_ENV=export FOO=file:///$(strip $(subst,\,/ $(CWD_TMP)$/$(DLLDEST))) && \ - export UNO_TYPES=pyuno_regcomp.rdb && export UNO_SERVICES=pyuno_regcomp.rdb + export UNO_TYPES=uno_types.rdb && export UNO_SERVICES=pyuno_services.rdb .ENDIF # "$(GUI)"!="WNT" PYFILES = \ $(DLLDEST)$/core.py \ @@ -75,7 +77,7 @@ PYCOMPONENTS = \ ALL : \ $(PYFILES) \ - $(DLLDEST)$/pyuno_regcomp.rdb \ + $(DLLDEST)/pyuno_services.rdb \ doc \ ALLTAR .ENDIF # L10N_framework @@ -91,18 +93,21 @@ $(DLLDEST)$/python$(EXECPOST) : $(SOLARBINDIR)$/python$(EXECPOST) $(DLLDEST)$/regcomp$(EXECPOST) : $(SOLARBINDIR)$/regcomp$(EXECPOST) cp $? $@ -$(DLLDEST)$/pyuno_regcomp.rdb: $(DLLDEST)$/uno_types.rdb $(SOLARBINDIR)$/pyuno_services.rdb - -rm -f $@ - $(WRAPCMD) $(REGMERGE) $(DLLDEST)$/pyuno_regcomp.rdb / $(DLLDEST)$/uno_types.rdb $(SOLARBINDIR)$/pyuno_services.rdb +$(DLLDEST)$/pyuno_services.rdb .ERRREMOVE : \ + $(SOLARENV)/bin/packcomponents.xslt $(MISC)/pyuno_services.input \ + $(my_components:^"$(SOLARXMLDIR)/":+".component") + $(XSLTPROC) --nonet --stringparam prefix $(SOLARXMLDIR)/ -o $@ \ + $(SOLARENV)/bin/packcomponents.xslt $(MISC)/pyuno_services.input + +$(MISC)/pyuno_services.input : + echo \ + '<list>$(my_components:^"<filename>":+".component</filename>")</list>' \ + > $@ doc .PHONY: @echo start test with dmake runtest runtest : ALL cd $(DLLDEST) && $(TEST_ENV) && $(PYTHON) main.py - cd $(DLLDEST) && $(TEST_ENV) && $(WRAPCMD) $(REGCOMP) -register -br pyuno_regcomp.rdb -r dummy.rdb \ - -l com.sun.star.loader.Python $(foreach,i,$(PYCOMPONENTS) -c vnd.openoffice.pymodule:$(i)) - cd $(DLLDEST) && $(TEST_ENV) && $(WRAPCMD) $(REGCOMP) -register -br pyuno_regcomp.rdb -r dummy2.rdb \ - -l com.sun.star.loader.Python -c vnd.sun.star.expand:$$FOO/samplecomponent.py .ENDIF # L10N_framework diff --git a/testtools/source/bridgetest/testComponent.component b/testtools/source/bridgetest/testComponent.component new file mode 100644 index 000000000..eae9b0631 --- /dev/null +++ b/testtools/source/bridgetest/testComponent.component @@ -0,0 +1,38 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!--********************************************************************** +* +* 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. +* +**********************************************************************--> + +<component loader="com.sun.star.loader.Java2" + xmlns="http://openoffice.org/2010/uno-components"> + <implementation + name="com.sun.star.comp.bridge.TestComponent$_PerformancTestObject"> + <service name="com.sun.star.comp.benchmark.JavaTestObject"/> + </implementation> + <implementation name="com.sun.star.comp.bridge.TestComponent$_TestObject"> + <service name="com.sun.star.test.bridge.JavaTestObject"/> + </implementation> +</component> |