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

Me.R.Assert... in Testcontainer

Browse source
This commit is contained in:
Christof Thalhofer 2016-09-21 10:55:37 +02:00
parent 24d3897126
commit 1072a5b74f
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
.src/TestMyself/_GuTestExample1.class
View file

@ -24,7 +24,7 @@ Public Sub TestStringNull()
If Me.Debug Then
Print "GuTestExample1::Test First Test"
Endif
Me.Result.AssertEmpty(Null, "Diskussion ohne Ergebnis")
Me.R.AssertEmpty(Null, "Diskussion ohne Ergebnis")
End
@ -33,7 +33,7 @@ Public Sub TestStringOk()
If Me.Debug Then
Print "GuTestExample1::Test Second Test"
Endif
Me.Result.AssertEqualsString("ja", "ja", "Diskussion")
Me.R.AssertEqualsString("ja", "ja", "Diskussion")
End
@ -41,6 +41,6 @@ End
'
' Error.Raise("Intentional error")
' Catch
' Me.Result.AssertEqualsError( Error )
' Me.R.AssertEqualsError( Error )
'
' End

2
.src/TestRunner/FmRunner.class
View file

@ -154,7 +154,7 @@ Public Sub CboContainers_Change()
Dim ContainerName As String
If CboContainers.Index > 0 Then
ContainerName = $CRunner.GetAllTestContainerNames()[CboContainers.Index - 1]
ContainerName = CRunner.GetAllTestContainerNames()[CboContainers.Index - 1]
Endif
FillCboTests(ContainerName)