hg/stx-goodies-regression: RegressionTests__SnapshotRestartTests.st@4fc22e888376 (annotated)

1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1	"{ Package: 'stx:goodies/regression' }"
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: RegressionTests }"
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
1567 e17701a073f9 Added abstract VMSpawningTestCase Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1543 diff changeset	5	VMSpawningTestCase subclass:#SnapshotRestartTests
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'pkgdir exe tmpdir'
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'tests-Regression'
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	TestCase subclass:#ToRunOnFreshAndRestartedSnapshotTests
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	instanceVariableNames:''
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	classVariableNames:''
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	poolDictionaries:''
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	privateIn:SnapshotRestartTests
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	!
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	!SnapshotRestartTests methodsFor:'compilation'!
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	make
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	^ self make:''.
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	"Created: / 14-08-2013 / 18:27:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	!
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	make: target
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	\| cmd \|
1568 4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	30	pkgdir := Smalltalk getPackageDirectoryForPackage: #'stx:goodies/regression/testData/packages/snapshot_restart'.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	31	self assert: pkgdir notNil.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	32	self assert: pkgdir isDirectory.
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33
1489 2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	34	OperatingSystem isMSWINDOWSlike ifTrue:[
1541 5c6a32e00528 Fixed `MakefileTests` and `SnapshotRestartTests` to not call obsolete method OperatingSystem>>getCCDefine Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	35	STCCompilerInterface getCCDefine = '__BORLANDC__' ifTrue:[
1489 2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	36	cmd := 'bmake.bat ' , target.
2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	37	].
1541 5c6a32e00528 Fixed `MakefileTests` and `SnapshotRestartTests` to not call obsolete method OperatingSystem>>getCCDefine Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	38	STCCompilerInterface getCCDefine = '__MINGW32__' ifTrue:[
1543 6d2bdaf0c9ec Fixed `MakefileTests` and `SnapshotRestartTests` to work on MSYS2-only systems Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1541 diff changeset	39	(OperatingSystem getEnvironment: 'MINGW_DIR') isNil ifTrue:[
6d2bdaf0c9ec Fixed `MakefileTests` and `SnapshotRestartTests` to work on MSYS2-only systems Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1541 diff changeset	40	\| mingwDir \|
6d2bdaf0c9ec Fixed `MakefileTests` and `SnapshotRestartTests` to work on MSYS2-only systems Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1541 diff changeset	41
6d2bdaf0c9ec Fixed `MakefileTests` and `SnapshotRestartTests` to work on MSYS2-only systems Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1541 diff changeset	42	mingwDir := #('C:\MSYS64\MINGW32' 'C:\MINGW') detect:[:path \| path asFilename isDirectory ] ifNone: [ nil ].
6d2bdaf0c9ec Fixed `MakefileTests` and `SnapshotRestartTests` to work on MSYS2-only systems Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1541 diff changeset	43	self assert: mingwDir notNil description: 'MINGW_DIR environment variable not set and MINGW32 not found at standard places'.
6d2bdaf0c9ec Fixed `MakefileTests` and `SnapshotRestartTests` to work on MSYS2-only systems Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1541 diff changeset	44	OperatingSystem setEnvironment: 'MINGW_DIR' to: mingwDir.
1489 2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	45	].
2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	46	OperatingSystem setEnvironment: 'MINGW' to: '__MINGW32__'.
2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	47	OperatingSystem setEnvironment: 'USEMINGW_ARG' to: '-DUSEMINGW32'.
1543 6d2bdaf0c9ec Fixed `MakefileTests` and `SnapshotRestartTests` to work on MSYS2-only systems Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1541 diff changeset	48	OperatingSystem setEnvironment: 'PATH' to: (OperatingSystem getEnvironment: 'PATH') , ';' , (OperatingSystem getEnvironment: 'MINGW_DIR') , '\bin'.
1489 2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	49	cmd := 'mingwmake.bat ' , target.
2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	50	].
1541 5c6a32e00528 Fixed `MakefileTests` and `SnapshotRestartTests` to not call obsolete method OperatingSystem>>getCCDefine Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	51	STCCompilerInterface getCCDefine = '__MINGW64__' ifTrue:[
1489 2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	52	(OperatingSystem getEnvironment: 'MINGW_DIR') isNil ifTrue:[
1543 6d2bdaf0c9ec Fixed `MakefileTests` and `SnapshotRestartTests` to work on MSYS2-only systems Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1541 diff changeset	53	\| mingwDir \|
6d2bdaf0c9ec Fixed `MakefileTests` and `SnapshotRestartTests` to work on MSYS2-only systems Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1541 diff changeset	54
6d2bdaf0c9ec Fixed `MakefileTests` and `SnapshotRestartTests` to work on MSYS2-only systems Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1541 diff changeset	55	mingwDir := #('C:\MSYS64\MINGW64' 'C:\MINGW64') detect:[:path \| path asFilename isDirectory ] ifNone: [ nil ].
6d2bdaf0c9ec Fixed `MakefileTests` and `SnapshotRestartTests` to work on MSYS2-only systems Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1541 diff changeset	56	self assert: mingwDir notNil description: 'MINGW_DIR environment variable not set and MINGW64 not found at standard places'.
6d2bdaf0c9ec Fixed `MakefileTests` and `SnapshotRestartTests` to work on MSYS2-only systems Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1541 diff changeset	57	OperatingSystem setEnvironment: 'MINGW_DIR' to: mingwDir.
1489 2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	58	].
2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	59	OperatingSystem setEnvironment: 'MINGW' to: '__MINGW64__'.
2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	60	OperatingSystem setEnvironment: 'USEMINGW_ARG' to: '-DUSEMINGW64'.
1543 6d2bdaf0c9ec Fixed `MakefileTests` and `SnapshotRestartTests` to work on MSYS2-only systems Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1541 diff changeset	61	OperatingSystem setEnvironment: 'PATH' to: (OperatingSystem getEnvironment: 'PATH') , ';' , (OperatingSystem getEnvironment: 'MINGW_DIR') , '\bin'.
1489 2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	62	cmd := 'mingwmake.bat ' , target.
1543 6d2bdaf0c9ec Fixed `MakefileTests` and `SnapshotRestartTests` to work on MSYS2-only systems Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1541 diff changeset	63	].
1489 2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	64	] ifFalse:[
2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	65	cmd := 'make -f Makefile.init ', target
2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	66	].
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	67	self
1541 5c6a32e00528 Fixed `MakefileTests` and `SnapshotRestartTests` to not call obsolete method OperatingSystem>>getCCDefine Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	68	assert: (OperatingSystem executeCommand: cmd inDirectory: pkgdir)
5c6a32e00528 Fixed `MakefileTests` and `SnapshotRestartTests` to not call obsolete method OperatingSystem>>getCCDefine Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	69	description: 'Failed to make target ''', target, ''' in test package'.
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	"Created: / 14-08-2013 / 18:26:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1541 5c6a32e00528 Fixed `MakefileTests` and `SnapshotRestartTests` to not call obsolete method OperatingSystem>>getCCDefine Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	72	"Modified: / 05-11-2016 / 22:48:25 / jv"
1568 4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	73	"Modified: / 06-01-2017 / 23:20:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	74	! !
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	75
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	76	!SnapshotRestartTests methodsFor:'private'!
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	77
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	78	do: setupBlock onRestartDo: restartBlock
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	79	self assert: setupBlock byteCode notNil description: 'setupBlock must have bytecode - stc-compiled blocks not supported'.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	80	self assert: restartBlock byteCode notNil description: 'restartBlock must have bytecode - stc-compiled blocks not supported'.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	81
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	82	setupBlock value.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	83	Smalltalk addImageStartBlock:[
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	84	[
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	85	Stdout nextPutLine:'===> Restarted from snapshot'.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	86	restartBlock value.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	87	Smalltalk exit: EXIT_CODE_SUCCESS.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	88	] fork
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	89	].
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	90	Stdout nextPutLine:'===> Saving snapshot to ', testSelector , '.img'.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	91	ObjectMemory snapShotOn: testSelector , '.img'.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	92	Smalltalk exit: EXIT_CODE_SUCCESS.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	93
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	94	"Created: / 06-01-2017 / 22:14:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	95	"Modified: / 06-01-2017 / 23:36:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	96	!
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	97
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	98	performTest
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	99	\| tempDir imageFile \|
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	100
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	101	[
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	102	tempDir := Filename newTemporary.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	103	tempDir makeDirectory.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	104	self spawnSelector:#performTestInternal inDirectory:tempDir.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	105
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	106	imageFile := tempDir / (testSelector , '.img').
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	107	self assert: imageFile exists description: 'Image file does not exist - did test save it?'.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	108	self spawnSmalltalk: { '--image' . imageFile pathName } inDirectory: tempDir
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	109	] ensure:[
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	110	(tempDir notNil and:[ tempDir exists ]) ifTrue:[
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	111	[
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	112	tempDir recursiveRemove.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	113	] on:Error
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	114	do:[:ex \|
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	115	OperatingSystem isMSWINDOWSlike ifFalse:[
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	116	ex reject.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	117	].
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	118	]
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	119	].
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	120	].
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	121
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	122	"Created: / 06-01-2017 / 22:05:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	123	!
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	124
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	125	performTestInternal
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	126	super performTest.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	127
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	128	"Created: / 06-01-2017 / 22:04:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	! !
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131	!SnapshotRestartTests methodsFor:'running'!
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	setUp
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	tmpdir := Filename newTemporaryDirectory.
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	exe := OperatingSystem pathOfSTXExecutable.
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	self make:'clobber'.
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	"Created: / 14-08-2013 / 18:21:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1568 4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	139	"Modified (format): / 06-01-2017 / 23:21:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	!
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	tearDown
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	tmpdir recursiveRemove.
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145	"Created: / 14-08-2013 / 20:17:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	! !
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	!SnapshotRestartTests methodsFor:'tests'!
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	test_bc
1568 4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	151	"Test restart with bytecode-compiled package"
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152
1568 4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	153	\| result \|
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154
1568 4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	155	self do:[
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	156	result := ToRunOnFreshAndRestartedSnapshotTests buildSuite run.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	157	self assert: result errorCount == 0.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	158	self assert: result failureCount == 0.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	159	] onRestartDo:[
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	160	result := ToRunOnFreshAndRestartedSnapshotTests buildSuite run.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	161	self assert: result errorCount == 0.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	162	self assert: result failureCount == 0.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	163	].
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165	"Created: / 14-08-2013 / 19:58:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1568 4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	166	"Modified: / 06-01-2017 / 23:37:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	!
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	test_stc
1568 4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	170	"Test restart with bytecode-compiled package"
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171
1568 4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	172	\| result \|
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173
1568 4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	174	self do:[
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	175	self make.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	176	result := ToRunOnFreshAndRestartedSnapshotTests buildSuite run.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	177	self assert: result errorCount == 0.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	178	self assert: result failureCount == 0.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	179	] onRestartDo:[
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	180	result := ToRunOnFreshAndRestartedSnapshotTests buildSuite run.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	181	self assert: result errorCount == 0.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	182	self assert: result failureCount == 0.
4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	183	].
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	"Created: / 14-08-2013 / 20:26:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1568 4fc22e888376 Cleanup: refactored SnapshotRestartTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1567 diff changeset	186	"Modified: / 06-01-2017 / 23:31:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	! !
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	!SnapshotRestartTests::ToRunOnFreshAndRestartedSnapshotTests methodsFor:'running'!
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	setUp
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	(Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') isNil ifTrue:[
1499 26a16a04219b Package renamed from exept:regression to stx:goodies/regression. Hooray! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1495 diff changeset	193	Smalltalk loadPackage: #'stx:goodies/regression/testData/packages/snapshot_restart'.
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194	].
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	"Created: / 14-08-2013 / 19:47:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	! !
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	!SnapshotRestartTests::ToRunOnFreshAndRestartedSnapshotTests methodsFor:'tests'!
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201	test_01
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	"/ Use Smalltalk at: to workaround compiler bug...
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	204	self assert: (Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') notNil.
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	self assert: ((Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') new addSimple: 12 to: 12) == 24
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	"Created: / 14-08-2013 / 19:46:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	"Modified: / 15-08-2013 / 08:20:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209	!
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	test_02
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	213	"/ Use Smalltalk at: to workaround compiler bug...
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214	self assert: (Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') notNil.
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215	self assert: ((Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') new addUsingBlock: 10 to: 10) == 20
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217	"Created: / 14-08-2013 / 19:46:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	218	"Modified: / 15-08-2013 / 08:20:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	219	! !
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	220
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221	!SnapshotRestartTests::ToRunOnFreshAndRestartedSnapshotTests methodsFor:'tests - disabled'!
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	223	disabled_test_03
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224	"/ Not yet supported, but JV has an idea how to fix it :-)
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226	self assert: (Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') notNil.
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227	self assert: ((Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') new addThirteenUsingRememberedBlockTo: 2) == 15
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	"Created: / 14-08-2013 / 19:53:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230	"Modified: / 15-08-2013 / 08:20:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	! !
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233	!SnapshotRestartTests class methodsFor:'documentation'!
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235	version
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	236	^ '$Header$'
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	!
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	version_CVS
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	^ '$Header$'
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	!
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242
1489 2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	243	version_HG
2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	244
2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	245	^ '$Changeset: <not expanded> $'
2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	246	!
2f9591a475f2 Fix in SnapshotRestartTests to use proper toolchain when building on Windows Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1191 diff changeset	247
980 baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	248	version_SVN
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	249	^ '$Id$'
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250	! !
baea090b0fc1 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	251

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 06 Jan 2017 23:41:06 +0000
branch	jv
changeset 1568	4fc22e888376
parent 1567	e17701a073f9
child 1569	e4f47eb7a708
permissions	-rw-r--r--