hg/stx-goodies-regression: comparison RegressionTests_

equal deleted inserted replaced

-:823598772842
+:677b483367cf
 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: / 16-11-2018 / 11:24:57 / svestkap"
-"Modified: / 07-12-2018 / 10:44:44 / 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'!
 setUp
 | registryToImport file |
-self skipIf: OperatingSystem isMSWINDOWSlike not description: 'Windows specific tests'.
+self skipIf: OperatingSystem isMSWINDOWSlike not description: 'Windows only tests (registry manipulation)'.
 super setUp.
-registryToImport := self unicodeRegistryExample.
+registryToImport := (OperatingSystem getSystemInfo at: #architecture) = #x64 ifTrue: [ self unicodeRegistryExample ]
+ifFalse: [ self unicodeRegistryExample32bit ].
 "/ registry path which will be used
 registryPath := registryToImport
 copyFrom: (registryToImport indexOf: $[) + 1
 to: (registryToImport indexOf: $]) - 1.
 [   "/ adding registry entry so we can test it
 OperatingSystem getCommandOutputFrom: ('REG IMPORT ' , file asString)
 ] ensure: [ file remove ].
 "Created: / 28-12-2016 / 22:12:14 / jv"
-"Modified (format): / 16-11-2018 / 11:30:30 / svestkap"
+"Modified: / 01-02-2019 / 15:24:07 / svestkap"
 !
 tearDown
 self skipIf: OperatingSystem isMSWINDOWSlike not description: 'Windows specific tests'.
 super tearDown.
 "
 "Created: / 07-12-2018 / 15:51:52 / svestkap"
 !
+testOpenSubKeyNamed_05
+"Testing an error is raised when number is used to access the subKey via subKeyNamed:createIfAbsent:"
+| testingRegistryPath readSubKeys subKeysCount |
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readSubKeys := testingRegistryPath subKeys.
+subKeysCount := readSubKeys size.
+self assert: subKeysCount = 3.
+"/ trying to read already existing subKey
+self should: [ testingRegistryPath subKeyNamed: 11 createIfAbsent: true ]
+raise: Error
+suchThat: [ :e | e messageText = 'subKeyString is not a string!!' ]
+"
+self run:#testOpenSubKeyNamed_05
+self new testOpenSubKeyNamed_05
+"
+"Created: / 01-02-2019 / 15:58:49 / svestkap"
+!
 testOpenSubKeyNamed_Wow64_32_01
 "Testing if an old subKey is opened 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'.
 "Created: / 07-12-2018 / 15:45:42 / svestkap"
 !
 testOpenSubKeyNamed_nonExisting_01
-"Trying to read non-existing subKey"
+"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.
 self assert: subKeysCount = 3.
 "/ trying to read non-existent subKey
 readData := testingRegistryPath subKeyNamed: 'bledesu ル' flags: nil createIfAbsent: false.
 "/ check if new path is with the subKeyNamed above
 self assert: readData isNil
 "
 self run:#testOpenSubKeyNamed_nonExisting_01
 self new testOpenSubKeyNamed_nonExisting_01
 "
 "Created: / 07-12-2018 / 15:50:18 / svestkap"
+"Modified (comment): / 01-02-2019 / 15:06:05 / 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.
 self assert: subKeysCount = 3.
 "/ trying to read non-existent subKey
 readData := testingRegistryPath subKeyNamed: 'bledesu ル'.
 "/ check if new path is with the subKeyNamed above
 self assert: readData isNil
 "
 self run:#testOpenSubKeyNamed_nonExisting_02
 self new testOpenSubKeyNamed_nonExisting_02
 "
 "Created: / 07-12-2018 / 15:50:48 / svestkap"
+"Modified (format): / 01-02-2019 / 15:05:45 / svestkap"
 ! !
 !Win32OperatingSystemTest methodsFor:'tests-unicodeDelete'!
-testDeleteSubKeyNamed
+testDeleteSubKeyNamed_01
 "Testing deleting of empty subKey via deleteSubKeyNamed:"
 | returnValue testingRegistryPath |
 testingRegistryPath := Win32OperatingSystem registryEntry key:  registryPath.
 "/ if successfully deteted -> true
 returnValue := testingRegistryPath deleteSubKeyNamed: ' ルすしか_empty'.
 self assert: returnValue
 "
-self run:#testDeleteSubKeyNamed
+self run:#testDeleteSubKeyNamed_01
-self new testDeleteSubKeyNamed
+self new testDeleteSubKeyNamed_01
 "
-"Created: / 07-12-2018 / 09:49:44 / svestkap"
+"Created: / 30-01-2019 / 15:42:27 / svestkap"
+"Modified (format): / 01-02-2019 / 14:59:58 / svestkap"
+!
+testDeleteSubKeyNamed_02
+"Testing deleting of empty subKey via deleteSubKeyNamed:"
+| testingRegistryPath |
+testingRegistryPath := Win32OperatingSystem registryEntry key:  registryPath.
+self should: [ testingRegistryPath deleteSubKeyNamed: 11 ]
+raise: Error
+suchThat: [ :e | e messageText = 'subKeyString is not a string!!' ].
+"
+self run:#testDeleteSubKeyNamed_02
+self new testDeleteSubKeyNamed_02
+"
+"Created: / 30-01-2019 / 15:42:01 / svestkap"
+"Modified (format): / 01-02-2019 / 15:00:13 / svestkap"
 !
 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.
 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"
 !
 testDeleteSubKeyNamed_Wow64_64
 "Testing deleting of empty subKey via deleteSubKeyNamed: (only on x64 systems)
 Wow subsystem enables running 32bit applications on 64bit windows"
 "Created: / 07-12-2018 / 14:55:03 / 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'.
 readData := testingRegistryPath valueNamed: registryValueName.
 self assert: readData notEmptyOrNil.
 self new testDeleteValueNamed_REG_BINARY
 "
 "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"
 !
 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'.
 readData := testingRegistryPath valueNamed: registryValueName.
 self assert: readData notEmptyOrNil.
 self new testDeleteValueNamed_REG_DWORD
 "
 "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"
 !
 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 := ' č ルすしか'.
 readData := testingRegistryPath valueNamed: registryValueName.
 self assert: readData notEmptyOrNil.
 self run:#testDeleteValueNamed_REG_EXPAND_SZ
 self new testDeleteValueNamed_REG_EXPAND_SZ
 "
 "Created: / 06-12-2018 / 13:54:53 / svestkap"
+"Modified (format): / 01-02-2019 / 15:01:09 / svestkap"
 !
 testDeleteValueNamed_REG_QWORD
 "Testing if REG_QWORD value name is correctly deleted via deleteValueNamed:"
 | readData testingRegistryPath registryValueName deleteResult |
-readData := Unicode16String new.
+self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
-testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
+readData := Unicode16String new.
+testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
 registryValueName := 'qword_max'.
 readData := testingRegistryPath valueNamed: registryValueName.
 self assert: readData notEmptyOrNil.
 self run:#testDeleteValueNamed_REG_QWORD
 self new testDeleteValueNamed_REG_QWORD
 "
 "Created: / 06-12-2018 / 13:55:46 / svestkap"
-!
+"Modified: / 01-02-2019 / 15:23:41 / svestkap"
+!
-testDeleteValueNamed_REG_SZ
-"Testing if REG_SZ value name is correctly deleted via deleteValueNamed:"
+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 := ' ř ž č ル.          '.
 readData := testingRegistryPath valueNamed: registryValueName.
 self assert: readData isEmptyOrNil
 "
-self run:#testDeleteValueNamed_REG_SZ
+self run:#testDeleteValueNamed_REG_SZ_01
-self new testDeleteValueNamed_REG_SZ
+self new testDeleteValueNamed_REG_SZ_01
 "
-"Created: / 06-12-2018 / 13:52:51 / svestkap"
+"Created: / 30-01-2019 / 15:23:27 / svestkap"
+"Modified (format): / 01-02-2019 / 15:01:23 / 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 := ' ř ž č ル.          '.
+readData := testingRegistryPath valueNamed: registryValueName.
+self assert: readData notEmptyOrNil.
+self should: [ testingRegistryPath deleteValueNamed: 88 ]
+raise: Error
+suchThat: [ :e | e messageText = 'nameString is not a string!!' ]
+"
+self run:#testDeleteValueNamed_REG_SZ_02
+self new testDeleteValueNamed_REG_SZ_02
+"
+"Created: / 30-01-2019 / 15:23:10 / svestkap"
+"Modified (format): / 01-02-2019 / 15:01:30 / 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 := ''.
 self run:#testDeleteValueNamed_defaultValue_01
 self new testDeleteValueNamed_defaultValue_01
 "
 "Created: / 06-12-2018 / 14:04:16 / svestkap"
+"Modified (format): / 01-02-2019 / 15:01:34 / 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 := ''.
 self run:#testDeleteValueNamed_defaultValue_02
 self new testDeleteValueNamed_defaultValue_02
 "
 "Created: / 06-12-2018 / 14:01:38 / svestkap"
-!
+"Modified (format): / 01-02-2019 / 15:01:39 / svestkap"
+!
-testDeleteValueNamed_nonStringVAlue
-"Testing if trying to delete a non-string value results into returning false
+testDeleteValueNamed_nonStringValue
-and user should see in Transcript a warning message"
+"Testing if trying to delete a key with non-string name raises an error"
 | testingRegistryPath registryValueName |
 testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
 registryValueName := 11.
 self should: [ testingRegistryPath deleteValueNamed: registryValueName ] raise: Error
+suchThat: [ :e | e messageText = 'nameString is not a string!!' ]
 "
-self run:#testDeleteValueNamed_nonStringVAlue
+self run:#testDeleteValueNamed_nonStringValue
-self new testDeleteValueNamed_nonStringVAlue
+self new testDeleteValueNamed_nonStringValue
 "
-"Created: / 06-12-2018 / 14:10:18 / svestkap"
+"Created: / 01-02-2019 / 15:02:57 / svestkap"
-"Modified: / 07-12-2018 / 09:34:38 / svestkap"
 ! !
 !Win32OperatingSystemTest methodsFor:'tests-unicodeDeleteEnumeration'!
 testDeleteSubKeyNamed_deletingMultipleSubKeys
 "Testing deleting whole tree of subKeys based on subKey path size via deleteSubKeyNamed:"
 | readData returnValue testingRegistryPath |
 readData := OrderedDictionary new.
 testingRegistryPath := Win32OperatingSystem registryEntry key:  (registryPath, '\', ' ルすしか_testing_delete').
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 returnValue := testingRegistryPath deleteSubKeyNamed: ' ルすしか_testing_delete'.
 self assert: returnValue
 "
-self run:#testDeleteSubKeyNamed
+self run:#testDeleteSubKeyNamed_deletingMultipleSubKeys
-self new testDeleteSubKeyNamed
+self new testDeleteSubKeyNamed_deletingMultipleSubKeys
 "
 "Created: / 07-12-2018 / 10:54:34 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:59:37 / svestkap"
 ! !
 !Win32OperatingSystemTest methodsFor:'tests-unicodeRead'!
 testReadSubKeyAtIndex_01
 "Reading subKeys at certain index
 WARNING: subKeyAtIndex: is zero based!!!!!!"
 | readData testingRegistryPath |
 readData := Unicode16String new.
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 self run:#testReadSubKeyAtIndex_01
 self new testReadSubKeyAtIndex_01
 "
 "Created: / 11-12-2018 / 14:51:12 / svestkap"
+"Modified (format): / 01-02-2019 / 13:24: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.
 self run:#testReadSubKeyAtIndex_02
 self new testReadSubKeyAtIndex_02
 "
 "Created: / 11-12-2018 / 14:49:03 / svestkap"
-!
+"Modified (format): / 01-02-2019 / 13:24:48 / svestkap"
+!
-testReadSubKeyNamesAndClassesAtIndex_01
-"reading SubKeyNamesAndClasses - reading non-existent subKey"
+testReadSubKeyAtIndex_03
+"Reading subKeys via a String - should raise an error"
-| readData testingRegistryPath |
+| testingRegistryPath |
-readData := Unicode16String new.
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+self should: [ testingRegistryPath subKeyAtIndex: 'keyName' ]
+raise: Error
+suchThat: [ :e | e messageText = 'subKeyIndex is not an integer!!' ].
+"
+self run:#testReadSubKeyAtIndex_03
+self new testReadSubKeyAtIndex_03
+"
+"Created: / 01-02-2019 / 15:45:35 / svestkap"
+!
+testReadSubKeyAtIndex_04
+"Reading subKeys via a Float - should raise an error"
+| testingRegistryPath |
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+self should: [ testingRegistryPath subKeyAtIndex: 1.1 ]
+raise: Error
+suchThat: [ :e | e messageText = 'subKeyIndex is not an integer!!' ].
+"
+self run:#testReadSubKeyAtIndex_04
+self new testReadSubKeyAtIndex_04
+"
+"Created: / 01-02-2019 / 15:48:14 / svestkap"
+!
+testReadSubKeyAtIndex_MaxPath
+"Reading subKeyAtIndex with max Path
+Note: This test acually breaks the limit that Microsoft specified in MSDN - registry key name should be maximum 255 characters including absolute path
+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').
+readData := testingRegistryPath subKeyAtIndex: 0.
+self assert: readData path notEmptyOrNil.
+self assert:(readData path endsWith: '|end').
+"/ this is maximum path size which can be reached if the SubKey is reached via index
+self assert: readData path size = 563. "/ there is one backslash (for path) more compared to testReadSubKeyNamesAndClassesAtIndex_MaxPath_01
+"
+self run:#testReadSubKeyAtIndex_MaxPath
+self new testReadSubKeyAtIndex_MaxPath
+"
+"Created: / 05-12-2018 / 12:39:54 / svestkap"
+"Modified (comment): / 01-02-2019 / 15:49:05 / 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').
 readData := testingRegistryPath subKeyNameAndClassAtIndex: 10.
 self assert: readData isNil.
 "
 self run:#testReadSubKeyNamesAndClassesAtIndex_01
 self new testReadSubKeyNamesAndClassesAtIndex_01
 "
 "Created: / 11-12-2018 / 14:49:48 / svestkap"
+"Modified (comment): / 01-02-2019 / 15:48:57 / svestkap"
+!
+testReadSubKeyNamesAndClassesAtIndex_02
+"Reading SubKeyNamesAndClasses via String - should raise an error"
+| testingRegistryPath |
+testingRegistryPath := Win32OperatingSystem registryEntry key:
+(registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').
+self should: [ testingRegistryPath subKeyNameAndClassAtIndex: 'asString' ]
+raise: Error
+suchThat: [ :e | e messageText = 'subKeyIndex is not an integer!!' ]
+"
+self run:#testReadSubKeyNamesAndClassesAtIndex_02
+self new testReadSubKeyNamesAndClassesAtIndex_02
+"
+"Created: / 01-02-2019 / 15:48:02 / svestkap"
+!
+testReadSubKeyNamesAndClassesAtIndex_03
+"Reading SubKeyNamesAndClasses via Float - should raise an error"
+| testingRegistryPath |
+testingRegistryPath := Win32OperatingSystem registryEntry key:
+(registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').
+self should: [ testingRegistryPath subKeyNameAndClassAtIndex: 1.1 ]
+raise: Error
+suchThat: [ :e | e messageText = 'subKeyIndex is not an integer!!' ]
+"
+self run:#testReadSubKeyNamesAndClassesAtIndex_03
+self new testReadSubKeyNamesAndClassesAtIndex_03
+"
+"Created: / 01-02-2019 / 15:51:03 / svestkap"
+!
+testReadSubKeyNamesAndClassesAtIndex_MaxPath
+"Reading SubKeyNamesAndClasses with max Path
+Note: This test acually breaks the limit that Microsoft specified in MSDN - registry key name should be maximum 255 characters including absolute path
+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').
+readData := testingRegistryPath subKeyNameAndClassAtIndex: 0.
+self assert: readData notEmptyOrNil.
+self assert:(readData first endsWith: '|end').
+self assert: readData first = '256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end'.
+"/ this is maximum path size which can be reached if the SubKey is reached via index
+self assert: (testingRegistryPath path size + readData first size) = 562.
+"
+self run:#testReadSubKeyNamesAndClassesAtIndex_MaxPath
+self new testReadSubKeyNamesAndClassesAtIndex_MaxPath
+"
+"Created: / 05-12-2018 / 12:40:08 / svestkap"
+"Modified (comment): / 01-02-2019 / 15:49:18 / svestkap"
+!
+testReadTooLongPath
+"Trying to read too long path - nil is returned"
+| testingRegistryPath |
+testingRegistryPath := Win32OperatingSystem registryEntry key:
+(registryPath,'\', ' ルすしか\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').
+self assert: testingRegistryPath isNil
+"
+self run:#testReadTooLongPath
+self new testReadTooLongPath
+"
+"Created: / 22-11-2018 / 11:19:51 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:58:15 / svestkap"
 !
 testReadValueNameAtIndex_01
 "Reading values (#valueNameAtIndex:) at certain index
 WARNING: #valueNameAtIndex: is zero based!!!!!!
 Note: This test acually breaks the limit that Microsoft specified in MSDN - registry key name should be maximum 255 characters including absolute path
 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,'\', ' ルすしか').
 self run:#testReadValueNameAtIndex
 self new testReadValueNameAtIndex
 "
 "Created: / 11-12-2018 / 14:54:37 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:58:25 / svestkap"
 !
 testReadValueNameAtIndex_02
 "Reading values (#valueNameAtIndex:) at certain index - non-existent value"
 | readData testingRegistryPath |
 readData := Unicode16String new.
 testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath,'\', ' ルすしか').
 self run:#testReadValueNameAtIndex_02
 self new testReadValueNameAtIndex_02
 "
 "Created: / 11-12-2018 / 14:54:29 / svestkap"
+"Modified (format): / 01-02-2019 / 13:25:19 / svestkap"
+!
+testReadValueNameAtIndex_03
+"Reading values (#valueNameAtIndex:) via String - should raise an error"
+| testingRegistryPath |
+testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath,'\', ' ルすしか').
+self should: [ testingRegistryPath valueNameAtIndex: 'stringInsteadOfIndex' ]
+raise: Error
+suchThat: [ :e | e messageText = 'valueIndex is not an integer!!' ]
+"
+self run:#testReadValueNameAtIndex_03
+self new testReadValueNameAtIndex_03
+"
+"Created: / 01-02-2019 / 15:52:27 / svestkap"
+!
+testReadValueNameAtIndex_04
+"Reading values (#valueNameAtIndex:) via Float - should raise an error"
+| testingRegistryPath |
+testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath,'\', ' ルすしか').
+self should: [ testingRegistryPath valueNameAtIndex: 1.1 ]
+raise: Error
+suchThat: [ :e | e messageText = 'valueIndex is not an integer!!' ]
+"
+self run:#testReadValueNameAtIndex_04
+self new testReadValueNameAtIndex_04
+"
+"Created: / 01-02-2019 / 15:55:03 / svestkap"
+!
+testReadValueNamed_REG_BINARY_01
+"Testing if REG_BINARY values are read correctly via valueNamed:"
+| readData testingRegistryPath |
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueNamed: 'zero'.
+self assert: readData = ByteArray new.
+"
+self run:#testReadValueNamed_REG_BINARY_01
+self new testReadValueNamed_REG_BINARY_01
+"
+"Created: / 16-11-2018 / 12:37:50 / svestkap"
+"Modified (format): / 01-02-2019 / 13:28:15 / svestkap"
+!
+testReadValueNamed_REG_BINARY_02
+"Testing if REG_BINARY values are read correctly via valueNamed:"
+| testingRegistryPath readData readDataHex |
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueNamed: 'non-zero'.
+readDataHex := readData hexPrintStringWithSeparator: $|.
+self assert: readData = #[17 16]. "/ ByteArray
+self assert: readDataHex = '11|10' "/ hex
+"
+self run:#testReadValueNamed_REG_BINARY_02
+self new testReadValueNamed_REG_BINARY_02
+"
+"Created: / 16-11-2018 / 12:39:33 / svestkap"
+"Modified (format): / 01-02-2019 / 13:28:21 / svestkap"
+!
+testReadValueNamed_REG_DWORD_01
+"Testing if REG_DWORD values are read correctly via valueNamed:"
+| readData testingRegistryPath |
+readData := Unicode16String new.
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueNamed: 'dword_value'.
+self assert: readData = 9135.
+"
+self run:#testReadValueNamed_REG_DWORD_01
+self new testReadValueNamed_REG_DWORD_01
+"
+"Created: / 16-11-2018 / 12:24:26 / svestkap"
+"Modified (format): / 01-02-2019 / 13:28:26 / 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.
+readData := testingRegistryPath valueNamed: 'き'.
+self assert: readData = 591541423.
+"
+self run:#testReadValueNamed_REG_DWORD_02
+self new testReadValueNamed_REG_DWORD_02
+"
+"Created: / 16-11-2018 / 12:24:43 / svestkap"
+"Modified (format): / 01-02-2019 / 13:28:30 / 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.
+readData := testingRegistryPath valueNamed: ' č ルすしか'.
+self assert: readData = '''Testing Unicode chars ř ž č ルすしかき'').          '.
+"
+self run:#testReadValueNamed_REG_EXPAND_SZ_01
+self new testReadValueNamed_REG_EXPAND_SZ_01
+"
+"Created: / 16-11-2018 / 12:27:58 / svestkap"
+"Modified (format): / 01-02-2019 / 13:28:38 / 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.
+readData := testingRegistryPath valueNamed: 'Ugh'.
+self assert: readData = '''Testing Unicode chars ř ž č ルすしかき'').          '.
+"
+self run:#testReadValueNamed_REG_EXPAND_SZ_02
+self new testReadValueNamed_REG_EXPAND_SZ_02
+"
+"Created: / 16-11-2018 / 12:29:52 / svestkap"
+"Modified (format): / 01-02-2019 / 13:28:42 / svestkap"
+!
+testReadValueNamed_REG_MULTI_SZ_01
+"Testing if REG_MULTI_SZ values are read correctly via valueNamed:"
+| readData testingRegistryPath |
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueNamed: 'Font_Leelawadee UI Bold'.
+self assert: readData = #('SEGOEUIB.TTF,Segoe UI Bold,110,82' 'SEGOEUIB.TTF,Segoe UI Bold' 'MEIRYOB.TTC,Meiryo UI Bold,120,96'
+'MEIRYOB.TTC,Meiryo UI Bold' 'MSJHBD.TTC,Microsoft JhengHei UI Bold,120,96' 'MSJHBD.TTC,Microsoft JhengHei UI Bold'
+'MSYHBD.TTC,Microsoft YaHei UI Bold,128,96' 'MSYHBD.TTC,Microsoft YaHei UI Bold' 'MALGUNBD.TTF,Malgun Gothic Bold,118,96'
+'MALGUNBD.TTF,Malgun Gothic Bold' 'YUGOTHB.TTC,Yu Gothic UI Bold,128,96' 'YUGOTHB.TTC,Yu Gothic UI Bold' 'SEGUISYM.TTF,Segoe UI Symbol')
+"
+self run:#testReadValueNamed_REG_MULTI_SZ_01
+self new testReadValueNamed_REG_MULTI_SZ_01
+"
+"Created: / 16-11-2018 / 12:30:24 / svestkap"
+"Modified (format): / 01-02-2019 / 13:28:46 / svestkap"
+!
+testReadValueNamed_REG_MULTI_SZ_02
+"Testing if REG_MULTI_SZ values are read correctly via valueNamed:"
+| readData testingRegistryPath |
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueNamed: 'ř ž č ルすしか'.
+self assert: readData = #('''Testing Unicode chars ř ž č ルすしかき'')'
+'SEGOEUIB.TTF,Segoe UI Bold,110,82' 'SEGOEUIB.TTF,Segoe UI Bold' 'MEIRYOB.TTC,Meiryo UI Bold,120,96'
+'MEIRYOB.TTC,Meiryo UI Bold' 'MSJHBD.TTC,Microsoft JhengHei UI Bold,120,96' 'MSJHBD.TTC,Microsoft JhengHei UI Bold'
+'MSYHBD.TTC,Microsoft YaHei UI Bold,128,96' 'MSYHBD.TTC,Microsoft YaHei UI Bold' 'MALGUNBD.TTF,Malgun Gothic Bold,118,96'
+'MALGUNBD.TTF,Malgun Gothic Bold' 'YUGOTHB.TTC,Yu Gothic UI Bold,128,96' 'YUGOTHB.TTC,Yu Gothic UI Bold' 'SEGUISYM.TTF,Segoe UI Symbol')
+"
+self run:#testReadValueNamed_REG_MULTI_SZ_02
+self new testReadValueNamed_REG_MULTI_SZ_02
+"
+"Created: / 16-11-2018 / 12:35:57 / svestkap"
+"Modified (format): / 01-02-2019 / 13:28:52 / svestkap"
+!
+testReadValueNamed_REG_MULTI_SZ_03
+"Testing if empty REG_MULTI_SZ value is read correctly via valueNamed:"
+| readData testingRegistryPath |
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueNamed: 'testEmptyMultiSZ'.
+self assert: readData isEmpty
+"
+self run:#testReadValueNamed_REG_MULTI_SZ_03
+self new testReadValueNamed_REG_MULTI_SZ_03
+"
+"Created: / 03-12-2018 / 10:59:48 / svestkap"
+"Modified (format): / 01-02-2019 / 13:28:58 / svestkap"
+!
+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 := Unicode16String new.
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueNamed: 'qword_max'.
+self assert: readData = 18446744073709551615.
+"
+self run:#testReadValueNamed_REG_QWORD_01
+self new testReadValueNamed_REG_QWORD_01
+"
+"Created: / 16-11-2018 / 12:25:47 / svestkap"
+"Modified: / 01-02-2019 / 15:14:01 / 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 := Unicode16String new.
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueNamed: 'qwordvalue'.
+self assert: readData = 8751636011737964973.
+"
+self run:#testReadValueNamed_REG_QWORD_02
+self new testReadValueNamed_REG_QWORD_02
+"
+"Created: / 16-11-2018 / 12:26:23 / svestkap"
+"Modified: / 01-02-2019 / 15:14:06 / 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 := Unicode16String new.
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueNamed: 'すし'.
+self assert: readData asSmallInteger = 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"
+!
+testReadValueNamed_REG_SZ_01
+"Testing if REG_SZ values are read correctly via valueNamed:"
+| readData testingRegistryPath |
+readData := Unicode16String new.
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueNamed: 'bledesu'.
+self assert: readData = '''Testing Unicode chars ř ž č ルすしかき'').          '.
+"
+self run:#testReadValueNamed_REG_SZ_01
+self new testReadValueNamed_REG_SZ_01
+"
+"Created: / 16-11-2018 / 12:14:59 / svestkap"
+"Modified (format): / 01-02-2019 / 13:29:53 / 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.
+readData := testingRegistryPath valueNamed: ' ř ž č ル.          '.
+self assert: readData = 'Testing Unicode chars ř ž č ルすしかき'.
+"
+self run:#testReadValueNamed_REG_SZ_02
+self new testReadValueNamed_REG_SZ_02
+"
+"Created: / 16-11-2018 / 12:15:17 / svestkap"
+"Modified (format): / 01-02-2019 / 13:29:56 / 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.
+readData := testingRegistryPath valueNamed: 'しかき    '.
+self assert: readData = 'Testus gradus'.
+"
+self run:#testReadValueNamed_REG_SZ_03
+self new testReadValueNamed_REG_SZ_03
+"
+"Created: / 16-11-2018 / 12:21:59 / svestkap"
+"Modified (format): / 01-02-2019 / 13:30:00 / 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.
+readData := testingRegistryPath valueNamed: 'emptyToTest'.
+self assert: readData isEmpty.
+"
+self run:#testReadValueNamed_REG_SZ_04
+self new testReadValueNamed_REG_SZ_04
+"
+"Created: / 03-12-2018 / 10:56:11 / svestkap"
+"Modified (format): / 01-02-2019 / 13:30:45 / svestkap"
+!
+testReadValueNamed_nonStringValue
+"Testing reading non-string value from Registry via valueNamed raises an error"
+| testingRegistryPath |
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+self should: [ testingRegistryPath valueNamed: 11 ]
+raise: Error
+suchThat: [ :e | e messageText = 'nameString is not a string!!' ].
+"
+self run:#testReadValueNamed_nonStringValue
+self new testReadValueNamed_nonStringValue
+"
+"Created: / 05-12-2018 / 12:40:31 / svestkap"
+"Modified (format): / 30-01-2019 / 15:30:21 / svestkap"
+!
+testValueTypeAndSize_01
+"Testing if an error is returned when number is used instead of string as method parammeter at valueTypeAndSize:"
+| testingRegistryPath |
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+self should: [ testingRegistryPath valueTypeAndSize: 55 ]
+raise: Error
+suchThat: [ :e | e messageText = 'nameString is not a string!!' ].
+"
+self run:#testValueTypeAndSize_01
+self new testValueTypeAndSize_01
+"
+"Created: / 30-01-2019 / 17:15:49 / svestkap"
+!
+testValueTypeAndSize_REG_BINARY_01
+"Testing if #REG_BINARY type returns correct size in bytes"
+| testingRegistryPath readData testingData |
+testingData := Dictionary new.
+testingData at: #'REG_BINARY' put: 2. "/ [bytes] - testing registry contains #[17 16]
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueTypeAndSize: 'non-zero'.
+self assert: readData keys first = #REG_BINARY.
+self assert: (readData at: #'REG_BINARY') = (testingData at: #'REG_BINARY')
+"
+self run:#testValueTypeAndSize_REG_BINARY_01
+self new testValueTypeAndSize_REG_BINARY_01
+"
+"Created: / 31-01-2019 / 15:47:05 / svestkap"
+!
+testValueTypeAndSize_REG_DWORD_01
+"Testing if #REG_DWORD type returns correct size in bytes"
+| testingData testingRegistryType testingRegistryPath readData |
+testingData := Dictionary new.
+testingRegistryType := UninterpretedBytes isBigEndian ifTrue: [ #REG_DWORD_BIG_ENDIAN ]
+ifFalse: [ #REG_DWORD_LITTLE_ENDIAN ].
+testingData at: testingRegistryType put: 4. "/ 32bits = 4 bytes - testing registry contains 0xffffffff
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueTypeAndSize: 'dword_value'.
+self assert: readData keys first = testingRegistryType.
+self assert: (readData at: testingRegistryType) = (testingData at: testingRegistryType)
+"
+self run:#testValueTypeAndSize_REG_DWORD_01
+self new testValueTypeAndSize_REG_DWORD_01
+"
+"Created: / 31-01-2019 / 16:03:52 / svestkap"
+"Modified (comment): / 01-02-2019 / 15:13:01 / svestkap"
+!
+testValueTypeAndSize_REG_EXPAND_SZ_01
+"Testing if #REG_EXPAND_SZ type returns expected string size"
+| testingData testingRegistryType testingRegistryPath readData |
+testingData := Dictionary new.
+testingRegistryType := #REG_EXPAND_SZ.
+testingData at: testingRegistryType put: 47. "/ expected string size
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueTypeAndSize: ' č ルすしか'.
+self assert: readData keys first = testingRegistryType.
+self assert: (readData at: testingRegistryType) = (testingData at: testingRegistryType)
+"
+self run:#testValueTypeAndSize_REG_EXPAND_SZ_01
+self new testValueTypeAndSize_REG_EXPAND_SZ_01
+"
+"Created: / 31-01-2019 / 15:55:35 / svestkap"
+"Modified (comment): / 01-02-2019 / 15:09:26 / svestkap"
+!
+testValueTypeAndSize_REG_MULTI_SZ_01
+"Testing if #REG_MULTI_SZ type returns correct size in bytes"
+| testingData testingRegistryType testingRegistryPath readData |
+testingData := Dictionary new.
+testingRegistryType :=  #REG_MULTI_SZ.
+testingData at: testingRegistryType put: 974. "/ [bytes] - multiple lines in registry
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueTypeAndSize: 'ř ž č ルすしか'.
+self assert: readData keys first = testingRegistryType.
+self assert: (readData at: testingRegistryType) = (testingData at: testingRegistryType)
+"
+self run:#testValueTypeAndSize_REG_MULTI_SZ_01
+self new testValueTypeAndSize_REG_MULTI_SZ_01
+"
+"Created: / 31-01-2019 / 16:14:31 / svestkap"
+!
+testValueTypeAndSize_REG_NONE_01
+"Testing if #REG_NONE type returns alwyas 0 as it should"
+| testingRegistryPath readData testingData |
+testingData := Dictionary new.
+testingData at: #REG_NONE put: 0. "/ #REG_NONE always returns 0
+testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath,'\', '\ ルすしか_testing_delete\reg-none').
+readData := testingRegistryPath valueTypeAndSize: ''.
+self assert: readData keys first = #REG_NONE.
+self assert: (readData at: #'REG_NONE') = (testingData at: #'REG_NONE')
+"
+self run:#testValueTypeAndSize_REG_NONE_01
+self new testValueTypeAndSize_REG_NONE_01
+"
+"Created: / 31-01-2019 / 15:35:37 / svestkap"
+"Modified (comment): / 01-02-2019 / 15:13:27 / svestkap"
+!
+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 := Dictionary new.
+testingRegistryType :=  #REG_QWORD.
+testingData at: testingRegistryType put: 8. "/ 64bits = 8bytes - testing registry contains 0xffffffffffffffff
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueTypeAndSize: 'qword_max'.
+self assert: readData keys first = testingRegistryType.
+self assert: (readData at: testingRegistryType) = (testingData at: testingRegistryType)
+"
+self run:#testValueTypeAndSize_REG_DWORD_01
+self new testValueTypeAndSize_REG_DWORD_01
+"
+"Created: / 31-01-2019 / 16:12:21 / svestkap"
+"Modified (comment): / 01-02-2019 / 15:11:57 / svestkap"
+!
+testValueTypeAndSize_REG_SZ_01
+"Testing if #REG_SZ type returns expected string size"
+| testingRegistryPath readData testingData |
+testingData := Dictionary new.
+testingData at: #REG_SZ put: 13.
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+readData := testingRegistryPath valueTypeAndSize: 'しかき    '.
+self assert: readData keys first = #REG_SZ.
+self assert: (readData at: #'REG_SZ') = (testingData at: #'REG_SZ')
+"
+self run:#testValueTypeAndSize_REG_SZ_01
+self new testValueTypeAndSize_REG_SZ_01
+"
+"Created: / 30-01-2019 / 17:13:53 / svestkap"
+"Modified (comment): / 31-01-2019 / 16:01:37 / svestkap"
 ! !
 !Win32OperatingSystemTest methodsFor:'tests-unicodeReadEnumeration'!
 testReadAllSubKeysDo_MaxPath
-"reading via allSubKeysDo (using subKeyAtIndex:) with max Path
+"Reading via allSubKeysDo (using subKeyAtIndex:)with maximum path length.
-The path is suppassing the Microsoft limit - for more information see testReadSubKeyAtIndex_MaxPath_01"
+The path suppasses the limit specified by Microsoft - for more information see testReadSubKeyAtIndex_MaxPath_01"
 | readData testingRegistryPath |
 readData := OrderedCollection new.
 testingRegistryPath := Win32OperatingSystem registryEntry key:
 (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').
 self run:#testReadAllSubKeysDo_MaxPath
 self new testReadAllSubKeysDo_MaxPath
 "
 "Created: / 05-12-2018 / 12:40:53 / svestkap"
-!
+"Modified (comment): / 01-02-2019 / 14:57:24 / svestkap"
+!
-testReadRemoteKeyOnHost
+testReadRemoteKeyOnHost_01
 "Reading remote registry via remoteKeyOnHost:
 Note: a key must be a predefined key for more see:
 https://docs.microsoft.com/en-us/windows/desktop/SysInfo/predefined-keys"
-| testingRegistryPath remoteRegistry readData |
+| testingRegistryPath remoteRegistry readData  |
 "/ HKEY_CURRENT_USER is one of the predefined keys
 testingRegistryPath := Win32OperatingSystem registryEntry key: 'HKEY_CURRENT_USER'.
+"/ testing done on localhost
 "Skip testing if the remote registry is unreachable.  With localhost this can happen when
 the service RemoteRegistry, the service name in Windows 10, is not started."
 [ remoteRegistry := testingRegistryPath remoteKeyOnHost: 'localhost' ] on: OsError do: [ :ex | "/ errorCode => `ex parameter parameter`
 self skipIf: ex parameter parameter = '53' description: 'ERROR_BAD_NETPATH, 53 (0x35) - The network path was not found.'
 ].
-"/ testing done on localhost
 readData := remoteRegistry subKeys.
 readData := readData copy collect: [ :subEntry | (subEntry path copyAfterLast: $\) asLowercase ].
 self assert: readData notEmptyOrNil.
 self assert: (readData includes: 'software').
 "
-self run:#testReadRemoteKeyOnHost
+self run:#testReadRemoteKeyOnHost_01
-self new testReadRemoteKeyOnHost
+self new testReadRemoteKeyOnHost_01
 "
-"Created: / 05-12-2018 / 12:41:06 / svestkap"
+"Created: / 31-01-2019 / 12:11:06 / svestkap"
-"Modified (format): / 16-01-2019 / 14:20:37 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:51:09 / svestkap"
+!
+testReadRemoteKeyOnHost_02
+"Reading remote registry via remoteKeyOnHost: using non-string key name
+Note: a key must be a predefined key for more see:
+https://docs.microsoft.com/en-us/windows/desktop/SysInfo/predefined-keys"
+| testingRegistryPath |
+"/ HKEY_CURRENT_USER is one of the predefined keys
+testingRegistryPath := Win32OperatingSystem registryEntry key: 'HKEY_CURRENT_USER'.
+self should: [ testingRegistryPath remoteKeyOnHost: 11 ]
+raise: Error
+suchThat: [ :e | e messageText = 'hostNameString is not a string!!' ]
+"
+self run:#testReadRemoteKeyOnHost_02
+self new testReadRemoteKeyOnHost_02
+"
+"Created: / 31-01-2019 / 12:10:18 / svestkap"
+"Modified (format): / 01-02-2019 / 14:51:23 / svestkap"
 !
 testReadSubKeyNamesAndClassesDo_MaxPath
-"reading SubKeyNamesAndClasses with max Path
+"Reading SubKeyNamesAndClasses with maximum path length.
-The path is suppassing the Microsoft limit - for more information see testReadSubKeyNamesAndClassesAtIndex_MaxPath_01"
+The path suppasses the limit specified by Microsoft - for more information see testReadSubKeyNamesAndClassesAtIndex_MaxPath_01"
 | readData testingRegistryPath |
 readData := OrderedDictionary new.
 testingRegistryPath := Win32OperatingSystem registryEntry key:
 (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').
-testingRegistryPath  subKeyNamesAndClassesDo: [  :name :className |
+testingRegistryPath  subKeyNamesAndClassesDo: [ :name :className |
 readData at: name put: className.
 ].
 self assert: readData notEmptyOrNil.
 self assert: readData size = 2.
 self run:#testReadSubKeyNamesAndClassesDo_MaxPath
 self new testReadSubKeyNamesAndClassesDo_MaxPath
 "
 "Created: / 05-12-2018 / 12:41:31 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:57:00 / svestkap"
 !
 testReadSubKeysDo_MaxPath
-"reading via subKeysDo (using subKeyAtIndex:) with max Path
+"Reading data via subKeysDo (using subKeyAtIndex:) with maximum path length.
-The path is suppassing the Microsoft limit - for more information see testReadSubKeyAtIndex_MaxPath_01"
+The path suppasses the limit specified by Microsoft - for more information see testReadSubKeyAtIndex_MaxPath_01"
 | readData testingRegistryPath |
 readData := OrderedCollection new.
 testingRegistryPath := Win32OperatingSystem registryEntry key:
 (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').
-testingRegistryPath  subKeysDo: [ :subEntry |
+testingRegistryPath subKeysDo: [ :subEntry |
 readData add: subEntry
 ].
 self assert: readData notEmptyOrNil.
 self assert: readData size = 2.
 self run:#testReadSubKeysDo_MaxPath
 self new testReadSubKeysDo_MaxPath
 "
 "Created: / 05-12-2018 / 12:41:49 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:56:31 / svestkap"
 !
 testReadSubKeys_MaxPath
-"reading via subKeys (using subKeyAtIndex:) with max Path
+"Reading via subKeys (using subKeyAtIndex:) with maximum path length.
-The path is suppassing the Microsoft limit - for more information see testReadSubKeyAtIndex_MaxPath_01"
+The path suppasses the limit specified by Microsoft - for more information see testReadSubKeyAtIndex_MaxPath_01"
 | readData testingRegistryPath |
 testingRegistryPath := Win32OperatingSystem registryEntry key:
 (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').
 self run:#testReadSubKeys_MaxPath
 self new testReadSubKeys_MaxPath
 "
 "Created: / 05-12-2018 / 12:41:59 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:56:12 / svestkap"
 !
 testReadValueNamesAndValuesDo_MaxPath
-"reading via #valueNamesAndValuesDo: (using #valueNameAtIndex:) with max Path
+"Reading data via #valueNamesAndValuesDo: (using #valueNameAtIndex:) with maximum path length.
-The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
+The path suppasses the limit specified by Microsoft - for more information see testReadValueNameAtIndex_01"
 | readData testingRegistryPath |
 readData := OrderedDictionary new.
 testingRegistryPath := Win32OperatingSystem registryEntry key:
 (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').
 self run:#testReadValueNamesAndValuesDo_MaxPath
 self new testReadValueNamesAndValuesDo_MaxPath
 "
 "Created: / 05-12-2018 / 12:43:05 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:54:23 / svestkap"
 !
 testReadValueNamesAndValuesDo_REG_SZ_01
 "Testing if REG_SZ values are read correctly via valueNamesAndValuesDo:"
 | readData testingRegistryPath |
 readData := OrderedDictionary new.
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 self run:#testReadValueNamesAndValuesDo_REG_SZ_01
 self new testReadValueNamesAndValuesDo_REG_SZ_01
 "
 "Created: / 16-11-2018 / 12:15:52 / svestkap"
+"Modified (format): / 01-02-2019 / 13:31:44 / svestkap"
 !
 testReadValueNamesAndValuesDo_REG_SZ_02
 "Testing if REG_SZ values are read correctly via valueNamesAndValuesDo:"
 | readData testingRegistryPath |
 readData := OrderedDictionary new.
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 self run:#testReadValueNamesAndValuesDo_REG_SZ_02
 self new testReadValueNamesAndValuesDo_REG_SZ_02
 "
 "Created: / 05-12-2018 / 12:43:35 / svestkap"
+"Modified (format): / 01-02-2019 / 13:31:48 / svestkap"
 !
 testReadValueNamesDo_MaxPath
-"reading via #valueNamesDo: (using #valueNameAtIndex:) with max Path
+"Reading data via #valueNamesDo: (using #valueNameAtIndex:)  with maximum path length.
 The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
 | readData readDataValue testingRegistryPath |
 readData := OrderedCollection new.
 testingRegistryPath := Win32OperatingSystem registryEntry key:
 (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').
 self run:#testReadValueNamesDo_MaxPath
 self new testReadValueNamesDo_MaxPath
 "
 "Created: / 05-12-2018 / 12:43:49 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:55:15 / svestkap"
 !
 testReadValueNames_MaxPath
 "reading via #valueNames (using #valueNameAtIndex:) with max Path
 The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
 | readData testingRegistryPath |
 testingRegistryPath := Win32OperatingSystem registryEntry key:
 (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').
 self run:#testReadValueNames_MaxPath
 self new testReadValueNames_MaxPath
 "
 "Created: / 05-12-2018 / 12:44:16 / svestkap"
+"Modified (format): / 01-02-2019 / 13:31:55 / svestkap"
 !
 testReadvalueNamesAndValuesDo_MaxPath_01
 "reading via #valueNamesAndValuesDo: (using #valueNameAtIndex:) with max Path
 The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
 | readData testingRegistryPath |
 readData := OrderedDictionary new.
 testingRegistryPath := Win32OperatingSystem registryEntry key:
 (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').
 self run:#testReadvalueNamesAndValuesDo_MaxPath_01
 self new testReadvalueNamesAndValuesDo_MaxPath_01
 "
 "Created: / 22-11-2018 / 14:10:34 / svestkap"
+"Modified (format): / 01-02-2019 / 13:31:59 / svestkap"
 !
 testReadvalueNamesAndValuesDo_REG_SZ_02
 "Testing if REG_SZ values are read correctly via valueNamesAndValuesDo:"
 | readData testingRegistryPath |
 readData := OrderedDictionary new.
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 self run:#testReadvalueNamesAndValuesDo_REG_SZ_02
 self new testReadvalueNamesAndValuesDo_REG_SZ_02
 "
 "Created: / 16-11-2018 / 12:16:16 / svestkap"
+"Modified (format): / 01-02-2019 / 13:32:02 / svestkap"
 ! !
 !Win32OperatingSystemTest methodsFor:'tests-unicodeWrite'!
 testDefaultValue_01
 "Testing if value can be stored (defaultValue:) and read (defaultValue)
 Note: the value is stored in (Default) value at the key"
 | testingRegistryPath readData |
 registryPath := registryPath, '\', ' ルすしか'.
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 readData := testingRegistryPath defaultValue.
 self assert: readData isNil.
 self run:#testDefaultValue_01
 self new testDefaultValue_01
 "
 "Created: / 12-12-2018 / 12:35:53 / svestkap"
+"Modified (format): / 01-02-2019 / 13:55:01 / svestkap"
 !
 testDefaultValue_02
 "Testing if value can be stored (defaultValue:) and read (defaultValue) with registry type and size check
 Note: the value is stored in (Default) value at the key"
 | testingRegistryPath registryType readData |
 registryPath := registryPath, '\', ' ルすしか'.
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 self new testDefaultValue_02
 "
 "Created: / 12-12-2018 / 11:07:11 / svestkap"
 "Modified: / 12-12-2018 / 14:08:14 / svestkap"
+"Modified (comment): / 01-02-2019 / 13:55:06 / svestkap"
 !
 testWriteValueNamedPut_REG_BINARY_01
 "Testing if REG_BINARY zero value is written correctly via valueNamed:put:
 Data is written and read back again."
 | testingRegistryPath readData |
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 testingRegistryPath valueNamed: 'non-zero' put: ByteArray new.
 self run:#testWriteValueNamedPut_REG_BINARY_01
 self new testWriteValueNamedPut_REG_BINARY_01
 "
 "Created: / 04-12-2018 / 11:52:46 / svestkap"
-"Modified (format): / 05-12-2018 / 12:45:43 / svestkap"
+"Modified (format): / 01-02-2019 / 13:55:10 / svestkap"
 !
 testWriteValueNamedPut_REG_BINARY_02
 "Testing if REG_BINARY values are written correctly via valueNamed:put:
 Data is written and read back again."
 | testingRegistryPath byteArray readData readDataHex |
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-readData := testingRegistryPath valueNamed: 'non-zero'.
-self assert: readData = #[17 16].
 byteArray := ByteArray new: 5.
 "/ data to be written
 byteArray replaceElementsFrom: 1 to: 5 withArray: #[18 234 11 0 18] startingAt: 1.
 self run:#testWriteValueNamedPut_REG_BINARY_02
 self new testWriteValueNamedPut_REG_BINARY_02
 "
 "Created: / 04-12-2018 / 12:04:18 / svestkap"
-"Modified: / 12-12-2018 / 13:15:23 / svestkap"
+"Modified (format): / 01-02-2019 / 13:55:13 / svestkap"
 !
 testWriteValueNamedPut_REG_BINARY_03
 "Testing if new REG_BINARY value name is written correctly via valueNamed:put:
 Data is written and read back again."
 | testingRegistryPath byteArray readData readDataHex |
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 byteArray := ByteArray new: 5.
 self run:#testWriteValueNamedPut_REG_BINARY_03
 self new testWriteValueNamedPut_REG_BINARY_03
 "
 "Created: / 07-12-2018 / 15:15:06 / svestkap"
+"Modified (format): / 01-02-2019 / 13:56:49 / svestkap"
 !
 testWriteValueNamedPut_REG_BINARY_04
 "Testing if new REG_BINARY value name is written correctly via valueNamed:put: with registry type and size check
 Data is written and read back again."
 | testingRegistryPath byteArray readData readDataHex registryType |
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 byteArray := ByteArray new: 5.
 self run:#testWriteValueNamedPut_REG_BINARY_04
 self new testWriteValueNamedPut_REG_BINARY_04
 "
 "Created: / 12-12-2018 / 12:36:46 / svestkap"
+"Modified (format): / 01-02-2019 / 13:56:52 / svestkap"
 !
 testWriteValueNamedPut_REG_BINARY_05
 "Testing if REG_BINARY values are written correctly via valueNamed:put:
 Data is written and read back again."
 | testingRegistryPath byteArray readData readDataHex registryType |
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 readData := testingRegistryPath valueNamed: 'non-zero'.
 self run:#testWriteValueNamedPut_REG_BINARY_05
 self new testWriteValueNamedPut_REG_BINARY_05
 "
 "Created: / 12-12-2018 / 13:16:13 / svestkap"
+"Modified (format): / 01-02-2019 / 13:56:55 / svestkap"
 !
 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.
-readData := testingRegistryPath valueNamed: 'dword_value'.
-self assert: readData = 9135. "/ the previous value
 testingRegistryPath valueNamed: 'dword_value' put: 7337.
 readData := testingRegistryPath valueNamed: 'dword_value'.
-self assert: readData = 7337. "/ the new value
+self assert: readData = 7337.
 "
 self run:#testWriteValueNamedPut_REG_DWORD_01
 self new testWriteValueNamedPut_REG_DWORD_01
 "
 "Created: / 05-12-2018 / 11:35:52 / svestkap"
-"Modified (comment): / 12-12-2018 / 13:07:15 / svestkap"
+"Modified: / 07-12-2018 / 15:13:18 / svestkap"
+"Modified (format): / 01-02-2019 / 13:56:59 / 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)
 self new testWriteValueNamedPut_REG_DWORD_02
 "
 "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"
 !
 testWriteValueNamedPut_REG_DWORD_03
 "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.
 self run:#testWriteValueNamedPut_REG_DWORD_03
 self new testWriteValueNamedPut_REG_DWORD_03
 "
 "Created: / 05-12-2018 / 11:35:36 / svestkap"
-"Modified (format): / 07-12-2018 / 15:14:33 / svestkap"
+"Modified (format): / 01-02-2019 / 13:57:05 / 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.
 self run:#testWriteValueNamedPut_REG_DWORD_04
 self new testWriteValueNamedPut_REG_DWORD_04
 "
 "Created: / 05-12-2018 / 11:39:00 / svestkap"
-"Modified (format): / 07-12-2018 / 15:14:24 / svestkap"
+"Modified (format): / 01-02-2019 / 13:57:09 / svestkap"
 !
 testWriteValueNamedPut_REG_DWORD_05
-"Testing if REG_DWORD values are written correctly via valueNamed:put:
+"Testing if trying to access REG_DWORD values via name as number raises a predefined error"
-Data is written and read back again.
+| testingRegistryPath |
-Note: user should see a warning message on Transcript"
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-| readData testingRegistryPath |
+self should: [ testingRegistryPath valueNamed: 11 put: 7337] raise: Error
-readData := Unicode16String new.
+suchThat: [ :e | e messageText = 'nameString is not a string!!' ].
-testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-readData := testingRegistryPath valueNamed: '11'.
-self assert: readData = 'A number name'.
-self should: [ testingRegistryPath valueNamed: 11 put: 7337] raise: Error.
-self assert: readData = 'A number name'.
 "
 self run:#testWriteValueNamedPut_REG_DWORD_05
 self new testWriteValueNamedPut_REG_DWORD_05
 "
 "Created: / 05-12-2018 / 12:29:06 / svestkap"
-"Modified (format): / 07-12-2018 / 09:36:30 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:28:28 / svestkap"
 !
 testWriteValueNamedPut_REG_DWORD_06
 "Testing if new REG_DWORD value name is written correctly via valueNamed:put:
 Data is written and read back again."
 "Created: / 07-12-2018 / 15:10:24 / 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.
 self run:#testWriteValueNamedPut_REG_DWORD_07
 self new testWriteValueNamedPut_REG_DWORD_07
 "
 "Created: / 12-12-2018 / 12:13:53 / svestkap"
+"Modified (format): / 01-02-2019 / 14:10:04 / svestkap"
 !
 testWriteValueNamedPut_REG_EXPAND_SZ_01
 "Testing if REG_EXPAND_SZ values are written correctly via valueNamed:put:
 Data is written and read back again."
 | readData testingRegistryPath |
 readData := Unicode16String new.
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 testingRegistryPath valueNamed: 'bledesu' put: '"%PATH%"' unexpandedReferences: true.
 self run:#testWriteValueNamedPut_REG_EXPAND_SZ_01
 self new testWriteValueNamedPut_REG_EXPAND_SZ_01
 "
 "Created: / 07-12-2018 / 15:08:50 / svestkap"
+"Modified (format): / 01-02-2019 / 14:29:14 / svestkap"
 !
 testWriteValueNamedPut_REG_EXPAND_SZ_02
 "Testing if new REG_EXPAND_SZ value name is written correctly via valueNamed:put:
 Data is written and read back again."
 | readData testingRegistryPath |
 readData := Unicode16String new.
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 testingRegistryPath valueNamed: 'Yooooル' put: '"%PATH%"' unexpandedReferences: true.
 self run:#testWriteValueNamedPut_REG_EXPAND_SZ_02
 self new testWriteValueNamedPut_REG_EXPAND_SZ_02
 "
 "Created: / 07-12-2018 / 15:09:14 / svestkap"
+"Modified (format): / 01-02-2019 / 14:29:20 / 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."
 !
 testWriteValueNamedPut_REG_EXPAND_SZ_04
 "Testing if REG_EXPAND_SZ values are written correctly via valueNamed:put: with registry type and size check
 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
 self run:#testWriteValueNamedPut_REG_EXPAND_SZ_04
 self new testWriteValueNamedPut_REG_EXPAND_SZ_04
 "
 "Created: / 12-12-2018 / 13:22:25 / svestkap"
+"Modified (format): / 01-02-2019 / 14:29:48 / svestkap"
 !
 testWriteValueNamedPut_REG_MULTI_SZ_01
 "Testing if REG_MULTI_SZ values are write correctly via valueNamed:put:"
 | readData testingRegistryPath |
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 testingRegistryPath valueNamed: 'Font_Leelawadee UI Bold' put: #('SEGOEUIB.TTF,Segoe UI Bold,110,82' 'řeřicha - ルすしかき').
 readData := testingRegistryPath valueNamed: 'Font_Leelawadee UI Bold'.
 self run:#testWriteValueNamedPut_REG_MULTI_SZ_01
 self new testWriteValueNamedPut_REG_MULTI_SZ_01
 "
 "Created: / 27-11-2018 / 09:29:57 / svestkap"
-"Modified (format): / 07-12-2018 / 15:17:03 / svestkap"
+"Modified (format): / 01-02-2019 / 14:30:32 / svestkap"
 !
 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 compromize between size and speed)"
+Testing here a 2^16 + 2 sized OrderedCollection (a reasonable trade-off between size and speed)"
 | testingRegistryPath testData testDataArray readData |
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 testData := OrderedCollection new.
 self run:#testWriteValueNamedPut_REG_MULTI_SZ_02
 self new testWriteValueNamedPut_REG_MULTI_SZ_02
 "
 "Created: / 28-11-2018 / 14:46:55 / svestkap"
-"Modified (comment): / 03-12-2018 / 09:56:15 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:32:22 / svestkap"
 !
 testWriteValueNamedPut_REG_MULTI_SZ_03
-"Testing if REG_MULTI_SZ values are write correctly via valueNamed:put:"
+"Testing if REG_MULTI_SZ an empty array is written via valueNamed:put:"
 | readData testingRegistryPath |
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 testingRegistryPath valueNamed: 'Font_Leelawadee UI Bold' put: Array new.
 readData := testingRegistryPath valueNamed: 'Font_Leelawadee UI Bold'.
 self run:#testWriteValueNamedPut_REG_MULTI_SZ_03
 self new testWriteValueNamedPut_REG_MULTI_SZ_03
 "
 "Created: / 05-12-2018 / 11:54:05 / svestkap"
-"Modified (format): / 07-12-2018 / 15:17:15 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:33:14 / svestkap"
 !
 testWriteValueNamedPut_REG_MULTI_SZ_04
 "Testing if new REG_MULTI_SZ value name is written correctly via valueNamed:put:"
 | readData testingRegistryPath |
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 testingRegistryPath valueNamed: 'new_reg_multiル' put: #('SEGOEUIB.TTF,Segoe UI Bold,110,82' 'řeřicha - ルすしかき').
 readData := testingRegistryPath valueNamed: 'new_reg_multiル'.
 self run:#testWriteValueNamedPut_REG_MULTI_SZ_04
 self new testWriteValueNamedPut_REG_MULTI_SZ_04
 "
 "Created: / 07-12-2018 / 15:08:03 / svestkap"
+"Modified (format): / 01-02-2019 / 14:33:54 / svestkap"
 !
 testWriteValueNamedPut_REG_MULTI_SZ_05
 "Testing if REG_MULTI_SZ values are write correctly via valueNamed:put: with registry type and size check"
 | registryType readData testingRegistryPath |
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 testingRegistryPath valueNamed: 'Font_Leelawadee UI Bold' put: #('SEGOEUIB.TTF,Segoe UI Bold,110,82' 'řeřicha - ルすしかき').
 readData := testingRegistryPath valueNamed: 'Font_Leelawadee UI Bold'.
 self run:#testWriteValueNamedPut_REG_MULTI_SZ_05
 self new testWriteValueNamedPut_REG_MULTI_SZ_05
 "
 "Created: / 12-12-2018 / 11:34:08 / svestkap"
-"Modified (comment): / 12-12-2018 / 12:59:04 / svestkap"
+"Modified (format): / 01-02-2019 / 14:34:22 / svestkap"
 !
 testWriteValueNamedPut_REG_NONE_01
 "Testing if REG_NONE values are written correctly via valueNamed:put:
 Data is written and read back again."
 | readData testingRegistryPath |
 readData := Unicode16String new.
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 testingRegistryPath valueNamed: 'bledesu' put: nil.
 self run:#testWriteValueNamedPut_REG_NONE_01
 self new testWriteValueNamedPut_REG_NONE_01
 "
 "Created: / 07-12-2018 / 15:06:08 / svestkap"
+"Modified (format): / 01-02-2019 / 14:34:27 / svestkap"
 !
 testWriteValueNamedPut_REG_NONE_02
 "Testing if new REG_NONE value name is written correctly via valueNamed:put:
 Data is written and read back again."
 | readData testingRegistryPath |
 readData := Unicode16String new.
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 testingRegistryPath valueNamed: 'New nilル name' put: nil.
 self run:#testWriteValueNamedPut_REG_NONE_02
 self new testWriteValueNamedPut_REG_NONE_02
 "
 "Created: / 07-12-2018 / 15:06:48 / svestkap"
+"Modified (format): / 01-02-2019 / 14:34:44 / svestkap"
 !
 testWriteValueNamedPut_REG_NONE_03
-"Testing if new REG_NONE value name is written correctly via valueNamed:put: with registry type and size check
+"Testing if new REG_NONE value name is written correctly via valueNamed:put:
-Data is written and read back again."
+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.
 self run:#testWriteValueNamedPut_REG_NONE_03
 self new testWriteValueNamedPut_REG_NONE_03
 "
 "Created: / 12-12-2018 / 12:47:40 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:35:12 / svestkap"
 !
 testWriteValueNamedPut_REG_QWORD_01
-"Testing if max QWORD value is written and read correctly from REG_QWORD (valueNamed:put: and valueNamed:)
+"Testing if max QWORD value is written and read correctly from REG_QWORD (valueNamed:put: and valueNamed:).
-Storing maximum QWORD value (0xffffffffffffffff -> 18446744073709551615(x64))   "
+Storing maximum QWORD value (0xffffffffffffffff -> 18446744073709551615x64)"
 | readData testingRegistryPath |
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 testingRegistryPath valueNamed: 'qword_max' put: 18446744073709551615.
 readData := testingRegistryPath valueNamed: 'qword_max'.
 self new testReadValueNamed_REG_QWORD_01
 "
 "Created: / 26-11-2018 / 14:54:45 / svestkap"
 "Modified: / 07-12-2018 / 15:11:56 / svestkap"
-"Modified (comment): / 12-12-2018 / 12:58:31 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:37:55 / svestkap"
 !
 testWriteValueNamedPut_REG_QWORD_02
 "Testing what happens if more then max value is stored in REG_QWORD registry type (valueNamed:put: and valueNamed:)"
 | readData testingRegistryPath |
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 "/ max QWORD value is: 0xff-ff-ff-ff-ff-ff-ff-ff -> 18446744073709551615 (on x64 only)
 testingRegistryPath valueNamed: 'qword_max' put: 18446744073709551700.
 self new testWriteValueNamedPut_REG_QWORD_02
 "
 "Created: / 04-12-2018 / 11:02:20 / svestkap"
 "Modified: / 07-12-2018 / 15:12:12 / svestkap"
+"Modified (format): / 01-02-2019 / 14:36:06 / svestkap"
 !
 testWriteValueNamedPut_REG_QWORD_03
 "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.
 self run:#testWriteValueNamedPut_REG_QWORD_03
 self new testWriteValueNamedPut_REG_QWORD_03
 "
 "Created: / 07-12-2018 / 15:05:48 / svestkap"
+"Modified (format): / 01-02-2019 / 14:36:20 / svestkap"
 !
 testWriteValueNamedPut_REG_QWORD_04
 "Testing if max QWORD value is written and read correctly from REG_QWORD (valueNamed:put: and valueNamed:)
-with registry type and size check
+with registry type and size check. Storing maximum QWORD value (0xffffffffffffffff -> 18446744073709551615(x64))"
-Storing maximum QWORD value (0xffffffffffffffff -> 18446744073709551615(x64)) "
 | readData testingRegistryPath registryType |
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 testingRegistryPath valueNamed: 'qword_max' put: 18446744073709551615.
 readData := testingRegistryPath valueNamed: 'qword_max'.
 self run:#testWriteValueNamedPut_REG_QWORD_04
 self new testWriteValueNamedPut_REG_QWORD_04
 "
 "Created: / 12-12-2018 / 12:08:35 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:36:34 / svestkap"
 !
 testWriteValueNamedPut_REG_QWORD_05
 "Testing if max QWORD value is written and read correctly from REG_QWORD (valueNamed:put: and valueNamed:)
-with registry type and size check.  Notice the #REG_SZ -> #REG_QWORD change
+with registry type and size check.  Notice the #REG_SZ -> #REG_QWORD change.
-Storing maximum QWORD value (0xffffffffffffffff -> 18446744073709551615(x64)) "
+Storing maximum QWORD value (0xffffffffffffffff -> 18446744073709551615(x64))"
 | readData testingRegistryPath registryType |
 testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
 "/ checking type and size
 registryType := testingRegistryPath valueTypeAndSize: ' ř ž č ル.          '.
 self run:#testWriteValueNamedPut_REG_QWORD_05
 self new testWriteValueNamedPut_REG_QWORD_05
 "
 "Created: / 12-12-2018 / 13:38:31 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:37:40 / svestkap"
 !
 testWriteValueNamedPut_REG_SZ_01
-"Testing if REG_SZ values are written correctly via valueNamed:put:
+"Testing if REG_SZ values are written correctly via valueNamed:put:.
 Data is written and read back again."
+| readData testingRegistryPath |
-| readData testingRegistryPath |
+readData := Unicode16String new.
-readData := Unicode16String new.
+testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
-testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
+testingRegistryPath valueNamed: 'bledesu' put: 'řeřicha - ルすしかき'.
 readData := testingRegistryPath valueNamed: 'bledesu'.
-self assert: readData = '''Testing Unicode chars ř ž č ルすしかき'').          '.
-"/ saving data (unicode string) into registry
-testingRegistryPath valueNamed: 'bledesu' put: 'řeřicha - ルすしかき'.
-readData := testingRegistryPath valueNamed: 'bledesu'.
 self assert: readData = 'řeřicha - ルすしかき'.
 "
 self run:#testWriteValueNamedPut_REG_SZ_01
 self new testWriteValueNamedPut_REG_SZ_01
 "
 "Created: / 26-11-2018 / 09:51:58 / svestkap"
-"Modified (comment): / 12-12-2018 / 13:53:10 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:38:18 / svestkap"
 !
 testWriteValueNamedPut_REG_SZ_02
-"Testing if REG_SZ values are written correctly via valueNamed:put:
+"Testing if REG_SZ values are written correctly via valueNamed:put:. Data is written and read back again.
-Data is written and read back again.
 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: 'しかき    '.
 self assert: readData = 'řeřicha - ルすしかき'.
 "
 self run:#testReadValueNamed_REG_SZ_03
 self new testReadValueNamed_REG_SZ_03
 "
 "Created: / 26-11-2018 / 14:10:35 / svestkap"
-"Modified (format): / 07-12-2018 / 15:17:55 / svestkap"
+"Modified (format): / 01-02-2019 / 14:41:51 / svestkap"
 !
 testWriteValueNamedPut_REG_SZ_03
-"Testing if REG_SZ empty value is written correctly via valueNamed:put:
+"Testing if REG_SZ empty value is written correctly via valueNamed:put:. Data is written and read back again.
-Data is written and read back again.
 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: 'しかき    '.
 self assert: readData = ''
 "
 self run:#testWriteValueNamedPut_REG_SZ_03
 self new testWriteValueNamedPut_REG_SZ_03
 "
 "Created: / 05-12-2018 / 10:16:59 / svestkap"
-"Modified (format): / 07-12-2018 / 15:17:59 / svestkap"
+"Modified (format): / 01-02-2019 / 14:41:35 / svestkap"
 !
 testWriteValueNamedPut_REG_SZ_04
-"Testing if REG_SZ empty value is written correctly via valueNamed:put:
+"Testing if REG_SZ empty value is written correctly via valueNamed:put:. Data is written and read back again.
-Data is written and read back again.
 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'.
 self assert: readData = ''
 "
 self run:#testWriteValueNamedPut_REG_SZ_04
 self new testWriteValueNamedPut_REG_SZ_04
 "
 "Created: / 05-12-2018 / 10:22:39 / svestkap"
-"Modified (format): / 07-12-2018 / 15:18:04 / svestkap"
+"Modified (format): / 01-02-2019 / 14:41:26 / svestkap"
 !
 testWriteValueNamedPut_REG_SZ_05
-"Testing if REG_SZ completely new value is written correctly via valueNamed:put:
+"Testing if REG_SZ completely new value is written correctly via valueNamed:put:.
 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'.
 self assert: readData = 'Singルing'
 "
 self run:#testWriteValueNamedPut_REG_SZ_05
 self new testWriteValueNamedPut_REG_SZ_05
 "
 "Created: / 07-12-2018 / 15:03:05 / svestkap"
+"Modified (format): / 01-02-2019 / 14:40:47 / svestkap"
 !
 testWriteValueNamedPut_REG_SZ_06
 "Testing if REG_SZ completely new value 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: 'Newル guy' put: 'Singルing'.
 self assert: registryType first equals: 8.
 readData := testingRegistryPath valueNamed: 'Newル guy'.
 self assert: readData = 'Singルing'
 "
 self run:#testWriteValueNamedPut_REG_SZ_06
 self new testWriteValueNamedPut_REG_SZ_06
 "
 "Created: / 12-12-2018 / 12:39:52 / svestkap"
+"Modified (format): / 01-02-2019 / 14:43:29 / svestkap"
 !
 testWriteValueNamedPut_REG_SZ_07
-"Testing if REG_SZ values are written correctly via valueNamed:put: (notice the registry type change: #REG_MULTI_SZ to #REG_SZ)
+"Testing if REG_SZ values are written correctly via valueNamed:put:. Data is written and read back again.
-Data is written and read back again."
+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
 self run:#testWriteValueNamedPut_REG_SZ_07
 self new testWriteValueNamedPut_REG_SZ_07
 "
 "Created: / 12-12-2018 / 13:48:00 / svestkap"
+"Modified (comment): / 01-02-2019 / 14:44:48 / svestkap"
 ! !
 !Win32OperatingSystemTest class methodsFor:'documentation'!
 version

branch	jv
changeset 2086	677b483367cf
parent 2085	823598772842
child 2087	43b964e25f8a