Issue #1: add GLASS1 installation support (3.2 thru 3.5) and all GLAS…

…S1 tests are passing
GsDevKit · Feb 28, 2019 · 0bd6f22 · 0bd6f22
1 parent 2fa7d37
commit 0bd6f22
Show file tree

Hide file tree

Showing 12 changed files with 185 additions and 81 deletions.
diff --git a/bin/installGLASS1 b/bin/installGLASS1
@@ -0,0 +1,31 @@
+#
+#	login as DataCurator to install GLASS1
+#
+iferr 1 stk
+iferr 2 stack
+iferr 3 exit 1
+display oops
+limit bytes 200
+set u DataCurator p swordfish
+login 
+
+run
+	| gsUpgrader |
+	Gofer new
+		package: 'GsUpgrader-Core';
+		url: 'http://ss3.gemtalksystems.com/ss/gsUpgrader';
+    load.
+	gsUpgrader := System myUserProfile objectNamed: 'GsUpgrader'.
+	gsUpgrader batchErrorHandlingDo: [
+  	Transcript
+    	cr;
+    	show: '-----Upgrade GLASS1 using gsUpgrader'.
+  	gsUpgrader upgradeGLASS1 ].
+%
+
+commit
+
+errorCount
+
+exit 
+
diff --git a/bin/installGsDevKit_upgrade b/bin/installGsDevKit_upgrade
@@ -0,0 +1,28 @@
+# expect to be logged in
+
+run
+	"Install upgrade support code"
+	| codeLibrarian symbolName session symbolList symbolDict dictName symDictSlot |
+	dictName := 'Upgrade_GsDevKit_SymDict'.
+	symbolName := dictName asSymbol.
+	session := GsCurrentSession currentSession.
+	symbolList := session symbolList.
+	symbolDict := symbolList
+		detect: [ :each | (each at: symbolName ifAbsent: [ nil ]) == each ]
+		ifNone: [ 
+			| newDict |
+			newDict := SymbolDictionary new
+				name: symbolName;
+				objectSecurityPolicy: symbolList objectSecurityPolicy;
+				yourself.
+			symDictSlot := System myUserProfile symbolList size.
+			System myUserProfile insertDictionary: newDict at: symDictSlot + 1.
+			newDict ].
+	codeLibrarian := (AllUsers userWithId: 'CodeLibrarianUser') symbolList objectNamed: #CodeLibrarian.
+	codeLibrarian new
+		symbolDictName: dictName;
+		repository: 'tonel:$ROWAN_PROJECTS_HOME/GsDevKit_upgradeDevKitImage/rowan/src/';
+		load: #('GsDevKit_upgradeDevKitImage-Common' 'GsDevKit_upgradeDevKitImage-Bootstrap' 'GsDevKit_upgradeDevKitImage-Core').
+	(symbolList objectNamed: 'GsuAbstractGsDevKitUpgrade') _symbolDictionary: symbolDict.
+	true
+%
diff --git a/bin/installGsDevKit_upgrade_3215 b/bin/installGsDevKit_upgrade_3215
@@ -7,32 +7,7 @@ limit bytes 200
 set u SystemUser p swordfish
 login
 
-run
-	"Install upgrade support code"
-	| codeLibrarian symbolName session symbolList symbolDict dictName symDictSlot |
-	dictName := 'Upgrade_GsDevKit_SymDict'.
-	symbolName := dictName asSymbol.
-	session := GsCurrentSession currentSession.
-	symbolList := session symbolList.
-	symbolDict := symbolList
-		detect: [ :each | (each at: symbolName ifAbsent: [ nil ]) == each ]
-		ifNone: [ 
-			| newDict |
-			newDict := SymbolDictionary new
-				name: symbolName;
-				objectSecurityPolicy: symbolList objectSecurityPolicy;
-				yourself.
-			symDictSlot := System myUserProfile symbolList size.
-			System myUserProfile insertDictionary: newDict at: symDictSlot + 1.
-			newDict ].
-	codeLibrarian := (AllUsers userWithId: 'CodeLibrarianUser') symbolList objectNamed: #CodeLibrarian.
-	codeLibrarian new
-		symbolDictName: dictName;
-		repository: 'tonel:$ROWAN_PROJECTS_HOME/GsDevKit_upgradeDevKitImage/rowan/src/';
-		load: #('GsDevKit_upgradeDevKitImage-Common' 'GsDevKit_upgradeDevKitImage-Bootstrap' 'GsDevKit_upgradeDevKitImage-Core').
-	(symbolList objectNamed: 'GsuAbstractGsDevKitUpgrade') _symbolDictionary: symbolDict.
-	true
-%
+input $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/installGsDevKit_upgrade
 
 run
 

diff --git a/bin/installGsDevKit_upgrade_339 b/bin/installGsDevKit_upgrade_339
@@ -7,32 +7,7 @@ limit bytes 200
 set u SystemUser p swordfish
 login
 
-run
-	"Install upgrade support code"
-	| codeLibrarian symbolName session symbolList symbolDict dictName symDictSlot |
-	dictName := 'Upgrade_GsDevKit_SymDict'.
-	symbolName := dictName asSymbol.
-	session := GsCurrentSession currentSession.
-	symbolList := session symbolList.
-	symbolDict := symbolList
-		detect: [ :each | (each at: symbolName ifAbsent: [ nil ]) == each ]
-		ifNone: [ 
-			| newDict |
-			newDict := SymbolDictionary new
-				name: symbolName;
-				objectSecurityPolicy: symbolList objectSecurityPolicy;
-				yourself.
-			symDictSlot := System myUserProfile symbolList size.
-			System myUserProfile insertDictionary: newDict at: symDictSlot + 1.
-			newDict ].
-	codeLibrarian := (AllUsers userWithId: 'CodeLibrarianUser') symbolList objectNamed: #CodeLibrarian.
-	codeLibrarian new
-		symbolDictName: dictName;
-		repository: 'tonel:$ROWAN_PROJECTS_HOME/GsDevKit_upgradeDevKitImage/rowan/src/';
-		load: #('GsDevKit_upgradeDevKitImage-Common' 'GsDevKit_upgradeDevKitImage-Bootstrap' 'GsDevKit_upgradeDevKitImage-Core').
-	(symbolList objectNamed: 'GsuAbstractGsDevKitUpgrade') _symbolDictionary: symbolDict.
-	true
-%
+input $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/installGsDevKit_upgrade
 
 run
 

diff --git a/bin/installGsDevKit_upgrade_343 b/bin/installGsDevKit_upgrade_343
@@ -7,32 +7,7 @@ limit bytes 200
 set u SystemUser p swordfish
 login
 
-run
-	"Install upgrade support code"
-	| codeLibrarian symbolName session symbolList symbolDict dictName symDictSlot |
-	dictName := 'Upgrade_GsDevKit_SymDict'.
-	symbolName := dictName asSymbol.
-	session := GsCurrentSession currentSession.
-	symbolList := session symbolList.
-	symbolDict := symbolList
-		detect: [ :each | (each at: symbolName ifAbsent: [ nil ]) == each ]
-		ifNone: [ 
-			| newDict |
-			newDict := SymbolDictionary new
-				name: symbolName;
-				objectSecurityPolicy: symbolList objectSecurityPolicy;
-				yourself.
-			symDictSlot := System myUserProfile symbolList size.
-			System myUserProfile insertDictionary: newDict at: symDictSlot + 1.
-			newDict ].
-	codeLibrarian := (AllUsers userWithId: 'CodeLibrarianUser') symbolList objectNamed: #CodeLibrarian.
-	codeLibrarian new
-		symbolDictName: dictName;
-		repository: 'tonel:$ROWAN_PROJECTS_HOME/GsDevKit_upgradeDevKitImage/rowan/src/';
-		load: #('GsDevKit_upgradeDevKitImage-Common' 'GsDevKit_upgradeDevKitImage-Bootstrap' 'GsDevKit_upgradeDevKitImage-Core').
-	(symbolList objectNamed: 'GsuAbstractGsDevKitUpgrade') _symbolDictionary: symbolDict.
-	true
-%
+input $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/installGsDevKit_upgrade
 
 run
 

diff --git a/gsdevkit/bin/installGLASS1_3215 b/gsdevkit/bin/installGLASS1_3215
@@ -0,0 +1,30 @@
+set -e
+. defStone.env
+export vers="3.5.0_g"
+
+rm -f *.log *.out
+
+# createStone -g battery_3215 3.2.15
+
+sourceStoneName="battery_3215"
+sourceStoneDir="$GS_HOME/server/stones/${sourceStoneName}"
+
+cp ${sourceStoneDir}/product/bin/extent0.seaside.dbf snapshots/extent0.seaside_3215.dbf
+
+newExtent -s ${sourceStoneDir}/product/bin/extent0.seaside.dbf $sourceStoneName
+
+export upgradeLogDir=`pwd`/upgradeLogDir
+
+pushd "${upgradeLogDir}" >& /dev/null
+	rm -f *.log *.out
+
+	startTopaz $sourceStoneName -lq -T 500000 < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/installGLASS1
+
+	stopStone $sourceStoneName
+	cp ${sourceStoneDir}/extents/extent0.dbf ../snapshots/extent0_GLASS1_3215.dbf
+	startStone $sourceStoneName
+
+	startTopaz $sourceStoneName -lq < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/runImageTests
+popd
+
+
diff --git a/gsdevkit/bin/installGLASS1_339 b/gsdevkit/bin/installGLASS1_339
@@ -0,0 +1,30 @@
+set -e
+. defStone.env
+export vers="3.5.0_g"
+
+rm -f *.log *.out
+
+# createStone -g battery_339 3.3.9
+
+sourceStoneName="battery_339"
+sourceStoneDir="$GS_HOME/server/stones/${sourceStoneName}"
+
+cp ${sourceStoneDir}/product/bin/extent0.seaside.dbf snapshots/extent0.seaside_339.dbf
+
+newExtent -s ${sourceStoneDir}/product/bin/extent0.seaside.dbf $sourceStoneName
+
+export upgradeLogDir=`pwd`/upgradeLogDir
+
+pushd "${upgradeLogDir}" >& /dev/null
+	rm -f *.log *.out
+
+	startTopaz $sourceStoneName -lq -T 500000 < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/installGLASS1
+
+	stopStone $sourceStoneName
+	cp ${sourceStoneDir}/extents/extent0.dbf ../snapshots/extent0_GLASS1_339.dbf
+	startStone $sourceStoneName
+
+	startTopaz $sourceStoneName -lq < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/runImageTests
+popd
+
+
diff --git a/gsdevkit/bin/installGLASS1_343 b/gsdevkit/bin/installGLASS1_343
@@ -0,0 +1,30 @@
+set -e
+. defStone.env
+export vers="3.5.0_g"
+
+rm -f *.log *.out
+
+# createStone -g battery_343 3.4.3
+
+sourceStoneName="battery_343"
+sourceStoneDir="$GS_HOME/server/stones/${sourceStoneName}"
+
+cp ${sourceStoneDir}/product/bin/extent0.seaside.dbf snapshots/extent0.seaside_343.dbf
+
+newExtent -s ${sourceStoneDir}/product/bin/extent0.seaside.dbf $sourceStoneName
+
+export upgradeLogDir=`pwd`/upgradeLogDir
+
+pushd "${upgradeLogDir}" >& /dev/null
+	rm -f *.log *.out
+
+	startTopaz $sourceStoneName -lq -T 500000 < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/installGLASS1
+
+	stopStone $sourceStoneName
+	cp ${sourceStoneDir}/extents/extent0.dbf ../snapshots/extent0_GLASS1_343.dbf
+	startStone $sourceStoneName
+
+	startTopaz $sourceStoneName -lq < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/runImageTests
+popd
+
+
diff --git a/gsdevkit/bin/installGLASS1_350 b/gsdevkit/bin/installGLASS1_350
@@ -0,0 +1,30 @@
+set -e
+. defStone.env
+export vers="3.5.0_g"
+
+rm -f *.log *.out
+
+# createStone -g battery_350 3.5.0_g
+
+sourceStoneName="battery_350_g"
+sourceStoneDir="$GS_HOME/server/stones/${sourceStoneName}"
+
+cp ${sourceStoneDir}/product/bin/extent0.seaside.dbf snapshots/extent0.seaside_350.dbf
+
+newExtent -s ${sourceStoneDir}/product/bin/extent0.seaside.dbf $sourceStoneName
+
+export upgradeLogDir=`pwd`/upgradeLogDir
+
+pushd "${upgradeLogDir}" >& /dev/null
+	rm -f *.log *.out
+
+	startTopaz $sourceStoneName -lq -T 500000 < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/installGLASS1
+
+	stopStone $sourceStoneName
+	cp ${sourceStoneDir}/extents/extent0.dbf ../snapshots/extent0_GLASS1_350.dbf
+	startStone $sourceStoneName
+
+	startTopaz $sourceStoneName -lq < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/runImageTests
+popd
+
+
diff --git a/gsdevkit/bin/installTodeGsDevKitImage_3215 b/gsdevkit/bin/installTodeGsDevKitImage_3215
@@ -13,7 +13,7 @@ pushd "${upgradeLogDir}" >& /dev/null
 	todeLoad $GEMSTONE_NAME
 
 	stopStone $GEMSTONE_NAME
-	cp ../extents/extent0.dbf ../snapshots/extent0_tode_3215.dbf
+	cp ../extents/extent0.dbf ../snapshots/extent0_postUpgrade_tode_3215.dbf
 	startStone $GEMSTONE_NAME
 
 	startTopaz $GEMSTONE_NAME -lq < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/runImageTests

diff --git a/gsdevkit/bin/installTodeGsDevKitImage_339 b/gsdevkit/bin/installTodeGsDevKitImage_339
@@ -13,7 +13,7 @@ pushd "${upgradeLogDir}" >& /dev/null
 	todeLoad $GEMSTONE_NAME
 
 	stopStone $GEMSTONE_NAME
-	cp ../extents/extent0.dbf ../snapshots/extent0_tode_339.dbf
+	cp ../extents/extent0.dbf ../snapshots/extent0_postUpgrade_tode_339.dbf
 	startStone $GEMSTONE_NAME
 
 	startTopaz $GEMSTONE_NAME -lq < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/runImageTests

diff --git a/gsdevkit/bin/installTodeGsDevKitImage_343 b/gsdevkit/bin/installTodeGsDevKitImage_343
@@ -13,7 +13,7 @@ pushd "${upgradeLogDir}" >& /dev/null
 	todeLoad $GEMSTONE_NAME
 
 	stopStone $GEMSTONE_NAME
-	cp ../extents/extent0.dbf ../snapshots/extent0_tode_343.dbf
+	cp ../extents/extent0.dbf ../snapshots/extent0_postUpgrade_tode_343.dbf
 	startStone $GEMSTONE_NAME
 
 	startTopaz $GEMSTONE_NAME -lq < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/runImageTests