Add missing migration commands

ba-st · Dec 5, 2023 · 4fb65aa · 4fb65aa
1 parent 9d4e765
commit 4fb65aa
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 1 deletion.
diff --git a/source/GS64-Migration-Scripts/ClassReferencingClassInInstanceVariable.extension.st b/source/GS64-Migration-Scripts/ClassReferencingClassInInstanceVariable.extension.st
@@ -0,0 +1,11 @@
+Extension { #name : 'ClassReferencingClassInInstanceVariable' }
+
+{ #category : '*GS64-Migration-Scripts' }
+ClassReferencingClassInInstanceVariable >> migrateFrom: theOldInstance instVarMap: map [
+
+	super migrateFrom: theOldInstance instVarMap: map.
+	( theOldInstance instVarAtName: #classReference ) name = #ClassToBeRenamed ifTrue: [
+		self instVarAtName: #classReference put: RenamedClass ].
+	( theOldInstance instVarAtName: #classWithNewVersion ) name = #ClassWithInstanceVariableToBeAdded
+		ifTrue: [ self instVarAtName: #classWithNewVersion put: RenamedClassWithAddedInstanceVariable ]
+]
diff --git a/source/GS64-Migration-Scripts/ExampleGS64MigrationScript2.class.st b/source/GS64-Migration-Scripts/ExampleGS64MigrationScript2.class.st
@@ -7,8 +7,12 @@ Class {
 
 { #category : 'accessing' }
 ExampleGS64MigrationScript2 >> classNamesToMigrateToLatestVersion [
+	"This class hasn't changed its shape but references
+	changed classes in its instance variables, so we
+	need to fix up this during migration. This cases are
+	detected by the unpublished classes check."
 
-	^ #(  )
+	^ #( ClassReferencingClassInInstanceVariable )
 ]
 
 { #category : 'accessing' }