Mercurial Mercurial > hg > stx-goodies-regression / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
RegressionTests__Win32OperatingSystemTest.st
branchjv
changeset 2086 677b483367cf
parent 2085 823598772842
child 2087 43b964e25f8a 
--- a/RegressionTests__Win32OperatingSystemTest.st	Fri Feb 01 16:04:53 2019 +0100
+++ b/RegressionTests__Win32OperatingSystemTest.st	Fri Feb 01 16:12:13 2019 +0100
@@ -362,13 +362,338 @@
   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'!
@@ -376,10 +701,11 @@
 setUp
     | registryToImport file |
 
-    self skipIf: OperatingSystem isMSWINDOWSlike not description: 'Windows specific tests'.
-    super setUp.
-            
-    registryToImport := self unicodeRegistryExample.    
+    self skipIf: OperatingSystem isMSWINDOWSlike not description: 'Windows only tests (registry manipulation)'.
+    super setUp.    
+
+    registryToImport := (OperatingSystem getSystemInfo at: #architecture) = #x64 ifTrue: [ self unicodeRegistryExample ]
+                                                                                ifFalse: [ self unicodeRegistryExample32bit ].
     
     "/ registry path which will be used  
     registryPath := registryToImport 
@@ -414,7 +740,7 @@
     ] 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
@@ -770,6 +1096,28 @@
     "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 |
@@ -927,19 +1275,18 @@
 !
 
 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.
+    subKeysCount := readSubKeys size.    
+    self assert: subKeysCount = 3.
     
-    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
     
     "
@@ -948,6 +1295,7 @@
     "
 
     "Created: / 07-12-2018 / 15:50:18 / svestkap"
+    "Modified (comment): / 01-02-2019 / 15:06:05 / svestkap"
 !
 
 testOpenSubKeyNamed_nonExisting_02
@@ -957,13 +1305,12 @@
     readData := Unicode16String new.    
     testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     readSubKeys := testingRegistryPath subKeys. 
-    subKeysCount := readSubKeys size.
+    subKeysCount := readSubKeys size.    
+    self assert: subKeysCount = 3.
     
-    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
     
     "
@@ -972,13 +1319,13 @@
     "
 
     "Created: / 07-12-2018 / 15:50:48 / svestkap"
+    "Modified (format): / 01-02-2019 / 15:05:45 / svestkap"
 ! !
 
 !Win32OperatingSystemTest methodsFor:'tests-unicodeDelete'!
 
-testDeleteSubKeyNamed
-    "Testing deleting of empty subKey via deleteSubKeyNamed:"
-    
+testDeleteSubKeyNamed_01
+    "Testing deleting of empty subKey via deleteSubKeyNamed:"  
     | returnValue testingRegistryPath |
 
     testingRegistryPath := Win32OperatingSystem registryEntry key:  registryPath.
@@ -988,16 +1335,36 @@
     self assert: returnValue
  
     "
-     self run:#testDeleteSubKeyNamed
-     self new testDeleteSubKeyNamed
+     self run:#testDeleteSubKeyNamed_01
+     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"
+     Wow subsystem enables running 32bit applications on 64bit windows"
     | returnValue testingRegistryPath |
     
     self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.
@@ -1014,6 +1381,7 @@
     "
 
     "Created: / 07-12-2018 / 14:56:39 / svestkap"
+    "Modified (comment): / 01-02-2019 / 15:00:17 / svestkap"
 !
 
 testDeleteSubKeyNamed_Wow64_64
@@ -1039,11 +1407,10 @@
 
 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, '\', ' ルすしか').
+    testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
     registryValueName := 'non-zero'.
 
     readData := testingRegistryPath valueNamed: registryValueName.
@@ -1062,15 +1429,15 @@
 
     "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, '\', ' ルすしか').
+    testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
     registryValueName := 'dword_value'.
 
     readData := testingRegistryPath valueNamed: registryValueName.
@@ -1089,15 +1456,15 @@
 
     "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:"
-    
+    "Testing if REG_EXPAND_SZ value name is correctly deleted via deleteValueNamed:"  
     | readData testingRegistryPath registryValueName deleteResult |
 
     readData := Unicode16String new.    
-        testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
+    testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
     registryValueName := ' č ルすしか'.
 
     readData := testingRegistryPath valueNamed: registryValueName.
@@ -1115,15 +1482,17 @@
     "
 
     "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:"
+    "Testing if REG_QWORD value name is correctly deleted via deleteValueNamed:"  
+    | readData testingRegistryPath registryValueName deleteResult |
     
-    | readData testingRegistryPath registryValueName deleteResult |
+    self skipIf: (OperatingSystem getSystemInfo at: #architecture) ~= #x64 description: 'Test only for x64 architecture'.  
 
     readData := Unicode16String new.    
-        testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
+    testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', ' ルすしか').
     registryValueName := 'qword_max'.
     
     readData := testingRegistryPath valueNamed: registryValueName.
@@ -1141,11 +1510,11 @@
     "
 
     "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.    
@@ -1162,16 +1531,40 @@
     self assert: readData isEmptyOrNil    
 
     "
-     self run:#testDeleteValueNamed_REG_SZ
-     self new testDeleteValueNamed_REG_SZ
+     self run:#testDeleteValueNamed_REG_SZ_01
+     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:"
-    
+    "Testing if (Default) value gets correctly deleted via deleteValueNamed:"    
     | readData registryValueName testingRegistryPath deleteResult|
 
     readData := Unicode16String new.    
@@ -1194,11 +1587,11 @@
     "
 
     "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:"
-    
+    "Testing if deleting (Default) empty gets false via deleteValueNamed:"    
     | readData registryValueName testingRegistryPath deleteResult|
 
     readData := Unicode16String new.    
@@ -1217,34 +1610,31 @@
     "
 
     "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
-     and user should see in Transcript a warning message"
-    
+testDeleteValueNamed_nonStringValue
+    "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 new testDeleteValueNamed_nonStringVAlue
+     self run:#testDeleteValueNamed_nonStringValue
+     self new testDeleteValueNamed_nonStringValue
     "
 
-    "Created: / 06-12-2018 / 14:10:18 / svestkap"
-    "Modified: / 07-12-2018 / 09:34:38 / svestkap"
+    "Created: / 01-02-2019 / 15:02:57 / 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.    
@@ -1276,19 +1666,19 @@
     self assert: returnValue
  
     "
-     self run:#testDeleteSubKeyNamed
-     self new testDeleteSubKeyNamed
+     self run:#testDeleteSubKeyNamed_deletingMultipleSubKeys
+     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!!!!!!"
-
+     WARNING: subKeyAtIndex: is zero based!!!!!!"
     | readData testingRegistryPath |
 
     readData := Unicode16String new.    
@@ -1305,12 +1695,12 @@
     "
 
     "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!!!!!!"
-
+     WARNING: subKeyAtIndex: is zero based!!!!!!"
     | readData testingRegistryPath |
 
     readData := Unicode16String new.    
@@ -1326,11 +1716,74 @@
     "
 
     "Created: / 11-12-2018 / 14:49:03 / svestkap"
+    "Modified (format): / 01-02-2019 / 13:24:48 / svestkap"
+!
+
+testReadSubKeyAtIndex_03
+    "Reading subKeys via a String - should raise an error"
+    | testingRegistryPath |
+ 
+    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"
-
+    "Reading SubKeyNamesAndClasses - reading non-existent subKey"
     | readData testingRegistryPath |
 
     readData := Unicode16String new.    
@@ -1346,14 +1799,99 @@
     "
 
     "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" 
-
+     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.    
@@ -1370,11 +1908,11 @@
     "
 
     "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.    
@@ -1390,14 +1928,575 @@
     "
 
     "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
-     The path is suppassing the Microsoft limit - for more information see testReadSubKeyAtIndex_MaxPath_01"
-
+    "Reading via allSubKeysDo (using subKeyAtIndex:)with maximum path length.
+     The path suppasses the limit specified by Microsoft - for more information see testReadSubKeyAtIndex_MaxPath_01"
     | readData testingRegistryPath |
 
     readData := OrderedCollection new.    
@@ -1426,24 +2525,23 @@
     "
 
     "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 |
-
+       https://docs.microsoft.com/en-us/windows/desktop/SysInfo/predefined-keys"
+    | testingRegistryPath remoteRegistry readData  |
+    
     "/ HKEY_CURRENT_USER is one of the predefined keys
-    testingRegistryPath := Win32OperatingSystem registryEntry key: 'HKEY_CURRENT_USER'.      
-    
+    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 ].
@@ -1452,25 +2550,45 @@
     self assert: (readData includes: 'software').    
 
     "
-     self run:#testReadRemoteKeyOnHost
-     self new testReadRemoteKeyOnHost
+     self run:#testReadRemoteKeyOnHost_01
+     self new testReadRemoteKeyOnHost_01
     "
 
-    "Created: / 05-12-2018 / 12:41:06 / svestkap"
-    "Modified (format): / 16-01-2019 / 14:20:37 / svestkap"
+    "Created: / 31-01-2019 / 12:11:06 / 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
-     The path is suppassing the Microsoft limit - for more information see testReadSubKeyNamesAndClassesAtIndex_MaxPath_01"
-
+    "Reading SubKeyNamesAndClasses with maximum path length.
+     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.
     ].     
 
@@ -1484,19 +2602,19 @@
     "
 
     "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
-     The path is suppassing the Microsoft limit - for more information see testReadSubKeyAtIndex_MaxPath_01"
-
+    "Reading data via subKeysDo (using subKeyAtIndex:) with maximum path length.
+     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
     ].     
     
@@ -1516,12 +2634,12 @@
     "
 
     "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
-     The path is suppassing the Microsoft limit - for more information see testReadSubKeyAtIndex_MaxPath_01"
-
+    "Reading via subKeys (using subKeyAtIndex:) with maximum path length.
+     The path suppasses the limit specified by Microsoft - for more information see testReadSubKeyAtIndex_MaxPath_01"
     | readData testingRegistryPath |
     
     testingRegistryPath := Win32OperatingSystem registryEntry key: 
@@ -1545,12 +2663,12 @@
     "
 
     "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
-     The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
-
+    "Reading data via #valueNamesAndValuesDo: (using #valueNameAtIndex:) with maximum path length.
+     The path suppasses the limit specified by Microsoft - for more information see testReadValueNameAtIndex_01"
     | readData testingRegistryPath |
 
     readData := OrderedDictionary new.    
@@ -1576,11 +2694,11 @@
     "
 
     "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.    
@@ -1598,11 +2716,11 @@
     "
 
     "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.    
@@ -1620,12 +2738,12 @@
     "
 
     "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.    
@@ -1653,12 +2771,12 @@
     "
 
     "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: 
@@ -1679,12 +2797,12 @@
     "
 
     "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.    
@@ -1710,11 +2828,11 @@
     "
 
     "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.    
@@ -1732,16 +2850,16 @@
     "
 
     "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"
-
+     Note: the value is stored in (Default) value at the key"
     | testingRegistryPath readData |
-
+    
     registryPath := registryPath, '\', ' ルすしか'.
     testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     
@@ -1759,12 +2877,12 @@
     "
 
     "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"
-
+     Note: the value is stored in (Default) value at the key"
     | testingRegistryPath registryType readData |
 
     registryPath := registryPath, '\', ' ルすしか'.
@@ -1793,12 +2911,12 @@
 
     "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.    
@@ -1814,20 +2932,16 @@
     "
 
     "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. 
@@ -1846,13 +2960,12 @@
     "
 
     "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.
@@ -1875,12 +2988,12 @@
     "
 
     "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.
@@ -1907,12 +3020,12 @@
     "
 
     "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.
@@ -1946,22 +3059,19 @@
     "
 
     "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
@@ -1969,12 +3079,12 @@
     "
 
     "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.          
@@ -1992,12 +3102,12 @@
 
     "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.          
@@ -2013,13 +3123,12 @@
     "
 
     "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.          
@@ -2035,24 +3144,17 @@
     "
 
     "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:
-     Data is written and read back again.
-     Note: user should see a warning message on Transcript"
-
-    | readData testingRegistryPath |
-
-    readData := Unicode16String new.    
+    "Testing if trying to access REG_DWORD values via name as number raises a predefined error"
+    | testingRegistryPath |
+
     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 should: [ testingRegistryPath valueNamed: 11 put: 7337] raise: Error
+        suchThat: [ :e | e messageText = 'nameString is not a string!!' ].        
 
     "
      self run:#testWriteValueNamedPut_REG_DWORD_05
@@ -2060,7 +3162,7 @@
     "
 
     "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
@@ -2086,7 +3188,6 @@
 
 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.     
@@ -2124,12 +3225,12 @@
     "
 
     "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.    
@@ -2145,12 +3246,12 @@
     "
 
     "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.    
@@ -2166,6 +3267,7 @@
     "
 
     "Created: / 07-12-2018 / 15:09:14 / svestkap"
+    "Modified (format): / 01-02-2019 / 14:29:20 / svestkap"
 !
 
 testWriteValueNamedPut_REG_EXPAND_SZ_03
@@ -2196,7 +3298,6 @@
 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.    
@@ -2225,11 +3326,11 @@
     "
 
     "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.
@@ -2244,14 +3345,13 @@
     "
 
     "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)"
-
+     The value data could be up to available memory (in reality NOT recommended to go over 1MB).
+     Testing here a 2^16 + 2 sized OrderedCollection (a reasonable trade-off between size and speed)"
     | testingRegistryPath testData testDataArray readData |
 
     testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.    
@@ -2277,12 +3377,11 @@
     "
 
     "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.
@@ -2298,12 +3397,11 @@
     "
 
     "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.
@@ -2318,11 +3416,11 @@
     "
 
     "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.
@@ -2343,13 +3441,12 @@
     "
 
     "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.    
@@ -2365,12 +3462,12 @@
     "
 
     "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.    
@@ -2386,12 +3483,12 @@
     "
 
     "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
-     Data is written and read back again."
-
+    "Testing if new REG_NONE value name is written correctly via valueNamed:put: 
+     with registry type and size check. Data is written and read back again."
     | readData testingRegistryPath registryType |
 
     readData := Unicode16String new.    
@@ -2412,12 +3509,12 @@
     "
 
     "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:)
-     Storing maximum QWORD value (0xffffffffffffffff -> 18446744073709551615(x64))   "
-
+    "Testing if max QWORD value is written and read correctly from REG_QWORD (valueNamed:put: and valueNamed:).
+     Storing maximum QWORD value (0xffffffffffffffff -> 18446744073709551615x64)"
     | readData testingRegistryPath |
 
     testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
@@ -2433,12 +3530,11 @@
 
     "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.
@@ -2457,11 +3553,11 @@
 
     "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.    
@@ -2477,13 +3573,12 @@
     "
 
     "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
-     Storing maximum QWORD value (0xffffffffffffffff -> 18446744073709551615(x64)) "
-
+     with registry type and size check. Storing maximum QWORD value (0xffffffffffffffff -> 18446744073709551615(x64))"
     | readData testingRegistryPath registryType |
 
     testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
@@ -2502,13 +3597,13 @@
     "
 
     "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
-     Storing maximum QWORD value (0xffffffffffffffff -> 18446744073709551615(x64)) "
-
+     with registry type and size check.  Notice the #REG_SZ -> #REG_QWORD change.
+     Storing maximum QWORD value (0xffffffffffffffff -> 18446744073709551615(x64))"
     | readData testingRegistryPath registryType |
 
     testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
@@ -2536,24 +3631,19 @@
     "
 
     "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 := Unicode16String new.    
     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 - ルすしかき'.
 
     "
@@ -2562,14 +3652,12 @@
     "
 
     "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:
-     Data is written and read back again.
+    "Testing if REG_SZ values are written correctly via valueNamed:put:. Data is written and read back again.
      Note: this is testing Unicode with spaces - probably the worst combination"
-
     | readData testingRegistryPath |
 
     readData := Unicode16String new.    
@@ -2579,20 +3667,18 @@
 
     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:
-     Data is written and read back again.
+    "Testing if REG_SZ empty value is written correctly via valueNamed:put:. Data is written and read back again.
      Note: this is testing Unicode with spaces - probably the worst combination"
-
     | readData testingRegistryPath |
 
     readData := Unicode16String new.    
@@ -2602,20 +3688,18 @@
 
     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:
-     Data is written and read back again.
+    "Testing if REG_SZ empty value is written correctly via valueNamed:put:. Data is written and read back again.
      Note: this is testing Unicode with spaces - probably the worst combination"
-
     | readData testingRegistryPath |
 
     readData := Unicode16String new.    
@@ -2625,19 +3709,18 @@
 
     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.    
@@ -2647,18 +3730,18 @@
 
     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.    
@@ -2672,18 +3755,18 @@
     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)
-     Data is written and read back again."
-
+    "Testing if REG_SZ values are written correctly via valueNamed:put:. Data is written and read back again.
+     Note: the registry type change: #REG_MULTI_SZ to #REG_SZ."
     | readData testingRegistryPath registryType |
 
     readData := Unicode16String new.    
@@ -2709,6 +3792,7 @@
     "
 
     "Created: / 12-12-2018 / 13:48:00 / svestkap"
+    "Modified (comment): / 01-02-2019 / 14:44:48 / svestkap"
 ! !
 
 !Win32OperatingSystemTest class methodsFor:'documentation'!
hg/stx-goodies-regression