From 1072a5b74fd7f82be29d4e87381187b8b6d56113 Mon Sep 17 00:00:00 2001 From: Christof Thalhofer Date: Wed, 21 Sep 2016 10:55:37 +0200 Subject: [PATCH] Me.R.Assert... in Testcontainer --- .src/TestMyself/_GuTestExample1.class | 6 +++--- .src/TestRunner/FmRunner.class | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/.src/TestMyself/_GuTestExample1.class b/.src/TestMyself/_GuTestExample1.class index d91819db9..c1f32e0fe 100644 --- a/.src/TestMyself/_GuTestExample1.class +++ b/.src/TestMyself/_GuTestExample1.class @@ -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 diff --git a/.src/TestRunner/FmRunner.class b/.src/TestRunner/FmRunner.class index 000a6dbe1..5b7c5e9cd 100644 --- a/.src/TestRunner/FmRunner.class +++ b/.src/TestRunner/FmRunner.class @@ -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)