.hidden | ||
.src | ||
.component | ||
.directory | ||
.gitignore | ||
.icon.png | ||
.info | ||
.list | ||
.project | ||
.settings | ||
.startup | ||
error.png | ||
failure.png | ||
ok.png | ||
README.md | ||
runner-screen.png | ||
trace-helloworld.png | ||
tracer-screen.png |
gb.deg.unittest – A Gambas Unittest
A Gambas component for unittesting and test-driven programming. Forked and inspired from a quite old program: COMUnit and mainly JUnit. Currently beta state. Scroll down to understand, how it works.
Runner
Tracer
How it works
It is a component. To make it work, you have to generate an installation package for your distribution and install it on your Linux system with Gambas3 (min. Version 3.8.). After that you can use it in your projects as a component.
Example Test Class
You should create a exported class with a name starting with "_GuTest", for example "_GuTestHelloWorld", it contains one or more public testmethod(s):
'Class _GuTestHelloWorld
'Test HelloWorld
Export
Inherits ATestContainer
Public Sub TestHelloWorld()
Me.Result.AssertEqualsString("Hello World", Hello.World(), "Strings should be equal")
End
Module(Function) to test:
To make it work, a function "World" in a module "Hello" in your project must exist:
' Gambas module file
Public Function World() As String
Dim w As String
w = "Hello World"
Return w
End
Invite Unittest
The simple way to execute the Unittest is, to create another Module, name it Test and make it a a Gambas Startclass:
'Module Test
'Starts the Unittest
Public Sub Main()
Dim U as New Unittest
U.Test
End
If you did this all correctly and now Hit < F5 > on your keyboard, gambas will execute the startfunction in module Test and presents the test result in the console:
----------------------- Test Results -----------------------
1 Tests done
------------------------------------------------------------
No Errors
No Failures
------------------------- Test End -------------------------
Success!
Sooo ... and if you want to see the beautiful form, change the startclass (erm, module)
Public Sub Main()
Dim U As New Unittest
U.ShowTestForm
End
If you hit now < F5 > you see the Testform where you can choose and run your tests. When done, have a look at the Trace Tab:
Unittesting with gb.deg.unittest
Look around by positioning the cursor on "Unittest" and hit < F1 >. The relevant methods to test your code are in the class TestResult:
AddError AddFailure AddTrace Assert AssertEmpty AssertEqualsFloat AssertEqualsLong AssertEqualsObject AssertEqualsString AssertEqualsVariant AssertError AssertExists AssertFalse AssertNotEmpty AssertNotNull
Dig it out!