From 24d38971263b2df70eab56504d98cd923198442f Mon Sep 17 00:00:00 2001
From: Christof Thalhofer <christof@deganius.de>
Date: Wed, 21 Sep 2016 10:32:52 +0200
Subject: [PATCH] Container Case private

---
 .info                               |  7 ++-----
 .src/TestSuite/ATestContainer.class | 28 ++++++++++++++--------------
 2 files changed, 16 insertions(+), 19 deletions(-)

diff --git a/.info b/.info
index 84b31b636..31c976a00 100644
--- a/.info
+++ b/.info
@@ -11,19 +11,16 @@ CaseNames
 p
 String[]
 
-Case
-p
-ITestCase
-
-'The current test case
 Result
 p
 TestResult
 
+'The current test case
 R
 p
 TestResult
 
+'The current test case
 Debug
 p
 b
diff --git a/.src/TestSuite/ATestContainer.class b/.src/TestSuite/ATestContainer.class
index f043adc8c..0a6b02119 100644
--- a/.src/TestSuite/ATestContainer.class
+++ b/.src/TestSuite/ATestContainer.class
@@ -15,7 +15,7 @@ Property CaseNames As String[]
 Private $CaseNames As String[]
 
 '' The current test case
-Property Case As ITestCase
+'Property Case As ITestCase
 Property Result, R As TestResult
 
 ''Set true for debug messages
@@ -50,14 +50,14 @@ Public Sub RunCase(oCase As ITestCase, oTestResult As TestResult)
     Dim MethodName As String
     Dim hClass As Class
 
-    Me.Case = oCase
+    $Case = oCase
     Me.Result = oTestResult
 
     ' ------------------------------------------------- Iterate through test methods
     hClass = Object.Class(Me)
     For Each MethodName In $CaseNames
         If hClass[MethodName].Kind = Class.Method Then
-            If MethodName = Me.Case.Name Then
+            If MethodName = $Case.Name Then
                 If Me.Debug Then
                     Debug "Call";; MethodName
                 Endif
@@ -116,17 +116,17 @@ Private Sub CaseNames_Write(Value As String[])
 
 End
 
-Private Function Case_Read() As ITestCase
-
-    Return $Case
-
-End
-
-Private Sub Case_Write(Value As ITestCase)
-
-    $Case = Value
-
-End
+' Private Function Case_Read() As ITestCase
+'
+'     Return $Case
+'
+' End
+'
+' Private Sub Case_Write(Value As ITestCase)
+'
+'     $Case = Value
+'
+' End
 
 Private Function Result_Read() As TestResult