diff options
Diffstat (limited to 'qadevOOo/tests/basic/ifc/io/XActiveDataControl/io_XActiveDataControl.xba')
| -rw-r--r-- | qadevOOo/tests/basic/ifc/io/XActiveDataControl/io_XActiveDataControl.xba | 238 |
1 files changed, 238 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/ifc/io/XActiveDataControl/io_XActiveDataControl.xba b/qadevOOo/tests/basic/ifc/io/XActiveDataControl/io_XActiveDataControl.xba new file mode 100644 index 000000000000..2b1e63b157df --- /dev/null +++ b/qadevOOo/tests/basic/ifc/io/XActiveDataControl/io_XActiveDataControl.xba @@ -0,0 +1,238 @@ +<?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="io_XActiveDataControl" script:language="StarBasic"> + + +'************************************************************************* +'* +'* $RCSfile: io_XActiveDataControl.xba,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change:$Date: 2003-01-27 17:50:36 $ +'* +'* The Contents of this file are made available subject to the terms of +'* either of the following licenses +'* +'* - GNU Lesser General Public License Version 2.1 +'* - Sun Industry Standards Source License Version 1.1 +'* +'* Sun Microsystems Inc., October, 2000 +'* +'* GNU Lesser General Public License Version 2.1 +'* ============================================= +'* Copyright 2000 by Sun Microsystems, Inc. +'* 901 San Antonio Road, Palo Alto, CA 94303, USA +'* +'* This library is free software; you can redistribute it and/or +'* modify it under the terms of the GNU Lesser General Public +'* License version 2.1, as published by the Free Software Foundation. +'* +'* This library 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 for more details. +'* +'* You should have received a copy of the GNU Lesser General Public +'* License along with this library; if not, write to the Free Software +'* Foundation, Inc., 59 Temple Place, Suite 330, Boston, +'* MA 02111-1307 USA +'* +'* +'* Sun Industry Standards Source License Version 1.1 +'* ================================================= +'* The contents of this file are subject to the Sun Industry Standards +'* Source License Version 1.1 (the "License"); You may not use this file +'* except in compliance with the License. You may obtain a copy of the +'* License at http://www.openoffice.org/license.html. +'* +'* Software provided under this License is provided on an "AS IS" basis, +'* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, +'* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS, +'* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. +'* See the License for the specific provisions governing your rights and +'* obligations concerning the Software. +'* +'* The Initial Developer of the Original Code is: Sun Microsystems, Inc. +'* +'* Copyright: 2000 by Sun Microsystems, Inc. +'* +'* All Rights Reserved. +'* +'* Contributor(s): _______________________________________ +'* +'* +'************************************************************************* +'************************************************************************* + + + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +' - Global oPipe As Object +' - Global PumpOUTFileName As String + +'************************************************************************* + + + + +Dim oListener1 As Object +Dim oListener2 As Object +Dim CB1Started As Integer +Dim CB1Closed As Integer +Dim CB1Terminated As Integer +Dim CB1Error As Integer +Dim CB2Started As Integer +Dim CB2Closed As Integer +Dim CB2Terminated As Integer +Dim CB2Error As Integer + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.io.XActiveDataControl +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim iSize As Integer + + oFileAcc = createUnoService("com.sun.star.ucb.SimpleFileAccess") + + Dim aBytes(10) As Integer + for i = 0 to ubound(aBytes()) + aBytes(i) = i * 3 + next i + + Test.StartMethod("start()") + Test.StartMethod("terminate()") + bOK = true + + Out.Log("Writing some bytes to Pipe") + + oPipe.writeBytes(aBytes()) + + Out.Log("The pump was not started yet. So, PumpOUT should be of zero size") + Out.Log("Terminating a pipe to have an opportunity to get a file size") + oObj.terminate() + + iSize = oFileAcc.getSize(PumpOUTFileName) + Out.Log("Size of file is " & iSize) + bOK = bOK AND iSize = 0 + DisposeObj() + CreateObj() + + Out.Log("Writing bytes again (because object was destroyed)") + oPipe.writeBytes(aBytes()) + Out.Log("... and starting pump") + oObj.start() + wait(100) + Out.Log("Now PumpOUT should have size " & ubound(aBytes()) + 1) + Out.Log("Terminating a pipe to have an opportunity to get a file size") + oObj.terminate() + iSize = oFileAcc.getSize(PumpOUTFileName) + Out.Log("Size of file is " & iSize) + bOK = bOK AND iSize = ubound(aBytes()) + 1 + + Test.MethodTested("start()", bOK) + Test.MethodTested("terminate()", bOK) + + DisposeObj() + CreateObj() + ResetCounters() + + oListener1 = createUnoListener("CB1_", "com.sun.star.io.XStreamListener") + oListener2 = createUnoListener("CB2_", "com.sun.star.io.XStreamListener") + + Test.StartMethod("addListener()") + bOK = true + Out.Log("adding two listeners") + oObj.addListener(oListener1) + oObj.addListener(oListener2) + oPipe.writeBytes(aBytes()) + oObj.start() + wait(100) ' for listeners to change counters + bOK = CB1Started = 1 AND CB2Started = 1 + Test.MethodTested("addListener()", bOK) + + DisposeObj() + CreateObj() + ResetCounters() + + Test.StartMethod("removeListener()") + bOK = true + Out.Log("adding two listeners") + oObj.addListener(oListener1) + oObj.addListener(oListener2) + Out.Log("Removing first listener...") + oObj.removeListener(oListener1) + oPipe.writeBytes(aBytes()) + oObj.start() + wait(100) + bOK = CB1Started = 0 AND CB2Started = 1 + Test.MethodTested("removeListener()", bOK) + DisposeObj() + CreateObj() + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub + +Sub ResetCounters() + CB1Started = 0 + CB1Closed = 0 + CB1Terminated = 0 + CB1Error = 0 + CB2Started = 0 + CB2Closed = 0 + CB2Terminated = 0 + CB2Error = 0 +End Sub + +Sub CB1_Started() + Out.Log("CB1_Started called") + CB1Started = CB1Started + 1 +End Sub + +Sub CB2_Started() + Out.Log("CB2_Started called") + CB2Started = CB2Started + 1 +End Sub + +Sub CB1_Closed() + Out.Log("CB1_Closed called") + CB1Closed = CB1Closed + 1 +End Sub + +Sub CB2_Closed() + Out.Log("CB2_Closed called") + CB2Closed = CB2Closed + 1 +End Sub + +Sub CB1_Terminated() + Out.Log("CB1_Terminated called") + CB1Terminated = CB1Terminated + 1 +End Sub + +Sub CB2_Terminated() + Out.Log("CB2_Terminated called") + CB2Terminated = CB2Terminated + 1 +End Sub + +Sub CB1_Error(aError As Object) + Out.Log("CB1_Error called") + CB1Error = CB1Error + 1 +End Sub + +Sub CB2_Error(aError As Object) + Out.Log("CB2_Error called") + CB2Error = CB2Error + 1 +End Sub +</script:module> |