DEFINE CLASS ttTest as FxuTestCase OF FxuTestCase.prg
	#IF .f.
	*
	*  this LOCAL declaration enabled IntelliSense for
	*  the THIS object anywhere in this class
	*
	LOCAL THIS AS ttTest OF ttTest.PRG
	#ENDIF
	
	ioObjectToBeTested = .NULL.
	icSetClassLib = SPACE( 0 )

	FUNCTION Setup
		 THIS.icSetClassLib = SET("CLASSLIB")
    	 SET CLASSLIB TO Y:\com\classes\atmanagersbase.vcx ADDITIVE
		 THIS.ioObjectToBeTested = CREATEOBJECT("currencymgrbase")
	ENDFUNC
	********************************************************************
	FUNCTION TearDown
	    THIS.ioObjectToBeTested = .NULL.
		LOCAL lcSetClassLib
		lcSetClassLib = THIS.icSetClassLib
		SET CLASSLIB TO &lcSetClassLib        
	ENDFUNC
	********************************************************************	
	FUNCTION TestObjectWasCreated	   
		THIS.AssertNotNull(THIS.ioObjectToBeTested)
	ENDFUNC
	********************************************************************	
	FUNCTION TestMethod_m_ispnetdatabasequery
          * Error Message: Unknown member IOOBJECTTOBETESTED.
		THIS.ioObjectToBeTested.m_getcase() 
	ENDFUNC
ENDDEFINE