--- a/RegressionTests__Win32OperatingSystemTest.st Fri Feb 01 16:12:13 2019 +0100
+++ b/RegressionTests__Win32OperatingSystemTest.st Mon Feb 11 17:23:02 2019 +0100
@@ -17,7 +17,7 @@
"{ NameSpace: RegressionTests }"
TestCase subclass:#Win32OperatingSystemTest
- instanceVariableNames:'registryPath'
+ instanceVariableNames:'registryPath windowsDetailsRegistryPath'
classVariableNames:''
poolDictionaries:''
category:'tests-Regression-RuntimeSystem'
@@ -372,328 +372,6 @@
"Created: / 16-11-2018 / 11:24:57 / svestkap"
"Modified: / 01-02-2019 / 13:08:58 / svestkap"
-!
-
-unicodeRegistryExample32bit
-
-^ 'Windows Registry Editor Version 5.00
-
-[HKEY_CURRENT_USER\Software\SmalltalkX-tests]
-@="しか OMG"
-"emptyToTest"=""
-"testEmptyMultiSZ"=hex(7):00,00
-"bledesu"="''Testing Unicode chars ř ž č ルすしかき''). "
-"しかき "="Testus gradus"
-" ř ž č ル. "="Testing Unicode chars ř ž č ルすしかき"
-"zero"=hex:
-"non-zero"=hex:11,10
-"す "=hex:10
-"dword_value"=dword:000023af
-"11"="A number name"
-"き"=dword:234234af
-"Font_Leelawadee UI Bold"=hex(7):53,00,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,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,2c,00,31,00,31,00,30,00,2c,00,38,00,32,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 62,00,6f,00,6c,00,00,00,00,00
-"ř ž č ルすしか"=hex(7):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 00,00,00,00,00
-"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,\
- 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,\
- 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,\
- 2e,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,00,00
-" č ルすしか"=hex(2):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,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,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,00,\
- 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,\
- 00
-[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか_empty]
-
-[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか]
-"bledesu"="''Testing Unicode chars ř ž č ルすしかき''). "
-"しかき "="Testus gradus"
-" ř ž č ル. "="Testing Unicode chars ř ž č ルすしかき"
-"zero"=hex:
-"non-zero"=hex:11,10
-"す "=hex:10
-"dword_value"=dword:000023af
-"き"=dword:234234af
-"Font_Leelawadee UI Bold"=hex(7):53,00,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,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,2c,00,31,00,31,00,30,00,2c,00,38,00,32,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 62,00,6f,00,6c,00,00,00,00,00
-"ř ž č ルすしか"=hex(7):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 00,00,00,00,00
-"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,\
- 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,\
- 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,\
- 2e,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,00,00
-" č ルすしか"=hex(2):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,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,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,00,\
- 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,\
- 00
-
-[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end]
-"testing"=" ルすしか"
-"か"=dword:00000002
-"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"
-
-[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]
-
-[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]
-
-[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end\reachable]
-
-[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか_testing_delete]
-
-[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか_testing_delete\ughu]
-"bledesu"="''Testing Unicode chars ř ž č ルすしかき''). "
-"しかき "="Testus gradus"
-" ř ž č ル. "="Testing Unicode chars ř ž č ルすしかき"
-"zero"=hex:
-"non-zero"=hex:11,10
-"す "=hex:10
-"dword_value"=dword:000023af
-"き"=dword:234234af
-"Font_Leelawadee UI Bold"=hex(7):53,00,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,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,2c,00,31,00,31,00,30,00,2c,00,38,00,32,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 62,00,6f,00,6c,00,00,00,00,00
-"ř ž č ルすしか"=hex(7):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 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,\
- 00,00,00,00,00
-"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,\
- 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,\
- 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,\
- 2e,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,00,00
-" č ルすしか"=hex(2):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,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,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,00,\
- 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,\
- 00
-[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか_testing_delete\zubr]
-
-[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか_testing_delete\reg-none]
-@=hex(0):
-
-[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか_testing_delete\bobr]
-
-[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか_testing_delete\bobr\boříččátka]
-'
-
- "Created: / 01-02-2019 / 15:17:59 / svestkap"
! !
!Win32OperatingSystemTest methodsFor:'release'!
@@ -702,10 +380,11 @@
| registryToImport file |
self skipIf: OperatingSystem isMSWINDOWSlike not description: 'Windows only tests (registry manipulation)'.
- super setUp.
-
- registryToImport := (OperatingSystem getSystemInfo at: #architecture) = #x64 ifTrue: [ self unicodeRegistryExample ]
- ifFalse: [ self unicodeRegistryExample32bit ].
+ super setUp.
+
+ windowsDetailsRegistryPath := 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion'.
+
+ registryToImport := self unicodeRegistryExample.
"/ registry path which will be used
registryPath := registryToImport
@@ -740,7 +419,7 @@
] ensure: [ file remove ].
"Created: / 28-12-2016 / 22:12:14 / jv"
- "Modified: / 01-02-2019 / 15:24:07 / svestkap"
+ "Modified: / 12-02-2019 / 14:34:52 / svestkap"
!
tearDown
@@ -838,7 +517,6 @@
"Testing if new subKey is created"
| readData testingRegistryPath readSubKeys subKeysCount |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -858,13 +536,13 @@
"
"Created: / 07-12-2018 / 15:30:55 / svestkap"
+ "Modified: / 12-02-2019 / 14:48:57 / svestkap"
!
testCreatingSubKeyNamed_02
"Testing if new subKey is created via createSubKeyNamed:"
| readData testingRegistryPath readSubKeys subKeysCount |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -884,15 +562,17 @@
"
"Created: / 07-12-2018 / 15:57:09 / svestkap"
+ "Modified: / 12-02-2019 / 14:48:53 / svestkap"
!
testCreatingSubKeyNamed_Wow64_32_01
"Testing if new subKey is created in Wow64_32 (32bit program reading 32bit registry)"
- | readData testingRegistryPath readSubKeys subKeysCount |
-
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
-
- readData := Unicode16String new.
+ | windowsVersion readData testingRegistryPath readSubKeys subKeysCount |
+
+ windowsVersion := Win32OperatingSystem registryEntry key: windowsDetailsRegistryPath.
+ self skipIf: (windowsVersion valueNamed: 'BuildLabEx') isNil description: 'Skipping test the registry key does not exist. Happens in some ancient Windows (XP)'.
+ self skipIf: ((windowsVersion valueNamed: 'BuildLabEx') includesString: 'x86') description: 'Skip test if on 32bit Windows (x86)'. "/ amd64 for x64 Windows
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -912,15 +592,17 @@
"
"Created: / 07-12-2018 / 15:58:24 / svestkap"
+ "Modified: / 12-02-2019 / 14:47:40 / svestkap"
!
testCreatingSubKeyNamed_Wow64_32_02
"Testing if new subKey is created in Wow64_32 (32bit program reading 32bit registry) via createSubKeyNamed:flags:"
- | readData testingRegistryPath readSubKeys subKeysCount |
-
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
-
- readData := Unicode16String new.
+ | windowsVersion readData testingRegistryPath readSubKeys subKeysCount |
+
+ windowsVersion := Win32OperatingSystem registryEntry key: windowsDetailsRegistryPath.
+ self skipIf: (windowsVersion valueNamed: 'BuildLabEx') isNil description: 'Skipping test the registry key does not exist. Happens in some ancient Windows (XP)'.
+ self skipIf: ((windowsVersion valueNamed: 'BuildLabEx') includesString: 'x86') description: 'Skip test if on 32bit Windows (x86)'. "/ amd64 for x64 Windows
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -940,15 +622,17 @@
"
"Created: / 07-12-2018 / 15:59:32 / svestkap"
+ "Modified: / 12-02-2019 / 14:47:57 / svestkap"
!
testCreatingSubKeyNamed_Wow64_64_01
"Testing if new subKey is created in Wow64_32 (32bit program reading 64bit registry)"
- | readData testingRegistryPath readSubKeys subKeysCount |
-
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
-
- readData := Unicode16String new.
+ | windowsVersion readData testingRegistryPath readSubKeys subKeysCount |
+
+ windowsVersion := Win32OperatingSystem registryEntry key: windowsDetailsRegistryPath.
+ self skipIf: (windowsVersion valueNamed: 'BuildLabEx') isNil description: 'Skipping test the registry key does not exist. Happens in some ancient Windows (XP)'.
+ self skipIf: ((windowsVersion valueNamed: 'BuildLabEx') includesString: 'x86') description: 'Skip test if on 32bit Windows (x86)'. "/ amd64 for x64 Windows
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -968,15 +652,17 @@
"
"Created: / 07-12-2018 / 15:58:38 / svestkap"
+ "Modified: / 12-02-2019 / 14:48:17 / svestkap"
!
testCreatingSubKeyNamed_Wow64_64_02
"Testing if new subKey is created in Wow64_32 (32bit program reading 64bit registry) via createSubKeyNamed:flags:"
- | readData testingRegistryPath readSubKeys subKeysCount |
-
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
-
- readData := Unicode16String new.
+ | windowsVersion readData testingRegistryPath readSubKeys subKeysCount |
+
+ windowsVersion := Win32OperatingSystem registryEntry key: windowsDetailsRegistryPath.
+ self skipIf: (windowsVersion valueNamed: 'BuildLabEx') isNil description: 'Skipping test the registry key does not exist. Happens in some ancient Windows (XP)'.
+ self skipIf: ((windowsVersion valueNamed: 'BuildLabEx') includesString: 'x86') description: 'Skip test if on 32bit Windows (x86)'. "/ amd64 for x64 Windows
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -996,6 +682,7 @@
"
"Created: / 07-12-2018 / 15:59:50 / svestkap"
+ "Modified: / 12-02-2019 / 14:48:41 / svestkap"
! !
!Win32OperatingSystemTest methodsFor:'tests-UnicodeOpen'!
@@ -1003,8 +690,7 @@
testOpenSubKeyNamed_01
"Testing if an old subKey is opened"
| readData testingRegistryPath readSubKeys subKeysCount |
-
- readData := Unicode16String new.
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -1022,13 +708,13 @@
"
"Created: / 07-12-2018 / 15:34:21 / svestkap"
+ "Modified: / 12-02-2019 / 14:49:06 / svestkap"
!
testOpenSubKeyNamed_02
"Testing if an old subKey is opened"
| readData testingRegistryPath readSubKeys subKeysCount |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -1046,13 +732,13 @@
"
"Created: / 07-12-2018 / 15:36:27 / svestkap"
+ "Modified: / 12-02-2019 / 14:49:10 / svestkap"
!
testOpenSubKeyNamed_03
"Testing if an old subKey is opened via subKeyNamed:"
| readData testingRegistryPath readSubKeys subKeysCount |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -1070,13 +756,13 @@
"
"Created: / 07-12-2018 / 15:47:59 / svestkap"
+ "Modified: / 12-02-2019 / 14:49:15 / svestkap"
!
testOpenSubKeyNamed_04
"Testing if an old subKey is opened via subKeyNamed:createIfAbsent:"
| readData testingRegistryPath readSubKeys subKeysCount |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -1094,6 +780,7 @@
"
"Created: / 07-12-2018 / 15:51:52 / svestkap"
+ "Modified: / 12-02-2019 / 14:49:20 / svestkap"
!
testOpenSubKeyNamed_05
@@ -1120,11 +807,12 @@
testOpenSubKeyNamed_Wow64_32_01
"Testing if an old subKey is opened in Wow64_32 (32bit program reading 32bit registry)"
- | readData testingRegistryPath readSubKeys subKeysCount |
+ | windowsVersion readData testingRegistryPath readSubKeys subKeysCount |
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
-
- readData := Unicode16String new.
+ windowsVersion := Win32OperatingSystem registryEntry key: windowsDetailsRegistryPath.
+ self skipIf: (windowsVersion valueNamed: 'BuildLabEx') isNil description: 'Skipping test the registry key does not exist. Happens in some ancient Windows (XP)'.
+ self skipIf: ((windowsVersion valueNamed: 'BuildLabEx') includesString: 'x86') description: 'Skip test if on 32bit Windows (x86)'. "/ amd64 for x64 Windows
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -1142,15 +830,17 @@
"
"Created: / 07-12-2018 / 15:53:04 / svestkap"
+ "Modified: / 12-02-2019 / 14:47:03 / svestkap"
!
testOpenSubKeyNamed_Wow64_32_02
"Testing if an old subKey is opened in Wow64_32 (32bit program reading 32bit registry) via subKeyNamed:flags:"
- | readData testingRegistryPath readSubKeys subKeysCount |
+ | windowsVersion readData testingRegistryPath readSubKeys subKeysCount |
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
-
- readData := Unicode16String new.
+ windowsVersion := Win32OperatingSystem registryEntry key: windowsDetailsRegistryPath.
+ self skipIf: (windowsVersion valueNamed: 'BuildLabEx') isNil description: 'Skipping test the registry key does not exist. Happens in some ancient Windows (XP)'.
+ self skipIf: ((windowsVersion valueNamed: 'BuildLabEx') includesString: 'x86') description: 'Skip test if on 32bit Windows (x86)'. "/ amd64 for x64 Windows
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -1168,15 +858,17 @@
"
"Created: / 07-12-2018 / 15:54:31 / svestkap"
+ "Modified: / 12-02-2019 / 14:47:06 / svestkap"
!
testOpenSubKeyNamed_Wow64_64_01
"Testing if an old subKey is opened in Wow64_64 (32bit program reading 64bit registry)"
- | readData testingRegistryPath readSubKeys subKeysCount |
-
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
-
- readData := Unicode16String new.
+ | windowsVersion readData testingRegistryPath readSubKeys subKeysCount |
+
+ windowsVersion := Win32OperatingSystem registryEntry key: windowsDetailsRegistryPath.
+ self skipIf: (windowsVersion valueNamed: 'BuildLabEx') isNil description: 'Skipping test the registry key does not exist. Happens in some ancient Windows (XP)'.
+ self skipIf: ((windowsVersion valueNamed: 'BuildLabEx') includesString: 'x86') description: 'Skip test if on 32bit Windows (x86)'. "/ amd64 for x64 Windows
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -1194,15 +886,17 @@
"
"Created: / 07-12-2018 / 15:53:34 / svestkap"
+ "Modified: / 12-02-2019 / 14:47:09 / svestkap"
!
testOpenSubKeyNamed_Wow64_64_02
"Testing if an old subKey is opened in Wow64_64 (32bit program reading 64bit registry) via subKeyNamed:flags:"
- | readData testingRegistryPath readSubKeys subKeysCount |
+ | windowsVersion readData testingRegistryPath readSubKeys subKeysCount |
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
-
- readData := Unicode16String new.
+ windowsVersion := Win32OperatingSystem registryEntry key: windowsDetailsRegistryPath.
+ self skipIf: (windowsVersion valueNamed: 'BuildLabEx') isNil description: 'Skipping test the registry key does not exist. Happens in some ancient Windows (XP)'.
+ self skipIf: ((windowsVersion valueNamed: 'BuildLabEx') includesString: 'x86') description: 'Skip test if on 32bit Windows (x86)'. "/ amd64 for x64 Windows
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -1220,15 +914,17 @@
"
"Created: / 07-12-2018 / 15:55:07 / svestkap"
+ "Modified: / 12-02-2019 / 14:47:13 / svestkap"
!
testOpenSubKeyNamed_nonExistingWow64_32
"Trying to read non-existing subKey in Wow64_32 (32bit program reading 32bit registry)"
- | readData testingRegistryPath readSubKeys subKeysCount |
+ | windowsVersion readData testingRegistryPath readSubKeys subKeysCount |
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
-
- readData := Unicode16String new.
+ windowsVersion := Win32OperatingSystem registryEntry key: windowsDetailsRegistryPath.
+ self skipIf: (windowsVersion valueNamed: 'BuildLabEx') isNil description: 'Skipping test the registry key does not exist. Happens in some ancient Windows (XP)'.
+ self skipIf: ((windowsVersion valueNamed: 'BuildLabEx') includesString: 'x86') description: 'Skip test if on 32bit Windows (x86)'. "/ amd64 for x64 Windows
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -1246,15 +942,17 @@
"
"Created: / 07-12-2018 / 15:44:52 / svestkap"
+ "Modified: / 12-02-2019 / 14:47:17 / svestkap"
!
testOpenSubKeyNamed_nonExistingWow64_64
"Trying to read non-existing subKey in Wow64_32 (32bit program reading 64bit registry)"
- | readData testingRegistryPath readSubKeys subKeysCount |
+ | windowsVersion readData testingRegistryPath readSubKeys subKeysCount |
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
-
- readData := Unicode16String new.
+ windowsVersion := Win32OperatingSystem registryEntry key: windowsDetailsRegistryPath.
+ self skipIf: (windowsVersion valueNamed: 'BuildLabEx') isNil description: 'Skipping test the registry key does not exist. Happens in some ancient Windows (XP)'.
+ self skipIf: ((windowsVersion valueNamed: 'BuildLabEx') includesString: 'x86') description: 'Skip test if on 32bit Windows (x86)'. "/ amd64 for x64 Windows
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -1272,13 +970,13 @@
"
"Created: / 07-12-2018 / 15:45:42 / svestkap"
+ "Modified: / 12-02-2019 / 14:47:21 / svestkap"
!
testOpenSubKeyNamed_nonExisting_01
"Trying to read non-existing subKey via subKeyNamed:flags:createIfAbsent:"
| readData testingRegistryPath readSubKeys subKeysCount |
-
- readData := Unicode16String new.
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -1295,14 +993,13 @@
"
"Created: / 07-12-2018 / 15:50:18 / svestkap"
- "Modified (comment): / 01-02-2019 / 15:06:05 / svestkap"
+ "Modified: / 12-02-2019 / 14:49:32 / svestkap"
!
testOpenSubKeyNamed_nonExisting_02
"Trying to read non-existing subKey via subKeyNamed:"
| readData testingRegistryPath readSubKeys subKeysCount |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readSubKeys := testingRegistryPath subKeys.
subKeysCount := readSubKeys size.
@@ -1319,7 +1016,7 @@
"
"Created: / 07-12-2018 / 15:50:48 / svestkap"
- "Modified (format): / 01-02-2019 / 15:05:45 / svestkap"
+ "Modified: / 12-02-2019 / 14:49:36 / svestkap"
! !
!Win32OperatingSystemTest methodsFor:'tests-unicodeDelete'!
@@ -1365,34 +1062,36 @@
testDeleteSubKeyNamed_Wow64_32
"Testing deleting of empty subKey via deleteSubKeyNamed: (only on x64 systems)
Wow subsystem enables running 32bit applications on 64bit windows"
- | returnValue testingRegistryPath |
-
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
-
- testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-
+ | windowsVersion returnValue testingRegistryPath |
+
+ windowsVersion := Win32OperatingSystem registryEntry key: windowsDetailsRegistryPath.
+ self skipIf: (windowsVersion valueNamed: 'BuildLabEx') isNil description: 'Skipping test the registry key does not exist. Happens in some ancient Windows (XP)'.
+ self skipIf: ((windowsVersion valueNamed: 'BuildLabEx') includesString: 'x86') description: 'Skip test if on 32bit Windows (x86)'. "/ amd64 for x64 Windows
+
+ testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
"/ if successfully deteted -> true
returnValue := testingRegistryPath deleteSubKeyNamed: ' ルすしか_empty' flags:#KEY_WOW64_32KEY.
self assert: returnValue
-
+
"
self run:#testDeleteSubKeyNamed_Wow64_32
self new testDeleteSubKeyNamed_Wow64_32
"
"Created: / 07-12-2018 / 14:56:39 / svestkap"
- "Modified (comment): / 01-02-2019 / 15:00:17 / svestkap"
+ "Modified: / 12-02-2019 / 14:47:25 / svestkap"
!
testDeleteSubKeyNamed_Wow64_64
"Testing deleting of empty subKey via deleteSubKeyNamed: (only on x64 systems)
Wow subsystem enables running 32bit applications on 64bit windows"
- | returnValue testingRegistryPath |
+ | windowsVersion returnValue testingRegistryPath |
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
-
- testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-
+ windowsVersion := Win32OperatingSystem registryEntry key: windowsDetailsRegistryPath.
+ self skipIf: (windowsVersion valueNamed: 'BuildLabEx') isNil description: 'Skipping test the registry key does not exist. Happens in some ancient Windows (XP)'.
+ self skipIf: ((windowsVersion valueNamed: 'BuildLabEx') includesString: 'x86') description: 'Skip test if on 32bit Windows (x86)'. "/ amd64 for x64 Windows
+
+ testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
"/ if successfully deteted -> true
returnValue := testingRegistryPath deleteSubKeyNamed: ' ルすしか_empty' flags:#KEY_WOW64_64KEY.
self assert: returnValue
@@ -1403,13 +1102,13 @@
"
"Created: / 07-12-2018 / 14:55:03 / svestkap"
+ "Modified: / 12-02-2019 / 14:47:30 / svestkap"
!
testDeleteValueNamed_REG_BINARY
"Testing if REG_BINARY value name is correctly deleted via deleteValueNamed:"
| readData testingRegistryPath registryValueName deleteResult |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
registryValueName := 'non-zero'.
@@ -1428,15 +1127,13 @@
"
"Created: / 06-12-2018 / 13:56:35 / svestkap"
- "Modified: / 07-12-2018 / 09:50:41 / svestkap"
- "Modified (format): / 01-02-2019 / 15:00:42 / svestkap"
+ "Modified: / 12-02-2019 / 14:49:58 / svestkap"
!
testDeleteValueNamed_REG_DWORD
"Testing if REG_DWORD value name is correctly deleted via deleteValueNamed:"
| readData testingRegistryPath registryValueName deleteResult |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
registryValueName := 'dword_value'.
@@ -1455,15 +1152,13 @@
"
"Created: / 06-12-2018 / 09:09:24 / svestkap"
- "Modified: / 06-12-2018 / 13:59:57 / svestkap"
- "Modified (format): / 01-02-2019 / 15:00:56 / svestkap"
+ "Modified: / 12-02-2019 / 14:50:03 / svestkap"
!
testDeleteValueNamed_REG_EXPAND_SZ
"Testing if REG_EXPAND_SZ value name is correctly deleted via deleteValueNamed:"
| readData testingRegistryPath registryValueName deleteResult |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
registryValueName := ' č ルすしか'.
@@ -1482,16 +1177,13 @@
"
"Created: / 06-12-2018 / 13:54:53 / svestkap"
- "Modified (format): / 01-02-2019 / 15:01:09 / svestkap"
+ "Modified: / 12-02-2019 / 14:50:06 / svestkap"
!
testDeleteValueNamed_REG_QWORD
"Testing if REG_QWORD value name is correctly deleted via deleteValueNamed:"
- | readData testingRegistryPath registryValueName deleteResult |
-
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
-
- readData := Unicode16String new.
+ | readData testingRegistryPath registryValueName deleteResult |
+
testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
registryValueName := 'qword_max'.
@@ -1510,14 +1202,13 @@
"
"Created: / 06-12-2018 / 13:55:46 / svestkap"
- "Modified: / 01-02-2019 / 15:23:41 / svestkap"
+ "Modified: / 11-02-2019 / 13:56:54 / svestkap"
!
testDeleteValueNamed_REG_SZ_01
"Testing if REG_SZ value name is correctly deleted via deleteValueNamed:"
| readData testingRegistryPath registryValueName deleteResult |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
registryValueName := ' ř ž č ル. '.
@@ -1536,14 +1227,13 @@
"
"Created: / 30-01-2019 / 15:23:27 / svestkap"
- "Modified (format): / 01-02-2019 / 15:01:23 / svestkap"
+ "Modified: / 12-02-2019 / 14:50:11 / svestkap"
!
testDeleteValueNamed_REG_SZ_02
"Testing if REG_SZ value name is correctly deleted via deleteValueNamed:"
| readData testingRegistryPath registryValueName |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
registryValueName := ' ř ž č ル. '.
@@ -1560,14 +1250,13 @@
"
"Created: / 30-01-2019 / 15:23:10 / svestkap"
- "Modified (format): / 01-02-2019 / 15:01:30 / svestkap"
+ "Modified: / 12-02-2019 / 14:50:15 / svestkap"
!
testDeleteValueNamed_defaultValue_01
"Testing if (Default) value gets correctly deleted via deleteValueNamed:"
| readData registryValueName testingRegistryPath deleteResult|
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
registryValueName := ''.
@@ -1587,14 +1276,13 @@
"
"Created: / 06-12-2018 / 14:04:16 / svestkap"
- "Modified (format): / 01-02-2019 / 15:01:34 / svestkap"
+ "Modified: / 12-02-2019 / 14:50:19 / svestkap"
!
testDeleteValueNamed_defaultValue_02
"Testing if deleting (Default) empty gets false via deleteValueNamed:"
| readData registryValueName testingRegistryPath deleteResult|
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
registryValueName := ''.
@@ -1610,7 +1298,7 @@
"
"Created: / 06-12-2018 / 14:01:38 / svestkap"
- "Modified (format): / 01-02-2019 / 15:01:39 / svestkap"
+ "Modified: / 12-02-2019 / 14:50:22 / svestkap"
!
testDeleteValueNamed_nonStringValue
@@ -1637,7 +1325,7 @@
"Testing deleting whole tree of subKeys based on subKey path size via deleteSubKeyNamed:"
| readData returnValue testingRegistryPath |
- readData := OrderedDictionary new.
+ readData := OrderedDictionary new.
testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか_testing_delete').
testingRegistryPath allSubKeysDo: [ :subEntry |
@@ -1671,7 +1359,7 @@
"
"Created: / 07-12-2018 / 10:54:34 / svestkap"
- "Modified (comment): / 01-02-2019 / 14:59:37 / svestkap"
+ "Modified: / 12-02-2019 / 14:50:55 / svestkap"
! !
!Win32OperatingSystemTest methodsFor:'tests-unicodeRead'!
@@ -1681,9 +1369,7 @@
WARNING: subKeyAtIndex: is zero based!!!!!!"
| readData testingRegistryPath |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-
readData := testingRegistryPath subKeyAtIndex: 0.
self assert: readData notEmptyOrNil.
@@ -1695,17 +1381,15 @@
"
"Created: / 11-12-2018 / 14:51:12 / svestkap"
- "Modified (format): / 01-02-2019 / 13:24:43 / svestkap"
+ "Modified (format): / 12-02-2019 / 14:51:43 / svestkap"
!
testReadSubKeyAtIndex_02
"Reading subKeys at certain index - reading non-existent subKey
WARNING: subKeyAtIndex: is zero based!!!!!!"
| readData testingRegistryPath |
-
- readData := Unicode16String new.
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-
readData := testingRegistryPath subKeyAtIndex: 10.
self assert: readData isNil
@@ -1716,7 +1400,7 @@
"
"Created: / 11-12-2018 / 14:49:03 / svestkap"
- "Modified (format): / 01-02-2019 / 13:24:48 / svestkap"
+ "Modified (format): / 12-02-2019 / 14:51:39 / svestkap"
!
testReadSubKeyAtIndex_03
@@ -1761,7 +1445,6 @@
MSDN link: https://docs.microsoft.com/en-us/windows/desktop/sysinfo/registry-element-size-limits"
| readData testingRegistryPath |
- "/readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key:
(registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').
@@ -1779,14 +1462,13 @@
"
"Created: / 05-12-2018 / 12:39:54 / svestkap"
- "Modified (comment): / 01-02-2019 / 15:49:05 / svestkap"
+ "Modified (format): / 12-02-2019 / 14:51:51 / svestkap"
!
testReadSubKeyNamesAndClassesAtIndex_01
"Reading SubKeyNamesAndClasses - reading non-existent subKey"
| readData testingRegistryPath |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key:
(registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').
@@ -1799,7 +1481,7 @@
"
"Created: / 11-12-2018 / 14:49:48 / svestkap"
- "Modified (comment): / 01-02-2019 / 15:48:57 / svestkap"
+ "Modified: / 12-02-2019 / 14:51:56 / svestkap"
!
testReadSubKeyNamesAndClassesAtIndex_02
@@ -1846,7 +1528,6 @@
MSDN link: https://docs.microsoft.com/en-us/windows/desktop/sysinfo/registry-element-size-limits"
| readData testingRegistryPath |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key:
(registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').
@@ -1865,7 +1546,7 @@
"
"Created: / 05-12-2018 / 12:40:08 / svestkap"
- "Modified (comment): / 01-02-2019 / 15:49:18 / svestkap"
+ "Modified: / 12-02-2019 / 14:52:06 / svestkap"
!
testReadTooLongPath
@@ -1894,9 +1575,7 @@
MSDN link: https://docs.microsoft.com/en-us/windows/desktop/sysinfo/registry-element-size-limits"
| readData testingRegistryPath |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath,'\', ' ルすしか').
-
readData := testingRegistryPath valueNameAtIndex: 1.
self assert: readData notEmptyOrNil.
@@ -1908,16 +1587,14 @@
"
"Created: / 11-12-2018 / 14:54:37 / svestkap"
- "Modified (comment): / 01-02-2019 / 14:58:25 / svestkap"
+ "Modified: / 12-02-2019 / 14:52:19 / svestkap"
!
testReadValueNameAtIndex_02
"Reading values (#valueNameAtIndex:) at certain index - non-existent value"
| readData testingRegistryPath |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath,'\', ' ルすしか').
-
readData := testingRegistryPath valueNameAtIndex: 100.
self assert: readData isNil
@@ -1928,7 +1605,7 @@
"
"Created: / 11-12-2018 / 14:54:29 / svestkap"
- "Modified (format): / 01-02-2019 / 13:25:19 / svestkap"
+ "Modified: / 12-02-2019 / 14:52:25 / svestkap"
!
testReadValueNameAtIndex_03
@@ -2010,10 +1687,8 @@
testReadValueNamed_REG_DWORD_01
"Testing if REG_DWORD values are read correctly via valueNamed:"
| readData testingRegistryPath |
-
- readData := Unicode16String new.
- testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-
+
+ testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readData := testingRegistryPath valueNamed: 'dword_value'.
self assert: readData = 9135.
@@ -2024,16 +1699,14 @@
"
"Created: / 16-11-2018 / 12:24:26 / svestkap"
- "Modified (format): / 01-02-2019 / 13:28:26 / svestkap"
+ "Modified: / 12-02-2019 / 14:52:58 / svestkap"
!
testReadValueNamed_REG_DWORD_02
"Testing if REG_DWORD values are read correctly via valueNamed:"
| readData testingRegistryPath |
-
- readData := Unicode16String new.
- testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-
+
+ testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readData := testingRegistryPath valueNamed: 'き'.
self assert: readData = 591541423.
@@ -2044,16 +1717,14 @@
"
"Created: / 16-11-2018 / 12:24:43 / svestkap"
- "Modified (format): / 01-02-2019 / 13:28:30 / svestkap"
+ "Modified: / 12-02-2019 / 14:53:05 / svestkap"
!
testReadValueNamed_REG_EXPAND_SZ_01
"Testing if REG_EXPAND_SZ values are read correctly via valueNamed:"
| readData testingRegistryPath |
- readData := Unicode16String new.
- testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-
+ testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readData := testingRegistryPath valueNamed: ' č ルすしか'.
self assert: readData = '''Testing Unicode chars ř ž č ルすしかき''). '.
@@ -2064,16 +1735,14 @@
"
"Created: / 16-11-2018 / 12:27:58 / svestkap"
- "Modified (format): / 01-02-2019 / 13:28:38 / svestkap"
+ "Modified: / 12-02-2019 / 14:53:11 / svestkap"
!
testReadValueNamed_REG_EXPAND_SZ_02
"Testing if REG_EXPAND_SZ values are read correctly via valueNamed:"
| readData testingRegistryPath |
- readData := Unicode16String new.
- testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-
+ testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readData := testingRegistryPath valueNamed: 'Ugh'.
self assert: readData = '''Testing Unicode chars ř ž č ルすしかき''). '.
@@ -2084,7 +1753,7 @@
"
"Created: / 16-11-2018 / 12:29:52 / svestkap"
- "Modified (format): / 01-02-2019 / 13:28:42 / svestkap"
+ "Modified: / 12-02-2019 / 14:53:16 / svestkap"
!
testReadValueNamed_REG_MULTI_SZ_01
@@ -2154,13 +1823,9 @@
testReadValueNamed_REG_QWORD_01
"Testing if REG_QWORD values are read correctly via valueNamed:.
The read value is a QWORD maximum value"
- | readData testingRegistryPath |
-
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
+ | readData testingRegistryPath |
- readData := Unicode16String new.
- testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-
+ testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readData := testingRegistryPath valueNamed: 'qword_max'.
self assert: readData = 18446744073709551615.
@@ -2171,18 +1836,14 @@
"
"Created: / 16-11-2018 / 12:25:47 / svestkap"
- "Modified: / 01-02-2019 / 15:14:01 / svestkap"
+ "Modified: / 11-02-2019 / 13:46:18 / svestkap"
!
testReadValueNamed_REG_QWORD_02
"Testing if REG_QWORD values are read correctly via valueNamed:"
- | readData testingRegistryPath |
-
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
+ | readData testingRegistryPath |
- readData := Unicode16String new.
- testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-
+ testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readData := testingRegistryPath valueNamed: 'qwordvalue'.
self assert: readData = 8751636011737964973.
@@ -2193,38 +1854,37 @@
"
"Created: / 16-11-2018 / 12:26:23 / svestkap"
- "Modified: / 01-02-2019 / 15:14:06 / svestkap"
+ "Modified: / 11-02-2019 / 13:46:07 / svestkap"
!
testReadValueNamed_REG_QWORD_03
"Testing if REG_QWORD values are read correctly via valueNamed:"
- | readData testingRegistryPath |
-
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
+ | readData testingRegistryPath |
+
+ testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+ readData := testingRegistryPath valueNamed: 'すし'.
- readData := Unicode16String new.
- testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-
- readData := testingRegistryPath valueNamed: 'すし'.
-
- self assert: readData asSmallInteger = 44527.
-
+ "/ normalize if LargeInteger
+ readData class == LargeInteger ifTrue: [
+ readData := readData copy compressed
+ ].
+
+ self assert: readData = 44527.
+
"
self run:#testReadValueNamed_REG_QWORD_03
self new testReadValueNamed_REG_QWORD_03
"
"Created: / 16-11-2018 / 12:27:17 / svestkap"
- "Modified: / 01-02-2019 / 15:14:11 / svestkap"
+ "Modified (format): / 11-02-2019 / 14:17:28 / svestkap"
!
testReadValueNamed_REG_SZ_01
"Testing if REG_SZ values are read correctly via valueNamed:"
| readData testingRegistryPath |
- readData := Unicode16String new.
- testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-
+ testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readData := testingRegistryPath valueNamed: 'bledesu'.
self assert: readData = '''Testing Unicode chars ř ž č ルすしかき''). '.
@@ -2235,16 +1895,14 @@
"
"Created: / 16-11-2018 / 12:14:59 / svestkap"
- "Modified (format): / 01-02-2019 / 13:29:53 / svestkap"
+ "Modified: / 12-02-2019 / 14:53:38 / svestkap"
!
testReadValueNamed_REG_SZ_02
"Testing if REG_SZ values are read correctly via valueNamed:"
| readData testingRegistryPath |
- readData := Unicode16String new.
- testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-
+ testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readData := testingRegistryPath valueNamed: ' ř ž č ル. '.
self assert: readData = 'Testing Unicode chars ř ž č ルすしかき'.
@@ -2255,16 +1913,14 @@
"
"Created: / 16-11-2018 / 12:15:17 / svestkap"
- "Modified (format): / 01-02-2019 / 13:29:56 / svestkap"
+ "Modified: / 12-02-2019 / 14:53:44 / svestkap"
!
testReadValueNamed_REG_SZ_03
"Testing if REG_SZ values are read correctly via valueNamed:"
| readData testingRegistryPath |
- readData := Unicode16String new.
- testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-
+ testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readData := testingRegistryPath valueNamed: 'しかき '.
self assert: readData = 'Testus gradus'.
@@ -2275,16 +1931,14 @@
"
"Created: / 16-11-2018 / 12:21:59 / svestkap"
- "Modified (format): / 01-02-2019 / 13:30:00 / svestkap"
+ "Modified: / 12-02-2019 / 14:53:51 / svestkap"
!
testReadValueNamed_REG_SZ_04
"Testing if empty REG_SZ value is read correctly via valueNamed:"
| readData testingRegistryPath |
- readData := Unicode16String new.
- testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-
+ testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
readData := testingRegistryPath valueNamed: 'emptyToTest'.
self assert: readData isEmpty.
@@ -2295,7 +1949,7 @@
"
"Created: / 03-12-2018 / 10:56:11 / svestkap"
- "Modified (format): / 01-02-2019 / 13:30:45 / svestkap"
+ "Modified: / 12-02-2019 / 14:53:56 / svestkap"
!
testReadValueNamed_nonStringValue
@@ -2447,9 +2101,7 @@
testValueTypeAndSize_REG_QWORD_01
"Testing if #REG_QWORD type returns correct size in bytes"
- | testingData testingRegistryType testingRegistryPath readData |
-
- self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
+ | testingData testingRegistryType testingRegistryPath readData |
testingData := Dictionary new.
testingRegistryType := #REG_QWORD.
@@ -2467,7 +2119,7 @@
"
"Created: / 31-01-2019 / 16:12:21 / svestkap"
- "Modified (comment): / 01-02-2019 / 15:11:57 / svestkap"
+ "Modified: / 11-02-2019 / 13:48:32 / svestkap"
!
testValueTypeAndSize_REG_SZ_01
@@ -3065,8 +2717,7 @@
testWriteValueNamedPut_REG_DWORD_01
"Testing if REG_DWORD values are written correctly via valueNamed:put:"
| readData testingRegistryPath |
-
- readData := Integer new.
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: 'dword_value' put: 7337.
readData := testingRegistryPath valueNamed: 'dword_value'.
@@ -3079,15 +2730,13 @@
"
"Created: / 05-12-2018 / 11:35:52 / svestkap"
- "Modified: / 07-12-2018 / 15:13:18 / svestkap"
- "Modified (format): / 01-02-2019 / 13:56:59 / svestkap"
+ "Modified: / 12-02-2019 / 14:54:58 / svestkap"
!
testWriteValueNamedPut_REG_DWORD_02
"Testing if max DWORD is accepted as REG_DWORD (written correctly via valueNamed:put:)"
| readData testingRegistryPath |
- readData := Integer new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
"/ max DWORD value 0xffffffff -> 4294967295 (which is on x64 SmallInteger)
testingRegistryPath valueNamed: 'dword_value' put: 4294967295.
@@ -3101,8 +2750,7 @@
"
"Created: / 05-12-2018 / 11:36:00 / svestkap"
- "Modified: / 07-12-2018 / 15:13:42 / svestkap"
- "Modified (format): / 01-02-2019 / 13:57:02 / svestkap"
+ "Modified: / 12-02-2019 / 14:55:03 / svestkap"
!
testWriteValueNamedPut_REG_DWORD_03
@@ -3110,7 +2758,6 @@
Data is written and read back again."
| readData testingRegistryPath |
- readData := Integer new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: '11' put: 7337.
readData := testingRegistryPath valueNamed: '11'.
@@ -3123,15 +2770,14 @@
"
"Created: / 05-12-2018 / 11:35:36 / svestkap"
- "Modified (format): / 01-02-2019 / 13:57:05 / svestkap"
+ "Modified: / 12-02-2019 / 14:55:08 / svestkap"
!
testWriteValueNamedPut_REG_DWORD_04
"Testing if REG_DWORD values are written correctly via valueNamed:put:
Data is written and read back again."
| readData testingRegistryPath |
-
- readData := Integer new.
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: '11' put: 7337.
readData := testingRegistryPath valueNamed: '11'.
@@ -3144,7 +2790,7 @@
"
"Created: / 05-12-2018 / 11:39:00 / svestkap"
- "Modified (format): / 01-02-2019 / 13:57:09 / svestkap"
+ "Modified: / 12-02-2019 / 14:55:14 / svestkap"
!
testWriteValueNamedPut_REG_DWORD_05
@@ -3170,8 +2816,7 @@
Data is written and read back again."
| readData testingRegistryPath |
-
- readData := Integer new.
+
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: '374657654ル' put: 7337.
readData := testingRegistryPath valueNamed: '374657654ル'.
@@ -3184,13 +2829,13 @@
"
"Created: / 07-12-2018 / 15:10:24 / svestkap"
+ "Modified: / 12-02-2019 / 14:55:23 / svestkap"
!
testWriteValueNamedPut_REG_DWORD_07
"Testing if REG_DWORD values are written correctly via valueNamed:put: with registry type and size check"
| readData testingRegistryPath registryType endianness |
- readData := Integer new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
"/ checking registry type and size
@@ -3225,7 +2870,7 @@
"
"Created: / 12-12-2018 / 12:13:53 / svestkap"
- "Modified (format): / 01-02-2019 / 14:10:04 / svestkap"
+ "Modified: / 12-02-2019 / 14:55:30 / svestkap"
!
testWriteValueNamedPut_REG_EXPAND_SZ_01
@@ -3233,7 +2878,6 @@
Data is written and read back again."
| readData testingRegistryPath |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: 'bledesu' put: '"%PATH%"' unexpandedReferences: true.
readData := testingRegistryPath valueNamed: 'bledesu'.
@@ -3246,7 +2890,7 @@
"
"Created: / 07-12-2018 / 15:08:50 / svestkap"
- "Modified (format): / 01-02-2019 / 14:29:14 / svestkap"
+ "Modified: / 12-02-2019 / 14:55:35 / svestkap"
!
testWriteValueNamedPut_REG_EXPAND_SZ_02
@@ -3254,7 +2898,6 @@
Data is written and read back again."
| readData testingRegistryPath |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: 'Yooooル' put: '"%PATH%"' unexpandedReferences: true.
readData := testingRegistryPath valueNamed: 'Yooooル'.
@@ -3267,16 +2910,14 @@
"
"Created: / 07-12-2018 / 15:09:14 / svestkap"
- "Modified (format): / 01-02-2019 / 14:29:20 / svestkap"
+ "Modified: / 12-02-2019 / 14:55:38 / svestkap"
!
testWriteValueNamedPut_REG_EXPAND_SZ_03
"Testing if new REG_EXPAND_SZ value name is written correctly via valueNamed:put: with registry type and size check
Data is written and read back again."
-
| readData testingRegistryPath registryType |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: 'Yooooル' put: '"%PATH%"' unexpandedReferences: true.
@@ -3293,6 +2934,7 @@
"
"Created: / 12-12-2018 / 12:41:44 / svestkap"
+ "Modified (format): / 12-02-2019 / 14:55:44 / svestkap"
!
testWriteValueNamedPut_REG_EXPAND_SZ_04
@@ -3300,7 +2942,6 @@
Data is written and read back again (notice the registry type change #REG_SZ to #REG_EXPAND_SZ)."
| readData testingRegistryPath registryType |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
"/ checking type and size
registryType := testingRegistryPath valueTypeAndSize: 'bledesu'.
@@ -3326,7 +2967,7 @@
"
"Created: / 12-12-2018 / 13:22:25 / svestkap"
- "Modified (format): / 01-02-2019 / 14:29:48 / svestkap"
+ "Modified: / 12-02-2019 / 14:55:52 / svestkap"
!
testWriteValueNamedPut_REG_MULTI_SZ_01
@@ -3350,16 +2991,18 @@
testWriteValueNamedPut_REG_MULTI_SZ_02
"Testing if REG_MULTI_SZ values are write correctly via valueNamed:put:
- The value data could be up to available memory (in reality NOT recommended to go over 1MB).
- Testing here a 2^16 + 2 sized OrderedCollection (a reasonable trade-off between size and speed)"
+ Note: The value data could be up to available memory on Windows 10 (in reality NOT recommended to go over 1MB).
+ On older Windows (2003/XP) there was a hard limit on 1MB."
| testingRegistryPath testData testDataArray readData |
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testData := OrderedCollection new.
- "/ testing 2^15 + 1 which should be
- "/ 2^15 + 1 timeRepeat -> testData OrderedCollection size should be: 2^16 + 1 (65538)
- 32769 timesRepeat: [ testData add: 'SEGOEUIB.TTF,Segoe UI Bold,110,82'.
+ "This is rather tricky to test. It must test the functionality but on all windows. Since older windows have a hard limit
+ of 1MB (for ASCII). Since Windows use UTF-16 internal you have to count 2 bytes per 1 character. There maybe a 4bytes per character,
+ to be on the safe side, the 256kB limit will be used. On Windows 10 the limit is much higher, perhaps all the available memory."
+ "/ 256kB (storing in worst case scenario / 48characters (unicode) -> 5333times
+ 5333 timesRepeat: [ testData add: 'SEGOEUIB.TTF,Segoe UI Bold,110,82'.
testData add: 'řeřicha - ルすしかき'
].
@@ -3377,7 +3020,7 @@
"
"Created: / 28-11-2018 / 14:46:55 / svestkap"
- "Modified (comment): / 01-02-2019 / 14:32:22 / svestkap"
+ "Modified (comment): / 12-02-2019 / 15:08:08 / svestkap"
!
testWriteValueNamedPut_REG_MULTI_SZ_03
@@ -3449,7 +3092,6 @@
Data is written and read back again."
| readData testingRegistryPath |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: 'bledesu' put: nil.
readData := testingRegistryPath valueNamed: 'bledesu'.
@@ -3462,7 +3104,7 @@
"
"Created: / 07-12-2018 / 15:06:08 / svestkap"
- "Modified (format): / 01-02-2019 / 14:34:27 / svestkap"
+ "Modified: / 12-02-2019 / 14:56:08 / svestkap"
!
testWriteValueNamedPut_REG_NONE_02
@@ -3470,7 +3112,6 @@
Data is written and read back again."
| readData testingRegistryPath |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: 'New nilル name' put: nil.
readData := testingRegistryPath valueNamed: 'New nilル name'.
@@ -3483,7 +3124,7 @@
"
"Created: / 07-12-2018 / 15:06:48 / svestkap"
- "Modified (format): / 01-02-2019 / 14:34:44 / svestkap"
+ "Modified: / 12-02-2019 / 14:56:13 / svestkap"
!
testWriteValueNamedPut_REG_NONE_03
@@ -3491,7 +3132,6 @@
with registry type and size check. Data is written and read back again."
| readData testingRegistryPath registryType |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: 'New nilル name' put: nil.
@@ -3509,7 +3149,7 @@
"
"Created: / 12-12-2018 / 12:47:40 / svestkap"
- "Modified (comment): / 01-02-2019 / 14:35:12 / svestkap"
+ "Modified: / 12-02-2019 / 14:56:19 / svestkap"
!
testWriteValueNamedPut_REG_QWORD_01
@@ -3560,7 +3200,6 @@
"Testing if new QWORD value name is written and read correctly from REG_QWORD (valueNamed:put: and valueNamed:)"
| readData testingRegistryPath |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: 'qword_new_testingル' put: 18446744073709551101.
readData := testingRegistryPath valueNamed: 'qword_new_testingル'.
@@ -3573,7 +3212,7 @@
"
"Created: / 07-12-2018 / 15:05:48 / svestkap"
- "Modified (format): / 01-02-2019 / 14:36:20 / svestkap"
+ "Modified: / 12-02-2019 / 14:56:27 / svestkap"
!
testWriteValueNamedPut_REG_QWORD_04
@@ -3639,7 +3278,6 @@
Data is written and read back again."
| readData testingRegistryPath |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: 'bledesu' put: 'řeřicha - ルすしかき'.
readData := testingRegistryPath valueNamed: 'bledesu'.
@@ -3652,7 +3290,7 @@
"
"Created: / 26-11-2018 / 09:51:58 / svestkap"
- "Modified (comment): / 01-02-2019 / 14:38:18 / svestkap"
+ "Modified: / 12-02-2019 / 14:56:40 / svestkap"
!
testWriteValueNamedPut_REG_SZ_02
@@ -3660,7 +3298,6 @@
Note: this is testing Unicode with spaces - probably the worst combination"
| readData testingRegistryPath |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: 'しかき ' put: 'řeřicha - ルすしかき'.
readData := testingRegistryPath valueNamed: 'しかき '.
@@ -3673,7 +3310,7 @@
"
"Created: / 26-11-2018 / 14:10:35 / svestkap"
- "Modified (format): / 01-02-2019 / 14:41:51 / svestkap"
+ "Modified: / 12-02-2019 / 14:56:44 / svestkap"
!
testWriteValueNamedPut_REG_SZ_03
@@ -3681,7 +3318,6 @@
Note: this is testing Unicode with spaces - probably the worst combination"
| readData testingRegistryPath |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: 'しかき ' put: ''.
readData := testingRegistryPath valueNamed: 'しかき '.
@@ -3694,7 +3330,7 @@
"
"Created: / 05-12-2018 / 10:16:59 / svestkap"
- "Modified (format): / 01-02-2019 / 14:41:35 / svestkap"
+ "Modified: / 12-02-2019 / 14:56:47 / svestkap"
!
testWriteValueNamedPut_REG_SZ_04
@@ -3702,7 +3338,6 @@
Note: this is testing Unicode with spaces - probably the worst combination"
| readData testingRegistryPath |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: 'bledesu' put: ''.
readData := testingRegistryPath valueNamed: 'bledesu'.
@@ -3715,7 +3350,7 @@
"
"Created: / 05-12-2018 / 10:22:39 / svestkap"
- "Modified (format): / 01-02-2019 / 14:41:26 / svestkap"
+ "Modified: / 12-02-2019 / 14:56:51 / svestkap"
!
testWriteValueNamedPut_REG_SZ_05
@@ -3723,7 +3358,6 @@
Data is written and read back again."
| readData testingRegistryPath |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: 'Newル guy' put: 'Singルing'.
readData := testingRegistryPath valueNamed: 'Newル guy'.
@@ -3736,7 +3370,7 @@
"
"Created: / 07-12-2018 / 15:03:05 / svestkap"
- "Modified (format): / 01-02-2019 / 14:40:47 / svestkap"
+ "Modified: / 12-02-2019 / 14:56:54 / svestkap"
!
testWriteValueNamedPut_REG_SZ_06
@@ -3744,7 +3378,6 @@
Data is written and read back again."
| readData testingRegistryPath registryType |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
testingRegistryPath valueNamed: 'Newル guy' put: 'Singルing'.
@@ -3761,7 +3394,7 @@
"
"Created: / 12-12-2018 / 12:39:52 / svestkap"
- "Modified (format): / 01-02-2019 / 14:43:29 / svestkap"
+ "Modified: / 12-02-2019 / 14:56:58 / svestkap"
!
testWriteValueNamedPut_REG_SZ_07
@@ -3769,7 +3402,6 @@
Note: the registry type change: #REG_MULTI_SZ to #REG_SZ."
| readData testingRegistryPath registryType |
- readData := Unicode16String new.
testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
"/ reading type and size
registryType := testingRegistryPath valueTypeAndSize: 'ř ž č ルすしか'.
@@ -3792,7 +3424,7 @@
"
"Created: / 12-12-2018 / 13:48:00 / svestkap"
- "Modified (comment): / 01-02-2019 / 14:44:48 / svestkap"
+ "Modified: / 12-02-2019 / 14:57:02 / svestkap"
! !
!Win32OperatingSystemTest class methodsFor:'documentation'!