RegressionTests__Win32OperatingSystemTest.st
author Patrik Svestka <patrik.svestka@gmail.com>
Wed, 16 Jan 2019 14:37:47 +0100
branchjv
changeset 2081 015864816df4
parent 2080 a27e62ccfc44
child 2085 823598772842
permissions -rwxr-xr-x
Issue #250: testReadRemoteKeyOnHost is skipped when remote registry service is not started
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
     1
"{ Encoding: utf8 }"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
     2
1974
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
     3
"
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
     4
 COPYRIGHT (c) Claus Gittinger / eXept Software AG
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
     5
 COPYRIGHT (c) 2016 Jan Vrany
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
     6
              All Rights Reserved
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
     7
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
     8
 This software is furnished under a license and may be used
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
     9
 only in accordance with the terms of that license and with the
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    10
 inclusion of the above copyright notice.   This software may not
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    11
 be provided or otherwise made available to, or used by, any
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    12
 other person.  No title to or ownership of the software is
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    13
 hereby transferred.
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    14
"
1447
2351db93aa5b package changes
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
    15
"{ Package: 'stx:goodies/regression' }"
344
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
"{ NameSpace: RegressionTests }"
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
TestCase subclass:#Win32OperatingSystemTest
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    20
	instanceVariableNames:'registryPath'
675
f98a0bb2f639 changed: #testMutex
Stefan Vogel <sv@exept.de>
parents: 355
diff changeset
    21
	classVariableNames:''
f98a0bb2f639 changed: #testMutex
Stefan Vogel <sv@exept.de>
parents: 355
diff changeset
    22
	poolDictionaries:''
1161
3d9b4eaddcf3 category changes
Claus Gittinger <cg@exept.de>
parents: 675
diff changeset
    23
	category:'tests-Regression-RuntimeSystem'
344
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
!
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
1974
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    26
!Win32OperatingSystemTest class methodsFor:'documentation'!
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    27
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    28
copyright
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    29
"
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    30
 COPYRIGHT (c) Claus Gittinger / eXept Software AG
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    31
 COPYRIGHT (c) 2016 Jan Vrany
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    32
              All Rights Reserved
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    33
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    34
 This software is furnished under a license and may be used
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    35
 only in accordance with the terms of that license and with the
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    36
 inclusion of the above copyright notice.   This software may not
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    37
 be provided or otherwise made available to, or used by, any
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    38
 other person.  No title to or ownership of the software is
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    39
 hereby transferred.
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    40
"
f2eaf05205d6 Copyright updates
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1566
diff changeset
    41
! !
344
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    43
!Win32OperatingSystemTest methodsFor:'file templates'!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    44
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    45
unicodeRegistryExample
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    46
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    47
^  'Windows Registry Editor Version 5.00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    48
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    49
[HKEY_CURRENT_USER\Software\SmalltalkX-tests]
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    50
"emptyToTest"=""
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    51
"testEmptyMultiSZ"=hex(7):00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    52
"bledesu"="''Testing Unicode chars ř ž č ルすしかき'').          "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    53
"しかき    "="Testus gradus"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    54
" ř ž č ル.          "="Testing Unicode chars ř ž č ルすしかき"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    55
"zero"=hex:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    56
"non-zero"=hex:11,10
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    57
"す    "=hex:10
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    58
"dword_value"=dword:000023af
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    59
"11"="A number name"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    60
"き"=dword:234234af
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    61
"qwordvalue"=hex(b):ad,61,28,a3,95,0e,74,79
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    62
"qword_max"=hex(b):ff,ff,ff,ff,ff,ff,ff,ff
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    63
"すし"=hex(b):ef,ad,00,00,00,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    64
"Font_Leelawadee UI Bold"=hex(7):53,00,45,00,47,00,4f,00,45,00,55,00,49,00,42,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    65
  00,2e,00,54,00,54,00,46,00,2c,00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    66
  49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,31,00,30,00,2c,00,38,00,32,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    67
  00,00,00,53,00,45,00,47,00,4f,00,45,00,55,00,49,00,42,00,2e,00,54,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    68
  46,00,2c,00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,42,00,6f,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    69
  00,6c,00,64,00,00,00,4d,00,45,00,49,00,52,00,59,00,4f,00,42,00,2e,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    70
  54,00,43,00,2c,00,4d,00,65,00,69,00,72,00,79,00,6f,00,20,00,55,00,49,00,20,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    71
  00,42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,30,00,2c,00,39,00,36,00,00,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    72
  4d,00,45,00,49,00,52,00,59,00,4f,00,42,00,2e,00,54,00,54,00,43,00,2c,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    73
  00,65,00,69,00,72,00,79,00,6f,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    74
  64,00,00,00,4d,00,53,00,4a,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    75
  00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,4a,00,68,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    76
  65,00,6e,00,67,00,48,00,65,00,69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    77
  00,64,00,2c,00,31,00,32,00,30,00,2c,00,39,00,36,00,00,00,4d,00,53,00,4a,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    78
  48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,6f,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    79
  00,73,00,6f,00,66,00,74,00,20,00,4a,00,68,00,65,00,6e,00,67,00,48,00,65,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    80
  69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,00,53,00,59,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    81
  00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    82
  6f,00,73,00,6f,00,66,00,74,00,20,00,59,00,61,00,48,00,65,00,69,00,20,00,55,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    83
  00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,38,00,2c,00,39,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    84
  36,00,00,00,4d,00,53,00,59,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    85
  00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,59,00,61,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    86
  48,00,65,00,69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    87
  00,41,00,4c,00,47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,00,2c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    88
  4d,00,61,00,6c,00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,69,00,63,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    89
  00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,31,00,38,00,2c,00,39,00,36,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    90
  00,00,4d,00,41,00,4c,00,47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    91
  00,2c,00,4d,00,61,00,6c,00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    92
  69,00,63,00,20,00,42,00,6f,00,6c,00,64,00,00,00,59,00,55,00,47,00,4f,00,54,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    93
  00,48,00,42,00,2e,00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    94
  74,00,68,00,69,00,63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    95
  00,31,00,32,00,38,00,2c,00,39,00,36,00,00,00,59,00,55,00,47,00,4f,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    96
  48,00,42,00,2e,00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,74,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    97
  00,68,00,69,00,63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    98
  53,00,45,00,47,00,55,00,49,00,53,00,59,00,4d,00,2e,00,54,00,54,00,46,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
    99
  00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,53,00,79,00,6d,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   100
  62,00,6f,00,6c,00,00,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   101
"ř ž č ルすしか"=hex(7):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   102
  00,6e,00,69,00,63,00,6f,00,64,00,65,00,20,00,63,00,68,00,61,00,72,00,73,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   103
  20,00,59,01,20,00,7e,01,20,00,0d,01,20,00,eb,30,59,30,57,30,4b,30,4d,30,27,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   104
  00,29,00,00,00,53,00,45,00,47,00,4f,00,45,00,55,00,49,00,42,00,2e,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   105
  54,00,46,00,2c,00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,42,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   106
  00,6f,00,6c,00,64,00,2c,00,31,00,31,00,30,00,2c,00,38,00,32,00,00,00,53,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   107
  45,00,47,00,4f,00,45,00,55,00,49,00,42,00,2e,00,54,00,54,00,46,00,2c,00,53,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   108
  00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   109
  00,00,4d,00,45,00,49,00,52,00,59,00,4f,00,42,00,2e,00,54,00,54,00,43,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   110
  00,4d,00,65,00,69,00,72,00,79,00,6f,00,20,00,55,00,49,00,20,00,42,00,6f,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   111
  6c,00,64,00,2c,00,31,00,32,00,30,00,2c,00,39,00,36,00,00,00,4d,00,45,00,49,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   112
  00,52,00,59,00,4f,00,42,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,65,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   113
  72,00,79,00,6f,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   114
  00,53,00,4a,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   115
  63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,4a,00,68,00,65,00,6e,00,67,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   116
  00,48,00,65,00,69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   117
  31,00,32,00,30,00,2c,00,39,00,36,00,00,00,4d,00,53,00,4a,00,48,00,42,00,44,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   118
  00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   119
  66,00,74,00,20,00,4a,00,68,00,65,00,6e,00,67,00,48,00,65,00,69,00,20,00,55,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   120
  00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,00,53,00,59,00,48,00,42,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   121
  44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   122
  00,66,00,74,00,20,00,59,00,61,00,48,00,65,00,69,00,20,00,55,00,49,00,20,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   123
  42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,38,00,2c,00,39,00,36,00,00,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   124
  00,53,00,59,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   125
  63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,59,00,61,00,48,00,65,00,69,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   126
  00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,00,41,00,4c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   127
  47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,00,2c,00,4d,00,61,00,6c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   128
  00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,69,00,63,00,20,00,42,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   129
  6f,00,6c,00,64,00,2c,00,31,00,31,00,38,00,2c,00,39,00,36,00,00,00,4d,00,41,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   130
  00,4c,00,47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,00,2c,00,4d,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   131
  61,00,6c,00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,69,00,63,00,20,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   132
  00,42,00,6f,00,6c,00,64,00,00,00,59,00,55,00,47,00,4f,00,54,00,48,00,42,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   133
  2e,00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,74,00,68,00,69,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   134
  00,63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   135
  38,00,2c,00,39,00,36,00,00,00,59,00,55,00,47,00,4f,00,54,00,48,00,42,00,2e,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   136
  00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,74,00,68,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   137
  63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,53,00,45,00,47,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   138
  00,55,00,49,00,53,00,59,00,4d,00,2e,00,54,00,54,00,46,00,2c,00,53,00,65,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   139
  67,00,6f,00,65,00,20,00,55,00,49,00,20,00,53,00,79,00,6d,00,62,00,6f,00,6c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   140
  00,00,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   141
"Ugh"=hex(2):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,00,6e,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   142
  69,00,63,00,6f,00,64,00,65,00,20,00,63,00,68,00,61,00,72,00,73,00,20,00,59,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   143
  01,20,00,7e,01,20,00,0d,01,20,00,eb,30,59,30,57,30,4b,30,4d,30,27,00,29,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   144
  2e,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   145
" č ルすしか"=hex(2):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   146
  6e,00,69,00,63,00,6f,00,64,00,65,00,20,00,63,00,68,00,61,00,72,00,73,00,20,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   147
  00,59,01,20,00,7e,01,20,00,0d,01,20,00,eb,30,59,30,57,30,4b,30,4d,30,27,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   148
  29,00,2e,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   149
  00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   150
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   151
[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか]
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   152
"bledesu"="''Testing Unicode chars ř ž č ルすしかき'').          "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   153
"しかき    "="Testus gradus"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   154
" ř ž č ル.          "="Testing Unicode chars ř ž č ルすしかき"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   155
"zero"=hex:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   156
"non-zero"=hex:11,10
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   157
"す    "=hex:10
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   158
"dword_value"=dword:000023af
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   159
"き"=dword:234234af
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   160
"qwordvalue"=hex(b):ad,61,28,a3,95,0e,74,79
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   161
"qword_max"=hex(b):ff,ff,ff,ff,ff,ff,ff,ff
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   162
"すし"=hex(b):ef,ad,00,00,00,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   163
"Font_Leelawadee UI Bold"=hex(7):53,00,45,00,47,00,4f,00,45,00,55,00,49,00,42,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   164
  00,2e,00,54,00,54,00,46,00,2c,00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   165
  49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,31,00,30,00,2c,00,38,00,32,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   166
  00,00,00,53,00,45,00,47,00,4f,00,45,00,55,00,49,00,42,00,2e,00,54,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   167
  46,00,2c,00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,42,00,6f,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   168
  00,6c,00,64,00,00,00,4d,00,45,00,49,00,52,00,59,00,4f,00,42,00,2e,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   169
  54,00,43,00,2c,00,4d,00,65,00,69,00,72,00,79,00,6f,00,20,00,55,00,49,00,20,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   170
  00,42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,30,00,2c,00,39,00,36,00,00,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   171
  4d,00,45,00,49,00,52,00,59,00,4f,00,42,00,2e,00,54,00,54,00,43,00,2c,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   172
  00,65,00,69,00,72,00,79,00,6f,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   173
  64,00,00,00,4d,00,53,00,4a,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   174
  00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,4a,00,68,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   175
  65,00,6e,00,67,00,48,00,65,00,69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   176
  00,64,00,2c,00,31,00,32,00,30,00,2c,00,39,00,36,00,00,00,4d,00,53,00,4a,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   177
  48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,6f,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   178
  00,73,00,6f,00,66,00,74,00,20,00,4a,00,68,00,65,00,6e,00,67,00,48,00,65,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   179
  69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,00,53,00,59,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   180
  00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   181
  6f,00,73,00,6f,00,66,00,74,00,20,00,59,00,61,00,48,00,65,00,69,00,20,00,55,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   182
  00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,38,00,2c,00,39,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   183
  36,00,00,00,4d,00,53,00,59,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   184
  00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,59,00,61,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   185
  48,00,65,00,69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   186
  00,41,00,4c,00,47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,00,2c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   187
  4d,00,61,00,6c,00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,69,00,63,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   188
  00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,31,00,38,00,2c,00,39,00,36,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   189
  00,00,4d,00,41,00,4c,00,47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   190
  00,2c,00,4d,00,61,00,6c,00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   191
  69,00,63,00,20,00,42,00,6f,00,6c,00,64,00,00,00,59,00,55,00,47,00,4f,00,54,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   192
  00,48,00,42,00,2e,00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   193
  74,00,68,00,69,00,63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   194
  00,31,00,32,00,38,00,2c,00,39,00,36,00,00,00,59,00,55,00,47,00,4f,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   195
  48,00,42,00,2e,00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,74,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   196
  00,68,00,69,00,63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   197
  53,00,45,00,47,00,55,00,49,00,53,00,59,00,4d,00,2e,00,54,00,54,00,46,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   198
  00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,53,00,79,00,6d,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   199
  62,00,6f,00,6c,00,00,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   200
"ř ž č ルすしか"=hex(7):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   201
  00,6e,00,69,00,63,00,6f,00,64,00,65,00,20,00,63,00,68,00,61,00,72,00,73,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   202
  20,00,59,01,20,00,7e,01,20,00,0d,01,20,00,eb,30,59,30,57,30,4b,30,4d,30,27,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   203
  00,29,00,00,00,53,00,45,00,47,00,4f,00,45,00,55,00,49,00,42,00,2e,00,54,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   204
  54,00,46,00,2c,00,53,00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,42,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   205
  00,6f,00,6c,00,64,00,2c,00,31,00,31,00,30,00,2c,00,38,00,32,00,00,00,53,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   206
  45,00,47,00,4f,00,45,00,55,00,49,00,42,00,2e,00,54,00,54,00,46,00,2c,00,53,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   207
  00,65,00,67,00,6f,00,65,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   208
  00,00,4d,00,45,00,49,00,52,00,59,00,4f,00,42,00,2e,00,54,00,54,00,43,00,2c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   209
  00,4d,00,65,00,69,00,72,00,79,00,6f,00,20,00,55,00,49,00,20,00,42,00,6f,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   210
  6c,00,64,00,2c,00,31,00,32,00,30,00,2c,00,39,00,36,00,00,00,4d,00,45,00,49,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   211
  00,52,00,59,00,4f,00,42,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,65,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   212
  72,00,79,00,6f,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   213
  00,53,00,4a,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   214
  63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,4a,00,68,00,65,00,6e,00,67,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   215
  00,48,00,65,00,69,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   216
  31,00,32,00,30,00,2c,00,39,00,36,00,00,00,4d,00,53,00,4a,00,48,00,42,00,44,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   217
  00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   218
  66,00,74,00,20,00,4a,00,68,00,65,00,6e,00,67,00,48,00,65,00,69,00,20,00,55,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   219
  00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,00,53,00,59,00,48,00,42,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   220
  44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,63,00,72,00,6f,00,73,00,6f,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   221
  00,66,00,74,00,20,00,59,00,61,00,48,00,65,00,69,00,20,00,55,00,49,00,20,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   222
  42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,38,00,2c,00,39,00,36,00,00,00,4d,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   223
  00,53,00,59,00,48,00,42,00,44,00,2e,00,54,00,54,00,43,00,2c,00,4d,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   224
  63,00,72,00,6f,00,73,00,6f,00,66,00,74,00,20,00,59,00,61,00,48,00,65,00,69,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   225
  00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,4d,00,41,00,4c,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   226
  47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,00,2c,00,4d,00,61,00,6c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   227
  00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,69,00,63,00,20,00,42,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   228
  6f,00,6c,00,64,00,2c,00,31,00,31,00,38,00,2c,00,39,00,36,00,00,00,4d,00,41,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   229
  00,4c,00,47,00,55,00,4e,00,42,00,44,00,2e,00,54,00,54,00,46,00,2c,00,4d,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   230
  61,00,6c,00,67,00,75,00,6e,00,20,00,47,00,6f,00,74,00,68,00,69,00,63,00,20,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   231
  00,42,00,6f,00,6c,00,64,00,00,00,59,00,55,00,47,00,4f,00,54,00,48,00,42,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   232
  2e,00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,74,00,68,00,69,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   233
  00,63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,2c,00,31,00,32,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   234
  38,00,2c,00,39,00,36,00,00,00,59,00,55,00,47,00,4f,00,54,00,48,00,42,00,2e,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   235
  00,54,00,54,00,43,00,2c,00,59,00,75,00,20,00,47,00,6f,00,74,00,68,00,69,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   236
  63,00,20,00,55,00,49,00,20,00,42,00,6f,00,6c,00,64,00,00,00,53,00,45,00,47,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   237
  00,55,00,49,00,53,00,59,00,4d,00,2e,00,54,00,54,00,46,00,2c,00,53,00,65,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   238
  67,00,6f,00,65,00,20,00,55,00,49,00,20,00,53,00,79,00,6d,00,62,00,6f,00,6c,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   239
  00,00,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   240
"Ugh"=hex(2):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,00,6e,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   241
  69,00,63,00,6f,00,64,00,65,00,20,00,63,00,68,00,61,00,72,00,73,00,20,00,59,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   242
  01,20,00,7e,01,20,00,0d,01,20,00,eb,30,59,30,57,30,4b,30,4d,30,27,00,29,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   243
  2e,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,00,00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   244
" č ルすしか"=hex(2):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   245
  6e,00,69,00,63,00,6f,00,64,00,65,00,20,00,63,00,68,00,61,00,72,00,73,00,20,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   246
  00,59,01,20,00,7e,01,20,00,0d,01,20,00,eb,30,59,30,57,30,4b,30,4d,30,27,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   247
  29,00,2e,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,20,00,00,\
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   248
  00
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   249
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   250
[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end]
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   251
"testing"=" ルすしか"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   252
"か"=dword:00000002
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   253
"256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end"="Longer_than_256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|endsdfsdfasdfasdfasdfjlkasdjflkasjdflkjasdlfjaslkdfjlkasdjflkasdflksadlkjsadlfalsdfůlasdjflkasdjflkasjdflkůjasdflůkjasdlůfjalsůkdjflůksd"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   254
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   255
[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end]
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   256
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   257
[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end\unreachable]
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   258
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   259
[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end\reachable]
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   260
'
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   261
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   262
    "Created: / 16-11-2018 / 11:24:57 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   263
    "Modified: / 05-12-2018 / 11:33:32 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   264
! !
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   265
344
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
!Win32OperatingSystemTest methodsFor:'release'!
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
1566
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   268
setUp
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   269
    | registryToImport file |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   270
1566
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   271
    self skipIf: OperatingSystem isMSWINDOWSlike not description: 'Windows specific tests'.
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   272
    super setUp.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   273
            
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   274
    registryToImport := self unicodeRegistryExample.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   275
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   276
    "/ registry path which will be used  
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   277
    registryPath := registryToImport 
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   278
        copyFrom: (registryToImport indexOf: $[) + 1
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   279
        to: (registryToImport indexOf: $]) - 1.       
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   280
        
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   281
    "/ temporary file which will be used for importing
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   282
    file := Filename newTemporary.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   283
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   284
    "/ Registry export is in UTF-16LE with BOM
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   285
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   286
    " What is BOM?
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   287
      A byte order mark (BOM) consists of the character code U+FEFF at the beginning of a data stream, where it can be used as a signature 
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   288
      defining the byte order and encoding form, primarily of unmarked plaintext files. Under some higher level protocols, use of a BOM may
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   289
      be mandatory (or prohibited) in the Unicode data stream defined in that protocol."
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   290
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   291
    "/ needed to write to file as Windows Registry do UTF16-LE With Signature
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   292
    " BOM for UTF-16is:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   293
       FE FF    UTF-16, big-endian (BE)
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   294
       FF FE    UTF-16, little-endian (LE)"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   295
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   296
    "/ Writing BOM first
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   297
    file writingFileDo: [ :stream |         
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   298
       stream nextPutUtf16: (Character codePoint:16rFFFE)         
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   299
    ].    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   300
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   301
    "/ this is UTF16-LE (Little Endian) Without Signature (BOM)
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   302
    file appendingFileDo: [ :stream | stream nextPutAllUtf16Bytes: registryToImport MSB: false].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   303
     
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   304
    [   "/ adding registry entry so we can test it
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   305
        OperatingSystem getCommandOutputFrom: ('REG IMPORT ' , file asString)
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   306
    ] ensure: [ file remove ].
1566
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   307
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   308
    "Created: / 28-12-2016 / 22:12:14 / jv"
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   309
    "Modified (format): / 16-11-2018 / 11:30:30 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   310
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   311
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   312
tearDown
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   313
    self skipIf: OperatingSystem isMSWINDOWSlike not description: 'Windows specific tests'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   314
    super tearDown.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   315
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   316
    "/ remove the added registry entry
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   317
    OperatingSystem getCommandOutputFrom:('REG DELETE "', registryPath, '" /f').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   318
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   319
    "/ Check if testing registry was correctly deleted
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   320
    self assert: ((OperatingSystem registryEntry key: registryPath) isNil).
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   321
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   322
    "Created: / 16-11-2018 / 11:29:12 / svestkap"
344
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   323
! !
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   324
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   325
!Win32OperatingSystemTest methodsFor:'tests'!
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   326
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   327
testMutex
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   328
    |handle alreadyExists lastErrorCode handleAndLastErrorCode|
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   329
1977
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1974
diff changeset
   330
    handleAndLastErrorCode := Win32OperatingSystem createMutexNamed: UUID new printString.
344
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   331
    handle := handleAndLastErrorCode first.
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   332
    handle isNil ifTrue:[^ self].
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   333
    lastErrorCode := handleAndLastErrorCode second.
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   334
    self assert: lastErrorCode == 0.
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   335
    alreadyExists := (lastErrorCode == 5 "ERROR_ACCESS_DENIED" or:[ lastErrorCode == 183 "ERROR_ALREADY_EXISTS"]).
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   336
    alreadyExists ifTrue:[
1566
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   337
        Transcript showCR: 'Mutex already exists!!'.
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   338
        ^ self.
344
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   339
    ].
1977
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1974
diff changeset
   340
    [
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1974
diff changeset
   341
        Transcript showCR: 'Mutex created!!'.
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1974
diff changeset
   342
        Win32OperatingSystem waitForSingleObject: handle.
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1974
diff changeset
   343
        Delay waitForSeconds:0.5. "/ self halt.
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1974
diff changeset
   344
        Win32OperatingSystem releaseMutex: handle.
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1974
diff changeset
   345
    ] ensure:[
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1974
diff changeset
   346
        Win32OperatingSystem primCloseHandle: handle.
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1974
diff changeset
   347
        Transcript showCR: 'Mutex closed!!'.
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1974
diff changeset
   348
    ].
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1974
diff changeset
   349
344
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   350
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   351
    "
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   352
     self new testMutex
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   353
    "
1566
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   354
1977
f53c1ec52418 `Win32OperatingSystemTest`: use generated mutex name to allow tests to run in parallel
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1974
diff changeset
   355
    "Modified: / 28-06-2018 / 09:14:35 / jv"
1352
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   356
!
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   357
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   358
testRegistry
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   359
    |k hasContentType|
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   360
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   361
    k := OperatingSystem registryEntry key:'HKEY_CLASSES_ROOT\MIME\Database\'.
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   362
    self assert:(k notNil).
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   363
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   364
    hasContentType := false.
1447
2351db93aa5b package changes
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
   365
    k subKeyNamesAndClassesDo:[:nm :clsNm |
1566
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   366
        "/ Transcript showCR:nm.
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   367
        nm = 'Content Type' ifTrue:[hasContentType := true].
1352
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   368
    ].
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   369
    self assert:hasContentType.
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   370
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   371
    "/ k subKeysDo:[:k | Transcript showCR:k].
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   372
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   373
    "
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   374
     self new testRegistry
e0d857144dbf #FEATURE
Claus Gittinger <cg@exept.de>
parents: 1161
diff changeset
   375
    "
1566
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   376
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   377
    "Modified: / 28-12-2016 / 22:13:43 / jv"
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   378
!
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   379
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   380
testRegistry02a
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   381
    | root key |
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   382
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   383
    root :=OperatingSystem registryEntry key:'HKEY_CURRENT_USER'.
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   384
    root deleteSubKeyNamed: testSelector.
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   385
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   386
    self assert:(root subKeyNamed: testSelector) isNil.
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   387
    self deny: (root deleteSubKeyNamed: testSelector).
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   388
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   389
    key := root createSubKeyNamed:testSelector.
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   390
    self assert: key notNil.
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   391
    self assert:(root subKeyNamed: testSelector) notNil.
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   392
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   393
    self assert: (root deleteSubKeyNamed:testSelector).
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   394
    self assert:(root subKeyNamed: testSelector) isNil.
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   395
    self deny: (root deleteSubKeyNamed: testSelector).
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   396
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   397
    "Created: / 28-12-2016 / 23:14:15 / jv"
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   398
    "Modified: / 05-01-2017 / 21:45:20 / jv"
344
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   399
! !
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   400
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   401
!Win32OperatingSystemTest methodsFor:'tests-unicodeRead'!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   402
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   403
testReadSubKeyAtIndex_01
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   404
    "Reading subKeys at certain index
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   405
    WARNING: subKeyAtIndex: is zero based!!!!!!"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   406
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   407
    | readData testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   408
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   409
    readData := Unicode16String new.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   410
    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   411
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   412
    readData := testingRegistryPath subKeyAtIndex: 0.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   413
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   414
    self assert: readData notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   415
    self assert: (readData path copyAfterLast: $\) = ' ルすしか'
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   416
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   417
    "
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   418
     self run:#testReadSubKeyAtIndex_01
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   419
     self new testReadSubKeyAtIndex_01
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   420
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   421
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   422
    "Created: / 11-12-2018 / 14:51:12 / svestkap"
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   423
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   424
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   425
testReadSubKeyAtIndex_02
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   426
    "Reading subKeys at certain index - reading non-existent subKey
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   427
    WARNING: subKeyAtIndex: is zero based!!!!!!"
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   428
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   429
    | readData testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   430
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   431
    readData := Unicode16String new.    
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   432
    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   433
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   434
    readData := testingRegistryPath subKeyAtIndex: 10.
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   435
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   436
    self assert: readData isNil
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   437
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   438
    "
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   439
     self run:#testReadSubKeyAtIndex_02
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   440
     self new testReadSubKeyAtIndex_02
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   441
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   442
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   443
    "Created: / 11-12-2018 / 14:49:03 / svestkap"
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   444
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   445
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   446
testReadSubKeyNamesAndClassesAtIndex_01
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   447
    "reading SubKeyNamesAndClasses - reading non-existent subKey"
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   448
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   449
    | readData testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   450
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   451
    readData := Unicode16String new.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   452
    testingRegistryPath := Win32OperatingSystem registryEntry key: 
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   453
        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').        
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   454
    
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   455
    readData := testingRegistryPath subKeyNameAndClassAtIndex: 10.
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   456
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   457
    self assert: readData isNil.        
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   458
    "
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   459
     self run:#testReadSubKeyNamesAndClassesAtIndex_01
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   460
     self new testReadSubKeyNamesAndClassesAtIndex_01
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   461
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   462
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   463
    "Created: / 11-12-2018 / 14:49:48 / svestkap"
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   464
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   465
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   466
testReadValueNameAtIndex_01
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   467
    "Reading values (#valueNameAtIndex:) at certain index
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   468
    WARNING: #valueNameAtIndex: is zero based!!!!!!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   469
    Note: This test acually breaks the limit that Microsoft specified in MSDN - registry key name should be maximum 255 characters including absolute path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   470
    MSDN link: https://docs.microsoft.com/en-us/windows/desktop/sysinfo/registry-element-size-limits" 
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   471
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   472
    | readData testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   473
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   474
    readData := Unicode16String new.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   475
    testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath,'\', ' ルすしか').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   476
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   477
    readData := testingRegistryPath valueNameAtIndex: 1.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   478
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   479
    self assert: readData notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   480
    self assert: readData = 'しかき    '
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   481
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   482
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   483
     self run:#testReadValueNameAtIndex
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   484
     self new testReadValueNameAtIndex
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   485
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   486
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   487
    "Created: / 11-12-2018 / 14:54:37 / svestkap"
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   488
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   489
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   490
testReadValueNameAtIndex_02
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   491
    "Reading values (#valueNameAtIndex:) at certain index - non-existent value" 
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   492
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   493
    | readData testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   494
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   495
    readData := Unicode16String new.    
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   496
    testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath,'\', ' ルすしか').
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   497
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   498
    readData := testingRegistryPath valueNameAtIndex: 100.
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   499
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   500
    self assert: readData isNil    
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   501
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   502
    "
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   503
     self run:#testReadValueNameAtIndex_02
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   504
     self new testReadValueNameAtIndex_02
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   505
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   506
2080
a27e62ccfc44 Issue #250: Adding tests for index methods where the index is trying to get non-existent value/subKey -> nil is returned
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2079
diff changeset
   507
    "Created: / 11-12-2018 / 14:54:29 / svestkap"
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   508
! !
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   509
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   510
!Win32OperatingSystemTest methodsFor:'tests-unicodeReadEnumeration'!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   511
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   512
testReadAllSubKeysDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   513
    "reading via allSubKeysDo (using subKeyAtIndex:) with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   514
     The path is suppassing the Microsoft limit - for more information see testReadSubKeyAtIndex_MaxPath_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   515
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   516
    | readData testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   517
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   518
    readData := OrderedCollection new.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   519
    testingRegistryPath := Win32OperatingSystem registryEntry key: 
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   520
        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').        
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   521
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   522
    testingRegistryPath  allSubKeysDo: [ :subEntry |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   523
        readData add: subEntry
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   524
    ].     
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   525
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   526
    self assert: readData notEmptyOrNil.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   527
    self assert: readData size = 3.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   528
    "/ this is normally unreachable subKey (subkey actually called 'unreachable')
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   529
    self assert: (readData at: 2) path size = 575.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   530
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   531
    readData := readData copy collect: [ :subEntry | subEntry path copyAfterLast: $\ ].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   532
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   533
    self assert: readData size = 3.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   534
    self assert: (readData first endsWith: '|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   535
    self assert: readData second = 'unreachable'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   536
    self assert: readData third = 'reachable'
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   537
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   538
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   539
     self run:#testReadAllSubKeysDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   540
     self new testReadAllSubKeysDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   541
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   542
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   543
    "Created: / 05-12-2018 / 12:40:53 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   544
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   545
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   546
testReadRemoteKeyOnHost
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   547
    "Reading remote registry via remoteKeyOnHost:
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   548
     Note: a key must be a predefined key for more see: 
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   549
     https://docs.microsoft.com/en-us/windows/desktop/SysInfo/predefined-keys"
2081
015864816df4 Issue #250: testReadRemoteKeyOnHost is skipped when remote registry service is not started
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2080
diff changeset
   550
    | testingRegistryPath remoteRegistry readData |
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   551
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   552
    "/ HKEY_CURRENT_USER is one of the predefined keys
2081
015864816df4 Issue #250: testReadRemoteKeyOnHost is skipped when remote registry service is not started
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2080
diff changeset
   553
    testingRegistryPath := Win32OperatingSystem registryEntry key: 'HKEY_CURRENT_USER'.      
015864816df4 Issue #250: testReadRemoteKeyOnHost is skipped when remote registry service is not started
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2080
diff changeset
   554
    
015864816df4 Issue #250: testReadRemoteKeyOnHost is skipped when remote registry service is not started
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2080
diff changeset
   555
    "Skip testing if the remote registry is unreachable.  With localhost this can happen when 
015864816df4 Issue #250: testReadRemoteKeyOnHost is skipped when remote registry service is not started
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2080
diff changeset
   556
     the service RemoteRegistry, the service name in Windows 10, is not started."
015864816df4 Issue #250: testReadRemoteKeyOnHost is skipped when remote registry service is not started
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2080
diff changeset
   557
    [ remoteRegistry := testingRegistryPath remoteKeyOnHost: 'localhost' ] on: OsError do: [ :ex | "/ errorCode => `ex parameter parameter`
015864816df4 Issue #250: testReadRemoteKeyOnHost is skipped when remote registry service is not started
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2080
diff changeset
   558
        self skipIf: ex parameter parameter = '53' description: 'ERROR_BAD_NETPATH, 53 (0x35) - The network path was not found.'
015864816df4 Issue #250: testReadRemoteKeyOnHost is skipped when remote registry service is not started
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2080
diff changeset
   559
    ].
015864816df4 Issue #250: testReadRemoteKeyOnHost is skipped when remote registry service is not started
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2080
diff changeset
   560
    
015864816df4 Issue #250: testReadRemoteKeyOnHost is skipped when remote registry service is not started
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2080
diff changeset
   561
    "/ testing done on localhost         
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   562
    readData := remoteRegistry subKeys.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   563
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   564
    readData := readData copy collect: [ :subEntry | (subEntry path copyAfterLast: $\) asLowercase ].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   565
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   566
    self assert: readData notEmptyOrNil.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   567
    self assert: (readData includes: 'software').    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   568
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   569
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   570
     self run:#testReadRemoteKeyOnHost
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   571
     self new testReadRemoteKeyOnHost
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   572
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   573
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   574
    "Created: / 05-12-2018 / 12:41:06 / svestkap"
2081
015864816df4 Issue #250: testReadRemoteKeyOnHost is skipped when remote registry service is not started
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2080
diff changeset
   575
    "Modified (format): / 16-01-2019 / 14:20:37 / svestkap"
2078
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   576
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   577
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   578
testReadSubKeyNamesAndClassesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   579
    "reading SubKeyNamesAndClasses with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   580
     The path is suppassing the Microsoft limit - for more information see testReadSubKeyNamesAndClassesAtIndex_MaxPath_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   581
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   582
    | readData testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   583
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   584
    readData := OrderedDictionary new.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   585
    testingRegistryPath := Win32OperatingSystem registryEntry key: 
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   586
        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').        
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   587
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   588
    testingRegistryPath  subKeyNamesAndClassesDo: [  :name :className |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   589
        readData at: name put: className.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   590
    ].     
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   591
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   592
    self assert: readData notEmptyOrNil.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   593
    self assert: readData size = 2.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   594
    self assert: (readData at: 'reachable') isEmpty. "/ the class is empty
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   595
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   596
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   597
     self run:#testReadSubKeyNamesAndClassesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   598
     self new testReadSubKeyNamesAndClassesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   599
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   600
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   601
    "Created: / 05-12-2018 / 12:41:31 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   602
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   603
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   604
testReadSubKeysDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   605
    "reading via subKeysDo (using subKeyAtIndex:) with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   606
     The path is suppassing the Microsoft limit - for more information see testReadSubKeyAtIndex_MaxPath_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   607
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   608
    | readData testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   609
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   610
    readData := OrderedCollection new.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   611
    testingRegistryPath := Win32OperatingSystem registryEntry key: 
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   612
        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').        
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   613
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   614
    testingRegistryPath  subKeysDo: [ :subEntry |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   615
        readData add: subEntry
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   616
    ].     
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   617
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   618
    self assert: readData notEmptyOrNil.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   619
    self assert: readData size = 2.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   620
    self assert: (readData first) path size = 563.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   621
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   622
    readData := readData copy collect: [ :subEntry | subEntry path copyAfterLast: $\ ].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   623
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   624
    self assert: readData size = 2.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   625
    self assert: (readData first endsWith: '|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   626
    self assert: readData second = 'reachable'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   627
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   628
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   629
     self run:#testReadSubKeysDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   630
     self new testReadSubKeysDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   631
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   632
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   633
    "Created: / 05-12-2018 / 12:41:49 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   634
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   635
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   636
testReadSubKeys_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   637
    "reading via subKeys (using subKeyAtIndex:) with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   638
     The path is suppassing the Microsoft limit - for more information see testReadSubKeyAtIndex_MaxPath_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   639
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   640
    | readData testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   641
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   642
    testingRegistryPath := Win32OperatingSystem registryEntry key: 
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   643
        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').        
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   644
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   645
    readData := testingRegistryPath subKeys.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   646
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   647
    self assert: readData notEmptyOrNil.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   648
    self assert: readData size = 2.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   649
    self assert: (readData first) path size = 563.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   650
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   651
    readData := readData copy collect: [ :subEntry | subEntry path copyAfterLast: $\ ].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   652
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   653
    self assert: readData size = 2.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   654
    self assert: (readData first endsWith: '|end').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   655
    self assert: readData second = 'reachable'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   656
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   657
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   658
     self run:#testReadSubKeys_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   659
     self new testReadSubKeys_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   660
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   661
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   662
    "Created: / 05-12-2018 / 12:41:59 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   663
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   664
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   665
testReadValueNamesAndValuesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   666
    "reading via #valueNamesAndValuesDo: (using #valueNameAtIndex:) with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   667
     The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   668
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   669
    | readData testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   670
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   671
    readData := OrderedDictionary new.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   672
    testingRegistryPath := Win32OperatingSystem registryEntry key: 
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   673
        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').        
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   674
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   675
    testingRegistryPath valueNamesAndValuesDo: [ :name :value |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   676
        readData at: name put: value
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   677
    ].     
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   678
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   679
    self assert: readData notEmptyOrNil.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   680
    self assert: readData size = 3.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   681
    self assert: readData first =  ('testing'->' ルすしか').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   682
    self assert: (readData at: 'か')= 2.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   683
    self assert: readData second = 2.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   684
    self assert: (readData at: '256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end') 
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   685
        = 'Longer_than_256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|endsdfsdfasdfasdfasdfjlkasdjflkasjdflkjasdlfjaslkdfjlkasdjflkasdflksadlkjsadlfalsdfůlasdjflkasdjflkasjdflkůjasdflůkjasdlůfjalsůkdjflůksd'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   686
    self assert: readData third = 'Longer_than_256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|endsdfsdfasdfasdfasdfjlkasdjflkasjdflkjasdlfjaslkdfjlkasdjflkasdflksadlkjsadlfalsdfůlasdjflkasdjflkasjdflkůjasdflůkjasdlůfjalsůkdjflůksd'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   687
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   688
    "  
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   689
     self run:#testReadValueNamesAndValuesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   690
     self new testReadValueNamesAndValuesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   691
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   692
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   693
    "Created: / 05-12-2018 / 12:43:05 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   694
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   695
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   696
testReadValueNamesAndValuesDo_REG_SZ_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   697
    "Testing if REG_SZ values are read correctly via valueNamesAndValuesDo:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   698
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   699
    | readData testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   700
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   701
    readData := OrderedDictionary new.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   702
    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   703
     
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   704
    testingRegistryPath valueNamesAndValuesDo: [ :name :data |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   705
        readData at: name put: data
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   706
    ].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   707
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   708
    self assert: (readData at: 'bledesu') = '''Testing Unicode chars ř ž č ルすしかき'').          '.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   709
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   710
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   711
     self run:#testReadValueNamesAndValuesDo_REG_SZ_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   712
     self new testReadValueNamesAndValuesDo_REG_SZ_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   713
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   714
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   715
    "Created: / 16-11-2018 / 12:15:52 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   716
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   717
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   718
testReadValueNamesAndValuesDo_REG_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   719
    "Testing if REG_SZ values are read correctly via valueNamesAndValuesDo:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   720
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   721
    | readData testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   722
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   723
    readData := OrderedDictionary new.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   724
    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   725
     
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   726
    testingRegistryPath valueNamesAndValuesDo: [ :name :data |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   727
        readData at: name put: data
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   728
    ].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   729
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   730
    self assert: (readData at: ' ř ž č ル.          ') = 'Testing Unicode chars ř ž č ルすしかき'.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   731
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   732
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   733
     self run:#testReadValueNamesAndValuesDo_REG_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   734
     self new testReadValueNamesAndValuesDo_REG_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   735
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   736
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   737
    "Created: / 05-12-2018 / 12:43:35 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   738
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   739
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   740
testReadValueNamesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   741
    "reading via #valueNamesDo: (using #valueNameAtIndex:) with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   742
     The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   743
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   744
    | readData readDataValue testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   745
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   746
    readData := OrderedCollection new.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   747
    testingRegistryPath := Win32OperatingSystem registryEntry key: 
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   748
        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').        
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   749
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   750
    testingRegistryPath valueNamesDo: [ :subEntry |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   751
        readData add: subEntry
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   752
    ].     
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   753
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   754
    self assert: readData notEmptyOrNil.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   755
    self assert: readData size = 3.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   756
    self assert: readData first = 'testing'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   757
    self assert: readData second = 'か'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   758
    self assert: readData third = '256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   759
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   760
    readDataValue := testingRegistryPath valueNamed: readData third.  
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   761
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   762
    "/ MSDN limits: Value name 16,383 characters (@Windows 2000: 260 ANSI characters or 16,383 Unicode characters)
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   763
    "/ the following tests 401 characters       
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   764
    self assert: readDataValue = 'Longer_than_256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|endsdfsdfasdfasdfasdfjlkasdjflkasjdflkjasdlfjaslkdfjlkasdjflkasdflksadlkjsadlfalsdfůlasdjflkasdjflkasjdflkůjasdflůkjasdlůfjalsůkdjflůksd'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   765
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   766
     self run:#testReadValueNamesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   767
     self new testReadValueNamesDo_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   768
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   769
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   770
    "Created: / 05-12-2018 / 12:43:49 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   771
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   772
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   773
testReadValueNames_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   774
    "reading via #valueNames (using #valueNameAtIndex:) with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   775
     The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   776
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   777
    | readData testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   778
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   779
    testingRegistryPath := Win32OperatingSystem registryEntry key: 
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   780
        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').        
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   781
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   782
    readData := testingRegistryPath valueNames.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   783
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   784
    self assert: readData isArray.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   785
    self assert: readData notEmptyOrNil.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   786
    self assert: readData size = 3.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   787
    self assert: readData first = 'testing'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   788
    self assert: readData second = 'か'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   789
    self assert: readData third = '256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   790
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   791
    "  
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   792
     self run:#testReadValueNames_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   793
     self new testReadValueNames_MaxPath
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   794
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   795
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   796
    "Created: / 05-12-2018 / 12:44:16 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   797
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   798
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   799
testReadvalueNamesAndValuesDo_MaxPath_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   800
    "reading via #valueNamesAndValuesDo: (using #valueNameAtIndex:) with max Path
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   801
     The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   802
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   803
    | readData testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   804
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   805
    readData := OrderedDictionary new.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   806
    testingRegistryPath := Win32OperatingSystem registryEntry key: 
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   807
        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').        
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   808
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   809
    testingRegistryPath valueNamesAndValuesDo: [ :name :value |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   810
        readData at: name put: value
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   811
    ].     
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   812
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   813
    self assert: readData notEmptyOrNil.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   814
    self assert: readData size = 3.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   815
    self assert: readData first =  ('testing'->' ルすしか').
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   816
    self assert: (readData at: 'か')= 2.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   817
    self assert: readData second = 2.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   818
    self assert: (readData at: '256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end') 
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   819
        = 'Longer_than_256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|endsdfsdfasdfasdfasdfjlkasdjflkasjdflkjasdlfjaslkdfjlkasdjflkasdflksadlkjsadlfalsdfůlasdjflkasdjflkasjdflkůjasdflůkjasdlůfjalsůkdjflůksd'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   820
    self assert: readData third = 'Longer_than_256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|endsdfsdfasdfasdfasdfjlkasdjflkasjdflkjasdlfjaslkdfjlkasdjflkasdflksadlkjsadlfalsdfůlasdjflkasdjflkasjdflkůjasdflůkjasdlůfjalsůkdjflůksd'.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   821
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   822
    "  
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   823
     self run:#testReadvalueNamesAndValuesDo_MaxPath_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   824
     self new testReadvalueNamesAndValuesDo_MaxPath_01
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   825
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   826
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   827
    "Created: / 22-11-2018 / 14:10:34 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   828
!
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   829
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   830
testReadvalueNamesAndValuesDo_REG_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   831
    "Testing if REG_SZ values are read correctly via valueNamesAndValuesDo:"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   832
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   833
    | readData testingRegistryPath |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   834
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   835
    readData := OrderedDictionary new.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   836
    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   837
     
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   838
    testingRegistryPath valueNamesAndValuesDo: [ :name :data |
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   839
        readData at: name put: data
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   840
    ].
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   841
    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   842
    self assert: (readData at: ' ř ž č ル.          ') = 'Testing Unicode chars ř ž č ルすしかき'.    
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   843
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   844
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   845
     self run:#testReadvalueNamesAndValuesDo_REG_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   846
     self new testReadvalueNamesAndValuesDo_REG_SZ_02
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   847
    "
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   848
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   849
    "Created: / 16-11-2018 / 12:16:16 / svestkap"
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   850
! !
9d76442a61bb Issue #250: Tests for Unicode read: with and without enumeration, remote registry, empty data values, non-string names
Patrik Svestka <patrik.svestka@gmail.com>
parents: 1977
diff changeset
   851
344
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   852
!Win32OperatingSystemTest class methodsFor:'documentation'!
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   853
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   854
version
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   855
    ^ '$Header$'
1566
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   856
!
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   857
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   858
version_HG
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   859
2ca58098256d Issue #109: Added tests for registry key creation / deletion
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1500
diff changeset
   860
    ^ '$Changeset: <not expanded> $'
344
21c39da58029 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   861
! !
1161
3d9b4eaddcf3 category changes
Claus Gittinger <cg@exept.de>
parents: 675
diff changeset
   862