5004f20609
[INTERPRETER] * NEW: Remove the now useless testing specific code. * NEW: 'gbx3 -T' now just loads the 'gb.test' component and calls Test.Main() passing it the '-T' option argument. [GB.TEST] * NEW: Move 'gb.test' sources in '/main/lib'. * NEW: 'gb.test' has now a part written in C that allows him to load project classes on demand.
132 lines
2.2 KiB
Text
132 lines
2.2 KiB
Text
' Gambas test file
|
|
|
|
''' Tests all Asserts
|
|
|
|
Public Sub TestAssert()
|
|
|
|
Test.Plan(1)
|
|
Assert.Ok(True, "Testing True")
|
|
|
|
End
|
|
|
|
Public Sub TestAssertEmpty()
|
|
|
|
Test.Plan(2)
|
|
Assert.Null("", "Empty with \"\"")
|
|
Assert.Null(Null, "Empty with Null")
|
|
|
|
End
|
|
|
|
Public Sub TestAssertEqualsFloat()
|
|
|
|
Dim f As Float
|
|
|
|
Test.Plan(1)
|
|
f = 0.55555555555555
|
|
Assert.Approximate(f, 0.55555555555555, 0, "Check with equal floats")
|
|
|
|
End
|
|
|
|
Public Sub TestAssertEqualsLong()
|
|
|
|
Dim l As Long
|
|
|
|
l = 555555555555555555
|
|
Test.Plan(1)
|
|
Assert.Equals(555555555555555555, l, "Check long")
|
|
|
|
End
|
|
|
|
Public Sub TestAssertEqualsDate()
|
|
|
|
Dim d As Date
|
|
Dim sdate As String
|
|
Dim d2 As Date
|
|
|
|
d = Now()
|
|
sdate = CString(d)
|
|
d2 = CDate(sdate)
|
|
Test.Plan(1)
|
|
Assert.Equals(d, d2, "Check with equal dates")
|
|
|
|
End
|
|
|
|
Public Sub TestAssertEqualsObject()
|
|
|
|
Dim s As New TestCase("1", Me)
|
|
Dim s2 As Object
|
|
|
|
s2 = s
|
|
Test.Plan(1)
|
|
Assert.Equals(s2, s, "Equal Objects")
|
|
|
|
End
|
|
|
|
Public Sub TestAssertEqualsString()
|
|
|
|
Dim s1, s2 As String
|
|
|
|
s1 = "blaahhh"
|
|
s2 = "blaahhh"
|
|
Test.Plan(1)
|
|
Assert.StringEquals(s1, s2, "Equal Strings")
|
|
|
|
End
|
|
|
|
Public Sub TestAssertNotNull()
|
|
|
|
Test.Plan(2)
|
|
Assert.NotNull("" & Null & 1, "String is not Null")
|
|
Assert.NotNull(Me, "Object is not Null")
|
|
|
|
End
|
|
|
|
Public Sub TestAssertError()
|
|
|
|
Dim r As Float
|
|
Test.Plan(1)
|
|
Try r = 2 / 0
|
|
|
|
Assert.Error("Test error")
|
|
|
|
End
|
|
|
|
Public Sub TestAssertErrorCode()
|
|
|
|
Dim r As Float
|
|
Test.Plan(1)
|
|
Try r = 2 / 0
|
|
Assert.ErrorCode(26, "Test error with code")
|
|
|
|
End
|
|
|
|
Public Sub TestTodoErrorCode()
|
|
|
|
Dim r As Float
|
|
Test.Plan(2)
|
|
|
|
Try r = 2 / 1
|
|
Assert.Todo("See automatic diagnostics 1/2")
|
|
Assert.ErrorCode(26, "Division by zero?")
|
|
|
|
Try r = 2 / 0
|
|
Assert.Todo("See automatic diagnostics 2/2")
|
|
Assert.ErrorCode(25, "Division by zero?")
|
|
|
|
End
|
|
|
|
Public Sub TestNote()
|
|
|
|
Test.Plan(0)
|
|
Test.Note("The next note is Null and that's alright:")
|
|
Test.Note(Null)
|
|
Test.SkipAll("This doesn't actually assert anything")
|
|
|
|
End
|
|
|
|
Public Sub TestLike()
|
|
Test.Plan(2)
|
|
Assert.Like("Gambas", "G*", "Gambas like G*")
|
|
Assert.Like("Gambas", "?[Aa]*", "Gambas Like \"?[Aa]*\"")
|
|
|
|
End
|