summaryrefslogtreecommitdiffstats
path: root/io/test/stm/datatest.cxx
diff options
context:
space:
mode:
Diffstat (limited to 'io/test/stm/datatest.cxx')
-rw-r--r--io/test/stm/datatest.cxx1071
1 files changed, 1071 insertions, 0 deletions
diff --git a/io/test/stm/datatest.cxx b/io/test/stm/datatest.cxx
new file mode 100644
index 0000000000..ef31f099d4
--- /dev/null
+++ b/io/test/stm/datatest.cxx
@@ -0,0 +1,1071 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ * Licensed to the Apache Software Foundation (ASF) under one or more
+ * contributor license agreements. See the NOTICE file distributed
+ * with this work for additional information regarding copyright
+ * ownership. The ASF licenses this file to you under the Apache
+ * License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0 .
+ */
+
+#include <stdio.h>
+
+#include <com/sun/star/test/XSimpleTest.hpp>
+#include <com/sun/star/io/XActiveDataSink.hpp>
+#include <com/sun/star/io/XActiveDataSource.hpp>
+#include <com/sun/star/io/XObjectInputStream.hpp>
+#include <com/sun/star/io/XObjectOutputStream.hpp>
+#include <com/sun/star/io/XMarkableStream.hpp>
+#include <com/sun/star/io/XConnectable.hpp>
+#include <com/sun/star/beans/XPropertySet.hpp>
+#include <com/sun/star/lang/WrappedTargetException.hpp>
+#include <com/sun/star/lang/IllegalArgumentException.hpp>
+#include <com/sun/star/lang/XServiceInfo.hpp>
+
+#include <cppuhelper/factory.hxx>
+#include <cppuhelper/implbase.hxx>
+
+#include <osl/conditn.hxx>
+
+#include <string.h>
+
+using namespace ::osl;
+using namespace ::cppu;
+using namespace ::com::sun::star::uno;
+using namespace ::com::sun::star::io;
+using namespace ::com::sun::star::lang;
+using namespace ::com::sun::star::test;
+using namespace ::com::sun::star::beans;
+// streams
+
+#include "testfactreg.hxx"
+
+#define DATASTREAM_TEST_MAX_HANDLE 1
+
+/*
+ * The following test class tests XDataInputStream and XDataOutputStream at equal terms,
+ * so when errors occur, it may be in either one implementation.
+ * The class also uses com.sun.star.io.pipe. If problems occur, make sure to run also the
+ * pipe test routines ( test.com.sun.star.io.pipe ).
+ */
+
+class ODataStreamTest :
+ public WeakImplHelper< XSimpleTest >
+{
+public:
+ explicit ODataStreamTest( const Reference < XMultiServiceFactory > & rFactory ) :
+ m_rFactory( rFactory )
+ {}
+
+public:
+ virtual void SAL_CALL testInvariant(const OUString& TestName, const Reference < XInterface >& TestObject)
+ throw ( IllegalArgumentException,
+ RuntimeException);
+
+ virtual sal_Int32 SAL_CALL test( const OUString& TestName,
+ const Reference < XInterface >& TestObject,
+ sal_Int32 hTestHandle)
+ throw ( IllegalArgumentException,
+ RuntimeException);
+
+ virtual sal_Bool SAL_CALL testPassed() throw ( RuntimeException);
+ virtual Sequence< OUString > SAL_CALL getErrors() throw (RuntimeException);
+ virtual Sequence< Any > SAL_CALL getErrorExceptions() throw (RuntimeException);
+ virtual Sequence< OUString > SAL_CALL getWarnings() throw (RuntimeException);
+
+private:
+ void testSimple( const Reference < XDataInputStream > & , const Reference < XDataOutputStream > &);
+
+protected:
+ Sequence<Any> m_seqExceptions;
+ Sequence<OUString> m_seqErrors;
+ Sequence<OUString> m_seqWarnings;
+
+ Reference < XMultiServiceFactory > m_rFactory;
+};
+
+
+void ODataStreamTest::testInvariant(
+ const OUString& TestName,
+ const Reference < XInterface >& TestObject )
+ throw ( IllegalArgumentException,
+ RuntimeException)
+{
+ if( OUString("com.sun.star.io.DataInputStream") == TestName ) {
+ Reference < XConnectable > connect( TestObject , UNO_QUERY );
+ Reference < XActiveDataSink > active( TestObject , UNO_QUERY );
+ Reference < XInputStream > input( TestObject , UNO_QUERY );
+ Reference < XDataInputStream > dataInput( TestObject , UNO_QUERY );
+
+ WARNING_ASSERT( connect.is(), "XConnectable cannot be queried" );
+ WARNING_ASSERT( active.is() , "XActiveDataSink cannot be queried" );
+ ERROR_ASSERT( input.is() , "XInputStream cannot be queried" );
+ ERROR_ASSERT( dataInput.is() , "XDataInputStream cannot be queried" );
+
+
+ }
+ else if( OUString("com.sun.star.io.DataOutputStream") == TestName ) {
+ Reference < XConnectable > connect( TestObject , UNO_QUERY );
+ Reference < XActiveDataSource > active( TestObject , UNO_QUERY );
+ Reference < XOutputStream > output( TestObject , UNO_QUERY );
+ Reference < XDataOutputStream > dataOutput( TestObject , UNO_QUERY );
+
+ WARNING_ASSERT( connect.is(), "XConnectable cannot be queried" );
+ WARNING_ASSERT( active.is() , "XActiveDataSink cannot be queried" );
+ ERROR_ASSERT( output.is() , "XInputStream cannot be queried" );
+ ERROR_ASSERT( dataOutput.is(), "XDataInputStream cannot be queried" );
+
+ }
+
+ Reference < XServiceInfo > info( TestObject, UNO_QUERY );
+ ERROR_ASSERT( info.is() , "XServiceInfo not supported !" );
+ if( info.is() )
+ {
+ ERROR_ASSERT( info->supportsService( TestName ), "XServiceInfo test failed" );
+ ERROR_ASSERT( ! info->supportsService("bla bluzb") , "XServiceInfo test failed" );
+ }
+
+}
+
+
+sal_Int32 ODataStreamTest::test(
+ const OUString& TestName,
+ const Reference < XInterface >& TestObject,
+ sal_Int32 hTestHandle)
+ throw ( IllegalArgumentException,
+ RuntimeException)
+{
+ if( OUString("com.sun.star.io.DataInputStream") == TestName ||
+ OUString("com.sun.star.io.DataOutputStream") == TestName ) {
+
+ try
+ {
+ if( 0 == hTestHandle ) {
+ testInvariant( TestName , TestObject );
+ }
+ else {
+ Reference <XActiveDataSink > rSink( TestObject, UNO_QUERY );
+ Reference <XActiveDataSource > rSource( TestObject , UNO_QUERY );
+
+ Reference < XDataInputStream > rInput( TestObject , UNO_QUERY );
+ Reference < XDataOutputStream > rOutput( TestObject , UNO_QUERY );
+
+
+ Reference < XInterface > x = m_rFactory->createInstance(
+ "com.sun.star.io.Pipe" );
+
+ Reference < XInputStream > rPipeInput( x , UNO_QUERY );
+ Reference < XOutputStream > rPipeOutput( x , UNO_QUERY );
+
+ if( ! rSink.is() ) {
+ x = m_rFactory->createInstance(
+ "com.sun.star.io.DataInputStream" );
+ rInput.set( x , UNO_QUERY);
+ rSink.set( x , UNO_QUERY );
+ }
+ else if ( !rSource.is() )
+ {
+ x = m_rFactory->createInstance(
+ "com.sun.star.io.DataOutputStream" );
+ rOutput.set( x , UNO_QUERY );
+ rSource.set( x, UNO_QUERY );
+ }
+
+ OSL_ASSERT( rPipeInput.is() );
+ OSL_ASSERT( rPipeOutput.is() );
+ rSink->setInputStream( rPipeInput );
+ rSource->setOutputStream( rPipeOutput );
+
+ OSL_ASSERT( rSink->getInputStream().is() );
+ OSL_ASSERT( rSource->getOutputStream().is() );
+
+ if( 1 == hTestHandle ) {
+ testSimple( rInput , rOutput );
+ }
+ }
+ }
+ catch( const Exception & e )
+ {
+ OString o = OUStringToOString( e.Message , RTL_TEXTENCODING_ASCII_US );
+ BUILD_ERROR( 0 , o.getStr() );
+ }
+ catch( ... )
+ {
+ BUILD_ERROR( 0 , "unknown exception (Exception is not base class)" );
+ }
+
+ hTestHandle ++;
+
+ if( hTestHandle >= 2) {
+ // all tests finished.
+ hTestHandle = -1;
+ }
+ }
+ else {
+ BUILD_ERROR( 0 , "service not supported by test." );
+ }
+ return hTestHandle;
+}
+
+
+sal_Bool ODataStreamTest::testPassed() throw (RuntimeException)
+{
+ return m_seqErrors.getLength() == 0;
+}
+
+
+Sequence< OUString > ODataStreamTest::getErrors() throw (RuntimeException)
+{
+ return m_seqErrors;
+}
+
+
+Sequence< Any > ODataStreamTest::getErrorExceptions() throw (RuntimeException)
+{
+ return m_seqExceptions;
+}
+
+
+Sequence< OUString > ODataStreamTest::getWarnings() throw (RuntimeException)
+{
+ return m_seqWarnings;
+}
+
+void ODataStreamTest::testSimple( const Reference < XDataInputStream > &rInput,
+ const Reference < XDataOutputStream > &rOutput )
+{
+ rOutput->writeLong( 0x34ff3c );
+ rOutput->writeLong( 0x34ff3d );
+ rOutput->writeLong( -1027 );
+
+ ERROR_ASSERT( 0x34ff3c == rInput->readLong() , "long read/write mismatch" );
+ ERROR_ASSERT( 0x34ff3d == rInput->readLong() , "long read/write mismatch" );
+ ERROR_ASSERT( -1027 == rInput->readLong() , "long read/write mismatch" );
+
+ rOutput->writeByte( 0x77 );
+ ERROR_ASSERT( 0x77 == rInput->readByte() , "byte read/write mismatch" );
+
+ rOutput->writeBoolean( 25 );
+ ERROR_ASSERT( rInput->readBoolean() , "boolean read/write mismatch" );
+
+ rOutput->writeBoolean( sal_False );
+ ERROR_ASSERT( ! rInput->readBoolean() , "boolean read/write mismatch" );
+
+ rOutput->writeFloat( (float) 42.42 );
+ ERROR_ASSERT( rInput->readFloat() == ((float)42.42) , "float read/write mismatch" );
+
+ rOutput->writeDouble( (double) 42.42 );
+ ERROR_ASSERT( rInput->readDouble() == 42.42 , "double read/write mismatch" );
+
+ rOutput->writeHyper( 0x123456789abcdefLL );
+ ERROR_ASSERT( rInput->readHyper() == 0x123456789abcdefLL , "int64 read/write mismatch" );
+
+ rOutput->writeUTF( OUString("Live long and prosper !") );
+ ERROR_ASSERT( rInput->readUTF() == "Live long and prosper !",
+ "UTF read/write mismatch" );
+
+ Sequence<sal_Unicode> wc(0x10001);
+ for( int i = 0 ; i < 0x10000 ; i ++ ) {
+ wc.getArray()[i] = L'c';
+ }
+ wc.getArray()[0x10000] = 0;
+ OUString str( wc.getArray() , 0x10000 );
+ rOutput->writeUTF( str );
+ ERROR_ASSERT( rInput->readUTF() == str , "error reading 64k block" );
+
+ rOutput->closeOutput();
+ try
+ {
+ rInput->readLong();
+ ERROR_ASSERT( 0 , "eof-exception does not occur !" );
+ }
+ catch ( IOException & )
+ {
+ //ok
+ }
+ catch( ... )
+ {
+ ERROR_ASSERT( 0 , "wrong exception after reading beyond eof" );
+ }
+
+ Sequence<sal_Int8> dummy (1);
+ ERROR_ASSERT( ! rInput->readBytes( dummy , 1 ),
+ "stream must be on eof !" );
+
+ rInput->closeInput();
+
+ try
+ {
+ rOutput->writeByte( 1 );
+ ERROR_ASSERT( 0 , "writing still possible though chain must be interrupted" );
+ }
+ catch( IOException & )
+ {
+ // ok
+ }
+ catch( ... ) {
+ ERROR_ASSERT( 0 , "IOException expected, but another exception was thrown" );
+ }
+
+}
+
+
+/**
+* for external binding
+*
+*
+**/
+Reference < XInterface > SAL_CALL ODataStreamTest_CreateInstance( const Reference < XMultiServiceFactory > & rSMgr ) throw(Exception)
+{
+ return getXWeak(new ODataStreamTest( rSMgr ));
+}
+
+Sequence<OUString> ODataStreamTest_getSupportedServiceNames( int i) throw ()
+{
+ Sequence<OUString> aRet { ODataStreamTest_getImplementationName( i) };
+ return aRet;
+}
+
+OUString ODataStreamTest_getServiceName( int i) throw ()
+{
+ if( 1 == i ) {
+ return OUString( "test.com.sun.star.io.DataInputStream" );
+ }
+ else {
+ return OUString( "test.com.sun.star.io.DataOutputStream" );
+ }
+}
+
+OUString ODataStreamTest_getImplementationName( int i) throw ()
+{
+ if( 1 == i ) {
+ return OUString(
+ "test.com.sun.star.comp.extensions.stm.DataInputStream" );
+ }
+ else {
+ return OUString( "test.com.sun.star.comp.extensions.stm.DataOutputStream" );
+ }
+}
+
+class MyPersistObject : public WeakImplHelper< XPersistObject , XPropertySet >
+{
+public:
+ MyPersistObject( ) : m_sServiceName( OMyPersistObject_getServiceName() ) ,
+ m_l( -392 ),
+ m_f( 7883.2 ),
+ m_d( -123923.5 ),
+ m_b( sal_True ),
+ m_byte( 42 ),
+ m_c( 429 ),
+ m_s( OUString( "foo" ) )
+ {}
+ explicit MyPersistObject( const OUString & sServiceName ) : m_sServiceName( sServiceName )
+ {}
+
+
+public:
+ virtual OUString SAL_CALL getServiceName() throw (RuntimeException);
+ virtual void SAL_CALL write( const Reference< XObjectOutputStream >& OutStream )
+ throw (IOException, RuntimeException);
+ virtual void SAL_CALL read(const Reference< XObjectInputStream >& InStream)
+ throw (IOException, RuntimeException);
+
+public:
+
+ virtual Reference< XPropertySetInfo > SAL_CALL getPropertySetInfo()
+ throw (RuntimeException);
+
+ virtual void SAL_CALL setPropertyValue(const OUString& aPropertyName, const Any& aValue)
+ throw ( UnknownPropertyException,
+ PropertyVetoException,
+ IllegalArgumentException,
+ WrappedTargetException,
+ RuntimeException);
+ virtual Any SAL_CALL getPropertyValue(const OUString& PropertyName)
+ throw ( UnknownPropertyException,
+ WrappedTargetException,
+ RuntimeException);
+ virtual void SAL_CALL addPropertyChangeListener(
+ const OUString& aPropertyName,
+ const Reference < XPropertyChangeListener > & xListener)
+ throw ( UnknownPropertyException,
+ WrappedTargetException,
+ RuntimeException);
+
+ virtual void SAL_CALL removePropertyChangeListener(
+ const OUString& aPropertyName,
+ const Reference< XPropertyChangeListener > & aListener)
+ throw ( UnknownPropertyException,
+ WrappedTargetException,
+ RuntimeException);
+ virtual void SAL_CALL addVetoableChangeListener(
+ const OUString& PropertyName,
+ const Reference< XVetoableChangeListener > & aListener)
+ throw ( UnknownPropertyException,
+ WrappedTargetException,
+ RuntimeException);
+
+ virtual void SAL_CALL removeVetoableChangeListener(
+ const OUString& PropertyName,
+ const Reference< XVetoableChangeListener >& aListener)
+ throw ( UnknownPropertyException,
+ WrappedTargetException,
+ RuntimeException);
+
+public:
+ sal_Int32 m_l;
+ float m_f;
+ double m_d;
+ sal_Bool m_b;
+ sal_Int8 m_byte;
+ sal_Unicode m_c;
+ OUString m_s;
+ Reference< XPersistObject > m_ref;
+ OUString m_sServiceName;
+};
+
+
+Reference <XPropertySetInfo > MyPersistObject::getPropertySetInfo()
+ throw (RuntimeException)
+{
+ return Reference< XPropertySetInfo >();
+}
+
+void MyPersistObject::setPropertyValue(
+ const OUString& aPropertyName,
+ const Any& aValue)
+ throw ( UnknownPropertyException,
+ PropertyVetoException,
+ IllegalArgumentException,
+ WrappedTargetException,
+ RuntimeException)
+{
+ if( aPropertyName.equalsAscii("long") ) {
+ aValue >>= m_l;
+ }
+ else if ( aPropertyName.equalsAscii("float") ) {
+ aValue >>= m_f;
+ }
+ else if( aPropertyName.equalsAscii("double") ) {
+ aValue >>= m_d;
+ }
+ else if( aPropertyName.equalsAscii("bool") ) {
+ aValue >>= m_b;
+ }
+ else if( aPropertyName.equalsAscii("byte" ) ) {
+ aValue >>= m_byte;
+ }
+ else if( aPropertyName.equalsAscii("char") ) {
+ aValue >>= m_c;
+ }
+ else if( aPropertyName.equalsAscii("string") ) {
+ aValue >>= m_s;
+ }
+ else if( aPropertyName.equalsAscii("object") ) {
+ if( aValue.getValueType() == cppu::UnoType<XPersistObject>::get())
+ {
+ aValue >>= m_ref;
+ }
+ else
+ {
+ m_ref = 0;
+ }
+ }
+}
+
+
+Any MyPersistObject::getPropertyValue(const OUString& aPropertyName)
+ throw ( UnknownPropertyException,
+ WrappedTargetException,
+ RuntimeException)
+{
+ Any aValue;
+ if( aPropertyName.equalsAscii("long" ) ) {
+ aValue <<= m_l;
+ }
+ else if ( aPropertyName.equalsAscii("float") ) {
+ aValue <<= m_f;
+ }
+ else if( aPropertyName.equalsAscii("double") ) {
+ aValue <<= m_d;
+ }
+ else if( aPropertyName.equalsAscii("bool") ) {
+ aValue <<= m_b;
+ }
+ else if( aPropertyName.equalsAscii("byte") ) {
+ aValue <<= m_byte;
+ }
+ else if( aPropertyName.equalsAscii("char" ) ) {
+ aValue <<= m_c;
+ }
+ else if( aPropertyName.equalsAscii("string") ) {
+ aValue <<= m_s;
+ }
+ else if( aPropertyName.equalsAscii("object" ) )
+ {
+ aValue <<= m_ref;
+ }
+ return aValue;
+}
+
+
+void MyPersistObject::addPropertyChangeListener(
+ const OUString& aPropertyName,
+ const Reference< XPropertyChangeListener > & xListener)
+ throw ( UnknownPropertyException,
+ WrappedTargetException,
+ RuntimeException)
+{
+
+}
+
+void MyPersistObject::removePropertyChangeListener(
+ const OUString& aPropertyName,
+ const Reference < XPropertyChangeListener > & aListener)
+ throw ( UnknownPropertyException,
+ WrappedTargetException,
+ RuntimeException)
+{
+}
+
+
+void MyPersistObject::addVetoableChangeListener(
+ const OUString& PropertyName,
+ const Reference <XVetoableChangeListener >& aListener)
+ throw ( UnknownPropertyException,
+ WrappedTargetException,
+ RuntimeException)
+{
+
+}
+
+void MyPersistObject::removeVetoableChangeListener(
+ const OUString& PropertyName,
+ const Reference < XVetoableChangeListener > & aListener)
+ throw ( UnknownPropertyException,
+ WrappedTargetException,
+ RuntimeException)
+{
+
+}
+
+
+OUString MyPersistObject::getServiceName() throw (RuntimeException)
+{
+ return m_sServiceName;
+}
+
+void MyPersistObject::write( const Reference< XObjectOutputStream > & rOut )
+ throw (IOException,RuntimeException)
+{
+ rOut->writeLong( m_l);
+ rOut->writeFloat( m_f );
+ rOut->writeDouble( m_d );
+ rOut->writeBoolean( m_b );
+ rOut->writeByte( m_byte );
+ rOut->writeChar( m_c );
+ rOut->writeUTF( m_s );
+ rOut->writeObject( m_ref );
+}
+
+
+void MyPersistObject::read( const Reference< XObjectInputStream > & rIn )
+ throw (IOException, RuntimeException)
+{
+ m_l = rIn->readLong();
+ m_f = rIn->readFloat();
+ m_d = rIn->readDouble();
+ m_b = rIn->readBoolean();
+ m_byte = rIn->readByte();
+ m_c = rIn->readChar();
+ m_s = rIn->readUTF();
+ m_ref = rIn->readObject();
+}
+
+Reference < XInterface > SAL_CALL OMyPersistObject_CreateInstance(
+ const Reference < XMultiServiceFactory > & rSMgr )
+ throw(Exception)
+{
+ return getXWeak(new MyPersistObject( ));
+}
+
+Sequence<OUString> OMyPersistObject_getSupportedServiceNames( ) throw ()
+{
+ Sequence<OUString> aRet { OMyPersistObject_getImplementationName() };
+ return aRet;
+}
+
+OUString OMyPersistObject_getServiceName( ) throw ()
+{
+ return OUString( "test.com.sun.star.io.PersistTest" );
+}
+
+OUString OMyPersistObject_getImplementationName( ) throw ()
+{
+ return OUString( "test.com.sun.star.io.PersistTest" );
+}
+
+class OObjectStreamTest :
+ public ODataStreamTest
+{
+public:
+ explicit OObjectStreamTest( const Reference < XMultiServiceFactory > &r) : ODataStreamTest(r) {}
+
+public:
+ virtual void SAL_CALL testInvariant(const OUString& TestName,
+ const Reference < XInterface >& TestObject)
+ throw ( IllegalArgumentException,
+ RuntimeException);
+
+ virtual sal_Int32 SAL_CALL test(
+ const OUString& TestName,
+ const Reference < XInterface >& TestObject,
+ sal_Int32 hTestHandle)
+ throw ( IllegalArgumentException,
+ RuntimeException);
+
+
+private:
+ void testObject( const Reference <XObjectOutputStream > &rOut,
+ const Reference <XObjectInputStream> &rIn );
+
+private:
+};
+
+
+void OObjectStreamTest::testInvariant( const OUString& TestName,
+ const Reference < XInterface >& TestObject )
+ throw ( IllegalArgumentException, RuntimeException)
+{
+
+ if( OUString( "com.sun.star.io.ObjectInputStream" )
+ == TestName )
+ {
+ ODataStreamTest::testInvariant( TestName , TestObject );
+ Reference< XObjectInputStream > dataInput( TestObject , UNO_QUERY );
+ Reference< XMarkableStream > markable( TestObject , UNO_QUERY );
+ ERROR_ASSERT( dataInput.is() , "XObjectInputStream cannot be queried" );
+ ERROR_ASSERT( markable.is() , "XMarkableStream cannot be queried" );
+ }
+ else if( OUString( "com.sun.star.io.ObjectOutputStream" )
+ == TestName )
+ {
+ ODataStreamTest::testInvariant( TestName , TestObject );
+ Reference < XMarkableStream > markable( TestObject , UNO_QUERY );
+ Reference < XObjectOutputStream > dataOutput( TestObject , UNO_QUERY );
+ ERROR_ASSERT( dataOutput.is(), "XObjectOutputStream cannot be queried" );
+ ERROR_ASSERT( markable.is() , "XMarkableStream cannot be queried" );
+ }
+
+ Reference < XServiceInfo > info( TestObject, UNO_QUERY );
+ ERROR_ASSERT( info.is() , "XServiceInfo not supported !" );
+ if( info.is() )
+ {
+ ERROR_ASSERT( info->supportsService( TestName ), "XServiceInfo test failed" );
+ ERROR_ASSERT( ! info->supportsService("bla bluzb") , "XServiceInfo test failed" );
+ }
+
+}
+
+sal_Int32 OObjectStreamTest::test( const OUString& TestName,
+ const Reference < XInterface >& TestObject,
+ sal_Int32 hTestHandle)
+ throw ( IllegalArgumentException,
+ RuntimeException)
+{
+ if( TestName.equalsAscii("com.sun.star.io.ObjectInputStream") ||
+ TestName.equalsAscii("com.sun.star.io.ObjectOutputStream") ) {
+
+ try
+ {
+ if( 0 == hTestHandle ) {
+ testInvariant( TestName , TestObject );
+ }
+ else if( DATASTREAM_TEST_MAX_HANDLE >= hTestHandle ) {
+ sal_Int32 hOldHandle = hTestHandle;
+ hTestHandle = ODataStreamTest::test(
+ OUString( "com.sun.star.io.DataInputStream" ),
+ TestObject , hTestHandle );
+ if( hTestHandle == -1 ){
+ hTestHandle = hOldHandle;
+ }
+ }
+ else {
+
+ Reference<XActiveDataSink > rSink( TestObject, UNO_QUERY );
+ Reference<XActiveDataSource > rSource( TestObject , UNO_QUERY );
+
+ Reference< XObjectInputStream > rInput( TestObject , UNO_QUERY );
+ Reference< XObjectOutputStream > rOutput( TestObject , UNO_QUERY );
+
+
+ Reference < XInterface > x = m_rFactory->createInstance(
+ "com.sun.star.io.Pipe" );
+
+ Reference <XInputStream > rPipeInput( x , UNO_QUERY );
+ Reference <XOutputStream > rPipeOutput( x , UNO_QUERY );
+
+ x = m_rFactory->createInstance(
+ "com.sun.star.io.MarkableInputStream" );
+
+ Reference <XInputStream > markableInput( x , UNO_QUERY );
+ Reference <XActiveDataSink> markableSink( x , UNO_QUERY );
+
+ x = m_rFactory->createInstance( "com.sun.star.io.MarkableOutputStream" );
+ Reference <XOutputStream > markableOutput( x , UNO_QUERY );
+ Reference <XActiveDataSource > markableSource( x , UNO_QUERY );
+
+ OSL_ASSERT( markableInput.is() );
+ OSL_ASSERT( markableOutput.is() );
+ OSL_ASSERT( markableSink.is() );
+ OSL_ASSERT( markableSource.is() );
+
+ markableSink->setInputStream( rPipeInput );
+ markableSource->setOutputStream( rPipeOutput );
+
+ if( ! rSink.is() ) {
+ x = m_rFactory->createInstance(
+ "com.sun.star.io.ObjectInputStream" );
+ rInput.set( x , UNO_QUERY );
+ rSink.set( x , UNO_QUERY );
+ }
+ else if ( !rSource.is() ) {
+ x = m_rFactory->createInstance(
+ "com.sun.star.io.ObjectOutputStream" );
+ rOutput.set( x , UNO_QUERY );
+ rSource.set( x, UNO_QUERY );
+ }
+
+ OSL_ASSERT( rPipeInput.is() );
+ OSL_ASSERT( rPipeOutput.is() );
+
+ rSink->setInputStream( markableInput );
+ rSource->setOutputStream( markableOutput );
+
+ OSL_ASSERT( rSink->getInputStream().is() );
+ OSL_ASSERT( rSource->getOutputStream().is() );
+
+ if( 1 + DATASTREAM_TEST_MAX_HANDLE == hTestHandle ) {
+ testObject( rOutput , rInput);
+ }
+ rInput->closeInput();
+ rOutput->closeOutput();
+
+ }
+ }
+ catch( const Exception &e ) {
+ OString o = OUStringToOString( e.Message , RTL_TEXTENCODING_ASCII_US );
+ BUILD_ERROR( 0 , o.getStr() );
+ }
+ catch( ... ) {
+ BUILD_ERROR( 0 , "unknown exception (Exception is not base class)" );
+ }
+
+ hTestHandle ++;
+
+ if( hTestHandle > 1 +DATASTREAM_TEST_MAX_HANDLE ) {
+ // all tests finished.
+ hTestHandle = -1;
+ }
+ }
+ else {
+ BUILD_ERROR( 0 , "service not supported by test." );
+ }
+ return hTestHandle;
+}
+
+
+sal_Bool compareMyPropertySet( Reference< XPropertySet > &r1 , Reference < XPropertySet > &r2 )
+{
+ sal_Bool b = sal_True;
+
+ if( r1->getPropertyValue("long").getValueType() == cppu::UnoType<void>::get() ||
+ r2->getPropertyValue("long").getValueType() == cppu::UnoType<void>::get() ) {
+
+ // one of the objects is not the correct propertyset !
+ fprintf( stderr, "compareMyPropertySet: 1\n" );
+ return sal_False;
+ }
+
+ b = b && ( r1->getPropertyValue("long") ==
+ r2->getPropertyValue("long") );
+ if( ! b ) fprintf( stderr, "compareMyPropertySet: 2\n" );
+
+ b = b && ( r1->getPropertyValue("float") ==
+ r2->getPropertyValue("float") );
+ if( ! b ){
+ float f1(0.0);
+ float f2(0.0);
+ r1->getPropertyValue("float") >>= f1;
+ r2->getPropertyValue("float") >>= f2;
+ fprintf( stderr, "compareMyPropertySet: %f %f 3\n",f1,f2 );
+ }
+
+ b = b && ( r1->getPropertyValue("double") ==
+ r2->getPropertyValue("double") );
+ if( ! b ) fprintf( stderr, "compareMyPropertySet: 4\n" );
+
+ sal_Bool b1(sal_False), b2(sal_False);
+ Any a =r1->getPropertyValue("bool");
+ a >>= b1;
+ a = r2->getPropertyValue("bool");
+ a >>= b2;
+ b = b && ( (b1 && b2) || b1 == b2 );
+ if( ! b ) fprintf( stderr, "compareMyPropertySet: 5\n" );
+
+// b = b && r1->getPropertyValue("bool") ==
+// r2->getPropertyValue("bool") );
+
+ b = b && ( r1->getPropertyValue("byte") ==
+ r2->getPropertyValue("byte") );
+ if( ! b ) fprintf( stderr, "compareMyPropertySet: 6\n" );
+
+ b = b && ( r1->getPropertyValue("char") ==
+ r2->getPropertyValue("char") );
+ if( ! b ) fprintf( stderr, "compareMyPropertySet: 7\n" );
+
+ b = b && ( r1->getPropertyValue("string") ==
+ r2->getPropertyValue("string"));
+ if( ! b ) fprintf( stderr, "compareMyPropertySet: 8\n" );
+
+ Any o1 = r1->getPropertyValue("object");
+ Any o2 = r2->getPropertyValue("object");
+
+ if( o1.getValueType() == cppu::UnoType<XPersistObject>::get()) {
+
+ if( o2.getValueType() == cppu::UnoType<XPersistObject>::get()) {
+ Reference < XPersistObject > rPersist1;
+ Reference < XPersistObject > rPersist2;
+ o1 >>= rPersist1;
+ o2 >>= rPersist2;
+ Reference <XPropertySet > rProp1( rPersist1 , UNO_QUERY );
+ Reference < XPropertySet > rProp2( rPersist2 , UNO_QUERY );
+
+ if( rProp1.is() && rProp2.is() && ! ( rProp1 == rProp2 )
+ &&( rProp1 != r1 )) {
+ b = b && compareMyPropertySet( rProp1 , rProp2 );
+ }
+ }
+ else {
+ b = sal_False;
+ }
+ if( ! b ) fprintf( stderr, "compareMyPropertySet: 9\n" );
+ }
+ else {
+ if( o2.getValueType() == cppu::UnoType<XPersistObject>::get()) {
+ b = sal_False;
+ }
+ if( ! b ) fprintf( stderr, "compareMyPropertySet: 10\n" );
+ }
+
+ return b;
+}
+
+void OObjectStreamTest::testObject( const Reference< XObjectOutputStream > &rOut,
+ const Reference < XObjectInputStream > &rIn )
+{
+ ERROR_ASSERT( rOut.is() , "no objectOutputStream" );
+ ERROR_ASSERT( rIn.is() , "no objectInputStream" );
+
+
+ // tests, if saving an object with an unknown service name allows
+ // reading the data behind the object !
+ {
+ Reference < XInterface > x = * new MyPersistObject(
+ OUString( "bla blubs") );
+
+ Reference< XPersistObject > persistRef( x , UNO_QUERY );
+ ERROR_ASSERT( persistRef.is() , "couldn't instantiate PersistTest object" );
+
+ rOut->writeObject( persistRef );
+ rOut->writeLong( (sal_Int32) 0xdeadbeef );
+
+ ERROR_ASSERT( 0 != rIn->available() , "no data arrived at input" );
+
+ try
+ {
+ Reference <XPersistObject > xReadPersistRef = rIn->readObject();
+ ERROR_ASSERT( 0 , "expected exception not thrown" );
+ }
+ catch( IOException & )
+ {
+ // all is ok
+ }
+
+ ERROR_ASSERT( (sal_Int32) 0xdeadbeef == rIn->readLong() ,
+ "wrong data after object with unknown service name." );
+ }
+
+ {
+ Reference < XInterface > x = m_rFactory->createInstance(
+ "test.com.sun.star.io.PersistTest");
+ Reference< XPersistObject > persistRef( x , UNO_QUERY );
+
+ ERROR_ASSERT( persistRef.is() , "couldn't instantiate PersistTest object" );
+
+ Reference < XPropertySet > rProp( persistRef , UNO_QUERY );
+ ERROR_ASSERT( rProp.is() , "test object is no property set " );
+
+ Any any;
+ sal_Int32 i = 0x83482;
+ any <<= i;
+ rProp->setPropertyValue("long", any );
+
+ float f = (float)42.23;
+ any <<= f;
+ rProp->setPropertyValue("float", any );
+
+ double d = 233.321412;
+ any <<= d;
+ rProp->setPropertyValue("double", any );
+
+ sal_Bool b = sal_True;
+ any.setValue( &b , cppu::UnoType<bool>::get() );
+ rProp->setPropertyValue("bool", any );
+
+ sal_Int8 by = 120;
+ any <<= by;
+ rProp->setPropertyValue("byte", any );
+
+ sal_Unicode c = 'h';
+ any.setValue( &c , cppu::UnoType<cppu::UnoCharType>::get() );
+ rProp->setPropertyValue("char", any );
+
+ OUString str( "hi du !" );
+ any <<= str;
+ rProp->setPropertyValue("string", any );
+
+ any <<= persistRef;
+ rProp->setPropertyValue("object", any );
+
+ // do read and write
+ rOut->writeObject( persistRef );
+ ERROR_ASSERT( 0 != rIn->available() , "no data arrived at input" );
+ Reference< XPersistObject > xReadPersist = rIn->readObject( );
+
+ Reference< XPropertySet > rPropRead( xReadPersist , UNO_QUERY );
+ ERROR_ASSERT( compareMyPropertySet( rProp , rPropRead ) , "objects has not been read properly !" );
+
+ // destroy selfreferences
+ rProp->setPropertyValue("object", Any() );
+ rPropRead->setPropertyValue("object", Any() );
+ }
+
+ {
+ Reference< XMarkableStream > markableOut( rOut , UNO_QUERY );
+ ERROR_ASSERT( markableOut.is() , "markable stream cannot be queried" );
+
+ // do the same thing multiple times to check if
+ // buffering and marks work correctly
+ for( int i = 0 ; i < 2000 ; i ++ ) {
+
+ Reference < XInterface > x = m_rFactory->createInstance("test.com.sun.star.io.PersistTest");
+ Reference< XPersistObject > persistRef( x , UNO_QUERY );
+
+ Reference < XPropertySet > rProp( persistRef , UNO_QUERY );
+ ERROR_ASSERT( rProp.is() , "test object is no property set " );
+
+ Any any;
+ sal_Int32 i = 0x83482;
+ any <<= i;
+ rProp->setPropertyValue("long", any );
+
+ float f = 42.23;
+ any <<= f;
+ rProp->setPropertyValue("float", any );
+
+ double d = 233.321412;
+ any <<= d;
+ rProp->setPropertyValue("double", any );
+
+ sal_Bool b = sal_True;
+ any.setValue( &b , cppu::UnoType<bool>::get() );
+ rProp->setPropertyValue("bool", any );
+
+ sal_Int8 by = 120;
+ any <<= by;
+ rProp->setPropertyValue("byte", any );
+
+ sal_Unicode c = 'h';
+ any.setValue( &c , cppu::UnoType<cppu::UnoCharType>::get() );
+ rProp->setPropertyValue("char", any );
+
+ OUString str( "hi du !" );
+ any <<= str;
+ rProp->setPropertyValue("string", any );
+
+ x = m_rFactory->createInstance("test.com.sun.star.io.PersistTest");
+ Reference <XPersistObject > persist2ndRef( x , UNO_QUERY );
+
+ // Note : persist2ndRef contains coincident values, but also coincident values must be
+ // saved properly !
+ any <<= persist2ndRef;
+ rProp->setPropertyValue("object", any );
+
+ // simply test, if markable operations and object operations do not interfere
+ sal_Int32 nMark = markableOut->createMark();
+
+ // do read and write
+ rOut->writeObject( persistRef );
+
+ // further markable tests !
+ sal_Int32 nOffset = markableOut->offsetToMark( nMark );
+ markableOut->jumpToMark( nMark );
+ markableOut->deleteMark( nMark );
+ markableOut->jumpToFurthest();
+
+
+ ERROR_ASSERT( 0 != rIn->available() , "no data arrived at input" );
+ Reference < XPersistObject > xReadPersistRef = rIn->readObject( );
+
+ Reference< XPropertySet > rProp1( persistRef , UNO_QUERY );
+ Reference< XPropertySet > rProp2( xReadPersistRef , UNO_QUERY );
+ ERROR_ASSERT( compareMyPropertySet( rProp1, rProp2) ,
+ "objects has not been read properly !" );
+ }
+ }
+}
+
+
+Reference < XInterface > SAL_CALL OObjectStreamTest_CreateInstance( const Reference < XMultiServiceFactory > & rSMgr ) throw(Exception)
+{
+ return getXWeak(new OObjectStreamTest( rSMgr ));
+}
+
+Sequence<OUString> OObjectStreamTest_getSupportedServiceNames( int i) throw ()
+{
+ Sequence<OUString> aRet { OObjectStreamTest_getImplementationName( i) };
+ return aRet;
+}
+
+OUString OObjectStreamTest_getServiceName( int i) throw ()
+{
+ if( 1 == i ) {
+ return OUString( "test.com.sun.star.io.ObjectInputStream" );
+ }
+ else {
+ return OUString( "test.com.sun.star.io.ObjectOutputStream");
+ }
+}
+
+OUString OObjectStreamTest_getImplementationName( int i) throw ()
+{
+ if( 1 == i ) {
+ return OUString( "test.com.sun.star.comp.extensions.stm.ObjectInputStream" );
+ }
+ else {
+ return OUString( "test.com.sun.star.comp.extensions.stm.ObjectOutputStream");
+ }
+}
+
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */