82 lines
2.9 KiB
Plaintext
82 lines
2.9 KiB
Plaintext
function TestSuite__Misc() as object
|
|
|
|
' Inherite test suite from BaseTestSuite
|
|
this = BaseTestSuite()
|
|
|
|
' Test suite name for log statistics
|
|
this.Name = "MiscTestSuite"
|
|
|
|
this.SetUp = MiscTestSuite__SetUp
|
|
this.TearDown = MiscTestSuite__TearDown
|
|
|
|
' Add tests to suite's tests collection
|
|
this.addTest("IsValid() true", TestCase__Misc_IsValid_True)
|
|
this.addTest("IsValid() false", TestCase__Misc_IsValid_False)
|
|
this.addTest("RoundNumber() Floor", TestCase__Misc_RoundNumber_Floor)
|
|
this.addTest("RoundNumber() Ceiling", TestCase__Misc_RoundNumber_Ceiling)
|
|
|
|
return this
|
|
end function
|
|
|
|
'----------------------------------------------------------------
|
|
' This function called immediately before running tests of current suite.
|
|
'----------------------------------------------------------------
|
|
sub MiscTestSuite__SetUp()
|
|
end sub
|
|
|
|
'----------------------------------------------------------------
|
|
' This function called immediately after running tests of current suite.
|
|
'----------------------------------------------------------------
|
|
sub MiscTestSuite__TearDown()
|
|
end sub
|
|
|
|
'----------------------------------------------------------------
|
|
' Check if isValid() properly identifies valid items
|
|
'
|
|
' @return An empty string if test is success or error message if not.
|
|
'----------------------------------------------------------------
|
|
function TestCase__Misc_IsValid_True() as string
|
|
returnResults = ""
|
|
testData = [1, 2, [3, 4], { "key": invalid }, [1, 2, 3], CreateObject("roAppInfo")]
|
|
|
|
for each testItem in testData
|
|
returnResults = returnResults + m.AssertTrue(isValid(testItem))
|
|
end for
|
|
|
|
return m.AssertEmpty(returnResults)
|
|
end function
|
|
|
|
'----------------------------------------------------------------
|
|
' Check if isValid() properly identifies invalid items
|
|
'
|
|
' @return An empty string if test is success or error message if not.
|
|
'----------------------------------------------------------------
|
|
function TestCase__Misc_IsValid_False() as string
|
|
returnResults = ""
|
|
testData = [invalid, CreateObject("nothing")]
|
|
|
|
for each testItem in testData
|
|
returnResults = m.AssertFalse(isValid(testItem))
|
|
end for
|
|
|
|
return m.AssertEmpty(returnResults)
|
|
end function
|
|
|
|
'----------------------------------------------------------------
|
|
' Check if roundNumber() properly rounds down
|
|
'
|
|
' @return An empty string if test is success or error message if not.
|
|
'----------------------------------------------------------------
|
|
function TestCase__Misc_RoundNumber_Floor() as string
|
|
return m.AssertEqual(roundNumber(9.4), 9)
|
|
end function
|
|
|
|
'----------------------------------------------------------------
|
|
' Check if roundNumber() properly rounds up
|
|
'
|
|
' @return An empty string if test is success or error message if not.
|
|
'----------------------------------------------------------------
|
|
function TestCase__Misc_RoundNumber_Ceiling() as string
|
|
return m.AssertEqual(roundNumber(9.6), 10)
|
|
end function
|