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

2078 9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1	"{ Encoding: utf8 }"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	2
1974 f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	3	"
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	4	COPYRIGHT (c) Claus Gittinger / eXept Software AG
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	5	COPYRIGHT (c) 2016 Jan Vrany
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	6	All Rights Reserved
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	7
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	8	This software is furnished under a license and may be used
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	9	only in accordance with the terms of that license and with the
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	10	inclusion of the above copyright notice. This software may not
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	11	be provided or otherwise made available to, or used by, any
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	12	other person. No title to or ownership of the software is
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	13	hereby transferred.
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	14	"
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	15	"{ Package: 'stx:goodies/regression' }"
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	16
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	17	"{ NameSpace: RegressionTests }"
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	19	TestCase subclass:#Win32OperatingSystemTest
2078 9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	20	instanceVariableNames:'registryPath'
675 f98a0bb2f639 changed: #testMutex Stefan Vogel <sv@exept.de> parents: 355 diff changeset	21	classVariableNames:''
f98a0bb2f639 changed: #testMutex Stefan Vogel <sv@exept.de> parents: 355 diff changeset	22	poolDictionaries:''
1161 3d9b4eaddcf3 category changes Claus Gittinger <cg@exept.de> parents: 675 diff changeset	23	category:'tests-Regression-RuntimeSystem'
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	24	!
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25
1974 f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	26	!Win32OperatingSystemTest class methodsFor:'documentation'!
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	27
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	28	copyright
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	29	"
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	30	COPYRIGHT (c) Claus Gittinger / eXept Software AG
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	31	COPYRIGHT (c) 2016 Jan Vrany
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	32	All Rights Reserved
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	33
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	34	This software is furnished under a license and may be used
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	35	only in accordance with the terms of that license and with the
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	36	inclusion of the above copyright notice. This software may not
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	37	be provided or otherwise made available to, or used by, any
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	38	other person. No title to or ownership of the software is
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	39	hereby transferred.
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	40	"
f2eaf05205d6 Copyright updates Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1566 diff changeset	41	! !
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	42
2078 9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	43	!Win32OperatingSystemTest methodsFor:'file templates'!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	44
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	45	unicodeRegistryExample
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	46
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	47	^ 'Windows Registry Editor Version 5.00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	48
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	49	[HKEY_CURRENT_USER\Software\SmalltalkX-tests]
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	50	"emptyToTest"=""
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	51	"testEmptyMultiSZ"=hex(7):00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	52	"bledesu"="''Testing Unicode chars ř ž č ルすしかき''). "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	53	"しかき "="Testus gradus"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	54	" ř ž č ル. "="Testing Unicode chars ř ž č ルすしかき"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	55	"zero"=hex:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	56	"non-zero"=hex:11,10
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	57	"す "=hex:10
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	58	"dword_value"=dword:000023af
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	59	"11"="A number name"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	60	"き"=dword:234234af
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	61	"qwordvalue"=hex(b):ad,61,28,a3,95,0e,74,79
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	62	"qword_max"=hex(b):ff,ff,ff,ff,ff,ff,ff,ff
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	63	"すし"=hex(b):ef,ad,00,00,00,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	64	"Font_Leelawadee UI Bold"=hex(7):53,00,45,00,47,00,4f,00,45,00,55,00,49,00,42,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	65	00,2e,00,54,00,54,00,46,00,2c,00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	66	49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,31,00,30,00,2c,00,38,00,32,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	67	00,00,00,53,00,45,00,47,00,4f,00,45,00,55,00,49,00,42,00,2e,00,54,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	68	46,00,2c,00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,42,00,6f,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	69	00,6c,00,64,00,00,00,4d,00,45,00,49,00,52,00,59,00,4f,00,42,00,2e,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	70	54,00,43,00,2c,00,4d,00,65,00,69,00,72,00,79,00,6f,00,20,00,55,00,49,00,20,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	71	00,42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,30,00,2c,00,39,00,36,00,00,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	72	4d,00,45,00,49,00,52,00,59,00,4f,00,42,00,2e,00,54,00,54,00,43,00,2c,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	73	00,65,00,69,00,72,00,79,00,6f,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	74	64,00,00,00,4d,00,53,00,4a,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	75	00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,4a,00,68,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	76	65,00,6e,00,67,00,48,00,65,00,69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	77	00,64,00,2c,00,31,00,32,00,30,00,2c,00,39,00,36,00,00,00,4d,00,53,00,4a,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	78	48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,6f,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	79	00,73,00,6f,00,66,00,74,00,20,00,4a,00,68,00,65,00,6e,00,67,00,48,00,65,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	80	69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,00,53,00,59,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	81	00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	82	6f,00,73,00,6f,00,66,00,74,00,20,00,59,00,61,00,48,00,65,00,69,00,20,00,55,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	83	00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,38,00,2c,00,39,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	84	36,00,00,00,4d,00,53,00,59,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	85	00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,59,00,61,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	86	48,00,65,00,69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	87	00,41,00,4c,00,47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,00,2c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	88	4d,00,61,00,6c,00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,69,00,63,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	89	00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,31,00,38,00,2c,00,39,00,36,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	90	00,00,4d,00,41,00,4c,00,47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	91	00,2c,00,4d,00,61,00,6c,00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	92	69,00,63,00,20,00,42,00,6f,00,6c,00,64,00,00,00,59,00,55,00,47,00,4f,00,54,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	93	00,48,00,42,00,2e,00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	94	74,00,68,00,69,00,63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	95	00,31,00,32,00,38,00,2c,00,39,00,36,00,00,00,59,00,55,00,47,00,4f,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	96	48,00,42,00,2e,00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,74,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	97	00,68,00,69,00,63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	98	53,00,45,00,47,00,55,00,49,00,53,00,59,00,4d,00,2e,00,54,00,54,00,46,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	99	00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,53,00,79,00,6d,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	100	62,00,6f,00,6c,00,00,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	101	"ř ž č ルすしか"=hex(7):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	102	00,6e,00,69,00,63,00,6f,00,64,00,65,00,20,00,63,00,68,00,61,00,72,00,73,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	103	20,00,59,01,20,00,7e,01,20,00,0d,01,20,00,eb,30,59,30,57,30,4b,30,4d,30,27,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	104	00,29,00,00,00,53,00,45,00,47,00,4f,00,45,00,55,00,49,00,42,00,2e,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	105	54,00,46,00,2c,00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,42,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	106	00,6f,00,6c,00,64,00,2c,00,31,00,31,00,30,00,2c,00,38,00,32,00,00,00,53,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	107	45,00,47,00,4f,00,45,00,55,00,49,00,42,00,2e,00,54,00,54,00,46,00,2c,00,53,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	108	00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	109	00,00,4d,00,45,00,49,00,52,00,59,00,4f,00,42,00,2e,00,54,00,54,00,43,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	110	00,4d,00,65,00,69,00,72,00,79,00,6f,00,20,00,55,00,49,00,20,00,42,00,6f,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	111	6c,00,64,00,2c,00,31,00,32,00,30,00,2c,00,39,00,36,00,00,00,4d,00,45,00,49,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	112	00,52,00,59,00,4f,00,42,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,65,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	113	72,00,79,00,6f,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	114	00,53,00,4a,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	115	63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,4a,00,68,00,65,00,6e,00,67,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	116	00,48,00,65,00,69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	117	31,00,32,00,30,00,2c,00,39,00,36,00,00,00,4d,00,53,00,4a,00,48,00,42,00,44,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	118	00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	119	66,00,74,00,20,00,4a,00,68,00,65,00,6e,00,67,00,48,00,65,00,69,00,20,00,55,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	120	00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,00,53,00,59,00,48,00,42,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	121	44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	122	00,66,00,74,00,20,00,59,00,61,00,48,00,65,00,69,00,20,00,55,00,49,00,20,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	123	42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,38,00,2c,00,39,00,36,00,00,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	124	00,53,00,59,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	125	63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,59,00,61,00,48,00,65,00,69,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	126	00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,00,41,00,4c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	127	47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,00,2c,00,4d,00,61,00,6c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	128	00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,69,00,63,00,20,00,42,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	129	6f,00,6c,00,64,00,2c,00,31,00,31,00,38,00,2c,00,39,00,36,00,00,00,4d,00,41,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	130	00,4c,00,47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,00,2c,00,4d,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	131	61,00,6c,00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,69,00,63,00,20,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	132	00,42,00,6f,00,6c,00,64,00,00,00,59,00,55,00,47,00,4f,00,54,00,48,00,42,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	133	2e,00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,74,00,68,00,69,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	134	00,63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	135	38,00,2c,00,39,00,36,00,00,00,59,00,55,00,47,00,4f,00,54,00,48,00,42,00,2e,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	136	00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,74,00,68,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	137	63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,53,00,45,00,47,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	138	00,55,00,49,00,53,00,59,00,4d,00,2e,00,54,00,54,00,46,00,2c,00,53,00,65,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	139	67,00,6f,00,65,00,20,00,55,00,49,00,20,00,53,00,79,00,6d,00,62,00,6f,00,6c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	140	00,00,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	141	"Ugh"=hex(2):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,00,6e,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	142	69,00,63,00,6f,00,64,00,65,00,20,00,63,00,68,00,61,00,72,00,73,00,20,00,59,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	143	01,20,00,7e,01,20,00,0d,01,20,00,eb,30,59,30,57,30,4b,30,4d,30,27,00,29,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	144	2e,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	145	" č ルすしか"=hex(2):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	146	6e,00,69,00,63,00,6f,00,64,00,65,00,20,00,63,00,68,00,61,00,72,00,73,00,20,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	147	00,59,01,20,00,7e,01,20,00,0d,01,20,00,eb,30,59,30,57,30,4b,30,4d,30,27,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	148	29,00,2e,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	149	00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	150
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	151	[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか]
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	152	"bledesu"="''Testing Unicode chars ř ž č ルすしかき''). "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	153	"しかき "="Testus gradus"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	154	" ř ž č ル. "="Testing Unicode chars ř ž č ルすしかき"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	155	"zero"=hex:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	156	"non-zero"=hex:11,10
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	157	"す "=hex:10
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	158	"dword_value"=dword:000023af
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	159	"き"=dword:234234af
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	160	"qwordvalue"=hex(b):ad,61,28,a3,95,0e,74,79
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	161	"qword_max"=hex(b):ff,ff,ff,ff,ff,ff,ff,ff
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	162	"すし"=hex(b):ef,ad,00,00,00,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	163	"Font_Leelawadee UI Bold"=hex(7):53,00,45,00,47,00,4f,00,45,00,55,00,49,00,42,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	164	00,2e,00,54,00,54,00,46,00,2c,00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	165	49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,31,00,30,00,2c,00,38,00,32,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	166	00,00,00,53,00,45,00,47,00,4f,00,45,00,55,00,49,00,42,00,2e,00,54,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	167	46,00,2c,00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,42,00,6f,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	168	00,6c,00,64,00,00,00,4d,00,45,00,49,00,52,00,59,00,4f,00,42,00,2e,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	169	54,00,43,00,2c,00,4d,00,65,00,69,00,72,00,79,00,6f,00,20,00,55,00,49,00,20,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	170	00,42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,30,00,2c,00,39,00,36,00,00,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	171	4d,00,45,00,49,00,52,00,59,00,4f,00,42,00,2e,00,54,00,54,00,43,00,2c,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	172	00,65,00,69,00,72,00,79,00,6f,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	173	64,00,00,00,4d,00,53,00,4a,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	174	00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,4a,00,68,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	175	65,00,6e,00,67,00,48,00,65,00,69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	176	00,64,00,2c,00,31,00,32,00,30,00,2c,00,39,00,36,00,00,00,4d,00,53,00,4a,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	177	48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,6f,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	178	00,73,00,6f,00,66,00,74,00,20,00,4a,00,68,00,65,00,6e,00,67,00,48,00,65,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	179	69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,00,53,00,59,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	180	00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	181	6f,00,73,00,6f,00,66,00,74,00,20,00,59,00,61,00,48,00,65,00,69,00,20,00,55,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	182	00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,38,00,2c,00,39,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	183	36,00,00,00,4d,00,53,00,59,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	184	00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,59,00,61,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	185	48,00,65,00,69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	186	00,41,00,4c,00,47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,00,2c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	187	4d,00,61,00,6c,00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,69,00,63,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	188	00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,31,00,38,00,2c,00,39,00,36,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	189	00,00,4d,00,41,00,4c,00,47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	190	00,2c,00,4d,00,61,00,6c,00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	191	69,00,63,00,20,00,42,00,6f,00,6c,00,64,00,00,00,59,00,55,00,47,00,4f,00,54,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	192	00,48,00,42,00,2e,00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	193	74,00,68,00,69,00,63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	194	00,31,00,32,00,38,00,2c,00,39,00,36,00,00,00,59,00,55,00,47,00,4f,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	195	48,00,42,00,2e,00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,74,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	196	00,68,00,69,00,63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	197	53,00,45,00,47,00,55,00,49,00,53,00,59,00,4d,00,2e,00,54,00,54,00,46,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	198	00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,53,00,79,00,6d,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	199	62,00,6f,00,6c,00,00,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	200	"ř ž č ルすしか"=hex(7):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	201	00,6e,00,69,00,63,00,6f,00,64,00,65,00,20,00,63,00,68,00,61,00,72,00,73,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	202	20,00,59,01,20,00,7e,01,20,00,0d,01,20,00,eb,30,59,30,57,30,4b,30,4d,30,27,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	203	00,29,00,00,00,53,00,45,00,47,00,4f,00,45,00,55,00,49,00,42,00,2e,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	204	54,00,46,00,2c,00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,42,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	205	00,6f,00,6c,00,64,00,2c,00,31,00,31,00,30,00,2c,00,38,00,32,00,00,00,53,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	206	45,00,47,00,4f,00,45,00,55,00,49,00,42,00,2e,00,54,00,54,00,46,00,2c,00,53,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	207	00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	208	00,00,4d,00,45,00,49,00,52,00,59,00,4f,00,42,00,2e,00,54,00,54,00,43,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	209	00,4d,00,65,00,69,00,72,00,79,00,6f,00,20,00,55,00,49,00,20,00,42,00,6f,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	210	6c,00,64,00,2c,00,31,00,32,00,30,00,2c,00,39,00,36,00,00,00,4d,00,45,00,49,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	211	00,52,00,59,00,4f,00,42,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,65,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	212	72,00,79,00,6f,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	213	00,53,00,4a,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	214	63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,4a,00,68,00,65,00,6e,00,67,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	215	00,48,00,65,00,69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	216	31,00,32,00,30,00,2c,00,39,00,36,00,00,00,4d,00,53,00,4a,00,48,00,42,00,44,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	217	00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	218	66,00,74,00,20,00,4a,00,68,00,65,00,6e,00,67,00,48,00,65,00,69,00,20,00,55,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	219	00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,00,53,00,59,00,48,00,42,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	220	44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	221	00,66,00,74,00,20,00,59,00,61,00,48,00,65,00,69,00,20,00,55,00,49,00,20,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	222	42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,38,00,2c,00,39,00,36,00,00,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	223	00,53,00,59,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	224	63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,59,00,61,00,48,00,65,00,69,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	225	00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,00,41,00,4c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	226	47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,00,2c,00,4d,00,61,00,6c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	227	00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,69,00,63,00,20,00,42,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	228	6f,00,6c,00,64,00,2c,00,31,00,31,00,38,00,2c,00,39,00,36,00,00,00,4d,00,41,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	229	00,4c,00,47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,00,2c,00,4d,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	230	61,00,6c,00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,69,00,63,00,20,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	231	00,42,00,6f,00,6c,00,64,00,00,00,59,00,55,00,47,00,4f,00,54,00,48,00,42,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	232	2e,00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,74,00,68,00,69,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	233	00,63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	234	38,00,2c,00,39,00,36,00,00,00,59,00,55,00,47,00,4f,00,54,00,48,00,42,00,2e,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	235	00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,74,00,68,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	236	63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,53,00,45,00,47,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	237	00,55,00,49,00,53,00,59,00,4d,00,2e,00,54,00,54,00,46,00,2c,00,53,00,65,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	238	67,00,6f,00,65,00,20,00,55,00,49,00,20,00,53,00,79,00,6d,00,62,00,6f,00,6c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	239	00,00,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	240	"Ugh"=hex(2):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,00,6e,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	241	69,00,63,00,6f,00,64,00,65,00,20,00,63,00,68,00,61,00,72,00,73,00,20,00,59,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	242	01,20,00,7e,01,20,00,0d,01,20,00,eb,30,59,30,57,30,4b,30,4d,30,27,00,29,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	243	2e,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	244	" č ルすしか"=hex(2):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	245	6e,00,69,00,63,00,6f,00,64,00,65,00,20,00,63,00,68,00,61,00,72,00,73,00,20,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	246	00,59,01,20,00,7e,01,20,00,0d,01,20,00,eb,30,59,30,57,30,4b,30,4d,30,27,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	247	29,00,2e,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	248	00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	249
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	250	[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end]
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	251	"testing"=" ルすしか"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	252	"か"=dword:00000002
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	253	"256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end"="Longer_than_256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|endsdfsdfasdfasdfasdfjlkasdjflkasjdflkjasdlfjaslkdfjlkasdjflkasdflksadlkjsadlfalsdfůlasdjflkasdjflkasjdflkůjasdflůkjasdlůfjalsůkdjflůksd"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	254
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	255	[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end]
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	256
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	257	[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end\unreachable]
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	258
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	259	[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end\reachable]
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	260	'
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	261
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	262	"Created: / 16-11-2018 / 11:24:57 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	263	"Modified: / 05-12-2018 / 11:33:32 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	264	! !
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	265
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	266	!Win32OperatingSystemTest methodsFor:'release'!
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	267
1566 2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	268	setUp
2078 9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	269	\| registryToImport file \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	270
1566 2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	271	self skipIf: OperatingSystem isMSWINDOWSlike not description: 'Windows specific tests'.
2078 9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	272	super setUp.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	273
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	274	registryToImport := self unicodeRegistryExample.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	275
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	276	"/ registry path which will be used
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	277	registryPath := registryToImport
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	278	copyFrom: (registryToImport indexOf: $[) + 1
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	279	to: (registryToImport indexOf: $]) - 1.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	280
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	281	"/ temporary file which will be used for importing
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	282	file := Filename newTemporary.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	283
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	284	"/ Registry export is in UTF-16LE with BOM
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	285
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	286	" What is BOM?
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	287	A byte order mark (BOM) consists of the character code U+FEFF at the beginning of a data stream, where it can be used as a signature
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	288	defining the byte order and encoding form, primarily of unmarked plaintext files. Under some higher level protocols, use of a BOM may
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	289	be mandatory (or prohibited) in the Unicode data stream defined in that protocol."
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	290
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	291	"/ needed to write to file as Windows Registry do UTF16-LE With Signature
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	292	" BOM for UTF-16is:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	293	FE FF UTF-16, big-endian (BE)
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	294	FF FE UTF-16, little-endian (LE)"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	295
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	296	"/ Writing BOM first
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	297	file writingFileDo: [ :stream \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	298	stream nextPutUtf16: (Character codePoint:16rFFFE)
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	299	].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	300
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	301	"/ this is UTF16-LE (Little Endian) Without Signature (BOM)
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	302	file appendingFileDo: [ :stream \| stream nextPutAllUtf16Bytes: registryToImport MSB: false].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	303
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	304	[ "/ adding registry entry so we can test it
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	305	OperatingSystem getCommandOutputFrom: ('REG IMPORT ' , file asString)
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	306	] ensure: [ file remove ].
1566 2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	307
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	308	"Created: / 28-12-2016 / 22:12:14 / jv"
2078 9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	309	"Modified (format): / 16-11-2018 / 11:30:30 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	310	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	311
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	312	tearDown
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	313	self skipIf: OperatingSystem isMSWINDOWSlike not description: 'Windows specific tests'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	314	super tearDown.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	315
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	316	"/ remove the added registry entry
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	317	OperatingSystem getCommandOutputFrom:('REG DELETE "', registryPath, '" /f').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	318
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	319	"/ Check if testing registry was correctly deleted
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	320	self assert: ((OperatingSystem registryEntry key: registryPath) isNil).
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	321
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	322	"Created: / 16-11-2018 / 11:29:12 / svestkap"
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	323	! !
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	324
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	325	!Win32OperatingSystemTest methodsFor:'tests'!
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	326
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	327	testMutex
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	328	\|handle alreadyExists lastErrorCode handleAndLastErrorCode\|
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	329
1977 f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1974 diff changeset	330	handleAndLastErrorCode := Win32OperatingSystem createMutexNamed: UUID new printString.
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	331	handle := handleAndLastErrorCode first.
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	332	handle isNil ifTrue:[^ self].
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	333	lastErrorCode := handleAndLastErrorCode second.
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	334	self assert: lastErrorCode == 0.
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	335	alreadyExists := (lastErrorCode == 5 "ERROR_ACCESS_DENIED" or:[ lastErrorCode == 183 "ERROR_ALREADY_EXISTS"]).
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	336	alreadyExists ifTrue:[
1566 2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	337	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	338	^ self.
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	339	].
1977 f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1974 diff changeset	340	[
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1974 diff changeset	341	Transcript showCR: 'Mutex created!!'.
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1974 diff changeset	342	Win32OperatingSystem waitForSingleObject: handle.
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1974 diff changeset	343	Delay waitForSeconds:0.5. "/ self halt.
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1974 diff changeset	344	Win32OperatingSystem releaseMutex: handle.
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1974 diff changeset	345	] ensure:[
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1974 diff changeset	346	Win32OperatingSystem primCloseHandle: handle.
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1974 diff changeset	347	Transcript showCR: 'Mutex closed!!'.
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1974 diff changeset	348	].
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1974 diff changeset	349
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	350
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	351	"
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	352	self new testMutex
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	353	"
1566 2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	354
1977 f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1974 diff changeset	355	"Modified: / 28-06-2018 / 09:14:35 / jv"
1352 e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	356	!
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	357
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	358	testRegistry
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	359	\|k hasContentType\|
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	360
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	361	k := OperatingSystem registryEntry key:'HKEY_CLASSES_ROOT\MIME\Database\'.
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	362	self assert:(k notNil).
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	363
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	364	hasContentType := false.
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	365	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	366	"/ Transcript showCR:nm.
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	367	nm = 'Content Type' ifTrue:[hasContentType := true].
1352 e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	368	].
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	369	self assert:hasContentType.
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	370
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	371	"/ k subKeysDo:[:k \| Transcript showCR:k].
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	372
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	373	"
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	374	self new testRegistry
e0d857144dbf #FEATURE Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	375	"
1566 2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	376
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	377	"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	378	!
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	379
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	380	testRegistry02a
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	381	\| root key \|
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	382
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	383	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	384	root deleteSubKeyNamed: testSelector.
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	385
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	386	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	387	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	388
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	389	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	390	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	391	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	392
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	393	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	394	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	395	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	396
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	397	"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	398	"Modified: / 05-01-2017 / 21:45:20 / jv"
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	399	! !
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	400
2078 9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	401	!Win32OperatingSystemTest methodsFor:'tests-unicodeRead'!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	402
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	403	testReadSubKeyAtIndex
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	404	"Reading subKeys at certain index
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	405	WARNING: subKeyAtIndex: is zero based!!!!!!"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	406
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	407	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	408
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	409	readData := Unicode16String new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	410	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	411
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	412	readData := testingRegistryPath subKeyAtIndex: 0.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	413
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	414	self assert: readData notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	415	self assert: (readData path copyAfterLast: $\) = ' ルすしか'
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	416
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	417	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	418	self run:#testReadSubKeyAtIndex
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	419	self new testReadSubKeyAtIndex
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	420	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	421
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	422	"Created: / 05-12-2018 / 12:39:45 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	423	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	424
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	425	testReadSubKeyAtIndex_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	426	"reading subKeyAtIndex with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	427	Note: This test acually breaks the limit that Microsoft specified in MSDN - registry key name should be maximum 255 characters including absolute path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	428	MSDN link: https://docs.microsoft.com/en-us/windows/desktop/sysinfo/registry-element-size-limits"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	429
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	430	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	431
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	432	"/readData := Unicode16String new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	433	testingRegistryPath := Win32OperatingSystem registryEntry key:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	434	(registryPath,'\', ' ルすしか\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	435
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	436	readData := testingRegistryPath subKeyAtIndex: 0.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	437
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	438	self assert: readData path notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	439	self assert:(readData path endsWith: '\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	440
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	441	"/ this is maximum path size which can be reached if the SubKey is reached via index
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	442	self assert: readData path size = 563. "/ there is one backslash (for path) more compared to testReadSubKeyNamesAndClassesAtIndex_MaxPath_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	443
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	444	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	445	self run:#testReadSubKeyAtIndex_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	446	self new testReadSubKeyAtIndex_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	447	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	448
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	449	"Created: / 05-12-2018 / 12:39:54 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	450	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	451
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	452	testReadSubKeyNamesAndClassesAtIndex_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	453	"reading SubKeyNamesAndClasses with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	454	Note: This test acually breaks the limit that Microsoft specified in MSDN - registry key name should be maximum 255 characters including absolute path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	455	MSDN link: https://docs.microsoft.com/en-us/windows/desktop/sysinfo/registry-element-size-limits"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	456
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	457	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	458
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	459	readData := Unicode16String new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	460	testingRegistryPath := Win32OperatingSystem registryEntry key:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	461	(registryPath,'\', ' ルすしか\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	462
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	463	readData := testingRegistryPath subKeyNameAndClassAtIndex: 0.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	464
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	465	self assert: readData notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	466	self assert:(readData first endsWith: '\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	467	self assert: readData first = '256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	468
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	469	"/ this is maximum path size which can be reached if the SubKey is reached via index
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	470	self assert: (testingRegistryPath path size + readData first size) = 562.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	471
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	472	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	473	self run:#testReadSubKeyNamesAndClassesAtIndex_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	474	self new testReadSubKeyNamesAndClassesAtIndex_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	475	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	476
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	477	"Created: / 05-12-2018 / 12:40:08 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	478	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	479
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	480	testReadTooLongPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	481	"Trying to read too long path - if you try to read such a long path it just returns nil"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	482
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	483	\| testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	484
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	485	testingRegistryPath := Win32OperatingSystem registryEntry key:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	486	(registryPath,'\', ' ルすしか\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	487	\|end','\','256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	488
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	489	self assert: testingRegistryPath isNil
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	490
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	491	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	492	self run:#testReadTooLongPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	493	self new testReadTooLongPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	494	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	495
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	496	"Created: / 22-11-2018 / 11:19:51 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	497	"Modified (format): / 05-12-2018 / 12:38:58 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	498	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	499
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	500	testReadValueNameAtIndex
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	501	"Reading values (#valueNameAtIndex:) at certain index
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	502	WARNING: #valueNameAtIndex: is zero based!!!!!!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	503	Note: This test acually breaks the limit that Microsoft specified in MSDN - registry key name should be maximum 255 characters including absolute path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	504	MSDN link: https://docs.microsoft.com/en-us/windows/desktop/sysinfo/registry-element-size-limits"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	505
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	506	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	507
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	508	readData := Unicode16String new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	509	testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath,'\', ' ルすしか').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	510
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	511	readData := testingRegistryPath valueNameAtIndex: 1.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	512
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	513	self assert: readData notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	514	self assert: readData = 'しかき '
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	515
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	516	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	517	self run:#testReadValueNameAtIndex
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	518	self new testReadValueNameAtIndex
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	519	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	520
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	521	"Created: / 05-12-2018 / 12:40:21 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	522	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	523
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	524	testReadValueNamed_REG_BINARY_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	525	"Testing if REG_BINARY values are read correctly via valueNamed:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	526
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	527	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	528
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	529	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	530
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	531	readData := testingRegistryPath valueNamed: 'zero'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	532
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	533	self assert: readData = ByteArray new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	534
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	535	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	536	self run:#testReadValueNamed_REG_BINARY_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	537	self new testReadValueNamed_REG_BINARY_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	538	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	539
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	540	"Created: / 16-11-2018 / 12:37:50 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	541	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	542
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	543	testReadValueNamed_REG_BINARY_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	544	"Testing if REG_BINARY values are read correctly via valueNamed:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	545
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	546	\| testingRegistryPath readData readDataHex \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	547
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	548	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	549
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	550	readData := testingRegistryPath valueNamed: 'non-zero'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	551	readDataHex := readData hexPrintStringWithSeparator: $\|.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	552
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	553	self assert: readData = #[17 16]. "/ ByteArray
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	554	self assert: readDataHex = '11\|10' "/ hex
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	555
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	556	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	557	self run:#testReadValueNamed_REG_BINARY_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	558	self new testReadValueNamed_REG_BINARY_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	559	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	560
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	561	"Created: / 16-11-2018 / 12:39:33 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	562	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	563
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	564	testReadValueNamed_REG_DWORD_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	565	"Testing if REG_DWORD values are read correctly via valueNamed:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	566
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	567	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	568
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	569	readData := Unicode16String new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	570	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	571
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	572	readData := testingRegistryPath valueNamed: 'dword_value'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	573
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	574	self assert: readData = 9135.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	575
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	576	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	577	self run:#testReadValueNamed_REG_DWORD_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	578	self new testReadValueNamed_REG_DWORD_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	579	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	580
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	581	"Created: / 16-11-2018 / 12:24:26 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	582	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	583
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	584	testReadValueNamed_REG_DWORD_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	585	"Testing if REG_DWORD values are read correctly via valueNamed:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	586
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	587	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	588
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	589	readData := Unicode16String new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	590	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	591
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	592	readData := testingRegistryPath valueNamed: 'き'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	593
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	594	self assert: readData = 591541423.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	595
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	596	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	597	self run:#testReadValueNamed_REG_DWORD_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	598	self new testReadValueNamed_REG_DWORD_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	599	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	600
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	601	"Created: / 16-11-2018 / 12:24:43 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	602	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	603
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	604	testReadValueNamed_REG_EXPAND_SZ_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	605	"Testing if REG_EXPAND_SZ values are read correctly via valueNamed:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	606
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	607	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	608
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	609	readData := Unicode16String new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	610	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	611
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	612	readData := testingRegistryPath valueNamed: ' č ルすしか'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	613
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	614	self assert: readData = '''Testing Unicode chars ř ž č ルすしかき''). '.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	615
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	616	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	617	self run:#testReadValueNamed_REG_EXPAND_SZ_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	618	self new testReadValueNamed_REG_EXPAND_SZ_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	619	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	620
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	621	"Created: / 16-11-2018 / 12:27:58 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	622	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	623
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	624	testReadValueNamed_REG_EXPAND_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	625	"Testing if REG_EXPAND_SZ values are read correctly via valueNamed:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	626
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	627	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	628
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	629	readData := Unicode16String new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	630	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	631
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	632	readData := testingRegistryPath valueNamed: 'Ugh'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	633
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	634	self assert: readData = '''Testing Unicode chars ř ž č ルすしかき''). '.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	635
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	636	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	637	self run:#testReadValueNamed_REG_EXPAND_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	638	self new testReadValueNamed_REG_EXPAND_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	639	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	640
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	641	"Created: / 16-11-2018 / 12:29:52 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	642	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	643
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	644	testReadValueNamed_REG_MULTI_SZ_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	645	"Testing if REG_MULTI_SZ values are read correctly via valueNamed:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	646
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	647	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	648
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	649	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	650
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	651	readData := testingRegistryPath valueNamed: 'Font_Leelawadee UI Bold'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	652
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	653	self assert: readData = #('SEGOEUIB.TTF,Segoe UI Bold,110,82' 'SEGOEUIB.TTF,Segoe UI Bold' 'MEIRYOB.TTC,Meiryo UI Bold,120,96'
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	654	'MEIRYOB.TTC,Meiryo UI Bold' 'MSJHBD.TTC,Microsoft JhengHei UI Bold,120,96' 'MSJHBD.TTC,Microsoft JhengHei UI Bold'
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	655	'MSYHBD.TTC,Microsoft YaHei UI Bold,128,96' 'MSYHBD.TTC,Microsoft YaHei UI Bold' 'MALGUNBD.TTF,Malgun Gothic Bold,118,96'
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	656	'MALGUNBD.TTF,Malgun Gothic Bold' 'YUGOTHB.TTC,Yu Gothic UI Bold,128,96' 'YUGOTHB.TTC,Yu Gothic UI Bold' 'SEGUISYM.TTF,Segoe UI Symbol')
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	657
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	658	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	659	self run:#testReadValueNamed_REG_MULTI_SZ_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	660	self new testReadValueNamed_REG_MULTI_SZ_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	661	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	662
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	663	"Created: / 16-11-2018 / 12:30:24 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	664	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	665
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	666	testReadValueNamed_REG_MULTI_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	667	"Testing if REG_MULTI_SZ values are read correctly via valueNamed:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	668
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	669	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	670
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	671	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	672
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	673	readData := testingRegistryPath valueNamed: 'ř ž č ルすしか'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	674
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	675	self assert: readData = #('''Testing Unicode chars ř ž č ルすしかき'')'
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	676	'SEGOEUIB.TTF,Segoe UI Bold,110,82' 'SEGOEUIB.TTF,Segoe UI Bold' 'MEIRYOB.TTC,Meiryo UI Bold,120,96'
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	677	'MEIRYOB.TTC,Meiryo UI Bold' 'MSJHBD.TTC,Microsoft JhengHei UI Bold,120,96' 'MSJHBD.TTC,Microsoft JhengHei UI Bold'
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	678	'MSYHBD.TTC,Microsoft YaHei UI Bold,128,96' 'MSYHBD.TTC,Microsoft YaHei UI Bold' 'MALGUNBD.TTF,Malgun Gothic Bold,118,96'
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	679	'MALGUNBD.TTF,Malgun Gothic Bold' 'YUGOTHB.TTC,Yu Gothic UI Bold,128,96' 'YUGOTHB.TTC,Yu Gothic UI Bold' 'SEGUISYM.TTF,Segoe UI Symbol')
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	680
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	681	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	682	self run:#testReadValueNamed_REG_MULTI_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	683	self new testReadValueNamed_REG_MULTI_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	684	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	685
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	686	"Created: / 16-11-2018 / 12:35:57 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	687	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	688
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	689	testReadValueNamed_REG_MULTI_SZ_03
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	690	"Testing if empty REG_MULTI_SZ value is read correctly via valueNamed:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	691
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	692	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	693
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	694	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	695
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	696	readData := testingRegistryPath valueNamed: 'testEmptyMultiSZ'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	697
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	698	self assert: readData isEmpty
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	699
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	700	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	701	self run:#testReadValueNamed_REG_MULTI_SZ_03
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	702	self new testReadValueNamed_REG_MULTI_SZ_03
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	703	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	704
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	705	"Created: / 03-12-2018 / 10:59:48 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	706	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	707
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	708	testReadValueNamed_REG_QWORD_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	709	"Testing if REG_QWORD values are read correctly via valueNamed:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	710	The read value is a QWORD maximum value"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	711
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	712	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	713
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	714	readData := Unicode16String new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	715	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	716
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	717	readData := testingRegistryPath valueNamed: 'qword_max'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	718
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	719	self assert: readData = 18446744073709551615.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	720
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	721	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	722	self run:#testReadValueNamed_REG_QWORD_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	723	self new testReadValueNamed_REG_QWORD_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	724	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	725
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	726	"Created: / 16-11-2018 / 12:25:47 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	727	"Modified (comment): / 05-12-2018 / 12:38:09 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	728	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	729
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	730	testReadValueNamed_REG_QWORD_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	731	"Testing if REG_QWORD values are read correctly via valueNamed:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	732
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	733	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	734
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	735	readData := Unicode16String new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	736	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	737
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	738	readData := testingRegistryPath valueNamed: 'qwordvalue'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	739
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	740	self assert: readData = 8751636011737964973.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	741
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	742	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	743	self run:#testReadValueNamed_REG_QWORD_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	744	self new testReadValueNamed_REG_QWORD_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	745	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	746
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	747	"Created: / 16-11-2018 / 12:26:23 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	748	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	749
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	750	testReadValueNamed_REG_QWORD_03
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	751	"Testing if REG_QWORD values are read correctly via valueNamed:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	752
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	753	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	754
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	755	readData := Unicode16String new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	756	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	757
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	758	readData := testingRegistryPath valueNamed: 'すし'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	759
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	760	self assert: readData asSmallInteger = 44527.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	761
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	762	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	763	self run:#testReadValueNamed_REG_QWORD_03
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	764	self new testReadValueNamed_REG_QWORD_03
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	765	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	766
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	767	"Created: / 16-11-2018 / 12:27:17 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	768	"Modified: / 20-11-2018 / 12:25:05 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	769	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	770
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	771	testReadValueNamed_REG_SZ_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	772	"Testing if REG_SZ values are read correctly via valueNamed:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	773
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	774	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	775
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	776	readData := Unicode16String new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	777	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	778
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	779	readData := testingRegistryPath valueNamed: 'bledesu'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	780
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	781	self assert: readData = '''Testing Unicode chars ř ž č ルすしかき''). '.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	782
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	783	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	784	self run:#testReadValueNamed_REG_SZ_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	785	self new testReadValueNamed_REG_SZ_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	786	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	787
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	788	"Created: / 16-11-2018 / 12:14:59 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	789	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	790
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	791	testReadValueNamed_REG_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	792	"Testing if REG_SZ values are read correctly via valueNamed:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	793
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	794	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	795
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	796	readData := Unicode16String new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	797	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	798
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	799	readData := testingRegistryPath valueNamed: ' ř ž č ル. '.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	800
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	801	self assert: readData = 'Testing Unicode chars ř ž č ルすしかき'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	802
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	803	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	804	self run:#testReadValueNamed_REG_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	805	self new testReadValueNamed_REG_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	806	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	807
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	808	"Created: / 16-11-2018 / 12:15:17 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	809	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	810
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	811	testReadValueNamed_REG_SZ_03
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	812	"Testing if REG_SZ values are read correctly via valueNamed:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	813
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	814	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	815
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	816	readData := Unicode16String new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	817	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	818
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	819	readData := testingRegistryPath valueNamed: 'しかき '.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	820
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	821	self assert: readData = 'Testus gradus'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	822
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	823	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	824	self run:#testReadValueNamed_REG_SZ_03
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	825	self new testReadValueNamed_REG_SZ_03
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	826	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	827
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	828	"Created: / 16-11-2018 / 12:21:59 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	829	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	830
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	831	testReadValueNamed_REG_SZ_04
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	832	"Testing if empty REG_SZ value is read correctly via valueNamed:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	833
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	834	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	835
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	836	readData := Unicode16String new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	837	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	838
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	839	readData := testingRegistryPath valueNamed: 'emptyToTest'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	840
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	841	self assert: readData isEmpty.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	842
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	843	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	844	self run:#testReadValueNamed_REG_SZ_04
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	845	self new testReadValueNamed_REG_SZ_04
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	846	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	847
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	848	"Created: / 03-12-2018 / 10:56:11 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	849	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	850
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	851	testReadValueNamed_nonStringValue
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	852	"Testing reading non-string value from Registry via valueNamed
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	853	User should see a warning message in Transcript"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	854
2079 a63e63505b24 Issue #250: Fixed testReadValueNamed_nonStringValue to expect an Error to be raised Patrik Svestka <patrik.svestka@gmail.com> parents: 2078 diff changeset	855	\| testingRegistryPath \|
2078 9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	856
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	857	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
2079 a63e63505b24 Issue #250: Fixed testReadValueNamed_nonStringValue to expect an Error to be raised Patrik Svestka <patrik.svestka@gmail.com> parents: 2078 diff changeset	858
a63e63505b24 Issue #250: Fixed testReadValueNamed_nonStringValue to expect an Error to be raised Patrik Svestka <patrik.svestka@gmail.com> parents: 2078 diff changeset	859	self should: [ testingRegistryPath valueNamed: 11 ] raise: Error
2078 9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	860
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	861	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	862	self run:#testReadValueNamed_nonStringValue
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	863	self new testReadValueNamed_nonStringValue
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	864	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	865
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	866	"Created: / 05-12-2018 / 12:40:31 / svestkap"
2079 a63e63505b24 Issue #250: Fixed testReadValueNamed_nonStringValue to expect an Error to be raised Patrik Svestka <patrik.svestka@gmail.com> parents: 2078 diff changeset	867	"Modified: / 10-12-2018 / 15:47:37 / svestkap"
2078 9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	868	! !
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	869
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	870	!Win32OperatingSystemTest methodsFor:'tests-unicodeReadEnumeration'!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	871
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	872	testReadAllSubKeysDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	873	"reading via allSubKeysDo (using subKeyAtIndex:) with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	874	The path is suppassing the Microsoft limit - for more information see testReadSubKeyAtIndex_MaxPath_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	875
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	876	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	877
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	878	readData := OrderedCollection new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	879	testingRegistryPath := Win32OperatingSystem registryEntry key:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	880	(registryPath,'\', ' ルすしか\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	881
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	882	testingRegistryPath allSubKeysDo: [ :subEntry \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	883	readData add: subEntry
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	884	].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	885
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	886	self assert: readData notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	887	self assert: readData size = 3.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	888	"/ this is normally unreachable subKey (subkey actually called 'unreachable')
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	889	self assert: (readData at: 2) path size = 575.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	890
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	891	readData := readData copy collect: [ :subEntry \| subEntry path copyAfterLast: $\ ].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	892
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	893	self assert: readData size = 3.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	894	self assert: (readData first endsWith: '\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	895	self assert: readData second = 'unreachable'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	896	self assert: readData third = 'reachable'
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	897
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	898	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	899	self run:#testReadAllSubKeysDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	900	self new testReadAllSubKeysDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	901	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	902
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	903	"Created: / 05-12-2018 / 12:40:53 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	904	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	905
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	906	testReadRemoteKeyOnHost
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	907	"Reading remote registry via remoteKeyOnHost:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	908	Note: a key must be a predefined key for more see:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	909	https://docs.microsoft.com/en-us/windows/desktop/SysInfo/predefined-keys"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	910
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	911	\| testingRegistryPath remoteRegistry readData \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	912
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	913	"/ HKEY_CURRENT_USER is one of the predefined keys
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	914	testingRegistryPath := Win32OperatingSystem registryEntry key: 'HKEY_CURRENT_USER'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	915	"/ testing done on localhost
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	916	remoteRegistry := testingRegistryPath remoteKeyOnHost: 'localhost'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	917	readData := remoteRegistry subKeys.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	918
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	919	readData := readData copy collect: [ :subEntry \| (subEntry path copyAfterLast: $\) asLowercase ].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	920
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	921	self assert: readData notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	922	self assert: (readData includes: 'software').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	923
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	924	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	925	self run:#testReadRemoteKeyOnHost
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	926	self new testReadRemoteKeyOnHost
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	927	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	928
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	929	"Created: / 05-12-2018 / 12:41:06 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	930	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	931
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	932	testReadSubKeyNamesAndClassesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	933	"reading SubKeyNamesAndClasses with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	934	The path is suppassing the Microsoft limit - for more information see testReadSubKeyNamesAndClassesAtIndex_MaxPath_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	935
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	936	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	937
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	938	readData := OrderedDictionary new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	939	testingRegistryPath := Win32OperatingSystem registryEntry key:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	940	(registryPath,'\', ' ルすしか\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	941
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	942	testingRegistryPath subKeyNamesAndClassesDo: [ :name :className \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	943	readData at: name put: className.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	944	].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	945
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	946	self assert: readData notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	947	self assert: readData size = 2.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	948	self assert: (readData at: 'reachable') isEmpty. "/ the class is empty
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	949
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	950	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	951	self run:#testReadSubKeyNamesAndClassesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	952	self new testReadSubKeyNamesAndClassesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	953	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	954
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	955	"Created: / 05-12-2018 / 12:41:31 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	956	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	957
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	958	testReadSubKeysDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	959	"reading via subKeysDo (using subKeyAtIndex:) with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	960	The path is suppassing the Microsoft limit - for more information see testReadSubKeyAtIndex_MaxPath_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	961
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	962	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	963
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	964	readData := OrderedCollection new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	965	testingRegistryPath := Win32OperatingSystem registryEntry key:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	966	(registryPath,'\', ' ルすしか\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	967
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	968	testingRegistryPath subKeysDo: [ :subEntry \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	969	readData add: subEntry
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	970	].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	971
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	972	self assert: readData notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	973	self assert: readData size = 2.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	974	self assert: (readData first) path size = 563.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	975
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	976	readData := readData copy collect: [ :subEntry \| subEntry path copyAfterLast: $\ ].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	977
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	978	self assert: readData size = 2.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	979	self assert: (readData first endsWith: '\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	980	self assert: readData second = 'reachable'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	981
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	982	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	983	self run:#testReadSubKeysDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	984	self new testReadSubKeysDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	985	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	986
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	987	"Created: / 05-12-2018 / 12:41:49 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	988	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	989
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	990	testReadSubKeys_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	991	"reading via subKeys (using subKeyAtIndex:) with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	992	The path is suppassing the Microsoft limit - for more information see testReadSubKeyAtIndex_MaxPath_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	993
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	994	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	995
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	996	testingRegistryPath := Win32OperatingSystem registryEntry key:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	997	(registryPath,'\', ' ルすしか\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	998
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	999	readData := testingRegistryPath subKeys.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1000
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1001	self assert: readData notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1002	self assert: readData size = 2.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1003	self assert: (readData first) path size = 563.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1004
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1005	readData := readData copy collect: [ :subEntry \| subEntry path copyAfterLast: $\ ].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1006
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1007	self assert: readData size = 2.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1008	self assert: (readData first endsWith: '\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1009	self assert: readData second = 'reachable'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1010
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1011	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1012	self run:#testReadSubKeys_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1013	self new testReadSubKeys_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1014	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1015
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1016	"Created: / 05-12-2018 / 12:41:59 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1017	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1018
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1019	testReadValueNamesAndValuesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1020	"reading via #valueNamesAndValuesDo: (using #valueNameAtIndex:) with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1021	The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1022
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1023	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1024
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1025	readData := OrderedDictionary new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1026	testingRegistryPath := Win32OperatingSystem registryEntry key:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1027	(registryPath,'\', ' ルすしか\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1028
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1029	testingRegistryPath valueNamesAndValuesDo: [ :name :value \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1030	readData at: name put: value
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1031	].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1032
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1033	self assert: readData notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1034	self assert: readData size = 3.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1035	self assert: readData first = ('testing'->' ルすしか').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1036	self assert: (readData at: 'か')= 2.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1037	self assert: readData second = 2.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1038	self assert: (readData at: '256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end')
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1039	= 'Longer_than_256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|endsdfsdfasdfasdfasdfjlkasdjflkasjdflkjasdlfjaslkdfjlkasdjflkasdflksadlkjsadlfalsdfůlasdjflkasdjflkasjdflkůjasdflůkjasdlůfjalsůkdjflůksd'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1040	self assert: readData third = 'Longer_than_256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|endsdfsdfasdfasdfasdfjlkasdjflkasjdflkjasdlfjaslkdfjlkasdjflkasdflksadlkjsadlfalsdfůlasdjflkasdjflkasjdflkůjasdflůkjasdlůfjalsůkdjflůksd'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1041
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1042	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1043	self run:#testReadValueNamesAndValuesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1044	self new testReadValueNamesAndValuesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1045	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1046
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1047	"Created: / 05-12-2018 / 12:43:05 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1048	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1049
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1050	testReadValueNamesAndValuesDo_REG_SZ_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1051	"Testing if REG_SZ values are read correctly via valueNamesAndValuesDo:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1052
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1053	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1054
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1055	readData := OrderedDictionary new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1056	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1057
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1058	testingRegistryPath valueNamesAndValuesDo: [ :name :data \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1059	readData at: name put: data
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1060	].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1061
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1062	self assert: (readData at: 'bledesu') = '''Testing Unicode chars ř ž č ルすしかき''). '.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1063
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1064	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1065	self run:#testReadValueNamesAndValuesDo_REG_SZ_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1066	self new testReadValueNamesAndValuesDo_REG_SZ_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1067	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1068
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1069	"Created: / 16-11-2018 / 12:15:52 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1070	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1071
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1072	testReadValueNamesAndValuesDo_REG_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1073	"Testing if REG_SZ values are read correctly via valueNamesAndValuesDo:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1074
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1075	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1076
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1077	readData := OrderedDictionary new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1078	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1079
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1080	testingRegistryPath valueNamesAndValuesDo: [ :name :data \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1081	readData at: name put: data
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1082	].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1083
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1084	self assert: (readData at: ' ř ž č ル. ') = 'Testing Unicode chars ř ž č ルすしかき'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1085
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1086	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1087	self run:#testReadValueNamesAndValuesDo_REG_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1088	self new testReadValueNamesAndValuesDo_REG_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1089	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1090
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1091	"Created: / 05-12-2018 / 12:43:35 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1092	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1093
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1094	testReadValueNamesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1095	"reading via #valueNamesDo: (using #valueNameAtIndex:) with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1096	The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1097
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1098	\| readData readDataValue testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1099
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1100	readData := OrderedCollection new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1101	testingRegistryPath := Win32OperatingSystem registryEntry key:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1102	(registryPath,'\', ' ルすしか\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1103
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1104	testingRegistryPath valueNamesDo: [ :subEntry \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1105	readData add: subEntry
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1106	].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1107
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1108	self assert: readData notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1109	self assert: readData size = 3.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1110	self assert: readData first = 'testing'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1111	self assert: readData second = 'か'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1112	self assert: readData third = '256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1113
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1114	readDataValue := testingRegistryPath valueNamed: readData third.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1115
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1116	"/ MSDN limits: Value name 16,383 characters (@Windows 2000: 260 ANSI characters or 16,383 Unicode characters)
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1117	"/ the following tests 401 characters
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1118	self assert: readDataValue = 'Longer_than_256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|endsdfsdfasdfasdfasdfjlkasdjflkasjdflkjasdlfjaslkdfjlkasdjflkasdflksadlkjsadlfalsdfůlasdjflkasdjflkasjdflkůjasdflůkjasdlůfjalsůkdjflůksd'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1119	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1120	self run:#testReadValueNamesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1121	self new testReadValueNamesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1122	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1123
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1124	"Created: / 05-12-2018 / 12:43:49 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1125	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1126
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1127	testReadValueNames_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1128	"reading via #valueNames (using #valueNameAtIndex:) with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1129	The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1130
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1131	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1132
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1133	testingRegistryPath := Win32OperatingSystem registryEntry key:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1134	(registryPath,'\', ' ルすしか\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1135
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1136	readData := testingRegistryPath valueNames.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1137
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1138	self assert: readData isArray.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1139	self assert: readData notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1140	self assert: readData size = 3.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1141	self assert: readData first = 'testing'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1142	self assert: readData second = 'か'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1143	self assert: readData third = '256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1144
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1145	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1146	self run:#testReadValueNames_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1147	self new testReadValueNames_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1148	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1149
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1150	"Created: / 05-12-2018 / 12:44:16 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1151	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1152
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1153	testReadvalueNamesAndValuesDo_MaxPath_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1154	"reading via #valueNamesAndValuesDo: (using #valueNameAtIndex:) with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1155	The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1156
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1157	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1158
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1159	readData := OrderedDictionary new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1160	testingRegistryPath := Win32OperatingSystem registryEntry key:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1161	(registryPath,'\', ' ルすしか\256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1162
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1163	testingRegistryPath valueNamesAndValuesDo: [ :name :value \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1164	readData at: name put: value
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1165	].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1166
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1167	self assert: readData notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1168	self assert: readData size = 3.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1169	self assert: readData first = ('testing'->' ルすしか').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1170	self assert: (readData at: 'か')= 2.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1171	self assert: readData second = 2.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1172	self assert: (readData at: '256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|end')
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1173	= 'Longer_than_256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|endsdfsdfasdfasdfasdfjlkasdjflkasjdflkjasdlfjaslkdfjlkasdjflkasdflksadlkjsadlfalsdfůlasdjflkasdjflkasjdflkůjasdflůkjasdlůfjalsůkdjflůksd'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1174	self assert: readData third = 'Longer_than_256_chars_max_long\|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas\|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa\|endsdfsdfasdfasdfasdfjlkasdjflkasjdflkjasdlfjaslkdfjlkasdjflkasdflksadlkjsadlfalsdfůlasdjflkasdjflkasjdflkůjasdflůkjasdlůfjalsůkdjflůksd'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1175
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1176	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1177	self run:#testReadvalueNamesAndValuesDo_MaxPath_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1178	self new testReadvalueNamesAndValuesDo_MaxPath_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1179	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1180
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1181	"Created: / 22-11-2018 / 14:10:34 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1182	!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1183
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1184	testReadvalueNamesAndValuesDo_REG_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1185	"Testing if REG_SZ values are read correctly via valueNamesAndValuesDo:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1186
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1187	\| readData testingRegistryPath \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1188
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1189	readData := OrderedDictionary new.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1190	testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1191
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1192	testingRegistryPath valueNamesAndValuesDo: [ :name :data \|
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1193	readData at: name put: data
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1194	].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1195
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1196	self assert: (readData at: ' ř ž č ル. ') = 'Testing Unicode chars ř ž č ルすしかき'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1197
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1198	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1199	self run:#testReadvalueNamesAndValuesDo_REG_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1200	self new testReadvalueNamesAndValuesDo_REG_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1201	"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1202
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1203	"Created: / 16-11-2018 / 12:16:16 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1204	! !
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names Patrik Svestka <patrik.svestka@gmail.com> parents: 1977 diff changeset	1205
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1206	!Win32OperatingSystemTest class methodsFor:'documentation'!
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1207
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1208	version
21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1209	^ '$Header$'
1566 2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	1210	!
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	1211
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	1212	version_HG
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	1213
2ca58098256d Issue #109: Added tests for registry key creation / deletion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1500 diff changeset	1214	^ '$Changeset: <not expanded> $'
344 21c39da58029 * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	1215	! !
1161 3d9b4eaddcf3 category changes Claus Gittinger <cg@exept.de> parents: 675 diff changeset	1216

author	Patrik Svestka <patrik.svestka@gmail.com>
	Mon, 10 Dec 2018 15:49:08 +0100
branch	jv
changeset 2079	a63e63505b24
parent 2078	9d76442a61bb
child 2080	a27e62ccfc44
permissions	-rwxr-xr-x