Issue GsDevKit#83: fix up GsDeployerTest>>issue83VerifyClassHierarchy…

…DoubleWhammy test ... still fails
glassdb · Jan 3, 2016 · e018078 · e018078
1 parent 23f845d
commit e018078
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 10 deletions.
diff --git a/...itory/GemStone-Deployment.v310.package/GsDeployerTest.class/instance/issue83ClassNames.st b/...itory/GemStone-Deployment.v310.package/GsDeployerTest.class/instance/issue83ClassNames.st
@@ -2,4 +2,4 @@ tests Issue 83
 issue83ClassNames
   "reverse hierarchy order"
 
-  ^ #('GsDevKitIssue83C' 'GsDevKitIssue83D' 'GsDevKitIssue83B' 'GsDevKitIssue83A')
+  ^ #('GsDevKitIssue83E' 'GsDevKitIssue83F' 'GsDevKitIssue83C' 'GsDevKitIssue83D' 'GsDevKitIssue83B' 'GsDevKitIssue83A')
diff --git a/...ent.v310.package/GsDeployerTest.class/instance/issue83VerifyClassHierarchyDoubleWhammy.st b/...ent.v310.package/GsDeployerTest.class/instance/issue83VerifyClassHierarchyDoubleWhammy.st
@@ -3,10 +3,10 @@ issue83VerifyClassHierarchyDoubleWhammy
   "https://github.com/GsDevKit/GsDevKit/issues/83"
 
   | cls4Name cls5Name cls6Name |
-  super issue83VerifyClassHierarchy.
+  self issue83VerifyClassHierarchy.
   cls4Name := 'GsDevKitIssue83D'.
   cls5Name := 'GsDevKitIssue83E'.
   cls6Name := 'GsDevKitIssue83F'.
   self assert: (Smalltalk at: cls4Name) notNil.
-  self assert: (Smalltalk at: cls5Name) == (Smalltalk at: cls4Name) superclass.
-  self assert: (Smalltalk at: cls6Name) == (Smalltalk at: cls4Name) superclass
+  self assert: (Smalltalk at: cls4Name) == (Smalltalk at: cls5Name) superclass.
+  self assert: (Smalltalk at: cls4Name) == (Smalltalk at: cls6Name) superclass
diff --git a/...nt.v310.package/GsDeployerTest.class/instance/testGsDevKitIssue83HierarchyDoubleWhammy.st b/...nt.v310.package/GsDeployerTest.class/instance/testGsDevKitIssue83HierarchyDoubleWhammy.st
@@ -35,8 +35,8 @@ testGsDevKitIssue83HierarchyDoubleWhammy
   cls5 compileMethod: 'xxx | ivar | ivar := 1. ^ ivar' category: cat.
   self assert: (cls5 compiledMethodAt: 'xxx' ifAbsent: [  ]) notNil.
   cls6 := self
-    createIssue83ClassNamed: cls5Name
-    subclassOf: cls5
+    createIssue83ClassNamed: cls6Name
+    subclassOf: cls4
     instVarNames: #().
   self issue83VerifyClassHierarchyDoubleWhammy.
   self

diff --git a/repository/GemStone-Deployment.v310.package/GsDeployerTest.class/methodProperties.json b/repository/GemStone-Deployment.v310.package/GsDeployerTest.class/methodProperties.json
@@ -6,10 +6,10 @@
 		"doSilently" : "DaleHenrichs 01/25/2011 14:00",
 		"hasPackage:" : "DaleHenrichs 01/25/2011 14:11",
 		"issue83ClassCategory" : "dkh 01/02/2016 11:09",
-		"issue83ClassNames" : "dkh 01/02/2016 11:29",
+		"issue83ClassNames" : "dkh 01/02/2016 19:08",
 		"issue83Gofer" : "dkh 01/02/2016 16:42",
 		"issue83VerifyClassHierarchy" : "dkh 01/02/2016 17:30",
-		"issue83VerifyClassHierarchyDoubleWhammy" : "dkh 01/02/2016 18:08",
+		"issue83VerifyClassHierarchyDoubleWhammy" : "dkh 01/02/2016 18:56",
 		"monticelloRepository" : "DaleHenrichs 01/25/2011 14:03",
 		"runCase" : "DaleHenrichs 01/25/2011 14:01",
 		"setUp" : "DaleHenrichs 03/09/2011 16:22",
@@ -26,7 +26,7 @@
 		"testGsDevKitIssue83" : "dkh 01/02/2016 11:38",
 		"testGsDevKitIssue83CorrectPackageLoad" : "dkh 01/02/2016 17:48",
 		"testGsDevKitIssue83Hierarchy" : "dkh 01/02/2016 17:30",
-		"testGsDevKitIssue83HierarchyDoubleWhammy" : "dkh 01/02/2016 18:06",
+		"testGsDevKitIssue83HierarchyDoubleWhammy" : "dkh 01/02/2016 19:01",
 		"testGsDevKitIssue83PackageLoad" : "dkh 01/02/2016 17:42",
 		"testListInstancesInMemory" : "dkh 03/11/2013 18:03",
 		"testMonticelloAutoMigrate" : "dkh 12/23/2015 15:38",