diff options
Diffstat (limited to 'qadevOOo/tests/basic/ifc/datatransfer/clipboard')
8 files changed, 388 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboard/datatransfer_clipboard_XClipboard.xba b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboard/datatransfer_clipboard_XClipboard.xba new file mode 100644 index 000000000000..775071a010a2 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboard/datatransfer_clipboard_XClipboard.xba @@ -0,0 +1,105 @@ +<?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="datatransfer_clipboard_XClipboard" script:language="StarBasic"> + + +'************************************************************************* +' +' 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. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +' - Global oOwner As Object +' Global trans1 As Object +' Global trans2 As Object + +'************************************************************************* + + + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.datatransfer.clipboard.XClipboard +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim transDat1 As Variant, transDat2 As Variant, trans As Variant + Dim cont As Variant + +' owner = createUnoService("basichelper.ClipboardOwner") + + transDat1 = trans1.getTransferData(NULL_OBJECT) + transDat2 = trans2.getTransferData(NULL_OBJECT) + + Test.StartMethod("setContents()") + bOK = true + oObj.setContents(trans1, NULL_OBJECT) + wait(500) + + 'Out.Log(owner.hasElements()) + +' trans = oOwner.getByName("transferable") +' bOK = bOK AND (trans.getTransferData(NULL_OBJECT) = transDat1) + + Test.StartMethod("getContents()") + bOK = true + trans = oObj.getContents() + +' msgbox trans.dbg_supportedInterfaces() + + bOK = bOK AND (trans.getTransferData(NULL_OBJECT) = transDat1) + Test.MethodTested("setContents()", bOK) + Test.MethodTested("getContents()", bOK) + + Test.StartMethod("getName()") + Dim cbName As String + + bOK = true + cbName = oObj.getName() + Out.Log("The name of clipboard is '" + cbName + "'") + Test.MethodTested("getName()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboard/script.xlb b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboard/script.xlb new file mode 100644 index 000000000000..0652aa0bfc1d --- /dev/null +++ b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboard/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="datatransfer_clipboard_XClipboard" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="datatransfer_clipboard_XClipboard"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboardEx/datatransfer_clipboard_XClipboardEx.xba b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboardEx/datatransfer_clipboard_XClipboardEx.xba new file mode 100644 index 000000000000..1347630e9271 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboardEx/datatransfer_clipboard_XClipboardEx.xba @@ -0,0 +1,63 @@ +<?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="datatransfer_clipboard_XClipboardEx" script:language="StarBasic"> + + +'************************************************************************* +' +' 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.datatransfer.clipboard.XClipboardEx +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim iCap As Integer + + + Test.StartMethod("getRenderingCapabilities()") + bOK = true + iCap = oObj.getRenderingCapabilities() + Out.Log("Returned flag is " & iCap) + bOK = bOK AND (((iCap AND com.sun.star.datatransfer.clipboard.RenderingCapabilities.Delayed) <> 0) OR _ + ((iCap AND com.sun.star.datatransfer.clipboard.RenderingCapabilities.Persistant)> 0)) + Test.MethodTested("getRenderingCapabilities()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboardEx/script.xlb b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboardEx/script.xlb new file mode 100644 index 000000000000..f0afac5881f2 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboardEx/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="datatransfer_clipboard_XClipboardEx" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="datatransfer_clipboard_XClipboardEx"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboardNotifier/datatransfer_clipboard_XClipboardNotifier.xba b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboardNotifier/datatransfer_clipboard_XClipboardNotifier.xba new file mode 100644 index 000000000000..e42fc02691d6 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboardNotifier/datatransfer_clipboard_XClipboardNotifier.xba @@ -0,0 +1,133 @@ +<?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="datatransfer_clipboard_XClipboardNotifier" script:language="StarBasic"> + + +'************************************************************************* +' +' 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. +' +'************************************************************************* +'************************************************************************* + + + + +Dim iCB1_changedContents As Integer +Dim iCB2_changedContents As Integer +Dim bListenerWasCalled As Boolean + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.datatransfer.clipboard.XClipboardNotifier +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oListener1 As Object + Dim oListener2 As Object + Dim iTime As Integer + + iCB1_changedContents = 0 : iCB2_changedContents = 0 + + oListener1 = createUNOListener("CB1_", "com.sun.star.datatransfer.clipboard.XClipboardListener") + oListener2 = createUNOListener("CB2_", "com.sun.star.datatransfer.clipboard.XClipboardListener") + + Test.StartMethod("addClipboardListener()") + bOK = true + Out.Log("Adding two listeners...") + oObj.addClipboardListener(oListener1) + oObj.addClipboardListener(oListener2) + if (bPerformInteractiveTests) then + bListenerWasCalled = false + MsgBox("After closing this window try to copy something into clipboard... You have aprox. 10 sec. for this...") + iTime = 0 + while ((NOT bListenerWasCalled) AND (iTime < 10)) + wait 1000 + iTime = iTime + 1 + wend + if (NOT bListenerWasCalled) then + Out.Log("No listener was called in 10 sec!") + MsgBox("No listener was called in 10 sec!") + bOK = false + else + MsgBox("Listener was called!") + bOK = bOK AND (iCB1_changedContents = 1) AND (iCB2_changedContents = 1) + end if + else + Out.Log("This is an interactive test. To test this use parameter PERFORMINTERACTIVETESTS in ini file.") + end if + Test.MethodTested("addClipboardListener()", bOK) + + Test.StartMethod("removeClipboardListener()") + bOK = true + iCB1_changedContents = 0 : iCB2_changedContents = 0 + + Out.Log("Removing second listener...") + oObj.removeClipboardListener(oListener2) + if (bPerformInteractiveTests) then + bListenerWasCalled = false + MsgBox("Repeat again: After closing this window try to copy something into clipboard... You have aprox. 10 sec. for this...") + iTime = 0 + while ((NOT bListenerWasCalled) AND (iTime < 10)) + wait 1000 + iTime = iTime + 1 + wend + if (NOT bListenerWasCalled) then + Out.Log("No listener was called in 10 sec!") + MsgBox("No listener was called in 10 sec!") + bOK = false + else + MsgBox("Listener was called!") + bOK = bOK AND (iCB1_changedContents = 1) AND (iCB2_changedContents = 0) + end if + else + Out.Log("This is an interactive test. To test this use parameter PERFORMINTERACTIVETESTS in ini file.") + end if + Test.MethodTested("removeClipboardListener()", bOK) + + Out.Log("Removing first listener...") + oObj.removeClipboardListener(oListener1) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub + +Sub CB1_changedContents(event As Object) + iCB1_changedContents = iCB1_changedContents + 1 + Out.Log("CB1_changedContents() was called!") + bListenerWasCalled = true +End Sub + +Sub CB2_changedContents(event As Object) + iCB2_changedContents = iCB2_changedContents + 1 + Out.Log("CB2_changedContents() was called!") + bListenerWasCalled = true +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboardNotifier/script.xlb b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboardNotifier/script.xlb new file mode 100644 index 000000000000..59f680bb9471 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XClipboardNotifier/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="datatransfer_clipboard_XClipboardNotifier" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="datatransfer_clipboard_XClipboardNotifier"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XFlushableClipboard/datatransfer_clipboard_XFlushableClipboard.xba b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XFlushableClipboard/datatransfer_clipboard_XFlushableClipboard.xba new file mode 100644 index 000000000000..587eda1771c0 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XFlushableClipboard/datatransfer_clipboard_XFlushableClipboard.xba @@ -0,0 +1,67 @@ +<?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="datatransfer_clipboard_XFlushableClipboard" script:language="StarBasic"> + + +'************************************************************************* +' +' 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.datatransfer.clipboard.XFlushableClipboard +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + Test.StartMethod("flushClipboard()") + bOK = true + + if ((oObj.getRenderingCapabilities() AND com.sun.star.datatransfer.clipboard.RenderingCapabilities.Persistant) <> 0) then + oObj.flushClipboard() + else + Out.Log("getRenderingCapabilities() doesn't return Persistant. this " & _ + "interface is only available if the method getRenderingCapabilities " & _ + "of the interface XClipboardEx returns Persistant") + end if + + Test.MethodTested("flushClipboard()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XFlushableClipboard/script.xlb b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XFlushableClipboard/script.xlb new file mode 100644 index 000000000000..a84b1c6c93b5 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/datatransfer/clipboard/XFlushableClipboard/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="datatransfer_clipboard_XFlushableClipboard" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="datatransfer_clipboard_XFlushableClipboard"/> +"</library:library> |