diff options
Diffstat (limited to 'qadevOOo/tests/basic/ifc/linguistic2')
18 files changed, 956 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/ifc/linguistic2/LinguProperties/linguistic2_LinguProperties.xba b/qadevOOo/tests/basic/ifc/linguistic2/LinguProperties/linguistic2_LinguProperties.xba new file mode 100644 index 000000000000..58a1559f46a6 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/LinguProperties/linguistic2_LinguProperties.xba @@ -0,0 +1,96 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="linguistic2_LinguProperties" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2008 by Sun Microsystems, Inc. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' $RCSfile: linguistic2_LinguProperties.xba,v $ +' +' $Revision: 1.3 $ +' +' 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.linguistic2.LinguProperties +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("IsGermanPreReform") + + PropertyTester.TestProperty("IsUseDictionaryList") + + PropertyTester.TestProperty("IsIgnoreControlCharacters") + + PropertyTester.TestProperty("IsSpellUpperCase") + + PropertyTester.TestProperty("IsSpellWithDigits") + + PropertyTester.TestProperty("IsSpellCapitalization") + + PropertyTester.TestProperty("HyphMinLeading") + + PropertyTester.TestProperty("HyphMinTrailing") + + PropertyTester.TestProperty("HyphMinWordLength") + + PropertyTester.TestProperty("DefaultLocale") + + PropertyTester.TestProperty("IsHyphAuto") + + PropertyTester.TestProperty("IsHyphSpecial") + + PropertyTester.TestProperty("IsSpellAuto") + + PropertyTester.TestProperty("IsSpellHide") + + PropertyTester.TestProperty("IsSpellInAllLanguages") + + PropertyTester.TestProperty("IsSpellSpecial") + + PropertyTester.TestProperty("IsWrapReverse") + + PropertyTester.TestProperty("DefaultLocale_CJK") + + PropertyTester.TestProperty("DefaultLocale_CTL") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/LinguProperties/script.xlb b/qadevOOo/tests/basic/ifc/linguistic2/LinguProperties/script.xlb new file mode 100644 index 000000000000..a16e649510ad --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/LinguProperties/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="linguistic2_LinguProperties" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="linguistic2_LinguProperties"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XDictionaryList/linguistic2_XDictionaryList.xba b/qadevOOo/tests/basic/ifc/linguistic2/XDictionaryList/linguistic2_XDictionaryList.xba new file mode 100644 index 000000000000..d044610655b1 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XDictionaryList/linguistic2_XDictionaryList.xba @@ -0,0 +1,195 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="linguistic2_XDictionaryList" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2008 by Sun Microsystems, Inc. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' $RCSfile: linguistic2_XDictionaryList.xba,v $ +' +' $Revision: 1.3 $ +' +' 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. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + +Dim bCB1 As Long, bCB2 As Long + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.linguistic2.XDictionaryList +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim vGetDics As Variant + Dim oNegative As Object + Dim vLocale As new com.sun.star.lang.Locale + Dim nPrevious As Integer + Dim oAddDic As Object + Dim oNewDic As Object + Dim oListenDic1 As Object + Dim oListenDic As Object + Dim oListener1 As Object + Dim oListener2 As Object + + oListener1 = createUNOListener("CB1_", "com.sun.star.linguistic2.XDictionaryListEventListener") + oListener2 = createUNOListener("CB2_", "com.sun.star.linguistic2.XDictionaryListEventListener") + bCB1 = 0 + bCB2 = 0 + vLocale.Language = "en" + vLocale.Country = "US" + vLocale.Variant = "WIN" + + Test.StartMethod("getCount()") + bOK = true + Out.Log("getCouint retunrs " + oObj.getCount()) + bOK = bOK AND (oObj.getCount() > 0) + Test.MethodTested("getCount()", bOK) + + Test.StartMethod("getDictionaries()") + bOK = true + vGetDics = oObj.getDictionaries() + Out.Log("oObj.getDictionaries returned " + (uBound(vGetDics) + 1) + " elements") + bOK = bOK AND ((uBound(vGetDics) + 1) = oObj.getCount()) + Test.MethodTested("getDictionaries()", bOK) + + Test.StartMethod("getDictionaryByName()") + bOK = true + Out.Log("Try to get 'NegativDic' which should created in ObjCreation()" + oNegative = oObj.getDictionaryByName("NegativDic") + bOK = bOK AND hasUnoInterfaces(oNegative, "com.sun.star.linguistic2.XDictionary") + Test.MethodTested("getDictionaryByName()", bOK) + + Test.StartMethod("createDictionary()") + bOK = true + oAddDic = oObj.createDictionary("AddedDicBasic", vLocale,_ + com.sun.star.linguistic2.DictionaryType.POSITIVE,"") + bOK = bOK AND hasUnoInterfaces(oAddDic, "com.sun.star.linguistic2.XDictionary") + Test.MethodTested("createDictionary()", bOK) + + Test.StartMethod("addDictionary()") + bOK = true + nPrevious = oObj.getCount() + oObj.addDictionary(oAddDic) + Out.Log("Dictionaries before: " + nPrevious + ", after: " + oObj.getCount()) + bOK = bOK AND ((nPrevious + 1) = oObj.getCount()) + Test.MethodTested("addDictionary()", bOK) + + Test.StartMethod("removeDictionary()") + bOK = true + oObj.removeDictionary(oAddDic) + bOK = bOK AND (nPrevious = oObj.getCount()) + Test.MethodTested("removeDictionary()", bOK) + + Test.StartMethod("addDictionaryListEventListener()") + Dim bListOK As Boolean + + bOK = true + bCB1 = false + bCB2 = false + oListenDic = oObj.createDictionary("ListenDicBasic", vLocale,_ + com.sun.star.linguistic2.DictionaryType.POSITIVE,"") + bListOK = oObj.addDictionaryListEventListener(oListener1, false) + Out.Log("First listener was added: " + bListOK) + bListOK = oObj.addDictionaryListEventListener(oListener2, false) + Out.Log("Second listener was added: " + bListOK) + + Test.StartMethod("flushEvents()") + + Out.Log("The level of buffer returned by flushEvents() is " + oObj.flushEvents()) + + oObj.addDictionary(oListenDic) + oListenDic.setActive(true) +' oListenDic.add("AWord", false, "") + + Out.Log("The level of buffer returned by flushEvents() is " + oObj.flushEvents()) + + bOK = bOK AND bCB1 AND bCB2 + oObj.removeDictionary(oListenDic) + + Test.MethodTested("addDictionaryListEventListener()", bOK) + Test.MethodTested("flushEvents()", bOK) + + Test.StartMethod("removeDictionaryListEventListener()") + bOK = true + bCB1 = 0 + bCB2 = 0 + oObj.removeDictionaryListEventListener(oListener2) + oListenDic1 = oObj.createDictionary("ListenDicBasic1", vLocale,_ + com.sun.star.linguistic2.DictionaryType.POSITIVE,"") + oObj.flushEvents() + oObj.addDictionary(oListenDic) + oListenDic.setActive(true) + oObj.flushEvents() + oObj.removeDictionary(oListenDic) + bOK = bOK AND bCB1 AND NOT bCB2 + Test.MethodTested("removeDictionaryListEventListener()", bOK) + + Test.StartMethod("beginCollectEvents()") + bOK = true + Dim bufSize1 As Integer, bufSize2 As Integer + + bufSize1 = oObj.beginCollectEvents() + bufSize2 = oObj.beginCollectEvents() + + bOK = bOK AND (bufSize2 = bufSize1 + 1) + Test.MethodTested("beginCollectEvents()", bOK) + + Test.StartMethod("endCollectEvents()") + bufSize1 = oObj.endCollectEvents() + + bOK = bOK AND (bufSize2 = bufSize1 + 1) + Test.MethodTested("endCollectEvents()", bOK) + + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +Sub CB1_processDictionaryListEvent + Out.Log("CallBack for Listener1 was called.") + bCB1 = bCB1 + 1 +End Sub +Sub CB1_disposing +End Sub + +Sub CB2_processDictionaryListEvent + Out.Log("CallBack for Listener2 was called.") + bCB2 = bCB2 + 1 +End Sub +Sub CB2_disposing +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XDictionaryList/script.xlb b/qadevOOo/tests/basic/ifc/linguistic2/XDictionaryList/script.xlb new file mode 100644 index 000000000000..8f31954d31d9 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XDictionaryList/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="linguistic2_XDictionaryList" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="linguistic2_XDictionaryList"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XHyphenator/linguistic2_XHyphenator.xba b/qadevOOo/tests/basic/ifc/linguistic2/XHyphenator/linguistic2_XHyphenator.xba new file mode 100644 index 000000000000..3bd4ace5e6e1 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XHyphenator/linguistic2_XHyphenator.xba @@ -0,0 +1,89 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="linguistic2_XHyphenator" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2008 by Sun Microsystems, Inc. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' $RCSfile: linguistic2_XHyphenator.xba,v $ +' +' $Revision: 1.3 $ +' +' 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.linguistic2.XHyphenator +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim vProp As new com.sun.star.beans.PropertyValue + Dim vPops(0) As Variant + Dim vLocale As new com.sun.star.lang.Locale + Dim oHyphenate As Object + Dim oAlternative As Object + Dim oPossible As Object + + vProps(0) = vProp + + vLocale.Language = "de" + vLocale.Country = "DE" + vLocale.Variant = "" + + + Test.StartMethod("hyphenate()") + bOK = true + oHyphenate = oObj.hyphenate("wacker", vLocale, 3, vProps()) + bOK = bOK AND hasUnoInterfaces(oHyphenate, "com.sun.star.linguistic2.XHyphenatedWord") + Test.MethodTested("hyphenate()", bOK) + + Test.StartMethod("queryAlternativeSpelling()") + bOK = true + oAlternative = oObj.queryAlternativeSpelling("wacker", vLocale, 2, vProps()) + bOK = bOK AND hasUnoInterfaces(oHyphenate, "com.sun.star.linguistic2.XHyphenatedWord") + Test.MethodTested("queryAlternativeSpelling()", bOK) + + Test.StartMethod("createPossibleHyphens()") + bOK = true + oPossible = oObj.createPossibleHyphens("wacker", vLocale, vProps()) + bOK = bOK AND hasUnoInterfaces(oPossible, "com.sun.star.linguistic2.XPossibleHyphens") + Test.MethodTested("createPossibleHyphens()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XHyphenator/script.xlb b/qadevOOo/tests/basic/ifc/linguistic2/XHyphenator/script.xlb new file mode 100644 index 000000000000..71eda6f3347e --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XHyphenator/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="linguistic2_XHyphenator" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="linguistic2_XHyphenator"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XLinguServiceEventBroadcaster/linguistic2_XLinguServiceEventBroadcaster.xba b/qadevOOo/tests/basic/ifc/linguistic2/XLinguServiceEventBroadcaster/linguistic2_XLinguServiceEventBroadcaster.xba new file mode 100644 index 000000000000..2c22bdcbfc06 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XLinguServiceEventBroadcaster/linguistic2_XLinguServiceEventBroadcaster.xba @@ -0,0 +1,81 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="linguistic2_XLinguServiceEventBroadcaster" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2008 by Sun Microsystems, Inc. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' $RCSfile: linguistic2_XLinguServiceEventBroadcaster.xba,v $ +' +' $Revision: 1.3 $ +' +' 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.linguistic2.XLinguServiceEventBroadcaster +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Out.Log("create two listeners") + oListener1 = createUNOListener("CB1_", "com.sun.star.linguistic2.XLinguServiceEventListener") + oListener2 = createUNOListener("CB2_", "com.sun.star.linguistic2.XLinguServiceEventListener") + + Test.StartMethod("addLinguServiceEventListener()") + bOK = true + bOK = bOK AND oObj.addLinguServiceEventListener(oListener1) + bOK = bOK AND oObj.addLinguServiceEventListener(oListener2) + Test.MethodTested("addLinguServiceEventListener()", bOK) + + Test.StartMethod("removeLinguServiceEventListener()") + bOK = true + bOK = bOK AND oObj.removeLinguServiceEventListener(oListener2) + Test.MethodTested("removeLinguServiceEventListener()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +Sub CB1_processLinguServiceEvent + Out.Log("CallBack for Listener1 processLinguServiceEvent was called.") + bCB1 = true +End Sub + +Sub CB2_processLinguServiceEvent + Out.Log("CallBack for Listener2 processLinguServiceEvent was called.") + bCB2 = true +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XLinguServiceEventBroadcaster/script.xlb b/qadevOOo/tests/basic/ifc/linguistic2/XLinguServiceEventBroadcaster/script.xlb new file mode 100644 index 000000000000..8b50d4cd343c --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XLinguServiceEventBroadcaster/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="linguistic2_XLinguServiceEventBroadcaster" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="linguistic2_XLinguServiceEventBroadcaster"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XLinguServiceManager/linguistic2_XLinguServiceManager.xba b/qadevOOo/tests/basic/ifc/linguistic2/XLinguServiceManager/linguistic2_XLinguServiceManager.xba new file mode 100644 index 000000000000..cbbe4dde11d7 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XLinguServiceManager/linguistic2_XLinguServiceManager.xba @@ -0,0 +1,142 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="linguistic2_XLinguServiceManager" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2008 by Sun Microsystems, Inc. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' $RCSfile: linguistic2_XLinguServiceManager.xba,v $ +' +' $Revision: 1.3 $ +' +' 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. +' +'************************************************************************* +'************************************************************************* + + + + +Dim nCB1Val As Long, nCB2Val As Long + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.linguistic2.XLinguServiceManager +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim oListener1 As Object + Dim oListener2 As Object + Dim vLocale As new com.sun.star.lang.Locale + Dim aServices As Variant + Dim vGetServices As Variant + + vLocale.Language = "en" + vLocale.Country = "US" + vLocale.Variant = "" + + oListener1 = createUNOListener("CB1_", "com.sun.star.linguistic2.XLinguServiceEventListener") + oListener2 = createUNOListener("CB2_", "com.sun.star.linguistic2.XLinguServiceEventListener") + nCB1Val = 0 + nCB2Val = 0 + + Test.StartMethod("getSpellChecker()") + bOK = true + bOK = bOK AND hasUnoInterfaces(oObj.getSpellChecker(), "com.sun.star.linguistic2.XSpellChecker") + Test.MethodTested("getSpellChecker()", bOK) + + Test.StartMethod("getHyphenator()") + bOK = true + bOK = bOK AND hasUnoInterfaces(oObj.getHyphenator(), "com.sun.star.linguistic2.XHyphenator") + Test.MethodTested("getHyphenator()", bOK) + + Test.StartMethod("getThesaurus()") + bOK = true + bOK = bOK AND hasUnoInterfaces(oObj.getThesaurus(), "com.sun.star.linguistic2.XThesaurus") + Test.MethodTested("getThesaurus()", bOK) + + Test.StartMethod("addLinguServiceManagerListener()") + bOK = true + bOK = bOK AND oObj.addLinguServiceManagerListener(oListener1) + bOK = bOK AND oObj.addLinguServiceManagerListener(oListener2) + Out.Log("oListener1 and oListener2 added => " + bOK ) + Test.MethodTested("addLinguServiceManagerListener()", bOK) + + Test.StartMethod("removeLinguServiceManagerListener()") + bOK = true + bOK = bOK AND oObj.removeLinguServiceManagerListener(oListener2) + Out.Log("oListener2 removed => " +bOK) + Test.MethodTested("removeLinguServiceManagerListener()", bOK) + + Test.StartMethod("getAvailableServices()") + bOK = true + aServices = oObj.getAvailableServices("com.sun.star.linguistic2.Thesaurus", vLocale) + bOK = bOK AND (uBound(aServices()) > -1) + Test.MethodTested("getAvailableServices()", bOK) + + Test.StartMethod("getConfiguredServices()") + bOK = true + vGetServices = oObj.getConfiguredServices("com.sun.star.linguistic2.Thesaurus", vLocale) + bOK = bOK AND (uBound(vGetServices()) > -1) + Test.MethodTested("getConfiguredServices()", bOK) + + Test.StartMethod("setConfiguredServices()") + Dim vSetServices(0) As String + Dim vSetGetServices As Variant + bOK = true + oObj.setConfiguredServices("com.sun.star.linguistic2.Hyphenator", vLocale, vSetServices()) + vSetGetServices = oObj.getConfiguredServices("com.sun.star.linguistic2.Hyphenator", vLocale) + bOK = bOK AND (uBound(vSetGetServices()) = -1) + oObj.setConfiguredServices("com.sun.star.linguistic2.Hyphenator", vLocale, vGetServices()) + Test.MethodTested("setConfiguredServices()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +Sub CB1_processLinguServiceEvent + Out.Log("CallBack for Listener1 processLinguServiceEvent was called.") + nCB1Val = nCB1Val + 1 +End Sub + +Sub CB2_processLinguServiceEvent + Out.Log("CallBack for Listener2 processLinguServiceEvent was called.") + nCB2Val = nCB2Val + 1 +End Sub +Sub CB1_ + Out.Log("CallBack for Listener1 disposing was called.") + nCB1Val = nCB1Val + 1 +End Sub + +Sub CB2_disposing + Out.Log("CallBack for Listener2 disposing was called.") + nCB2Val = nCB2Val + 1 +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XLinguServiceManager/script.xlb b/qadevOOo/tests/basic/ifc/linguistic2/XLinguServiceManager/script.xlb new file mode 100644 index 000000000000..3584b2494b87 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XLinguServiceManager/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="linguistic2_XLinguServiceManager" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="linguistic2_XLinguServiceManager"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XSearchableDictionaryList/linguistic2_XSearchableDictionaryList.xba b/qadevOOo/tests/basic/ifc/linguistic2/XSearchableDictionaryList/linguistic2_XSearchableDictionaryList.xba new file mode 100644 index 000000000000..81ec09eccb2e --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XSearchableDictionaryList/linguistic2_XSearchableDictionaryList.xba @@ -0,0 +1,71 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="linguistic2_XSearchableDictionaryList" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2008 by Sun Microsystems, Inc. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' $RCSfile: linguistic2_XSearchableDictionaryList.xba,v $ +' +' $Revision: 1.3 $ +' +' 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.linguistic2.XSearchableDictionaryList +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim vLocale As new com.sun.star.lang.Locale + + vLocale.Language = "en" + vLocale.Country = "US" + vLocale.Variant = "WIN" + + Test.StartMethod("queryDictionaryEntry()") + bOK = true + bOK = bOK AND hasUnoInterfaces(oObj.queryDictionaryEntry("Negative", vLocale, false, false),_ + "com.sun.star.linguistic2.XDictionaryEntry") + bOK = bOK AND hasUnoInterfaces(oObj.queryDictionaryEntry("Positive", vLocale, true, true),_ + "com.sun.star.linguistic2.XDictionaryEntry") + Test.MethodTested("queryDictionaryEntry()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XSearchableDictionaryList/script.xlb b/qadevOOo/tests/basic/ifc/linguistic2/XSearchableDictionaryList/script.xlb new file mode 100644 index 000000000000..782bf1beef0d --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XSearchableDictionaryList/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="linguistic2_XSearchableDictionaryList" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="linguistic2_XSearchableDictionaryList"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XSpellChecker/linguistic2_XSpellChecker.xba b/qadevOOo/tests/basic/ifc/linguistic2/XSpellChecker/linguistic2_XSpellChecker.xba new file mode 100644 index 000000000000..43cbfc7600b5 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XSpellChecker/linguistic2_XSpellChecker.xba @@ -0,0 +1,82 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="linguistic2_XSpellChecker" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2008 by Sun Microsystems, Inc. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' $RCSfile: linguistic2_XSpellChecker.xba,v $ +' +' $Revision: 1.3 $ +' +' 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.linguistic2.XSpellChecker +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim vLocale As new com.sun.star.lang.Locale + Dim Prop As new com.sun.star.beans.PropertyValue + Dim Props(0 to 0) As Variant + + Props(0) = Prop + + vLocale.Language = "en" + vLocale.Country = "US" + + + Test.StartMethod("isValid()") + bOK = true + bOK = bOK AND oObj.isValid("Sun", vLocale, Props()) + bOK = bOK AND NOT oObj.isValid("Summersun", vLocale, Props()) + Test.MethodTested("isValid()", bOK) + + Dim vAlt As Variant + Dim cAlternative As Variant + Test.StartMethod("spell()") + bOK = true + vAlt = oObj.spell("Summersun", vLocale, Props()) + cAlternative = vAlt.getAlternatives() + bOK = bOK AND (cAlternative(0) <> "") + Test.MethodTested("spell()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XSpellChecker/script.xlb b/qadevOOo/tests/basic/ifc/linguistic2/XSpellChecker/script.xlb new file mode 100644 index 000000000000..530343cb3c4e --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XSpellChecker/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="linguistic2_XSpellChecker" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="linguistic2_XSpellChecker"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XSupportedLocales/linguistic2_XSupportedLocales.xba b/qadevOOo/tests/basic/ifc/linguistic2/XSupportedLocales/linguistic2_XSupportedLocales.xba new file mode 100644 index 000000000000..b46f32961b3d --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XSupportedLocales/linguistic2_XSupportedLocales.xba @@ -0,0 +1,82 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="linguistic2_XSupportedLocales" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2008 by Sun Microsystems, Inc. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' $RCSfile: linguistic2_XSupportedLocales.xba,v $ +' +' $Revision: 1.3 $ +' +' 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.linguistic2.XSupportedLocales +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim vLocales As Variant + + Test.StartMethod("getLocales()") + bOK = true + vLocales = oObj.getLocales() + bOK = bOK AND (uBound(vLocales()) > 0) + Test.MethodTested("getLocales()", bOK) + + Test.StartMethod("hasLocale()") + bOK = true + Out.Log("first check all available locales") + for i=0 to uBound(vLocales()) + bOK = bOK AND oObj.hasLocale(vLocales(i)) + next i + Out.Log("all available locales result: " + bOK) + + Out.Log(" now create a invalid locale") + Dim vLocale As new com.sun.star.lang.Locale + vLocale.Language = "myLanguage" + vLocale.Country = "myCountry" + vLocale.Variant = "dummy" + bOK = bOK AND Not oObj.hasLocale(vLocale) + + Test.MethodTested("hasLocale()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XSupportedLocales/script.xlb b/qadevOOo/tests/basic/ifc/linguistic2/XSupportedLocales/script.xlb new file mode 100644 index 000000000000..904ac803b61a --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XSupportedLocales/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="linguistic2_XSupportedLocales" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="linguistic2_XSupportedLocales"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XThesaurus/linguistic2_XThesaurus.xba b/qadevOOo/tests/basic/ifc/linguistic2/XThesaurus/linguistic2_XThesaurus.xba new file mode 100644 index 000000000000..2b3beee92a53 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XThesaurus/linguistic2_XThesaurus.xba @@ -0,0 +1,73 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="linguistic2_XThesaurus" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2008 by Sun Microsystems, Inc. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' $RCSfile: linguistic2_XThesaurus.xba,v $ +' +' $Revision: 1.3 $ +' +' 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.linguistic2.XThesaurus +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim cMeanings As Variant + Dim vProp As new com.sun.star.beans.PropertyValue + Dim vPops(0) As Variant + Dim vLocale As new com.sun.star.lang.Locale + + vProps(0) = vProp + vLocale.Language = "en" + vLocale.Country = "US" + vLocale.Variant = "" + + Test.StartMethod("queryMeanings()") + bOK = true + XMeanings = oObj.queryMeanings("joke", vLocale, vProps()) + bOK = bOK AND hasUnoInterfaces(XMeanings(0), "com.sun.star.linguistic2.XMeaning") + Test.MethodTested("queryMeanings()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/linguistic2/XThesaurus/script.xlb b/qadevOOo/tests/basic/ifc/linguistic2/XThesaurus/script.xlb new file mode 100644 index 000000000000..3caf514a4c66 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/linguistic2/XThesaurus/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="linguistic2_XThesaurus" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="linguistic2_XThesaurus"/> +"</library:library> |