add: testtool, #104916#

1 files changed, 394 insertions, 0 deletions

diff --git a/automation/source/testtool/objtest.hxx b/automation/source/testtool/objtest.hxx
new file mode 100644
index 000000000..92b492ae3
--- /dev/null
+++ b/automation/source/testtool/objtest.hxx
@@ -0,0 +1,394 @@
+/*************************************************************************
+ *
+ *  $RCSfile: objtest.hxx,v $
+ *
+ *  $Revision: 1.1 $
+ *
+ *  last change: $Author: mh $ $Date: 2002-11-18 15:54:15 $
+ *
+ *  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, 2002
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2002 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 EXPRESS 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: 2002 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): _______________________________________
+ *
+ *
+ ************************************************************************/
+
+#ifndef _OBJTEST_HXX
+#define _OBJTEST_HXX
+
+#ifndef _FSYS_HXX //autogen
+#include <tools/fsys.hxx>
+#endif
+
+//#include <sbmeth.hxx>
+
+
+#include <testapp.hxx>
+#include <testtool.hxx>
+#include "cmdstrm.hxx"
+#ifndef _BASICRT_HXX
+#include <basic/basicrt.hxx>
+#endif
+#ifndef _BASIC_TESTTOOL_HXX_
+#include <basic/testtool.hxx>
+#endif
+
+//	#define ID_BeginBlock	1
+//	#define ID_EndBlock		2
+#define ID_Kontext		3
+#define ID_GetError		4
+#define ID_ErrorDummy	5            // Intern zum Behandlen von Fehlenden Controls	und Methoden
+#define ID_RecordError	6
+#define ID_Start		7
+//#define ID_Kill			8
+//#define ID_Reset		9
+//	#define ID_AppAbort		10
+#define ID_Dispatch		11
+#define ID_UNODispatch	12
+#define ID_Control		13
+#define ID_StartUse		14
+#define ID_Use			15
+#define ID_FinishUse	16
+#define ID_CaseLog		17
+#define ID_ExceptLog	18
+#define ID_PrintLog		19
+#define ID_WarnLog		20
+#define ID_ErrorLog		21
+#define ID_MaybeAddErr	22
+#define ID_ClearError	23
+#define ID_GetNextCloseWindow	24
+#define ID_RemoteCommand 27
+#define ID_SaveIDs		28
+#define ID_AutoExecute	29
+#define ID_Execute		30
+#define ID_DialogHandler 31
+#define ID_GetUnoApp	32
+#define ID_GetIServer	33
+#define ID_RemoteCommandDelay 34
+#define ID_GetApplicationPath 35
+#define ID_MakeIniFileName 36
+#define ID_StringControl 37
+#define ID_Wait         38
+#define ID_GetErrorCount   39
+#define ID_GetWarningCount 40
+#define ID_GetUseFileWarningCount 41
+#define ID_GetTestCaseName 42
+#define ID_GetTestCaseFileName 43
+#define ID_GetTestCaseLineNr 44
+
+
+#define ID_DoNothing	99
+
+#define DEF_HID_DIR "q:\\testtool\\"	// Keine Panik, die werden als FAT Behandelt und
+#define DEF_BASE_DIR "q:\\testtool\\"	// dann ins system-Format gewandelt. (DirEntry)
+
+void ReadFlatArray( const ControlDefLoad arWas [], CNames *&pNames );
+
+class ControlData
+{
+public:
+    String Kurzname;
+    TTUniqueId aUId;
+};
+
+DBG_NAMEEX( ControlItem )
+DBG_NAMEEX( ControlDef )
+class ControlItem
+{
+private:
+    void InitData() { pData = new ControlData; }
+public:
+    ControlData *pData;
+
+    ControlItem( const char *Name, TTUniqueId aUIdP );
+    ControlItem( const String &Name, TTUniqueId aUIdP );
+//	ControlItem( const String &Name, const String &URL, const URLType aType );
+//    ControlItem( const String &Name, const String &URL, const ULONG nUId );
+//    ControlItem( const char *Name, const String &URL, const ULONG nUId );
+    ControlItem( ControlData *pDataP );
+    virtual ~ControlItem() {
+DBG_DTOR(ControlItem,0);
+        delete pData;
+    }
+    virtual BOOL operator < (const ControlItem &rPar)=0;
+    virtual BOOL operator == (const ControlItem &rPar)=0;
+//	void Write( SvStream &aStream );
+};
+
+SV_DECL_PTRARR_SORT_DEL(CNames, ControlItem*, 50, 10)
+
+#define MK_SON_ACCESS( ClassName )\
+    BOOL SonInsert( const ClassName *pNewEntry ) { return pSons->C40_PTR_INSERT( ControlItem, (ControlItem*&)pNewEntry ); }\
+    BOOL SonSeek_Entry( const ClassName *pSearchEntry, USHORT *nRes = NULL) { return pSons->Seek_Entry( pSearchEntry, nRes ); }\
+    ClassName* SonGetObject( USHORT nNr ) { return (ClassName*)pSons->GetObject( nNr ); }
+
+class ControlSon
+{
+protected:
+    CNames *pSons;		// um sicherzustelle, daß nur Söhne des richtien Type reinkommen
+
+public:
+    ControlSon() : pSons( NULL ) {};
+    ~ControlSon();
+//	void Write( SvStream &aStream );
+
+    USHORT Son_Count() { return pSons->Count(); }
+    void Sons( CNames *pNewSons ) { pSons = pNewSons; }
+    CNames*& GetSons() { return pSons; }
+};
+
+class ControlItemSon : public ControlItem, public ControlSon
+{
+public:
+    ControlItemSon(const char *Name, TTUniqueId aUIdP )
+        : ControlItem( Name, aUIdP ) {}
+    ControlItemSon(const String &Name, TTUniqueId aUIdP );
+//	ControlItemSon(const String &Name, const String &URL, const URLType aType );
+//    ControlItemSon(const String &Name, const String &URL, const ULONG nUId );
+//    ControlItemSon(const char *Name, const String &URL, const ULONG nUId );
+//	void Write( SvStream &aStream );
+};
+
+class ControlDef : public ControlItemSon
+{
+public:
+    ControlDef(const char *Name, TTUniqueId aUIdP )
+        : ControlItemSon( Name, aUIdP ) {DBG_CTOR(ControlDef,0);}
+    ControlDef(const String &Name, TTUniqueId aUIdP );
+//	ControlDef(const String &Name, const String &URL, const URLType aType );
+    ControlDef(const String &aOldName, const String &aNewName, ControlDef *pOriginal, BOOL bWithSons = FALSE );
+    ~ControlDef() {DBG_DTOR(ControlDef,0);}
+    virtual BOOL operator < (const ControlItem &rPar);
+    virtual BOOL operator == (const ControlItem &rPar);
+    void Write( SvStream &aStream );
+    MK_SON_ACCESS( ControlDef )
+};
+
+class ControlItemUId : public ControlItem
+{
+public:
+    ControlItemUId(String Name, TTUniqueId aUIdP)
+        : ControlItem( Name, aUIdP){}
+    virtual BOOL operator < (const ControlItem &rPar);
+    virtual BOOL operator == (const ControlItem &rPar);
+};
+
+class ControlItemUIdSon : public ControlItemUId, public ControlSon
+{
+public:
+    ControlItemUIdSon(String Name, TTUniqueId aUIdP) : ControlItemUId( Name, aUIdP) {}
+    MK_SON_ACCESS( ControlItemUId )
+};
+
+class ReverseName : public ControlItemUId
+{
+public:
+    ULONG LastSequence;
+
+    ReverseName(String Name, TTUniqueId aUIdP, ULONG nSeq) : ControlItemUId( Name, aUIdP), LastSequence(nSeq) {}
+};
+
+class CRevNames: public CNames
+{
+public:
+    void Insert( String aName, TTUniqueId aUId, ULONG nSeq );
+    String GetName( TTUniqueId aUId );
+    void Invalidate ( ULONG nSeq );
+};
+
+
+class SbxTransportMethod: public SbxMethod
+{
+public:
+    SbxTransportMethod( SbxDataType );
+    ULONG nValue;
+    String aUnoSlot;
+};
+SV_DECL_IMPL_REF(SbxTransportMethod);
+
+class Controls: public SbxObject
+{
+public:
+    Controls( String aName );
+    ~Controls();
+    void ChangeListener();
+
+    void SFX_NOTIFY( SfxBroadcaster&, const TypeId&, const SfxHint& rHint, const TypeId& );
+    virtual SbxVariable* Find( const String&, SbxClassType );
+    SbxTransportMethodRef pMethodVar;	  // zum Transport von Find nach Notify
+    static CNames  *pClasses;
+    static ControlDefLoad __READONLY_DATA arClasses [];
+
+private:
+    TestToolObj* pTestToolObj;
+};
+SV_DECL_IMPL_REF(Controls);
+
+
+class ImplTestToolObj
+{
+public:
+//	ImplTestToolObj()
+//	~ImplTestToolObj()
+
+    String ProgParam;			// Parameter der zu Testenden APP; Gesetzt über Start
+
+    DirEntry aFileBase;			// Grundpfad für die *.sid und *.win Dateien (Aus Configdatei)
+    DirEntry aLogFileBase;		// Grundpfad für die *.res Dateien (Aus Configdatei)
+    DirEntry aHIDDir;			// Verzeichnis, in dem die hid.lst gesucht wird
+
+    SbxTransportMethodRef pNextReturn;	// Verweis auf die Var, die den Returnwert aufnimmt.
+
+    ControlsRef pControlsObj;			// Jeweiliges Objekt, an dem Methoden aufgerufen weden.
+
+#define VAR_POOL_SIZE 8
+    SbxTransportMethodRef pMyVars[VAR_POOL_SIZE];  // Falls in Ausdrücken mehrere verwendet werden
+    ControlsRef pControlsObjs[VAR_POOL_SIZE];
+
+    Time aServerTimeout;
+
+
+// Profiling Datenfelder
+    ULONG LocalStarttime;
+    USHORT nNumBorders;
+    ULONG naValBorders[4];
+    ULONG naNumEntries[5];
+    ULONG naRemoteTime[5];
+    ULONG naLocalTime[5];
+
+    ULONG nMinRemoteCommandDelay;
+    ULONG nMaxRemoteCommandDelay;
+    BOOL bDoRemoteCommandDelay;
+
+    BOOL bLnaguageExtensionLoaded;		// Wurde über 'use' was geladen? Für syntax highlighting
+    SfxBroadcaster *pTTSfxBroadcaster;
+
+    ULONG nErrorCount, nWarningCount, nIncludeFileWarningCount;
+
+    BOOL bIsStart;                      // set tu TRUE while command Start is initiating the communication
+
+    MyBasic* pMyBasic;
+
+    String aTestCaseName;       // holds name of current TestCase
+    String aTestCaseFileName;   // holds FileName of current TestCase
+    USHORT nTestCaseLineNr;     // holds Line of current TestCase
+};
+
+
+class TTFormat
+{
+public:
+    static String ms2s( ULONG nMilliSeconds );
+};
+
+
+#define ADD_TO_LOG( aLogTypep, aMsgp, aFilenamep, nLinep, nCol1p, nCol2p)\
+{																		\
+    TTLogMsg *pLogMsg = new TTLogMsg();									\
+    pLogMsg->aDebugData.aMsg = aMsgp;									\
+    pLogMsg->aLogFileName = (pImpl->aLogFileBase + DirEntry(aLogFileName)).GetFull();	\
+    pLogMsg->aDebugData.aFilename = aFilenamep;							\
+    pLogMsg->aDebugData.nLine = nLinep;									\
+    pLogMsg->aDebugData.nCol1 = nCol1p;									\
+    pLogMsg->aDebugData.nCol2 = nCol2p;									\
+    pLogMsg->aDebugData.aLogType = aLogTypep;							\
+    aLogHdl.Call( pLogMsg );											\
+    delete pLogMsg;														\
+}																		\
+
+
+#define ADD_RUN_LOG()													\
+    ADD_TO_LOG(LOG_RUN, String(), String(), 0, 0, 0)								\
+
+#define ADD_ERROR_LOG(aMsg, aFilename, nLine, nCol1, nCol2)				\
+{																		\
+    ADD_TO_LOG(LOG_ERROR, aMsg, aFilename, nLine, nCol1, nCol2)			\
+    pImpl->nErrorCount++;												\
+}
+
+#define ADD_CALL_STACK_LOG(aMsg, aFilename, nLine, nCol1, nCol2)		\
+    ADD_TO_LOG(LOG_CALL_STACK, aMsg, aFilename, nLine, nCol1, nCol2)	\
+
+
+#define ADD_AUTO_LOG(aLogType, aMsg)									\
+{																		\
+    if ( BasicRuntimeAccess::HasRuntime() )								\
+    {																	\
+        BasicRuntime aRun = BasicRuntimeAccess::GetRuntime();			\
+        ADD_TO_LOG(aLogType, aMsg, aRun.GetModuleName(SbxNAME_SHORT_TYPES),	\
+            aRun.GetLine(), aRun.GetCol1(), aRun.GetCol2())						\
+    }																	\
+    else																\
+    {																	\
+        ADD_TO_LOG(aLogType, aMsg, UniString(), 0, 0, STRING_LEN)				\
+    }																	\
+}																		\
+
+#define ADD_CASE_LOG(aMsg)												\
+    ADD_AUTO_LOG(LOG_TEST_CASE, aMsg)									\
+
+#define ADD_MESSAGE_LOG(aMsg)											\
+    ADD_AUTO_LOG(LOG_MESSAGE, aMsg)										\
+
+#define ADD_WARNING_LOG(aMsg)											\
+{																		\
+    ADD_AUTO_LOG(LOG_WARNING, aMsg)										\
+    pImpl->nWarningCount++;												\
+}
+
+#define ADD_WARNING_LOG2(aMsg, aFilename, nLine)						\
+{																		\
+    ADD_TO_LOG(LOG_WARNING, aMsg, aFilename, nLine, 0, STRING_LEN)		\
+    pImpl->nWarningCount++;												\
+}
+
+#define ADD_ASSERTION_LOG(aMsg)											\
+    ADD_AUTO_LOG(LOG_ASSERTION, aMsg)									\
+
+#endif