Commit 7fd9766d authored by Christof Thalhofer's avatar Christof Thalhofer

Store tests without spaces

[DEVELOPMENT ENVIRONMENT]
* BUG: Store tests as string without spaces in .tests.
parent 034542f2
......@@ -164,11 +164,22 @@ End
Private Sub StoreTests(TestSuite As String, Tests As String)
Dim i As Integer
Tests = Trim(Tests)
Testsuite = Trim(Testsuite)
TxtSelected.Text = Tests
'remove spaces
i = InStr(Tests, " ")
While i > 0
Tests = Left(Tests, i - 1) & Right(Tests, Len(Tests) - i)
i = InStr(Tests, " ")
Wend
$MySettings["CurrentTestsuite"] = Testsuite
$MySettings["Testsuite " & TestSuite & "/Tests"] = Tests
TxtSelected.Text = Tests
End
......
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