Simple Unit-Tests for Monkey2

This topic contains 3 replies, has 4 voices, and was last updated by Amon 1 year, 2 months ago.

Viewing 4 posts - 1 through 4 (of 4 total)

Author

Posts

January 21, 2018 at 4:23 pm #13150

mac767

Participant

Hi,

this is my simple Unit-Test solution.
This code also contains test code.

#Import ""
Using std.collections

Class MX2Unit

Protected
  Global _classes:Stack = New Stack()
  Global _testSuccessful:= New Stack()
  Global _testFailed:= New Stack()

  Field _tests:Map<Void(), String> = New Map<Void(), String>()
  Field _name:String

Public

Method New(className:String)
  _name = className
  _classes.Add(Self)
End Method

Function RunAllTests:Void(prepareFunc:Void() = Null)

  If (prepareFunc <> Null) Then prepareFunc()

  For Local c:=Eachin _classes
    c.RunTests()
  Next

  Print " "
  Print "### RESULTS ###"
  Print " Successful:"
  For Local t:=Eachin _testSuccessful
    Print " - " + t
  Next

  Print " "
  Print " Failed:"
  For Local t:=Eachin _testFailed
    Print " - " + t
  Next

End Function

Function TestAssert:Void(condition:Bool, failText:String)

  If (Not condition)
    Throw New MX2UnitException(failText)
  Endif

End Function

Protected
Method AddTest:Void(testFuncName:String, testFunc:Void())
  _tests.Add(testFunc, testFuncName)
End Method

Private
Method RunTests()
  For Local t:=Eachin _tests

    Try
      t.Key()
      _testSuccessful.Add("Class "+_name + " Func " + t.Value)
    Catch e:MX2UnitException
      _testFailed.Add("Class "+_name + " Func " + t.Value + ": " + e.Text)
    End

  Next
End Method

Class MX2UnitException Extends Throwable
  Field Text:String
  Method New(text:String)
    Text = text
  End Method
End Class
End

Class T1 Extends MX2Unit

Method New()
  Super.New("T1")
  AddTest("Test1", Test1)
  AddTest("Test2", Test2)
  AddTest("Test3", Test3)
End Method

Method Test1()

  TestAssert(True, "Test1.1")

End Method

Method Test2()

  TestAssert(True, "Test2.1")
  TestAssert(False, "Test2.2")

End Method

Method Test3()

  TestAssert(True, "Test3.1")

End Method
End Class

Class T2 Extends MX2Unit

Method New()
  Super.New("T2")
  AddTest("Test1", Test1)
  AddTest("Test2", Test2)
  AddTest("Test3", Test3)
End Method

Method Test1()

  TestAssert(True, "Test1.1")

End Method

Method Test2()

  TestAssert(True, "Test2.1")
  TestAssert(False, "Test2.2")

End Method

Method Test3()

  TestAssert(True, "Test3.1")

End Method
End Class

Function Main()
  MX2Unit.RunAllTests(Lambda()
    New T1()
    New T2()
  End)
End

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

#Import ""

Using std.collections

Class MX2Unit

Protected

Global _classes:Stack = New Stack()

Global _testSuccessful:= New Stack()

Global _testFailed:= New Stack()

Field _tests:Map<Void(), String> = New Map<Void(), String>()

Field _name:String

Public

Method New(className:String)

_name = className

_classes.Add(Self)

End Method

Function RunAllTests:Void(prepareFunc:Void() = Null)

If (prepareFunc <> Null) Then prepareFunc()

For Local c:=Eachin _classes

c.RunTests()

Print " "

Print "### RESULTS ###"

Print " Successful:"

For Local t:=Eachin _testSuccessful

Print " - " + t

Print " "

Print " Failed:"

For Local t:=Eachin _testFailed

Print " - " + t

End Function

Function TestAssert:Void(condition:Bool, failText:String)

If (Not condition)

Throw New MX2UnitException(failText)

Endif

End Function

Protected

Method AddTest:Void(testFuncName:String, testFunc:Void())

_tests.Add(testFunc, testFuncName)

End Method

Private

Method RunTests()

For Local t:=Eachin _tests

Try

t.Key()

_testSuccessful.Add("Class "+_name + " Func " + t.Value)

Catch e:MX2UnitException

_testFailed.Add("Class "+_name + " Func " + t.Value + ": " + e.Text)

End

End Method

Class MX2UnitException Extends Throwable

Field Text:String

Method New(text:String)

Text = text

End Method

End Class

End

Class T1 Extends MX2Unit

Method New()

Super.New("T1")

AddTest("Test1", Test1)

AddTest("Test2", Test2)

AddTest("Test3", Test3)

End Method

Method Test1()

TestAssert(True, "Test1.1")

End Method

Method Test2()

TestAssert(True, "Test2.1")

TestAssert(False, "Test2.2")

End Method

Method Test3()

TestAssert(True, "Test3.1")

End Method

End Class

Class T2 Extends MX2Unit

Method New()

Super.New("T2")

AddTest("Test1", Test1)

AddTest("Test2", Test2)

AddTest("Test3", Test3)

End Method

Method Test1()

TestAssert(True, "Test1.1")

End Method

Method Test2()

TestAssert(True, "Test2.1")

TestAssert(False, "Test2.2")

End Method

Method Test3()

TestAssert(True, "Test3.1")

End Method

End Class

Function Main()

MX2Unit.RunAllTests(Lambda()

New T1()

New T2()

End)

End

January 25, 2018 at 4:19 pm #13225

nerobot

Participant

January 26, 2018 at 11:01 am #13256

cocon

Participant

Good one.

January 26, 2018 at 2:13 pm #13265

Amon

Participant

For those who don’t know what Unit-Tests are;

https://en.wikipedia.org/wiki/Unit_testing

Author

Posts

Viewing 4 posts - 1 through 4 (of 4 total)

You must be logged in to reply to this topic.

Simple Unit-Tests for Monkey2

Archives

Recent Replies

What is this?