Issue #1: checkpoint ... added scripts for 3.4.3 testing

bin/installGsDevKit_upgrade_343

@@ -0,0 +1,56 @@
+#
+iferr 1 stk
+iferr 2 stack
+iferr 3 exit 1
+display oops
+limit bytes 200
+set u SystemUser p swordfish
+login
+
+run
+	"Install upgrade support code"
+	| codeLibrarian symbolName session symbolList symbolDict dictName |
+	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 size |
+			newDict := SymbolDictionary new
+				name: symbolName;
+				objectSecurityPolicy: symbolList objectSecurityPolicy;
+				yourself.
+			size := System myUserProfile symbolList size.
+			System myUserProfile insertDictionary: newDict at: size + 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
+%
+
+run
+
+	UserGlobals
+		at: #GsDevKit_Image_Upgrade
+		put: 
+			(GsuGsDevKit_3_5_0_Upgrade
+				upgradeUserName: 'DataCurator'
+				upgradeSymbolDictName: #UserGlobals
+				sourceGemStoneRelease: (GsuAbstractGemStoneRelease major: 3 minor: 4 patch: 3))
+"
+				bootstrapExistingConfigurationList: #( ConfigurationOfGLASS1 );
+				yourself)
+"
+%
+commit
+
+errorCount
+
+exit 
+

gsdevkit/bin/preUpgradeImage_3215

@@ -4,6 +4,8 @@ export vers="3.5.0_g"
 
 rm -f *.log *.out
 
+# createStone -g battery_3215 3.2.15
+
 sourceStoneName="battery_3215"
 
 export upgradeLogDir=`pwd`/upgradeLogDir

gsdevkit/bin/preUpgradeImage_339

@@ -4,6 +4,8 @@ export vers="3.5.0_g"
 
 rm -f *.log *.out
 
+# createStone -g battery_339 3.3.9
+
 sourceStoneName="battery_339"
 
 export upgradeLogDir=`pwd`/upgradeLogDir

gsdevkit/bin/preUpgradeImage_343

@@ -0,0 +1,18 @@
+set -ex
+. defStone.env
+export vers="3.5.0_g"
+
+rm -f *.log *.out
+
+# createStone -g battery_343 3.4.3
+
+sourceStoneName="battery_343"
+
+export upgradeLogDir=`pwd`/upgradeLogDir
+
+startStone ${sourceStoneName}
+
+pushd "${upgradeLogDir}" >& /dev/null
+	startTopaz ${sourceStoneName} -lq < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/runImageTests
+popd
+

gsdevkit/bin/upgradeImage_3215

@@ -4,6 +4,8 @@ export vers="3.5.0_g"
 
 rm -f *.log *.out
 
+# createStone -g battery_3215 3.2.15
+
 sourceStoneName="battery_3215"
 stopStone $sourceStoneName
 stopStone $GEMSTONE_NAME

gsdevkit/bin/upgradeImage_339

@@ -4,6 +4,8 @@ export vers="3.5.0_g"
 
 rm -f *.log *.out
 
+# createStone -g battery_339 3.3.9
+
 sourceStoneName="battery_339"
 stopStone $sourceStoneName
 stopStone $GEMSTONE_NAME

gsdevkit/bin/upgradeImage_343

@@ -0,0 +1,33 @@
+set -ex
+. defStone.env
+export vers="3.5.0_g"
+
+rm -f *.log *.out
+
+# createStone -g battery_343 3.4.3
+
+sourceStoneName="battery_343"
+stopStone $sourceStoneName
+stopStone $GEMSTONE_NAME
+
+rm -rf $GS_HOME/server/stones/${GEMSTONE_NAME}/extents/extent0.dbf
+rm -rf $GS_HOME/server/stones/${GEMSTONE_NAME}/tranlogs/tranlog*.dbf
+
+newExtent -n -s $GS_HOME/server/stones/${sourceStoneName}/product/bin/extent0.seaside.dbf $GEMSTONE_NAME
+
+export upgradeLogDir=`pwd`/upgradeLogDir
+
+startStone -b -w 5 $GEMSTONE_NAME
+
+pushd "${upgradeLogDir}" >& /dev/null
+  # start standard upgrade
+  echo "STARTING standard upgradeImage "
+  "$GEMSTONE/bin/upgradeImage" -s $GEMSTONE_NAME << EOF
+
+EOF
+
+popd
+
+stopStone $GEMSTONE_NAME
+cp extents/extent0.dbf snapshots/extent0_upgradeImage_343.dbf
+

gsdevkit/bin/upgradePrepareGsDevKitImage_3215

@@ -4,6 +4,8 @@ export vers="3.5.0_g"
 
 rm -f *.log *.out
 
+# createStone -g battery_3215 3.2.15
+
 sourceStoneName="battery_3215"
 stopStone $sourceStoneName
 stopStone $GEMSTONE_NAME

gsdevkit/bin/upgradePrepareGsDevKitImage_339

@@ -4,6 +4,8 @@ export vers="3.5.0_g"
 
 rm -f *.log *.out
 
+# createStone -g battery_339 3.3.9
+
 sourceStoneName="battery_339"
 stopStone $sourceStoneName
 stopStone $GEMSTONE_NAME

gsdevkit/bin/upgradePrepareGsDevKitImage_343

@@ -0,0 +1,31 @@
+set -e
+. defStone.env
+export vers="3.5.0_g"
+
+rm -f *.log *.out
+
+# createStone -g battery_343 3.4.3
+
+sourceStoneName="battery_343"
+stopStone $sourceStoneName
+stopStone $GEMSTONE_NAME
+
+newExtent -s snapshots/extent0_upgradeImage_343.dbf $GEMSTONE_NAME
+
+export upgradeLogDir=`pwd`/upgradeLogDir
+
+startStone -b -w 5 $GEMSTONE_NAME
+
+pushd "${upgradeLogDir}" >& /dev/null
+  # start standard upgrade
+	rm -f *.log *.out
+  echo "STARTING standard upgradeImage "
+	startTopaz $GEMSTONE_NAME -lq < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/installGsDevKit_upgrade_343
+	startTopaz $GEMSTONE_NAME -lq < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/prepareGsDevKitImage
+	startTopaz $GEMSTONE_NAME -lq < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/prepareGsDevKitImage_user
+	startTopaz $GEMSTONE_NAME -lq < $GS_HOME/shared/repos/GsDevKit_upgradeDevKitImage/bin/runImageTests
+popd
+
+# stopStone $GEMSTONE_NAME
+# cp extents/extent0.dbf snapshots/extent0_preparedGsDevKitImage_343.dbf
+