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

Test.BailOut() now raises an error to quit later, instead of quitting immediately, to avoid circular references warning.

Browse source 
[GB.TEST]
* NEW: Test.BailOut() now raises an error to quit later, instead of quitting immediately, to avoid circular references warning.
This commit is contained in:
gambas 2021-03-05 19:36:14 +01:00 committed by Christof Thalhofer
parent 7fa5049110
commit 1656bfa06c
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
main/lib/test/gb.test/.src/TestSuite/Test.module
View file

@ -331,7 +331,7 @@ End
Public Sub BailOut(Optional Comment As String)
$hPrinter.BailOut(Comment)
Quit 1
Error.Raise("Bailout!")
End

3
main/lib/test/gb.test/.src/TestSuite/TestSuite.class
View file

@ -46,7 +46,8 @@ Public Sub Run()
Endif
Catch
Test.BailOut("Test Stopped with error \"" & Error.Text & "\" caused by " & CurrentAction & " in " & Error.Where & ".")
If Error.Where Begins "Test.BailOut." Then Quit 1
Test.BailOut("Test stopped with error \"" & Error.Text & "\" caused by " & CurrentAction & " in " & Error.Where & ".")
End Sub