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

gb.test minor fix load component gb.util

Browse source
This commit is contained in:
Christof Thalhofer 2020-05-23 12:22:12 +02:00
parent ae5dff6681
commit a79bd9d258
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
comp/src/gb.test/.src/TestSuite/Test.module
View file

@ -239,6 +239,8 @@ Private Function GetAllTestModules() As String[]
Dim sName As String
Dim hStat As ClassStat
Component.Load("gb.util")
For Each sName In Dir(".../.gambas")
hStat = Class.Stat("..." &/ sName)
If hStat.Test Then sNames.Add(hStat.Name)
@ -433,4 +435,4 @@ Private Sub FromString(Tests As String)
End With
Next
End
End

2
comp/src/gb.test/.src/TestSuite/TestCommand.class
View file

@ -80,7 +80,7 @@ Static Public Function FromString(Tests As String) As TestCommand[]
sMethod = Trim(Right(sCommand, Len(sCommand) - InStr(sCommand, ".")))
If InStr(sMethod, ";") > 0 Then
asMethod = split(sMethod, ";")
asMethod = Split(sMethod, ";")
.Methods = asMethod
Else
.Methods.Add(sMethod)