hg/stx-goodies-regression: RegressionTests__Win32OperatingSystemTest.st@99c870d21885 (annotated)

1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	1	"{ Package: 'stx:goodies/regression' }"
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	2
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	3	"{ NameSpace: RegressionTests }"
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	5	TestCase subclass:#Win32OperatingSystemTest
675 f98a0bb2f639 changed: #testMutex Stefan Vogel <sv@exept.de> parents: 355 diff changeset	6	instanceVariableNames:''
f98a0bb2f639 changed: #testMutex Stefan Vogel <sv@exept.de> parents: 355 diff changeset	7	classVariableNames:''
f98a0bb2f639 changed: #testMutex Stefan Vogel <sv@exept.de> parents: 355 diff changeset	8	poolDictionaries:''
1161 3d9b4eaddcf3 category changes Claus Gittinger <cg@exept.de> parents: 675 diff changeset	9	category:'tests-Regression-RuntimeSystem'
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	11
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	12
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	13	!Win32OperatingSystemTest methodsFor:'release'!
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14
1566 2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	15	setUp
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	16	self skipIf: OperatingSystem isMSWINDOWSlike not description: 'Windows specific tests'.
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	17	super setUp
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	18
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	19	"Created: / 28-12-2016 / 22:12:14 / jv"
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	20	! !
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	21
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	22	!Win32OperatingSystemTest methodsFor:'tests'!
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	23
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	24	testMutex
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25	\|handle alreadyExists lastErrorCode handleAndLastErrorCode\|
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	26
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	27	handleAndLastErrorCode := Win32OperatingSystem createMutexNamed: '8906f5e0-54ed-11dd-9da4-001558137da0'.
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28	handle := handleAndLastErrorCode first.
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	29	handle isNil ifTrue:[^ self].
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	30	lastErrorCode := handleAndLastErrorCode second.
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	31	self assert: lastErrorCode == 0.
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	32	alreadyExists := (lastErrorCode == 5 "ERROR_ACCESS_DENIED" or:[ lastErrorCode == 183 "ERROR_ALREADY_EXISTS"]).
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33	alreadyExists ifTrue:[
1566 2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	34	Transcript showCR: 'Mutex already exists!!'.
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	35	^ self.
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	36	].
354 310c6aca6525 oops Claus Gittinger <cg@exept.de> parents: 344 diff changeset	37	Transcript showCR: 'Mutex created!!'.
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	38	Win32OperatingSystem waitForSingleObject: handle.
355 d86e28afd549 changed #testMutex Claus Gittinger <cg@exept.de> parents: 354 diff changeset	39	Delay waitForSeconds:0.5. "/ self halt.
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	40	Win32OperatingSystem releaseMutex: handle.
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	41	Win32OperatingSystem primCloseHandle: handle.
354 310c6aca6525 oops Claus Gittinger <cg@exept.de> parents: 344 diff changeset	42	Transcript showCR: 'Mutex closed!!'.
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	44	"
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	45	self new testMutex
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46	"
1566 2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	47
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	48	"Modified: / 28-12-2016 / 22:13:37 / jv"
1352 e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	49	!
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	50
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	51	testRegistry
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	52	\|k hasContentType\|
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	53
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	54	k := OperatingSystem registryEntry key:'HKEY_CLASSES_ROOT\MIME\Database\'.
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	55	self assert:(k notNil).
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	56
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	57	hasContentType := false.
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	58	k subKeyNamesAndClassesDo:[:nm :clsNm \|
1566 2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	59	"/ Transcript showCR:nm.
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	60	nm = 'Content Type' ifTrue:[hasContentType := true].
1352 e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	61	].
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	62	self assert:hasContentType.
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	63
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	64	"/ k subKeysDo:[:k \| Transcript showCR:k].
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	65
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	66	"
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	67	self new testRegistry
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	68	"
1566 2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	69
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	70	"Modified: / 28-12-2016 / 22:13:43 / jv"
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	71	!
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	72
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	73	testRegistry02a
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	74	\| root key \|
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	75
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	76	root :=OperatingSystem registryEntry key:'HKEY_CURRENT_USER'.
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	77	root deleteSubKeyNamed: testSelector.
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	78
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	79	self assert:(root subKeyNamed: testSelector) isNil.
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	80	self deny: (root deleteSubKeyNamed: testSelector).
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	81
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	82	key := root createSubKeyNamed:testSelector.
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	83	self assert: key notNil.
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	84	self assert:(root subKeyNamed: testSelector) notNil.
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	85
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	86	self assert: (root deleteSubKeyNamed:testSelector).
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	87	self assert:(root subKeyNamed: testSelector) isNil.
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	88	self deny: (root deleteSubKeyNamed: testSelector).
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	89
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	90	"Created: / 28-12-2016 / 23:14:15 / jv"
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	91	"Modified: / 05-01-2017 / 21:45:20 / jv"
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	92	! !
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	93
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	94	!Win32OperatingSystemTest class methodsFor:'documentation'!
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	95
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	96	version
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	97	^ '$Header$'
1566 2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	98	!
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	99
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	100	version_HG
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	101
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	102	^ '$Changeset: <not expanded> $'
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	103	! !
1161 3d9b4eaddcf3 category changes Claus Gittinger <cg@exept.de> parents: 675 diff changeset	104

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 02 Jan 2018 16:29:05 +0000
branch	jv
changeset 1966	99c870d21885
parent 1566	2ca58098256d
child 1974	f2eaf05205d6
permissions	-rw-r--r--