Commit 5e5bf82f authored by Benoît Minisini's avatar Benoît Minisini

Test._List() now returns a comma-separated list.

[GB.TEST]
* NEW: Test._List() now returns a comma-separated list.
parent 234b28c2
......@@ -403,13 +403,16 @@ Public Sub _List()
Dim sName As String
Dim hStat As ClassStat
Dim aTest As New String[]
Component.Load("gb.util")
For Each sName In Dir(".../.gambas")
hStat = Class.Stat("..." &/ sName)
If hStat.Test Then Print hStat.Name
If hStat.Test Then aTest.Add(hStat.Name)
Next
Print aTest.Join();
End
Private Sub FromString(Tests As String)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment