luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gb.test report Error.Where on error and crash

Browse source 
[GB.TEST]
* NEW: Report Error.Where on error and crash.
This commit is contained in:
Christof Thalhofer 2021-02-26 16:50:32 +01:00
parent 77db48a6a8
commit 8ebf5b5e61
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
main/lib/test/gb.test/.project
View file

@ -12,6 +12,7 @@ Language=en_US
Type=Component
ControlPublic=1
ModulePublic=1
SourcePath=/home/christof/temp
Maintainer=Christof Thalhofer
Address=christof@deganius.de
Url=www.deganius.de

4
main/lib/test/gb.test/.src/TestSuite/TestCase.class
View file

@ -47,7 +47,7 @@ Public Sub Run()
Try Object.Call($MyTestModule, Me.name)
If Error Then
Assert.Fail(Subst$("&1:&2 crashed with error '&3'", $MyTestModule.Name, Me.Name, Error.Text))
Assert.Fail(Subst$("&1:&2 crashed with error '&3' in '&4'", $MyTestModule.Name, Me.Name, Error.Text, Error.Where))
Endif
If $MyTestModule.Symbols.Exist("_TeardownEach", gb.IgnoreCase) Then
@ -58,7 +58,7 @@ Public Sub Run()
Catch
Test.BailOut("Test stopped with error \"" & Error.Text & "\" caused by " & $MyTestModule.Name & "." & Me.Name & ".")
Test.BailOut("Test stopped with error \"" & Error.Text & "\" caused by " & $MyTestModule.Name & "." & Me.Name & " in " & Error.Where & ".")
End Sub