reflection based unit testing

Strict

#REFLECTION_FILTER+="*_test"

Import wdw.unittest
Import simple_test

Function Main:Int()
        Local t:TestSuite = New TestSuite
        t.Run()
        Return 0
End


Class MyClassTest Extends TestBase
	
	Field m:MyClass

	
	Method dothisBefore:Void()
		'we do this before each unit test
		m = New MyClass
	End
	
	Method dothisAfter:Void()
		'we do this after each unit test
		m = Null
	End
	
	
	Method constructorTest:Void()
		Self.assertNotNull(m)
	End	

'this test will fail, of course.		
	Method constructorFailingTest:Void()
		Self.assertNull(m)
	End
	
End


Class MyClass
	
	Private	
	Field simplefield:Int
	Public	
	
	Method Simplefield:Int(i:Int) Property
		simplefield = i
		Return 0
	End
	
	Method Simplefield:Int() Property
		Return simplefield
	End
End