Ticket #250: regression_fix_1_of_1_rev_6b07361f12c6_Issue__250__Smalltak_X_is_reading_Windows_Registry_only_in_ASCII_but_registry_is_UTF16.patch

File regression_fix_1_of_1_rev_6b07361f12c6_Issue__250__Smalltak_X_is_reading_Windows_Registry_only_in_ASCII_but_registry_is_UTF16.patch, 108.9 KB (added by patrik.svestka@…, 5 years ago)

Removing duplicate tests - after renaming them they somehow stayed ...

  • Make.proto 

    # HG changeset patch
# User Patrik Svestka <patrik.svestka@gmail.com>
# Date 1542371880 -3600
#      Fri Nov 16 13:38:00 2018 +0100
# Branch jv
# Node ID 6b07361f12c64f8f26fe277bbb22b07986911666
# Parent  fffbc76ecc66b91285d4e770c282c824765d4001
Issue #250: Smalltak/X is reading Windows Registry only in ASCII but registry is UTF16

- Adding regression tests for #Win32OperatingSystemTest.
- Adding a template example - unicodeRegistryExample which is an example registry file.  Adding contents of the file
  to registry via setUp and deleting it via tearDown.
- Added unicode tests for expecially valueNamed: and for ValueNamesAndValuesDo:.  All tests are testing unicode (UTF-16)
  read for all available registry types.
- added testReadSubKeyAtIndex_01 which tests #subKeyAtIndex: (which is zero based)

- unicodeRegistryExample contains also max path to test the limits
- Testing unicode read and unicode read with enumeration
- Testing unicode reading of remote registry
- adding to the file template a string with only digits
- adding tests with empty data values
- adding tests with non-string names

diff -r fffbc76ecc66 -r 6b07361f12c6 Make.proto
    a b  
    1 # $Header$
    2 #
    3 # DO NOT EDIT
    4 # automagically generated from the projectDefinition: stx_goodies_regression.
    5 #
    6 # Warning: once you modify this file, do not rerun
    7 # stmkmp or projectDefinition-build again - otherwise, your changes are lost.
    8 #
    9 # The Makefile as generated by this Make.proto supports the following targets:
    10 #    make         - compile all st-files to a classLib
    11 #    make clean   - clean all temp files
    12 #    make clobber - clean all
    13 #
    14 # This file contains definitions for Unix based platforms.
    15 # It shares common definitions with the win32-make in Make.spec.
    16 
    17 #
    18 # position (of this package) in directory hierarchy:
    19 # (must point to ST/X top directory, for tools and includes)
    20 TOP=../..
    21 INCLUDE_TOP=$(TOP)/..
    22 
    23 # subdirectories where targets are to be made:
    24 SUBDIRS=
    25 
    26 
    27 # subdirectories where Makefiles are to be made:
    28 # (only define if different from SUBDIRS)
    29 # ALLSUBDIRS=
    30 
    31 REQUIRED_SUPPORT_DIRS=
    32 
    33 # if your embedded C code requires any system includes,
    34 # add the path(es) here:,
    35 # ********** OPTIONAL: MODIFY the next lines ***
    36 # LOCALINCLUDES=-Ifoo -Ibar
    37 LOCALINCLUDES= -I$(INCLUDE_TOP)/stx/goodies/communication -I$(INCLUDE_TOP)/stx/goodies/sunit -I$(INCLUDE_TOP)/stx/goodies/xml/stx -I$(INCLUDE_TOP)/stx/goodies/xml/vw -I$(INCLUDE_TOP)/stx/libbasic -I$(INCLUDE_TOP)/stx/libbasic2 -I$(INCLUDE_TOP)/stx/libbasic3 -I$(INCLUDE_TOP)/stx/libboss -I$(INCLUDE_TOP)/stx/libcomp -I$(INCLUDE_TOP)/stx/libhtml -I$(INCLUDE_TOP)/stx/libjava -I$(INCLUDE_TOP)/stx/libjavascript -I$(INCLUDE_TOP)/stx/libtool -I$(INCLUDE_TOP)/stx/libview -I$(INCLUDE_TOP)/stx/libview2 -I$(INCLUDE_TOP)/stx/libwidg -I$(INCLUDE_TOP)/stx/libwidg2
    38 
    39 
    40 # if you need any additional defines for embedded C code,
    41 # add them here:,
    42 # ********** OPTIONAL: MODIFY the next lines ***
    43 # LOCALDEFINES=-Dfoo -Dbar -DDEBUG
    44 LOCALDEFINES=
    45 
    46 LIBNAME=libstx_goodies_regression
    47 STCLOCALOPT='-package=$(PACKAGE)' -I. $(LOCALINCLUDES) $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) -headerDir=.  -varPrefix=$(LIBNAME)
    48 
    49 
    50 # ********** OPTIONAL: MODIFY the next line ***
    51 # additional C-libraries that should be pre-linked with the class-objects
    52 LD_OBJ_LIBS=
    53 LOCAL_SHARED_LIBS=
    54 
    55 
    56 # ********** OPTIONAL: MODIFY the next line ***
    57 # additional C targets or libraries should be added below
    58 LOCAL_EXTRA_TARGETS=
    59 
    60 OBJS= $(COMMON_OBJS) $(UNIX_OBJS)
    61 
    62 
    63 
    64 all:: preMake classLibRule postMake
    65 
    66 pre_objs:: 
    67 
    68 
    69 
    70 
    71 
    72 
    73 # Enforce recompilation of package definition class if Mercurial working
    74 # copy state changes. Together with --guessVersion it ensures that package
    75 # definition class always contains correct binary revision string.
    76 ifneq (**NOHG**, $(shell hg root 2> /dev/null || echo -n '**NOHG**'))
    77 stx_goodies_regression.$(O): $(shell hg root)/.hg/dirstate
    78 endif
    79 
    80 
    81 
    82 
    83 # run default testsuite for this package
    84 test: $(TOP)/goodies/builder/reports
    85         $(MAKE) -C $(TOP)/goodies/builder/reports -f Makefile.init
    86         $(TOP)/goodies/builder/reports/report-runner.sh -D . -r Builder::TestReport -p $(PACKAGE)
    87 
    88 
    89 
    90 # add more install actions here
    91 install::
    92 
    93 # add more install actions for aux-files (resources) here
    94 installAux::
    95 
    96 # add more preMake actions here
    97 preMake::
    98 
    99 # add more postMake actions here
    100 postMake:: cleanjunk
    101 
    102 # build all mandatory prerequisite packages (containing superclasses) for this package
    103 prereq:
    104         cd ../../libbasic && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
    105         cd ../../libbasic2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
    106         cd ../../libview && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
    107         cd ../../libview2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
    108         cd ../sunit && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
    109 
    110 
    111 
    112 # build all packages containing referenced classes for this package
    113 # they are not needed to compile the package (but later, to load it)
    114 references:
    115 
    116 
    117 cleanjunk::
    118         -rm -f *.s *.s2
    119 
    120 clean::
    121         -rm -f *.o *.H
    122 
    123 clobber:: clean
    124         -rm -f *.so *.dll
    125 
    126 
    127 # BEGINMAKEDEPEND --- do not remove this line; make depend needs it
    128 $(OUTDIR)stx_goodies_regression.$(O) stx_goodies_regression.$(C) stx_goodies_regression.$(H): stx_goodies_regression.st $(INCLUDE_TOP)/stx/libbasic/LibraryDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libbasic/ProjectDefinition.$(H) $(STCHDR)
    129 
    130 # ENDMAKEDEPEND --- do not remove this line
    131 
     1# $Header$
     2#
     3# DO NOT EDIT
     4# automagically generated from the projectDefinition: stx_goodies_regression.
     5#
     6# Warning: once you modify this file, do not rerun
     7# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
     8#
     9# The Makefile as generated by this Make.proto supports the following targets:
     10#    make         - compile all st-files to a classLib
     11#    make clean   - clean all temp files
     12#    make clobber - clean all
     13#
     14# This file contains definitions for Unix based platforms.
     15# It shares common definitions with the win32-make in Make.spec.
     16
     17#
     18# position (of this package) in directory hierarchy:
     19# (must point to ST/X top directory, for tools and includes)
     20TOP=../..
     21INCLUDE_TOP=$(TOP)/..
     22
     23# subdirectories where targets are to be made:
     24SUBDIRS=
     25
     26
     27# subdirectories where Makefiles are to be made:
     28# (only define if different from SUBDIRS)
     29# ALLSUBDIRS=
     30
     31REQUIRED_SUPPORT_DIRS=
     32
     33# if your embedded C code requires any system includes,
     34# add the path(es) here:,
     35# ********** OPTIONAL: MODIFY the next lines ***
     36# LOCALINCLUDES=-Ifoo -Ibar
     37LOCALINCLUDES= -I$(INCLUDE_TOP)/stx/goodies/communication -I$(INCLUDE_TOP)/stx/goodies/sunit -I$(INCLUDE_TOP)/stx/goodies/xml/stx -I$(INCLUDE_TOP)/stx/goodies/xml/vw -I$(INCLUDE_TOP)/stx/libbasic -I$(INCLUDE_TOP)/stx/libbasic2 -I$(INCLUDE_TOP)/stx/libbasic3 -I$(INCLUDE_TOP)/stx/libboss -I$(INCLUDE_TOP)/stx/libcomp -I$(INCLUDE_TOP)/stx/libhtml -I$(INCLUDE_TOP)/stx/libjava -I$(INCLUDE_TOP)/stx/libjavascript -I$(INCLUDE_TOP)/stx/libtool -I$(INCLUDE_TOP)/stx/libview -I$(INCLUDE_TOP)/stx/libview2 -I$(INCLUDE_TOP)/stx/libwidg -I$(INCLUDE_TOP)/stx/libwidg2
     38
     39
     40# if you need any additional defines for embedded C code,
     41# add them here:,
     42# ********** OPTIONAL: MODIFY the next lines ***
     43# LOCALDEFINES=-Dfoo -Dbar -DDEBUG
     44LOCALDEFINES=
     45
     46LIBNAME=libstx_goodies_regression
     47STCLOCALOPT='-package=$(PACKAGE)' -I. $(LOCALINCLUDES) $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) -headerDir=.  -varPrefix=$(LIBNAME)
     48
     49
     50# ********** OPTIONAL: MODIFY the next line ***
     51# additional C-libraries that should be pre-linked with the class-objects
     52LD_OBJ_LIBS=
     53LOCAL_SHARED_LIBS=
     54
     55
     56# ********** OPTIONAL: MODIFY the next line ***
     57# additional C targets or libraries should be added below
     58LOCAL_EXTRA_TARGETS=
     59
     60OBJS= $(COMMON_OBJS) $(UNIX_OBJS)
     61
     62
     63
     64all:: preMake classLibRule postMake
     65
     66pre_objs:: 
     67
     68
     69
     70
     71
     72
     73# Enforce recompilation of package definition class if Mercurial working
     74# copy state changes. Together with --guessVersion it ensures that package
     75# definition class always contains correct binary revision string.
     76ifneq (**NOHG**, $(shell hg root 2> /dev/null || echo -n '**NOHG**'))
     77stx_goodies_regression.$(O): $(shell hg root)/.hg/dirstate
     78endif
     79
     80
     81
     82
     83# run default testsuite for this package
     84test: $(TOP)/goodies/builder/reports
     85        $(MAKE) -C $(TOP)/goodies/builder/reports -f Makefile.init
     86        $(TOP)/goodies/builder/reports/report-runner.sh -D . -r Builder::TestReport -p $(PACKAGE)
     87
     88
     89
     90# add more install actions here
     91install::
     92
     93# add more install actions for aux-files (resources) here
     94installAux::
     95
     96# add more preMake actions here
     97preMake::
     98
     99# add more postMake actions here
     100postMake:: cleanjunk
     101
     102# build all mandatory prerequisite packages (containing superclasses) for this package
     103prereq:
     104        cd ../../libbasic && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
     105        cd ../../libbasic2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
     106        cd ../../libview && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
     107        cd ../../libview2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
     108        cd ../sunit && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
     109
     110
     111
     112# build all packages containing referenced classes for this package
     113# they are not needed to compile the package (but later, to load it)
     114references:
     115
     116
     117cleanjunk::
     118        -rm -f *.s *.s2
     119
     120clean::
     121        -rm -f *.o *.H
     122
     123clobber:: clean
     124        -rm -f *.so *.dll
     125
     126
     127# BEGINMAKEDEPEND --- do not remove this line; make depend needs it
     128$(OUTDIR)stx_goodies_regression.$(O) stx_goodies_regression.$(C) stx_goodies_regression.$(H): stx_goodies_regression.st $(INCLUDE_TOP)/stx/libbasic/LibraryDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libbasic/ProjectDefinition.$(H) $(STCHDR)
     129
     130# ENDMAKEDEPEND --- do not remove this line
     131

  • Make.spec 

    diff -r fffbc76ecc66 -r 6b07361f12c6 Make.spec
    a b  
    1 # $Header$
    2 #
    3 # DO NOT EDIT
    4 # automagically generated from the projectDefinition: stx_goodies_regression.
    5 #
    6 # Warning: once you modify this file, do not rerun
    7 # stmkmp or projectDefinition-build again - otherwise, your changes are lost.
    8 #
    9 # This file contains specifications which are common to all platforms.
    10 #
    11 
    12 # Do NOT CHANGE THESE DEFINITIONS
    13 # (otherwise, ST/X will have a hard time to find out the packages location from its packageID,
    14 #  to find the source code of a class and to find the library for a package)
    15 MODULE=stx
    16 MODULE_DIR=goodies/regression
    17 PACKAGE=$(MODULE):$(MODULE_DIR)
    18 
    19 
    20 # Argument(s) to the stc compiler (stc --usage).
    21 #  -headerDir=. : create header files locally
    22 #                (if removed, they will be created as common
    23 #  -Pxxx       : defines the package
    24 #  -Zxxx       : a prefix for variables within the classLib
    25 #  -Dxxx       : defines passed to CC for inline C-code
    26 #  -Ixxx       : include path passed to CC for inline C-code
    27 #  +optspace   : optimized for space
    28 #  +optspace2  : optimized more for space
    29 #  +optspace3  : optimized even more for space
    30 #  +optinline  : generate inline code for some ST constructs
    31 #  +inlineNew  : additionally inline new
    32 #  +inlineMath : additionally inline some floatPnt math stuff
    33 #
    34 # ********** OPTIONAL: MODIFY the next line(s) ***
    35 # STCLOCALOPTIMIZATIONS=+optinline +inlineNew
    36 # STCLOCALOPTIMIZATIONS=+optspace3
    37 STCLOCALOPTIMIZATIONS=+optspace3
    38 
    39 
    40 # Argument(s) to the stc compiler (stc --usage).
    41 #  -warn            : no warnings
    42 #  -warnNonStandard : no warnings about ST/X extensions
    43 #  -warnEOLComments : no warnings about EOL comment extension
    44 #  -warnPrivacy     : no warnings about privateClass extension
    45 #  -warnUnused      : no warnings about unused variables
    46 #
    47 # ********** OPTIONAL: MODIFY the next line(s) ***
    48 # STCWARNINGS=-warn
    49 # STCWARNINGS=-warnNonStandard
    50 # STCWARNINGS=-warnEOLComments
    51 STCWARNINGS=-warnNonStandard
    52 
    53 COMMON_CLASSES= \
    54         stx_goodies_regression \
    55 
    56 
    57 
    58 
    59 COMMON_OBJS= \
    60     $(OUTDIR_SLASH)stx_goodies_regression.$(O) \
    61 
    62 
    63 
     1# $Header$
     2#
     3# DO NOT EDIT
     4# automagically generated from the projectDefinition: stx_goodies_regression.
     5#
     6# Warning: once you modify this file, do not rerun
     7# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
     8#
     9# This file contains specifications which are common to all platforms.
     10#
     11
     12# Do NOT CHANGE THESE DEFINITIONS
     13# (otherwise, ST/X will have a hard time to find out the packages location from its packageID,
     14#  to find the source code of a class and to find the library for a package)
     15MODULE=stx
     16MODULE_DIR=goodies/regression
     17PACKAGE=$(MODULE):$(MODULE_DIR)
     18
     19
     20# Argument(s) to the stc compiler (stc --usage).
     21#  -headerDir=. : create header files locally
     22#                (if removed, they will be created as common
     23#  -Pxxx       : defines the package
     24#  -Zxxx       : a prefix for variables within the classLib
     25#  -Dxxx       : defines passed to CC for inline C-code
     26#  -Ixxx       : include path passed to CC for inline C-code
     27#  +optspace   : optimized for space
     28#  +optspace2  : optimized more for space
     29#  +optspace3  : optimized even more for space
     30#  +optinline  : generate inline code for some ST constructs
     31#  +inlineNew  : additionally inline new
     32#  +inlineMath : additionally inline some floatPnt math stuff
     33#
     34# ********** OPTIONAL: MODIFY the next line(s) ***
     35# STCLOCALOPTIMIZATIONS=+optinline +inlineNew
     36# STCLOCALOPTIMIZATIONS=+optspace3
     37STCLOCALOPTIMIZATIONS=+optspace3
     38
     39
     40# Argument(s) to the stc compiler (stc --usage).
     41#  -warn            : no warnings
     42#  -warnNonStandard : no warnings about ST/X extensions
     43#  -warnEOLComments : no warnings about EOL comment extension
     44#  -warnPrivacy     : no warnings about privateClass extension
     45#  -warnUnused      : no warnings about unused variables
     46#
     47# ********** OPTIONAL: MODIFY the next line(s) ***
     48# STCWARNINGS=-warn
     49# STCWARNINGS=-warnNonStandard
     50# STCWARNINGS=-warnEOLComments
     51STCWARNINGS=-warnNonStandard
     52
     53COMMON_CLASSES= \
     54        stx_goodies_regression \
     55
     56
     57
     58
     59COMMON_OBJS= \
     60    $(OUTDIR)stx_goodies_regression.$(O) \
     61
     62
     63

  • Makefile.init 

    diff -r fffbc76ecc66 -r 6b07361f12c6 Makefile.init
    a b  
    1 #
    2 # DO NOT EDIT
    3 #
    4 # make uses this file (Makefile) only, if there is no
    5 # file named "makefile" (lower-case m) in the same directory.
    6 # My only task is to generate the real makefile and call make again.
    7 # Thereafter, I am no longer used and needed.
    8 #
    9 # MACOSX caveat:
    10 #   as filenames are not case sensitive (in a default setup),
    11 #   we cannot use the above trick. Therefore, this file is now named
    12 #   "Makefile.init", and you have to execute "make -f Makefile.init" to
    13 #   get the initial makefile.  This is now also done by the toplevel CONFIG
    14 #   script.
    15 
    16 .PHONY: run
    17 
    18 run: makefile
    19         $(MAKE) -f makefile
    20 
    21 #only needed for the definition of $(TOP)
    22 include Make.proto
    23 
    24 makefile: mf
    25 
    26 mf:
    27         $(TOP)/rules/stmkmf
     1#
     2# DO NOT EDIT
     3#
     4# make uses this file (Makefile) only, if there is no
     5# file named "makefile" (lower-case m) in the same directory.
     6# My only task is to generate the real makefile and call make again.
     7# Thereafter, I am no longer used and needed.
     8#
     9# MACOSX caveat:
     10#   as filenames are not case sensitive (in a default setup),
     11#   we cannot use the above trick. Therefore, this file is now named
     12#   "Makefile.init", and you have to execute "make -f Makefile.init" to
     13#   get the initial makefile.  This is now also done by the toplevel CONFIG
     14#   script.
     15
     16.PHONY: run
     17
     18run: makefile
     19        $(MAKE) -f makefile
     20
     21#only needed for the definition of $(TOP)
     22include Make.proto
     23
     24makefile: mf
     25
     26mf:
     27        $(TOP)/rules/stmkmf

  • RegressionTests__SelectorNamespacesTests.st 

    diff -r fffbc76ecc66 -r 6b07361f12c6 RegressionTests__SelectorNamespacesTests.st
    a b  
    1 "{ Encoding: utf8 }"
    2 
    31"
    42 COPYRIGHT (c) 2006 by eXept Software AG
    53 COPYRIGHT (c) 2016-2017 Jan Vrany
    … …  
    174172!
    175173
    176174version_SVN
    177     ^ '§ Id: SelectorNamespacesTests.st 10567 2010-08-19 20:39:34Z vranyj1  §'
     175    ^ '§ Id: SelectorNamespacesTests.st 10567 2010-08-19 20:39:34Z vranyj1  §'
    178176! !
    179177

  • RegressionTests__Win32OperatingSystemTest.st 

    diff -r fffbc76ecc66 -r 6b07361f12c6 RegressionTests__Win32OperatingSystemTest.st
    a b  
     1"{ Encoding: utf8 }"
     2
    13"
    24 COPYRIGHT (c) Claus Gittinger / eXept Software AG
    35 COPYRIGHT (c) 2016 Jan Vrany
    … …  
    1517"{ NameSpace: RegressionTests }"
    1618
    1719TestCase subclass:#Win32OperatingSystemTest
    18         instanceVariableNames:''
     20        instanceVariableNames:'registryPath'
    1921        classVariableNames:''
    2022        poolDictionaries:''
    2123        category:'tests-Regression-RuntimeSystem'
    … …  
    3840"
    3941! !
    4042
     43!Win32OperatingSystemTest methodsFor:'file templates'!
     44
     45unicodeRegistryExample
     46
     47^  'Windows Registry Editor Version 5.00
     48
     49[HKEY_CURRENT_USER\Software\SmalltalkX-tests]
     50"emptyToTest"=""
     51"testEmptyMultiSZ"=hex(7):00,00
     52"bledesu"="''Testing Unicode chars ř ž č ルすしかき'').          "
     53"しかき    "="Testus gradus"
     54" ř ž č ル.          "="Testing Unicode chars ř ž č ルすしかき"
     55"zero"=hex:
     56"non-zero"=hex:11,10
     57"す    "=hex:10
     58"dword_value"=dword:000023af
     59"11"="A number name"
     60"き"=dword:234234af
     61"qwordvalue"=hex(b):ad,61,28,a3,95,0e,74,79
     62"qword_max"=hex(b):ff,ff,ff,ff,ff,ff,ff,ff
     63"すし"=hex(b):ef,ad,00,00,00,00,00,00
     64"Font_Leelawadee UI Bold"=hex(7):53,00,45,00,47,00,4f,00,45,00,55,00,49,00,42,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     100  62,00,6f,00,6c,00,00,00,00,00
     101"ř ž č ルすしか"=hex(7):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     140  00,00,00,00,00
     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,\
     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,\
     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,\
     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
     145" č ルすしか"=hex(2):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,00,\
     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,\
     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,\
     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,\
     149  00
     150
     151[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか]
     152"bledesu"="''Testing Unicode chars ř ž č ルすしかき'').          "
     153"しかき    "="Testus gradus"
     154" ř ž č ル.          "="Testing Unicode chars ř ž č ルすしかき"
     155"zero"=hex:
     156"non-zero"=hex:11,10
     157"す    "=hex:10
     158"dword_value"=dword:000023af
     159"き"=dword:234234af
     160"qwordvalue"=hex(b):ad,61,28,a3,95,0e,74,79
     161"qword_max"=hex(b):ff,ff,ff,ff,ff,ff,ff,ff
     162"すし"=hex(b):ef,ad,00,00,00,00,00,00
     163"Font_Leelawadee UI Bold"=hex(7):53,00,45,00,47,00,4f,00,45,00,55,00,49,00,42,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     199  62,00,6f,00,6c,00,00,00,00,00
     200"ř ž č ルすしか"=hex(7):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     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,\
     239  00,00,00,00,00
     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,\
     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,\
     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,\
     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
     244" č ルすしか"=hex(2):27,00,54,00,65,00,73,00,74,00,69,00,6e,00,67,00,20,00,55,00,\
     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,\
     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,\
     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,\
     248  00
     249
     250[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end]
     251"testing"=" ルすしか"
     252"か"=dword:00000002
     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"
     254
     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]
     256
     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]
     258
     259[HKEY_CURRENT_USER\Software\SmalltalkX-tests\ ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end\reachable]
     260'
     261
     262    "Created: / 16-11-2018 / 11:24:57 / svestkap"
     263    "Modified: / 05-12-2018 / 11:33:32 / svestkap"
     264! !
     265
    41266!Win32OperatingSystemTest methodsFor:'release'!
    42267
    43268setUp
     269    | registryToImport file |
     270
    44271    self skipIf: OperatingSystem isMSWINDOWSlike not description: 'Windows specific tests'.
    45     super setUp
     272    super setUp.
     273           
     274    registryToImport := self unicodeRegistryExample.   
     275   
     276    "/ registry path which will be used 
     277    registryPath := registryToImport
     278        copyFrom: (registryToImport indexOf: $[) + 1
     279        to: (registryToImport indexOf: $]) - 1.       
     280       
     281    "/ temporary file which will be used for importing
     282    file := Filename newTemporary.
     283
     284    "/ Registry export is in UTF-16LE with BOM
     285
     286    " What is BOM?
     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
     288      defining the byte order and encoding form, primarily of unmarked plaintext files. Under some higher level protocols, use of a BOM may
     289      be mandatory (or prohibited) in the Unicode data stream defined in that protocol."
     290
     291    "/ needed to write to file as Windows Registry do UTF16-LE With Signature
     292    " BOM for UTF-16is:
     293       FE FF    UTF-16, big-endian (BE)
     294       FF FE    UTF-16, little-endian (LE)"
     295   
     296    "/ Writing BOM first
     297    file writingFileDo: [ :stream |         
     298       stream nextPutUtf16: (Character codePoint:16rFFFE)         
     299    ].   
     300   
     301    "/ this is UTF16-LE (Little Endian) Without Signature (BOM)
     302    file appendingFileDo: [ :stream | stream nextPutAllUtf16Bytes: registryToImport MSB: false].
     303     
     304    [   "/ adding registry entry so we can test it
     305        OperatingSystem getCommandOutputFrom: ('REG IMPORT ' , file asString)
     306    ] ensure: [ file remove ].
    46307
    47308    "Created: / 28-12-2016 / 22:12:14 / jv"
     309    "Modified (format): / 16-11-2018 / 11:30:30 / svestkap"
     310!
     311
     312tearDown
     313    self skipIf: OperatingSystem isMSWINDOWSlike not description: 'Windows specific tests'.
     314    super tearDown.
     315   
     316    "/ remove the added registry entry
     317    OperatingSystem getCommandOutputFrom:('REG DELETE "', registryPath, '" /f').
     318
     319    "/ Check if testing registry was correctly deleted
     320    self assert: ((OperatingSystem registryEntry key: registryPath) isNil).
     321
     322    "Created: / 16-11-2018 / 11:29:12 / svestkap"
    48323! !
    49324
    50325!Win32OperatingSystemTest methodsFor:'tests'!
    … …  
    123398    "Modified: / 05-01-2017 / 21:45:20 / jv"
    124399! !
    125400
     401!Win32OperatingSystemTest methodsFor:'tests-unicodeRead'!
     402
     403testReadSubKeyAtIndex
     404    "Reading subKeys at certain index
     405    WARNING: subKeyAtIndex: is zero based!!!!!!"
     406
     407    | readData testingRegistryPath |
     408
     409    readData := Unicode16String new.   
     410    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     411
     412    readData := testingRegistryPath subKeyAtIndex: 0.
     413
     414    self assert: readData notEmptyOrNil.
     415    self assert: (readData path copyAfterLast: $\) = ' ルすしか'
     416
     417    "
     418     self run:#testReadSubKeyAtIndex
     419     self new testReadSubKeyAtIndex
     420    "
     421
     422    "Created: / 05-12-2018 / 12:39:45 / svestkap"
     423!
     424
     425testReadSubKeyAtIndex_MaxPath
     426    "reading subKeyAtIndex with max Path
     427     Note: This test acually breaks the limit that Microsoft specified in MSDN - registry key name should be maximum 255 characters including absolute path
     428     MSDN link: https://docs.microsoft.com/en-us/windows/desktop/sysinfo/registry-element-size-limits"
     429
     430    | readData testingRegistryPath |
     431
     432    "/readData := Unicode16String new.   
     433    testingRegistryPath := Win32OperatingSystem registryEntry key:
     434        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').       
     435   
     436    readData := testingRegistryPath subKeyAtIndex: 0.
     437
     438    self assert: readData path notEmptyOrNil.
     439    self assert:(readData path endsWith: '|end').   
     440
     441    "/ this is maximum path size which can be reached if the SubKey is reached via index
     442    self assert: readData path size = 563. "/ there is one backslash (for path) more compared to testReadSubKeyNamesAndClassesAtIndex_MaxPath_01
     443   
     444    "
     445     self run:#testReadSubKeyAtIndex_MaxPath
     446     self new testReadSubKeyAtIndex_MaxPath
     447    "
     448
     449    "Created: / 05-12-2018 / 12:39:54 / svestkap"
     450!
     451
     452testReadSubKeyNamesAndClassesAtIndex_MaxPath
     453    "reading SubKeyNamesAndClasses with max Path
     454     Note: This test acually breaks the limit that Microsoft specified in MSDN - registry key name should be maximum 255 characters including absolute path
     455     MSDN link: https://docs.microsoft.com/en-us/windows/desktop/sysinfo/registry-element-size-limits"
     456
     457    | readData testingRegistryPath |
     458
     459    readData := Unicode16String new.   
     460    testingRegistryPath := Win32OperatingSystem registryEntry key:
     461        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').       
     462   
     463    readData := testingRegistryPath subKeyNameAndClassAtIndex: 0.
     464
     465    self assert: readData notEmptyOrNil.
     466    self assert:(readData first endsWith: '|end').
     467    self assert: readData first = '256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end'.       
     468
     469    "/ this is maximum path size which can be reached if the SubKey is reached via index
     470    self assert: (testingRegistryPath path size + readData first size) = 562.
     471   
     472    "
     473     self run:#testReadSubKeyNamesAndClassesAtIndex_MaxPath
     474     self new testReadSubKeyNamesAndClassesAtIndex_MaxPath
     475    "
     476
     477    "Created: / 05-12-2018 / 12:40:08 / svestkap"
     478!
     479
     480testReadTooLongPath
     481    "Trying to read too long path - if you try to read such a long path it just returns nil"
     482
     483    | testingRegistryPath |
     484   
     485    testingRegistryPath := Win32OperatingSystem registryEntry key:
     486            (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa
     487            |end','\','256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').       
     488
     489    self assert: testingRegistryPath isNil           
     490   
     491    "
     492     self run:#testReadTooLongPath
     493     self new testReadTooLongPath
     494    "
     495
     496    "Created: / 22-11-2018 / 11:19:51 / svestkap"
     497    "Modified (format): / 05-12-2018 / 12:38:58 / svestkap"
     498!
     499
     500testReadValueNameAtIndex
     501    "Reading values (#valueNameAtIndex:) at certain index
     502    WARNING: #valueNameAtIndex: is zero based!!!!!!
     503    Note: This test acually breaks the limit that Microsoft specified in MSDN - registry key name should be maximum 255 characters including absolute path
     504    MSDN link: https://docs.microsoft.com/en-us/windows/desktop/sysinfo/registry-element-size-limits"
     505
     506    | readData testingRegistryPath |
     507
     508    readData := Unicode16String new.   
     509    testingRegistryPath := Win32OperatingSystem registryEntry key: (registryPath,'\', ' ルすしか').
     510
     511    readData := testingRegistryPath valueNameAtIndex: 1.
     512
     513    self assert: readData notEmptyOrNil.
     514    self assert: readData = 'しかき    '
     515
     516    "
     517     self run:#testReadValueNameAtIndex
     518     self new testReadValueNameAtIndex
     519    "
     520
     521    "Created: / 05-12-2018 / 12:40:21 / svestkap"
     522!
     523
     524testReadValueNamed_REG_BINARY_01
     525    "Testing if REG_BINARY values are read correctly via valueNamed:"
     526
     527    | readData testingRegistryPath |
     528       
     529    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     530     
     531    readData := testingRegistryPath valueNamed: 'zero'.
     532       
     533    self assert: readData = ByteArray new.
     534
     535    "
     536     self run:#testReadValueNamed_REG_BINARY_01
     537     self new testReadValueNamed_REG_BINARY_01
     538    "
     539
     540    "Created: / 16-11-2018 / 12:37:50 / svestkap"
     541!
     542
     543testReadValueNamed_REG_BINARY_02
     544    "Testing if REG_BINARY values are read correctly via valueNamed:"
     545
     546    | testingRegistryPath readData readDataHex |
     547       
     548    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     549     
     550    readData := testingRegistryPath valueNamed: 'non-zero'.       
     551    readDataHex := readData hexPrintStringWithSeparator: $|.
     552   
     553    self assert: readData = #[17 16]. "/ ByteArray
     554    self assert: readDataHex = '11|10' "/ hex   
     555   
     556    "
     557     self run:#testReadValueNamed_REG_BINARY_02
     558     self new testReadValueNamed_REG_BINARY_02
     559    "
     560
     561    "Created: / 16-11-2018 / 12:39:33 / svestkap"
     562!
     563
     564testReadValueNamed_REG_DWORD_01
     565    "Testing if REG_DWORD values are read correctly via valueNamed:"
     566
     567    | readData testingRegistryPath |
     568   
     569    readData := Unicode16String new.   
     570    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     571     
     572    readData := testingRegistryPath valueNamed: 'dword_value'.
     573       
     574    self assert: readData = 9135.
     575
     576    "
     577     self run:#testReadValueNamed_REG_DWORD_01
     578     self new testReadValueNamed_REG_DWORD_01
     579    "
     580
     581    "Created: / 16-11-2018 / 12:24:26 / svestkap"
     582!
     583
     584testReadValueNamed_REG_DWORD_02
     585    "Testing if REG_DWORD values are read correctly via valueNamed:"
     586
     587    | readData testingRegistryPath |
     588   
     589    readData := Unicode16String new.   
     590    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     591     
     592    readData := testingRegistryPath valueNamed: 'き'.
     593       
     594    self assert: readData = 591541423.
     595
     596    "
     597     self run:#testReadValueNamed_REG_DWORD_02
     598     self new testReadValueNamed_REG_DWORD_02
     599    "
     600
     601    "Created: / 16-11-2018 / 12:24:43 / svestkap"
     602!
     603
     604testReadValueNamed_REG_EXPAND_SZ_01
     605    "Testing if REG_EXPAND_SZ values are read correctly via valueNamed:"
     606
     607    | readData testingRegistryPath |
     608   
     609    readData := Unicode16String new.   
     610    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     611     
     612    readData := testingRegistryPath valueNamed: ' č ルすしか'.
     613       
     614    self assert: readData = '''Testing Unicode chars ř ž č ルすしかき'').          '.
     615
     616    "
     617     self run:#testReadValueNamed_REG_EXPAND_SZ_01
     618     self new testReadValueNamed_REG_EXPAND_SZ_01
     619    "
     620
     621    "Created: / 16-11-2018 / 12:27:58 / svestkap"
     622!
     623
     624testReadValueNamed_REG_EXPAND_SZ_02
     625    "Testing if REG_EXPAND_SZ values are read correctly via valueNamed:"
     626
     627    | readData testingRegistryPath |
     628   
     629    readData := Unicode16String new.   
     630    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     631     
     632    readData := testingRegistryPath valueNamed: 'Ugh'.
     633       
     634    self assert: readData = '''Testing Unicode chars ř ž č ルすしかき'').          '.
     635
     636    "
     637     self run:#testReadValueNamed_REG_EXPAND_SZ_02
     638     self new testReadValueNamed_REG_EXPAND_SZ_02
     639    "
     640
     641    "Created: / 16-11-2018 / 12:29:52 / svestkap"
     642!
     643
     644testReadValueNamed_REG_MULTI_SZ_01
     645    "Testing if REG_MULTI_SZ values are read correctly via valueNamed:"
     646
     647    | readData testingRegistryPath |
     648       
     649    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     650     
     651    readData := testingRegistryPath valueNamed: 'Font_Leelawadee UI Bold'.
     652       
     653    self assert: readData = #('SEGOEUIB.TTF,Segoe UI Bold,110,82' 'SEGOEUIB.TTF,Segoe UI Bold' 'MEIRYOB.TTC,Meiryo UI Bold,120,96'
     654                              'MEIRYOB.TTC,Meiryo UI Bold' 'MSJHBD.TTC,Microsoft JhengHei UI Bold,120,96' 'MSJHBD.TTC,Microsoft JhengHei UI Bold'
     655                              'MSYHBD.TTC,Microsoft YaHei UI Bold,128,96' 'MSYHBD.TTC,Microsoft YaHei UI Bold' 'MALGUNBD.TTF,Malgun Gothic Bold,118,96'
     656                              'MALGUNBD.TTF,Malgun Gothic Bold' 'YUGOTHB.TTC,Yu Gothic UI Bold,128,96' 'YUGOTHB.TTC,Yu Gothic UI Bold' 'SEGUISYM.TTF,Segoe UI Symbol')
     657
     658    "
     659     self run:#testReadValueNamed_REG_MULTI_SZ_01
     660     self new testReadValueNamed_REG_MULTI_SZ_01
     661    "
     662
     663    "Created: / 16-11-2018 / 12:30:24 / svestkap"
     664!
     665
     666testReadValueNamed_REG_MULTI_SZ_02
     667    "Testing if REG_MULTI_SZ values are read correctly via valueNamed:"
     668
     669    | readData testingRegistryPath |
     670       
     671    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     672     
     673    readData := testingRegistryPath valueNamed: 'ř ž č ルすしか'.
     674       
     675    self assert: readData = #('''Testing Unicode chars ř ž č ルすしかき'')'
     676                              'SEGOEUIB.TTF,Segoe UI Bold,110,82' 'SEGOEUIB.TTF,Segoe UI Bold' 'MEIRYOB.TTC,Meiryo UI Bold,120,96'
     677                              'MEIRYOB.TTC,Meiryo UI Bold' 'MSJHBD.TTC,Microsoft JhengHei UI Bold,120,96' 'MSJHBD.TTC,Microsoft JhengHei UI Bold'
     678                              'MSYHBD.TTC,Microsoft YaHei UI Bold,128,96' 'MSYHBD.TTC,Microsoft YaHei UI Bold' 'MALGUNBD.TTF,Malgun Gothic Bold,118,96'
     679                              'MALGUNBD.TTF,Malgun Gothic Bold' 'YUGOTHB.TTC,Yu Gothic UI Bold,128,96' 'YUGOTHB.TTC,Yu Gothic UI Bold' 'SEGUISYM.TTF,Segoe UI Symbol')
     680
     681    "
     682     self run:#testReadValueNamed_REG_MULTI_SZ_02
     683     self new testReadValueNamed_REG_MULTI_SZ_02
     684    "
     685
     686    "Created: / 16-11-2018 / 12:35:57 / svestkap"
     687!
     688
     689testReadValueNamed_REG_MULTI_SZ_03
     690    "Testing if empty REG_MULTI_SZ value is read correctly via valueNamed:"
     691
     692    | readData testingRegistryPath |
     693       
     694    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     695     
     696    readData := testingRegistryPath valueNamed: 'testEmptyMultiSZ'.
     697   
     698    self assert: readData isEmpty
     699
     700    "
     701     self run:#testReadValueNamed_REG_MULTI_SZ_03
     702     self new testReadValueNamed_REG_MULTI_SZ_03
     703    "
     704
     705    "Created: / 03-12-2018 / 10:59:48 / svestkap"
     706!
     707
     708testReadValueNamed_REG_QWORD_01
     709    "Testing if REG_QWORD values are read correctly via valueNamed:
     710     The read value is a QWORD maximum value"
     711
     712    | readData testingRegistryPath |
     713   
     714    readData := Unicode16String new.   
     715    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     716     
     717    readData := testingRegistryPath valueNamed: 'qword_max'.
     718       
     719    self assert: readData = 18446744073709551615.
     720
     721    "
     722     self run:#testReadValueNamed_REG_QWORD_01
     723     self new testReadValueNamed_REG_QWORD_01
     724    "
     725
     726    "Created: / 16-11-2018 / 12:25:47 / svestkap"
     727    "Modified (comment): / 05-12-2018 / 12:38:09 / svestkap"
     728!
     729
     730testReadValueNamed_REG_QWORD_02
     731    "Testing if REG_QWORD values are read correctly via valueNamed:"
     732
     733    | readData testingRegistryPath |
     734   
     735    readData := Unicode16String new.   
     736    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     737     
     738    readData := testingRegistryPath valueNamed: 'qwordvalue'.
     739       
     740    self assert: readData = 8751636011737964973.
     741
     742    "
     743     self run:#testReadValueNamed_REG_QWORD_02
     744     self new testReadValueNamed_REG_QWORD_02
     745    "
     746
     747    "Created: / 16-11-2018 / 12:26:23 / svestkap"
     748!
     749
     750testReadValueNamed_REG_QWORD_03
     751    "Testing if REG_QWORD values are read correctly via valueNamed:"
     752
     753    | readData testingRegistryPath |
     754   
     755    readData := Unicode16String new.   
     756    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     757     
     758    readData := testingRegistryPath valueNamed: 'すし'.
     759       
     760    self assert: readData asSmallInteger = 44527.
     761
     762    "
     763     self run:#testReadValueNamed_REG_QWORD_03
     764     self new testReadValueNamed_REG_QWORD_03
     765    "
     766
     767    "Created: / 16-11-2018 / 12:27:17 / svestkap"
     768    "Modified: / 20-11-2018 / 12:25:05 / svestkap"
     769!
     770
     771testReadValueNamed_REG_SZ_01
     772    "Testing if REG_SZ values are read correctly via valueNamed:"
     773
     774    | readData testingRegistryPath |
     775   
     776    readData := Unicode16String new.   
     777    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     778     
     779    readData := testingRegistryPath valueNamed: 'bledesu'.
     780   
     781    self assert: readData = '''Testing Unicode chars ř ž č ルすしかき'').          '.
     782   
     783    "
     784     self run:#testReadValueNamed_REG_SZ_01
     785     self new testReadValueNamed_REG_SZ_01
     786    "
     787
     788    "Created: / 16-11-2018 / 12:14:59 / svestkap"
     789!
     790
     791testReadValueNamed_REG_SZ_02
     792    "Testing if REG_SZ values are read correctly via valueNamed:"
     793
     794    | readData testingRegistryPath |
     795   
     796    readData := Unicode16String new.   
     797    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     798     
     799    readData := testingRegistryPath valueNamed: ' ř ž č ル.          '.
     800       
     801    self assert: readData = 'Testing Unicode chars ř ž č ルすしかき'.   
     802
     803    "
     804     self run:#testReadValueNamed_REG_SZ_02
     805     self new testReadValueNamed_REG_SZ_02
     806    "
     807
     808    "Created: / 16-11-2018 / 12:15:17 / svestkap"
     809!
     810
     811testReadValueNamed_REG_SZ_03
     812    "Testing if REG_SZ values are read correctly via valueNamed:"
     813
     814    | readData testingRegistryPath |
     815   
     816    readData := Unicode16String new.   
     817    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     818     
     819    readData := testingRegistryPath valueNamed: 'しかき    '.
     820       
     821    self assert: readData = 'Testus gradus'.
     822
     823    "
     824     self run:#testReadValueNamed_REG_SZ_03
     825     self new testReadValueNamed_REG_SZ_03
     826    "
     827
     828    "Created: / 16-11-2018 / 12:21:59 / svestkap"
     829!
     830
     831testReadValueNamed_REG_SZ_04
     832    "Testing if empty REG_SZ value is read correctly via valueNamed:"
     833
     834    | readData testingRegistryPath |
     835   
     836    readData := Unicode16String new.   
     837    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     838     
     839    readData := testingRegistryPath valueNamed: 'emptyToTest'.
     840   
     841    self assert: readData isEmpty.
     842   
     843    "
     844     self run:#testReadValueNamed_REG_SZ_04
     845     self new testReadValueNamed_REG_SZ_04
     846    "
     847
     848    "Created: / 03-12-2018 / 10:56:11 / svestkap"
     849!
     850
     851testReadValueNamed_nonStringValue
     852    "Testing reading non-string value from Registry via valueNamed
     853     User should see a warning message in Transcript"
     854
     855    | readData testingRegistryPath |
     856   
     857    readData := Unicode16String new.   
     858    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     859     
     860    readData := testingRegistryPath valueNamed: 11.
     861       
     862    self assert: readData isNil.
     863
     864    "
     865     self run:#testReadValueNamed_nonStringValue
     866     self new testReadValueNamed_nonStringValue
     867    "
     868
     869    "Created: / 05-12-2018 / 12:40:31 / svestkap"
     870! !
     871
     872!Win32OperatingSystemTest methodsFor:'tests-unicodeReadEnumeration'!
     873
     874testReadAllSubKeysDo_MaxPath
     875    "reading via allSubKeysDo (using subKeyAtIndex:) with max Path
     876     The path is suppassing the Microsoft limit - for more information see testReadSubKeyAtIndex_MaxPath_01"
     877
     878    | readData testingRegistryPath |
     879
     880    readData := OrderedCollection new.   
     881    testingRegistryPath := Win32OperatingSystem registryEntry key:
     882        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').       
     883   
     884    testingRegistryPath  allSubKeysDo: [ :subEntry |
     885        readData add: subEntry
     886    ].     
     887   
     888    self assert: readData notEmptyOrNil.   
     889    self assert: readData size = 3.
     890    "/ this is normally unreachable subKey (subkey actually called 'unreachable')
     891    self assert: (readData at: 2) path size = 575.
     892   
     893    readData := readData copy collect: [ :subEntry | subEntry path copyAfterLast: $\ ].
     894
     895    self assert: readData size = 3.   
     896    self assert: (readData first endsWith: '|end').
     897    self assert: readData second = 'unreachable'.
     898    self assert: readData third = 'reachable'
     899
     900    "
     901     self run:#testReadAllSubKeysDo_MaxPath
     902     self new testReadAllSubKeysDo_MaxPath
     903    "
     904
     905    "Created: / 05-12-2018 / 12:40:53 / svestkap"
     906!
     907
     908testReadRemoteKeyOnHost
     909    "Reading remote registry via remoteKeyOnHost:
     910     Note: a key must be a predefined key for more see:
     911     https://docs.microsoft.com/en-us/windows/desktop/SysInfo/predefined-keys"
     912
     913    | testingRegistryPath remoteRegistry readData  |
     914   
     915    "/ HKEY_CURRENT_USER is one of the predefined keys
     916    testingRegistryPath := Win32OperatingSystem registryEntry key: 'HKEY_CURRENT_USER'.       
     917    "/ testing done on localhost
     918    remoteRegistry := testingRegistryPath remoteKeyOnHost: 'localhost'.
     919    readData := remoteRegistry subKeys.
     920   
     921    readData := readData copy collect: [ :subEntry | (subEntry path copyAfterLast: $\) asLowercase ].
     922   
     923    self assert: readData notEmptyOrNil.   
     924    self assert: (readData includes: 'software').   
     925
     926    "
     927     self run:#testReadRemoteKeyOnHost
     928     self new testReadRemoteKeyOnHost
     929    "
     930
     931    "Created: / 05-12-2018 / 12:41:06 / svestkap"
     932!
     933
     934testReadSubKeyNamesAndClassesDo_MaxPath
     935    "reading SubKeyNamesAndClasses with max Path
     936     The path is suppassing the Microsoft limit - for more information see testReadSubKeyNamesAndClassesAtIndex_MaxPath_01"
     937
     938    | readData testingRegistryPath |
     939
     940    readData := OrderedDictionary new.   
     941    testingRegistryPath := Win32OperatingSystem registryEntry key:
     942        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').       
     943   
     944    testingRegistryPath  subKeyNamesAndClassesDo: [  :name :className |
     945        readData at: name put: className.
     946    ].     
     947
     948    self assert: readData notEmptyOrNil.
     949    self assert: readData size = 2.
     950    self assert: (readData at: 'reachable') isEmpty. "/ the class is empty
     951
     952    "
     953     self run:#testReadSubKeyNamesAndClassesDo_MaxPath
     954     self new testReadSubKeyNamesAndClassesDo_MaxPath
     955    "
     956
     957    "Created: / 05-12-2018 / 12:41:31 / svestkap"
     958!
     959
     960testReadSubKeysDo_MaxPath
     961    "reading via subKeysDo (using subKeyAtIndex:) with max Path
     962     The path is suppassing the Microsoft limit - for more information see testReadSubKeyAtIndex_MaxPath_01"
     963
     964    | readData testingRegistryPath |
     965
     966    readData := OrderedCollection new.   
     967    testingRegistryPath := Win32OperatingSystem registryEntry key:
     968        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').       
     969   
     970    testingRegistryPath  subKeysDo: [ :subEntry |
     971        readData add: subEntry
     972    ].     
     973   
     974    self assert: readData notEmptyOrNil.   
     975    self assert: readData size = 2.   
     976    self assert: (readData first) path size = 563.
     977   
     978    readData := readData copy collect: [ :subEntry | subEntry path copyAfterLast: $\ ].
     979
     980    self assert: readData size = 2.   
     981    self assert: (readData first endsWith: '|end').
     982    self assert: readData second = 'reachable'.
     983
     984    "
     985     self run:#testReadSubKeysDo_MaxPath
     986     self new testReadSubKeysDo_MaxPath
     987    "
     988
     989    "Created: / 05-12-2018 / 12:41:49 / svestkap"
     990!
     991
     992testReadSubKeys_MaxPath
     993    "reading via subKeys (using subKeyAtIndex:) with max Path
     994     The path is suppassing the Microsoft limit - for more information see testReadSubKeyAtIndex_MaxPath_01"
     995
     996    | readData testingRegistryPath |
     997   
     998    testingRegistryPath := Win32OperatingSystem registryEntry key:
     999        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').       
     1000   
     1001    readData := testingRegistryPath subKeys.
     1002   
     1003    self assert: readData notEmptyOrNil.   
     1004    self assert: readData size = 2.   
     1005    self assert: (readData first) path size = 563.
     1006   
     1007    readData := readData copy collect: [ :subEntry | subEntry path copyAfterLast: $\ ].
     1008
     1009    self assert: readData size = 2.   
     1010    self assert: (readData first endsWith: '|end').
     1011    self assert: readData second = 'reachable'.
     1012
     1013    "
     1014     self run:#testReadSubKeys_MaxPath
     1015     self new testReadSubKeys_MaxPath
     1016    "
     1017
     1018    "Created: / 05-12-2018 / 12:41:59 / svestkap"
     1019!
     1020
     1021testReadValueNamesAndValuesDo_MaxPath
     1022    "reading via #valueNamesAndValuesDo: (using #valueNameAtIndex:) with max Path
     1023     The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
     1024
     1025    | readData testingRegistryPath |
     1026
     1027    readData := OrderedDictionary new.   
     1028    testingRegistryPath := Win32OperatingSystem registryEntry key:
     1029        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').       
     1030   
     1031    testingRegistryPath valueNamesAndValuesDo: [ :name :value |
     1032        readData at: name put: value
     1033    ].     
     1034   
     1035    self assert: readData notEmptyOrNil.   
     1036    self assert: readData size = 3.   
     1037    self assert: readData first =  ('testing'->' ルすしか').
     1038    self assert: (readData at: 'か')= 2.
     1039    self assert: readData second = 2.
     1040    self assert: (readData at: '256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end')
     1041        = 'Longer_than_256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|endsdfsdfasdfasdfasdfjlkasdjflkasjdflkjasdlfjaslkdfjlkasdjflkasdflksadlkjsadlfalsdfůlasdjflkasdjflkasjdflkůjasdflůkjasdlůfjalsůkdjflůksd'.
     1042    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'.
     1043
     1044    " 
     1045     self run:#testReadValueNamesAndValuesDo_MaxPath
     1046     self new testReadValueNamesAndValuesDo_MaxPath
     1047    "
     1048
     1049    "Created: / 05-12-2018 / 12:43:05 / svestkap"
     1050!
     1051
     1052testReadValueNamesAndValuesDo_REG_SZ_01
     1053    "Testing if REG_SZ values are read correctly via valueNamesAndValuesDo:"
     1054
     1055    | readData testingRegistryPath |
     1056   
     1057    readData := OrderedDictionary new.   
     1058    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     1059     
     1060    testingRegistryPath valueNamesAndValuesDo: [ :name :data |
     1061        readData at: name put: data
     1062    ].
     1063   
     1064    self assert: (readData at: 'bledesu') = '''Testing Unicode chars ř ž č ルすしかき'').          '.
     1065   
     1066    "
     1067     self run:#testReadValueNamesAndValuesDo_REG_SZ_01
     1068     self new testReadValueNamesAndValuesDo_REG_SZ_01
     1069    "
     1070
     1071    "Created: / 16-11-2018 / 12:15:52 / svestkap"
     1072!
     1073
     1074testReadValueNamesAndValuesDo_REG_SZ_02
     1075    "Testing if REG_SZ values are read correctly via valueNamesAndValuesDo:"
     1076
     1077    | readData testingRegistryPath |
     1078   
     1079    readData := OrderedDictionary new.   
     1080    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     1081     
     1082    testingRegistryPath valueNamesAndValuesDo: [ :name :data |
     1083        readData at: name put: data
     1084    ].
     1085   
     1086    self assert: (readData at: ' ř ž č ル.          ') = 'Testing Unicode chars ř ž č ルすしかき'.   
     1087
     1088    "
     1089     self run:#testReadValueNamesAndValuesDo_REG_SZ_02
     1090     self new testReadValueNamesAndValuesDo_REG_SZ_02
     1091    "
     1092
     1093    "Created: / 05-12-2018 / 12:43:35 / svestkap"
     1094!
     1095
     1096testReadValueNamesDo_MaxPath
     1097    "reading via #valueNamesDo: (using #valueNameAtIndex:) with max Path
     1098     The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
     1099
     1100    | readData readDataValue testingRegistryPath |
     1101
     1102    readData := OrderedCollection new.   
     1103    testingRegistryPath := Win32OperatingSystem registryEntry key:
     1104        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').       
     1105   
     1106    testingRegistryPath valueNamesDo: [ :subEntry |
     1107        readData add: subEntry
     1108    ].     
     1109   
     1110    self assert: readData notEmptyOrNil.   
     1111    self assert: readData size = 3.   
     1112    self assert: readData first = 'testing'.
     1113    self assert: readData second = 'か'.
     1114    self assert: readData third = '256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end'.
     1115   
     1116    readDataValue := testingRegistryPath valueNamed: readData third. 
     1117   
     1118    "/ MSDN limits: Value name 16,383 characters (@Windows 2000: 260 ANSI characters or 16,383 Unicode characters)
     1119    "/ the following tests 401 characters       
     1120    self assert: readDataValue = 'Longer_than_256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|endsdfsdfasdfasdfasdfjlkasdjflkasjdflkjasdlfjaslkdfjlkasdjflkasdflksadlkjsadlfalsdfůlasdjflkasdjflkasjdflkůjasdflůkjasdlůfjalsůkdjflůksd'.
     1121    "
     1122     self run:#testReadValueNamesDo_MaxPath
     1123     self new testReadValueNamesDo_MaxPath
     1124    "
     1125
     1126    "Created: / 05-12-2018 / 12:43:49 / svestkap"
     1127!
     1128
     1129testReadValueNames_MaxPath
     1130    "reading via #valueNames (using #valueNameAtIndex:) with max Path
     1131     The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
     1132
     1133    | readData testingRegistryPath |
     1134
     1135    testingRegistryPath := Win32OperatingSystem registryEntry key:
     1136        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').       
     1137   
     1138    readData := testingRegistryPath valueNames.
     1139   
     1140    self assert: readData isArray.
     1141    self assert: readData notEmptyOrNil.   
     1142    self assert: readData size = 3.   
     1143    self assert: readData first = 'testing'.
     1144    self assert: readData second = 'か'.
     1145    self assert: readData third = '256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end'.
     1146
     1147    " 
     1148     self run:#testReadValueNames_MaxPath
     1149     self new testReadValueNames_MaxPath
     1150    "
     1151
     1152    "Created: / 05-12-2018 / 12:44:16 / svestkap"
     1153!
     1154
     1155testReadvalueNamesAndValuesDo_MaxPath_01
     1156    "reading via #valueNamesAndValuesDo: (using #valueNameAtIndex:) with max Path
     1157     The path is suppassing the Microsoft limit - for more information see testReadValueNameAtIndex_01"
     1158
     1159    | readData testingRegistryPath |
     1160
     1161    readData := OrderedDictionary new.   
     1162    testingRegistryPath := Win32OperatingSystem registryEntry key:
     1163        (registryPath,'\', ' ルすしか\256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end').       
     1164   
     1165    testingRegistryPath valueNamesAndValuesDo: [ :name :value |
     1166        readData at: name put: value
     1167    ].     
     1168   
     1169    self assert: readData notEmptyOrNil.   
     1170    self assert: readData size = 3.   
     1171    self assert: readData first =  ('testing'->' ルすしか').
     1172    self assert: (readData at: 'か')= 2.
     1173    self assert: readData second = 2.
     1174    self assert: (readData at: '256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|end')
     1175        = 'Longer_than_256_chars_max_long|arsdfasdfjljljasdf;jl;jljsfasdfasdfljaslkdfjkasdfljalsd;jfa;lsdjflkasjdflkajsdflkjasdflkjsadlfjasldfjlsadjflksdjflksadjflkajsdflkjasdlfjalskdjflkasdjflkasdfkj;sdaf;kljkkjkklkjjjjkas|1asdfjsldfjlasdlfjlasdjfljasdlfjalsdjflajdfsdsasdfa|endsdfsdfasdfasdfasdfjlkasdjflkasjdflkjasdlfjaslkdfjlkasdjflkasdflksadlkjsadlfalsdfůlasdjflkasdjflkasjdflkůjasdflůkjasdlůfjalsůkdjflůksd'.
     1176    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'.
     1177
     1178    " 
     1179     self run:#testReadvalueNamesAndValuesDo_MaxPath_01
     1180     self new testReadvalueNamesAndValuesDo_MaxPath_01
     1181    "
     1182
     1183    "Created: / 22-11-2018 / 14:10:34 / svestkap"
     1184!
     1185
     1186testReadvalueNamesAndValuesDo_REG_SZ_02
     1187    "Testing if REG_SZ values are read correctly via valueNamesAndValuesDo:"
     1188
     1189    | readData testingRegistryPath |
     1190   
     1191    readData := OrderedDictionary new.   
     1192    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
     1193     
     1194    testingRegistryPath valueNamesAndValuesDo: [ :name :data |
     1195        readData at: name put: data
     1196    ].
     1197   
     1198    self assert: (readData at: ' ř ž č ル.          ') = 'Testing Unicode chars ř ž č ルすしかき'.   
     1199
     1200    "
     1201     self run:#testReadvalueNamesAndValuesDo_REG_SZ_02
     1202     self new testReadvalueNamesAndValuesDo_REG_SZ_02
     1203    "
     1204
     1205    "Created: / 16-11-2018 / 12:16:16 / svestkap"
     1206! !
     1207
    1261208!Win32OperatingSystemTest class methodsFor:'documentation'!
    1271209
    1281210version

  • abbrev.stc 

    diff -r fffbc76ecc66 -r 6b07361f12c6 abbrev.stc
    a b  
    1 # automagically generated by the project definition
    2 # this file is needed for stc to be able to compile modules independently.
    3 # it provides information about a classes filename, category and especially namespace.
    4 stx_goodies_regression stx_goodies_regression stx:goodies/regression '* Projects & Packages *' 3
    5 RegressionTests::VMSpawningTestCase RegressionTests__VMSpawningTestCase stx:goodies/regression 'tests-Regression-Abstract' 1
    6 RegressionTests::AssociationTests RegressionTests__AssociationTests stx:goodies/regression 'tests-Regression' 1
    7 RegressionTests::BecomeTests RegressionTests__BecomeTests stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
    8 RegressionTests::BehaviorLookupObjectTests RegressionTests__BehaviorLookupObjectTests stx:goodies/regression 'tests-Regression' 1
    9 RegressionTests::BinaryIOTests RegressionTests__BinaryIOTests stx:goodies/regression 'tests-Regression-Streams' 1
    10 RegressionTests::BinaryTreeTester RegressionTests__BinaryTreeTester stx:goodies/regression 'tests-Regression-Collections' 1
    11 RegressionTests::BlockTest RegressionTests__BlockTest stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
    12 RegressionTests::BreakpointTests RegressionTests__BreakpointTests stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
    13 RegressionTests::CECollectionExtensionTest RegressionTests__CECollectionExtensionTest stx:goodies/regression 'tests-Regression-CollectionExtensions' 1
    14 RegressionTests::CESequenceableCollectionExtensionTest RegressionTests__CESequenceableCollectionExtensionTest stx:goodies/regression 'tests-Regression-CollectionExtensions' 1
    15 RegressionTests::CEStringExtensionTest RegressionTests__CEStringExtensionTest stx:goodies/regression 'tests-Regression-CollectionExtensions' 1
    16 RegressionTests::CachedValueTest RegressionTests__CachedValueTest stx:goodies/regression 'tests-Regression' 1
    17 RegressionTests::CharacterEncoderTests RegressionTests__CharacterEncoderTests stx:goodies/regression 'tests-Regression-Collections' 1
    18 RegressionTests::CharacterSetTests RegressionTests__CharacterSetTests stx:goodies/regression 'tests-Regression-Collections' 1
    19 RegressionTests::CharacterTests RegressionTests__CharacterTests stx:goodies/regression 'tests-Regression' 1
    20 RegressionTests::ClassAndMethodCompilingTestCase RegressionTests__ClassAndMethodCompilingTestCase stx:goodies/regression 'tests-Regression-Abstract' 1
    21 RegressionTests::ClassDescriptionTests RegressionTests__ClassDescriptionTests stx:goodies/regression 'tests-Regression' 1
    22 RegressionTests::ClassWithoutVersionMethod RegressionTests__ClassWithoutVersionMethod stx:goodies/regression 'tests-Regression' 0
    23 RegressionTests::CollectionTests RegressionTests__CollectionTests stx:goodies/regression 'tests-Regression-Collections' 1
    24 RegressionTests::CompilerTest RegressionTests__CompilerTest stx:goodies/regression 'tests-Regression-Compilers' 1
    25 RegressionTests::CompilerTests2 RegressionTests__CompilerTests2 stx:goodies/regression 'tests-Regression-Compilers' 1
    26 RegressionTests::CompilerTests2ExternalBytes RegressionTests__CompilerTests2ExternalBytes stx:goodies/regression 'tests-Regression-Compilers' 0
    27 RegressionTests::ComplexTest RegressionTests__ComplexTest stx:goodies/regression 'tests-Regression-Numbers' 1
    28 RegressionTests::CompressionStreamTest RegressionTests__CompressionStreamTest stx:goodies/regression 'autoloaded' 0
    29 RegressionTests::ContextTest2 RegressionTests__ContextTest2 stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
    30 RegressionTests::CoverageInstrumentationTest RegressionTests__CoverageInstrumentationTest stx:goodies/regression 'tests-Regression' 1
    31 RegressionTests::CryptTests RegressionTests__CryptTests stx:goodies/regression 'tests-Regression' 1
    32 RegressionTests::DebuggerTest RegressionTests__DebuggerTest stx:goodies/regression 'tests-Regression' 1
    33 RegressionTests::DeepCopyTests RegressionTests__DeepCopyTests stx:goodies/regression 'tests-Regression' 1
    34 RegressionTests::DelayTest RegressionTests__DelayTest stx:goodies/regression 'tests-Regression' 1
    35 RegressionTests::DictionaryTest RegressionTests__DictionaryTest stx:goodies/regression 'tests-Regression-Collections' 1
    36 RegressionTests::DoubleMetaphoneStringComparatorTest RegressionTests__DoubleMetaphoneStringComparatorTest stx:goodies/regression 'tests-Regression' 1
    37 RegressionTests::EnumerationTests RegressionTests__EnumerationTests stx:goodies/regression 'tests-Regression-Collections' 1
    38 RegressionTests::ExceptionTest RegressionTests__ExceptionTest stx:goodies/regression 'tests-Regression' 1
    39 RegressionTests::ExternalInterfaceTests RegressionTests__ExternalInterfaceTests stx:goodies/regression 'tests-Regression' 1
    40 RegressionTests::ExternalStreamTest RegressionTests__ExternalStreamTest stx:goodies/regression 'tests-Regression-Streams' 1
    41 RegressionTests::FileOpenTest RegressionTests__FileOpenTest stx:goodies/regression 'tests-Regression-Streams' 1
    42 RegressionTests::FileStreamTest RegressionTests__FileStreamTest stx:goodies/regression 'tests-Regression-Streams' 1
    43 RegressionTests::FilenameTests RegressionTests__FilenameTests stx:goodies/regression 'tests-Regression' 1
    44 RegressionTests::FloatTest RegressionTests__FloatTest stx:goodies/regression 'tests-Regression-Numbers' 1
    45 RegressionTests::FractionTest RegressionTests__FractionTest stx:goodies/regression 'tests-Regression-Numbers' 1
    46 RegressionTests::GCTest RegressionTests__GCTest stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
    47 RegressionTests::GraphicDrawingTest RegressionTests__GraphicDrawingTest stx:goodies/regression 'tests-Regression' 1
    48 RegressionTests::HTMLParserTests RegressionTests__HTMLParserTests stx:goodies/regression 'tests-Regression-XML' 1
    49 RegressionTests::HTTPServerTests RegressionTests__HTTPServerTests stx:goodies/regression 'tests-Regression-Services' 1
    50 RegressionTests::ImageReaderTest RegressionTests__ImageReaderTest stx:goodies/regression 'tests-Regression' 1
    51 RegressionTests::IntegerTest RegressionTests__IntegerTest stx:goodies/regression 'tests-Regression-Numbers' 1
    52 RegressionTests::JITTest RegressionTests__JITTest stx:goodies/regression 'tests-Regression-Compilers' 1
    53 RegressionTests::JavaScriptTests RegressionTests__JavaScriptTests stx:goodies/regression 'tests-Regression-Compilers' 1
    54 RegressionTests::KoelnerPhoneticCodeStringComparatorTest RegressionTests__KoelnerPhoneticCodeStringComparatorTest stx:goodies/regression 'tests-Regression-Collections-Utilities' 1
    55 RegressionTests::LabelResizingTest RegressionTests__LabelResizingTest stx:goodies/regression 'tests-Regression' 1
    56 RegressionTests::LargeFloatTest RegressionTests__LargeFloatTest stx:goodies/regression 'tests-Regression-Numbers' 1
    57 RegressionTests::LinkedListTest RegressionTests__LinkedListTest stx:goodies/regression 'tests-Regression-Collections' 1
    58 RegressionTests::LiteralsInMethodTests RegressionTests__LiteralsInMethodTests stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
    59 RegressionTests::LoggedStreamTests RegressionTests__LoggedStreamTests stx:goodies/regression 'tests-Regression-Streams' 1
    60 RegressionTests::MakefileTests RegressionTests__MakefileTests stx:goodies/regression 'tests-Regression' 1
    61 RegressionTests::ManyProcessesTest RegressionTests__ManyProcessesTest stx:goodies/regression 'tests-Regression' 0
    62 RegressionTests::MeasurementValueTests RegressionTests__MeasurementValueTests stx:goodies/regression 'tests-Regression' 1
    63 RegressionTests::MemoryTest RegressionTests__MemoryTest stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
    64 RegressionTests::MetaNumbersTest RegressionTests__MetaNumbersTest stx:goodies/regression 'tests-Regression-Numbers' 1
    65 RegressionTests::MiracodeStringComparatorTest RegressionTests__MiracodeStringComparatorTest stx:goodies/regression 'tests-Regression-Collections-Utilities' 1
    66 RegressionTests::MySQLSoundexStringComparatorTest RegressionTests__MySQLSoundexStringComparatorTest stx:goodies/regression 'tests-Regression-Collections-Utilities' 1
    67 RegressionTests::NumberTest RegressionTests__NumberTest stx:goodies/regression 'tests-Regression-Numbers' 1
    68 RegressionTests::OS_OLE_Tests RegressionTests__OS_OLE_Tests stx:goodies/regression 'OS-Testing' 1
    69 RegressionTests::OperatingSystemTest RegressionTests__OperatingSystemTest stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
    70 RegressionTests::OperationInQueueTests RegressionTests__OperationInQueueTests stx:goodies/regression 'tests-Regression' 1
    71 RegressionTests::PTYTest RegressionTests__PTYTest stx:goodies/regression 'tests-Regression-Streams' 1
    72 RegressionTests::ParserTests RegressionTests__ParserTests stx:goodies/regression 'tests-Regression-Compilers' 0
    73 RegressionTests::PipeStreamTest RegressionTests__PipeStreamTest stx:goodies/regression 'tests-Regression-Streams' 1
    74 RegressionTests::PowerSetTests RegressionTests__PowerSetTests stx:goodies/regression 'tests-Regression-Collections' 1
    75 RegressionTests::ProcessTest RegressionTests__ProcessTest stx:goodies/regression 'tests-Regression' 1
    76 RegressionTests::ProjectDefinitionTests RegressionTests__ProjectDefinitionTests stx:goodies/regression 'tests-Regression' 1
    77 RegressionTests::QueueTest RegressionTests__QueueTest stx:goodies/regression 'tests-Regression-Collections' 1
    78 RegressionTests::QuickTestRunner RegressionTests__QuickTestRunner stx:goodies/regression 'tests-Regression' 0
    79 RegressionTests::STCCompilerTests RegressionTests__STCCompilerTests stx:goodies/regression 'tests-Regression-Compilers' 1
    80 RegressionTests::ScaledDecimalTest RegressionTests__ScaledDecimalTest stx:goodies/regression 'tests-Regression-Numbers' 1
    81 RegressionTests::SegmentedOrderedCollectionTests RegressionTests__SegmentedOrderedCollectionTests stx:goodies/regression 'tests-Regression-Collections' 1
    82 RegressionTests::SelectorNamespacesTests RegressionTests__SelectorNamespacesTests stx:goodies/regression 'tests-Regression' 1
    83 RegressionTests::SemaphoreTest RegressionTests__SemaphoreTest stx:goodies/regression 'tests-Regression' 1
    84 RegressionTests::ServerSocketTest RegressionTests__ServerSocketTest stx:goodies/regression 'tests-Regression-Streams' 1
    85 RegressionTests::SharedQueueTest RegressionTests__SharedQueueTest stx:goodies/regression 'tests-Regression-Collections' 1
    86 RegressionTests::SmallIntegerTest RegressionTests__SmallIntegerTest stx:goodies/regression 'tests-Regression-Numbers' 1
    87 RegressionTests::SocketTests RegressionTests__SocketTests stx:goodies/regression 'tests-Regression-Streams' 1
    88 RegressionTests::SortTests RegressionTests__SortTests stx:goodies/regression 'tests-Regression-Collections' 1
    89 RegressionTests::SoundexStringComparatorTest RegressionTests__SoundexStringComparatorTest stx:goodies/regression 'tests-Regression-Collections-Utilities' 1
    90 RegressionTests::StackFrameTest RegressionTests__StackFrameTest stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
    91 RegressionTests::StreamTests RegressionTests__StreamTests stx:goodies/regression 'tests-Regression-Streams' 1
    92 RegressionTests::StringTests RegressionTests__StringTests stx:goodies/regression 'tests-Regression-Collections' 1
    93 RegressionTests::SunitXMLOutputTest RegressionTests__SunitXMLOutputTest stx:goodies/regression 'tests-Regression' 1
    94 RegressionTests::TSTreeTests RegressionTests__TSTreeTests stx:goodies/regression 'tests-Regression-Collections' 1
    95 RegressionTests::TestDialogs1 RegressionTests__TestDialogs1 stx:goodies/regression 'tests-Regression' 1
    96 RegressionTests::TimeAndDateTest RegressionTests__TimeAndDateTest stx:goodies/regression 'tests-Regression-DateAndTime' 1
    97 RegressionTests::TimeDurationTest RegressionTests__TimeDurationTest stx:goodies/regression 'tests-Regression-DateAndTime' 1
    98 RegressionTests::TypedArrayTests RegressionTests__TypedArrayTests stx:goodies/regression 'tests-Regression-Collections' 1
    99 RegressionTests::URLTest RegressionTests__URLTest stx:goodies/regression 'tests-Regression' 1
    100 RegressionTests::UTF8TestClass RegressionTests__UTF8TestClass stx:goodies/regression 'tests-Regression' 0
    101 RegressionTests::UninterpretedBytesTest RegressionTests__UninterpretedBytesTest stx:goodies/regression 'tests-Regression-Collections' 1
    102 RegressionTests::WeakCollectionTest RegressionTests__WeakCollectionTest stx:goodies/regression 'tests-Regression-Collections' 1
    103 RegressionTests::Win32OLETests RegressionTests__Win32OLETests stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
    104 RegressionTests::Win32OperatingSystemTest RegressionTests__Win32OperatingSystemTest stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
    105 RegressionTests::WritingToTranscriptOrStdoutTest RegressionTests__WritingToTranscriptOrStdoutTest stx:goodies/regression 'tests-Regression' 1
    106 RegressionTests::WrongMethodCalledTest RegressionTests__WrongMethodCalledTest stx:goodies/regression 'tests-Regression' 1
    107 RegressionTests::XMLCoderTests RegressionTests__XMLCoderTests stx:goodies/regression 'tests-Regression-XML' 1
    108 RegressionTests::ZipArchiveTests RegressionTests__ZipArchiveTests stx:goodies/regression 'tests-Regression' 1
    109 RegressionTests::ChangeSetTests RegressionTests__ChangeSetTests stx:goodies/regression 'tests-Regression-System-Changes' 1
    110 RegressionTests::ClassBuilderTests RegressionTests__ClassBuilderTests stx:goodies/regression 'tests-Regression-Compilers' 1
    111 RegressionTests::SnapshotRestartTests RegressionTests__SnapshotRestartTests stx:goodies/regression 'tests-Regression' 1
    112 RegressionTests::TSMultiTreeTests RegressionTests__TSMultiTreeTests stx:goodies/regression 'tests-Regression-Collections' 1
    113 RegressionTests::VMCrashTestCase RegressionTests__VMCrashTestCase stx:goodies/regression 'tests-Regression-Abstract' 1
    114 RegressionTests::VMCrashTests RegressionTests__VMCrashTests stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
     1# automagically generated by the project definition
     2# this file is needed for stc to be able to compile modules independently.
     3# it provides information about a classes filename, category and especially namespace.
     4stx_goodies_regression stx_goodies_regression stx:goodies/regression '* Projects & Packages *' 3
     5RegressionTests::VMSpawningTestCase RegressionTests__VMSpawningTestCase stx:goodies/regression 'tests-Regression-Abstract' 1
     6RegressionTests::AssociationTests RegressionTests__AssociationTests stx:goodies/regression 'tests-Regression' 1
     7RegressionTests::BecomeTests RegressionTests__BecomeTests stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
     8RegressionTests::BehaviorLookupObjectTests RegressionTests__BehaviorLookupObjectTests stx:goodies/regression 'tests-Regression' 1
     9RegressionTests::BinaryIOTests RegressionTests__BinaryIOTests stx:goodies/regression 'tests-Regression-Streams' 1
     10RegressionTests::BinaryTreeTester RegressionTests__BinaryTreeTester stx:goodies/regression 'tests-Regression-Collections' 1
     11RegressionTests::BlockTest RegressionTests__BlockTest stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
     12RegressionTests::BreakpointTests RegressionTests__BreakpointTests stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
     13RegressionTests::CECollectionExtensionTest RegressionTests__CECollectionExtensionTest stx:goodies/regression 'tests-Regression-CollectionExtensions' 1
     14RegressionTests::CESequenceableCollectionExtensionTest RegressionTests__CESequenceableCollectionExtensionTest stx:goodies/regression 'tests-Regression-CollectionExtensions' 1
     15RegressionTests::CEStringExtensionTest RegressionTests__CEStringExtensionTest stx:goodies/regression 'tests-Regression-CollectionExtensions' 1
     16RegressionTests::CachedValueTest RegressionTests__CachedValueTest stx:goodies/regression 'tests-Regression' 1
     17RegressionTests::CharacterEncoderTests RegressionTests__CharacterEncoderTests stx:goodies/regression 'tests-Regression-Collections' 1
     18RegressionTests::CharacterSetTests RegressionTests__CharacterSetTests stx:goodies/regression 'tests-Regression-Collections' 1
     19RegressionTests::CharacterTests RegressionTests__CharacterTests stx:goodies/regression 'tests-Regression' 1
     20RegressionTests::ClassAndMethodCompilingTestCase RegressionTests__ClassAndMethodCompilingTestCase stx:goodies/regression 'tests-Regression-Abstract' 1
     21RegressionTests::ClassDescriptionTests RegressionTests__ClassDescriptionTests stx:goodies/regression 'tests-Regression' 1
     22RegressionTests::ClassWithoutVersionMethod RegressionTests__ClassWithoutVersionMethod stx:goodies/regression 'tests-Regression' 0
     23RegressionTests::CollectionTests RegressionTests__CollectionTests stx:goodies/regression 'tests-Regression-Collections' 1
     24RegressionTests::CompilerTest RegressionTests__CompilerTest stx:goodies/regression 'tests-Regression-Compilers' 1
     25RegressionTests::CompilerTests2 RegressionTests__CompilerTests2 stx:goodies/regression 'tests-Regression-Compilers' 1
     26RegressionTests::CompilerTests2ExternalBytes RegressionTests__CompilerTests2ExternalBytes stx:goodies/regression 'tests-Regression-Compilers' 0
     27RegressionTests::ComplexTest RegressionTests__ComplexTest stx:goodies/regression 'tests-Regression-Numbers' 1
     28RegressionTests::CompressionStreamTest RegressionTests__CompressionStreamTest stx:goodies/regression 'autoloaded' 0
     29RegressionTests::ContextTest2 RegressionTests__ContextTest2 stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
     30RegressionTests::CoverageInstrumentationTest RegressionTests__CoverageInstrumentationTest stx:goodies/regression 'tests-Regression' 1
     31RegressionTests::CryptTests RegressionTests__CryptTests stx:goodies/regression 'tests-Regression' 1
     32RegressionTests::DebuggerTest RegressionTests__DebuggerTest stx:goodies/regression 'tests-Regression' 1
     33RegressionTests::DeepCopyTests RegressionTests__DeepCopyTests stx:goodies/regression 'tests-Regression' 1
     34RegressionTests::DelayTest RegressionTests__DelayTest stx:goodies/regression 'tests-Regression' 1
     35RegressionTests::DictionaryTest RegressionTests__DictionaryTest stx:goodies/regression 'tests-Regression-Collections' 1
     36RegressionTests::DoubleMetaphoneStringComparatorTest RegressionTests__DoubleMetaphoneStringComparatorTest stx:goodies/regression 'tests-Regression' 1
     37RegressionTests::EnumerationTests RegressionTests__EnumerationTests stx:goodies/regression 'tests-Regression-Collections' 1
     38RegressionTests::ExceptionTest RegressionTests__ExceptionTest stx:goodies/regression 'tests-Regression' 1
     39RegressionTests::ExternalInterfaceTests RegressionTests__ExternalInterfaceTests stx:goodies/regression 'tests-Regression' 1
     40RegressionTests::ExternalStreamTest RegressionTests__ExternalStreamTest stx:goodies/regression 'tests-Regression-Streams' 1
     41RegressionTests::FileOpenTest RegressionTests__FileOpenTest stx:goodies/regression 'tests-Regression-Streams' 1
     42RegressionTests::FileStreamTest RegressionTests__FileStreamTest stx:goodies/regression 'tests-Regression-Streams' 1
     43RegressionTests::FilenameTests RegressionTests__FilenameTests stx:goodies/regression 'tests-Regression' 1
     44RegressionTests::FloatTest RegressionTests__FloatTest stx:goodies/regression 'tests-Regression-Numbers' 1
     45RegressionTests::FractionTest RegressionTests__FractionTest stx:goodies/regression 'tests-Regression-Numbers' 1
     46RegressionTests::GCTest RegressionTests__GCTest stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
     47RegressionTests::GraphicDrawingTest RegressionTests__GraphicDrawingTest stx:goodies/regression 'tests-Regression' 1
     48RegressionTests::HTMLParserTests RegressionTests__HTMLParserTests stx:goodies/regression 'tests-Regression-XML' 1
     49RegressionTests::HTTPServerTests RegressionTests__HTTPServerTests stx:goodies/regression 'tests-Regression-Services' 1
     50RegressionTests::ImageReaderTest RegressionTests__ImageReaderTest stx:goodies/regression 'tests-Regression' 1
     51RegressionTests::IntegerTest RegressionTests__IntegerTest stx:goodies/regression 'tests-Regression-Numbers' 1
     52RegressionTests::JITTest RegressionTests__JITTest stx:goodies/regression 'tests-Regression-Compilers' 1
     53RegressionTests::JavaScriptTests RegressionTests__JavaScriptTests stx:goodies/regression 'tests-Regression-Compilers' 1
     54RegressionTests::KoelnerPhoneticCodeStringComparatorTest RegressionTests__KoelnerPhoneticCodeStringComparatorTest stx:goodies/regression 'tests-Regression-Collections-Utilities' 1
     55RegressionTests::LabelResizingTest RegressionTests__LabelResizingTest stx:goodies/regression 'tests-Regression' 2
     56RegressionTests::LargeFloatTest RegressionTests__LargeFloatTest stx:goodies/regression 'tests-Regression-Numbers' 1
     57RegressionTests::LinkedListTest RegressionTests__LinkedListTest stx:goodies/regression 'tests-Regression-Collections' 1
     58RegressionTests::LiteralsInMethodTests RegressionTests__LiteralsInMethodTests stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
     59RegressionTests::LoggedStreamTests RegressionTests__LoggedStreamTests stx:goodies/regression 'tests-Regression-Streams' 1
     60RegressionTests::MakefileTests RegressionTests__MakefileTests stx:goodies/regression 'tests-Regression' 1
     61RegressionTests::ManyProcessesTest RegressionTests__ManyProcessesTest stx:goodies/regression 'tests-Regression' 0
     62RegressionTests::MeasurementValueTests RegressionTests__MeasurementValueTests stx:goodies/regression 'tests-Regression' 1
     63RegressionTests::MemoryTest RegressionTests__MemoryTest stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
     64RegressionTests::MetaNumbersTest RegressionTests__MetaNumbersTest stx:goodies/regression 'tests-Regression-Numbers' 1
     65RegressionTests::MiracodeStringComparatorTest RegressionTests__MiracodeStringComparatorTest stx:goodies/regression 'tests-Regression-Collections-Utilities' 1
     66RegressionTests::MySQLSoundexStringComparatorTest RegressionTests__MySQLSoundexStringComparatorTest stx:goodies/regression 'tests-Regression-Collections-Utilities' 1
     67RegressionTests::NumberTest RegressionTests__NumberTest stx:goodies/regression 'tests-Regression-Numbers' 1
     68RegressionTests::OS_OLE_Tests RegressionTests__OS_OLE_Tests stx:goodies/regression 'OS-Testing' 1
     69RegressionTests::OperatingSystemTest RegressionTests__OperatingSystemTest stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
     70RegressionTests::OperationInQueueTests RegressionTests__OperationInQueueTests stx:goodies/regression 'tests-Regression' 1
     71RegressionTests::PTYTest RegressionTests__PTYTest stx:goodies/regression 'tests-Regression-Streams' 1
     72RegressionTests::ParserTests RegressionTests__ParserTests stx:goodies/regression 'tests-Regression-Compilers' 0
     73RegressionTests::PipeStreamTest RegressionTests__PipeStreamTest stx:goodies/regression 'tests-Regression-Streams' 1
     74RegressionTests::PowerSetTests RegressionTests__PowerSetTests stx:goodies/regression 'tests-Regression-Collections' 1
     75RegressionTests::ProcessTest RegressionTests__ProcessTest stx:goodies/regression 'tests-Regression' 1
     76RegressionTests::ProjectDefinitionTests RegressionTests__ProjectDefinitionTests stx:goodies/regression 'tests-Regression' 1
     77RegressionTests::QueueTest RegressionTests__QueueTest stx:goodies/regression 'tests-Regression-Collections' 1
     78RegressionTests::QuickTestRunner RegressionTests__QuickTestRunner stx:goodies/regression 'tests-Regression' 0
     79RegressionTests::STCCompilerTests RegressionTests__STCCompilerTests stx:goodies/regression 'tests-Regression-Compilers' 1
     80RegressionTests::ScaledDecimalTest RegressionTests__ScaledDecimalTest stx:goodies/regression 'tests-Regression-Numbers' 1
     81RegressionTests::SegmentedOrderedCollectionTests RegressionTests__SegmentedOrderedCollectionTests stx:goodies/regression 'tests-Regression-Collections' 1
     82RegressionTests::SelectorNamespacesTests RegressionTests__SelectorNamespacesTests stx:goodies/regression 'tests-Regression' 1
     83RegressionTests::SemaphoreTest RegressionTests__SemaphoreTest stx:goodies/regression 'tests-Regression' 1
     84RegressionTests::ServerSocketTest RegressionTests__ServerSocketTest stx:goodies/regression 'tests-Regression-Streams' 1
     85RegressionTests::SharedQueueTest RegressionTests__SharedQueueTest stx:goodies/regression 'tests-Regression-Collections' 1
     86RegressionTests::SmallIntegerTest RegressionTests__SmallIntegerTest stx:goodies/regression 'tests-Regression-Numbers' 1
     87RegressionTests::SocketTests RegressionTests__SocketTests stx:goodies/regression 'tests-Regression-Streams' 1
     88RegressionTests::SortTests RegressionTests__SortTests stx:goodies/regression 'tests-Regression-Collections' 1
     89RegressionTests::SoundexStringComparatorTest RegressionTests__SoundexStringComparatorTest stx:goodies/regression 'tests-Regression-Collections-Utilities' 1
     90RegressionTests::StackFrameTest RegressionTests__StackFrameTest stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
     91RegressionTests::StreamTests RegressionTests__StreamTests stx:goodies/regression 'tests-Regression-Streams' 1
     92RegressionTests::StringTests RegressionTests__StringTests stx:goodies/regression 'tests-Regression-Collections' 1
     93RegressionTests::SunitXMLOutputTest RegressionTests__SunitXMLOutputTest stx:goodies/regression 'tests-Regression' 1
     94RegressionTests::TSTreeTests RegressionTests__TSTreeTests stx:goodies/regression 'tests-Regression-Collections' 1
     95RegressionTests::TestDialogs1 RegressionTests__TestDialogs1 stx:goodies/regression 'tests-Regression' 2
     96RegressionTests::TimeAndDateTest RegressionTests__TimeAndDateTest stx:goodies/regression 'tests-Regression-DateAndTime' 1
     97RegressionTests::TimeDurationTest RegressionTests__TimeDurationTest stx:goodies/regression 'tests-Regression-DateAndTime' 1
     98RegressionTests::TypedArrayTests RegressionTests__TypedArrayTests stx:goodies/regression 'tests-Regression-Collections' 1
     99RegressionTests::URLTest RegressionTests__URLTest stx:goodies/regression 'tests-Regression' 1
     100RegressionTests::UTF8TestClass RegressionTests__UTF8TestClass stx:goodies/regression 'tests-Regression' 0
     101RegressionTests::UninterpretedBytesTest RegressionTests__UninterpretedBytesTest stx:goodies/regression 'tests-Regression-Collections' 1
     102RegressionTests::WeakCollectionTest RegressionTests__WeakCollectionTest stx:goodies/regression 'tests-Regression-Collections' 1
     103RegressionTests::Win32OLETests RegressionTests__Win32OLETests stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
     104RegressionTests::Win32OperatingSystemTest RegressionTests__Win32OperatingSystemTest stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
     105RegressionTests::WritingToTranscriptOrStdoutTest RegressionTests__WritingToTranscriptOrStdoutTest stx:goodies/regression 'tests-Regression' 1
     106RegressionTests::WrongMethodCalledTest RegressionTests__WrongMethodCalledTest stx:goodies/regression 'tests-Regression' 2
     107RegressionTests::XMLCoderTests RegressionTests__XMLCoderTests stx:goodies/regression 'tests-Regression-XML' 1
     108RegressionTests::ZipArchiveTests RegressionTests__ZipArchiveTests stx:goodies/regression 'tests-Regression' 1
     109RegressionTests::ChangeSetTests RegressionTests__ChangeSetTests stx:goodies/regression 'tests-Regression-System-Changes' 1
     110RegressionTests::ClassBuilderTests RegressionTests__ClassBuilderTests stx:goodies/regression 'tests-Regression-Compilers' 1
     111RegressionTests::SnapshotRestartTests RegressionTests__SnapshotRestartTests stx:goodies/regression 'tests-Regression' 1
     112RegressionTests::TSMultiTreeTests RegressionTests__TSMultiTreeTests stx:goodies/regression 'tests-Regression-Collections' 1
     113RegressionTests::VMCrashTestCase RegressionTests__VMCrashTestCase stx:goodies/regression 'tests-Regression-Abstract' 1
     114RegressionTests::VMCrashTests RegressionTests__VMCrashTests stx:goodies/regression 'tests-Regression-RuntimeSystem' 1
     115RegressionTests::ProcessSpawningTestCase RegressionTests__ProcessSpawningTestCase stx:goodies/regression 'tests-Regression-Abstract' 1
     116RegressionTests::RecursionLockTests RegressionTests__RecursionLockTests stx:goodies/regression 'tests-Regression' 1

  • bc.mak 

    diff -r fffbc76ecc66 -r 6b07361f12c6 bc.mak
    a b  
    1 # $Header$
    2 #
    3 # DO NOT EDIT
    4 # automagically generated from the projectDefinition: stx_goodies_regression.
    5 #
    6 # Warning: once you modify this file, do not rerun
    7 # stmkmp or projectDefinition-build again - otherwise, your changes are lost.
    8 #
    9 # Notice, that the name bc.mak is historical (from times, when only borland c was supported).
    10 # This file contains make rules for the win32 platform using either borland-bcc or visual-c.
    11 # It shares common definitions with the unix-make in Make.spec.
    12 # The bc.mak supports the following targets:
    13 #    bmake         - compile all st-files to a classLib (dll)
    14 #    bmake clean   - clean all temp files
    15 #    bmake clobber - clean all
    16 #
    17 # Historic Note:
    18 #  this used to contain only rules to make with borland
    19 #    (called via bmake, by "make.exe -f bc.mak")
    20 #  this has changed; it is now also possible to build using microsoft visual c
    21 #    (called via vcmake, by "make.exe -f bc.mak -DUSEVC")
    22 #
    23 TOP=..\..
    24 INCLUDE_TOP=$(TOP)\..
    25 
    26 
    27 
    28 !INCLUDE $(TOP)\rules\stdHeader_bc
    29 
    30 !INCLUDE Make.spec
    31 
    32 LIBNAME=libstx_goodies_regression
    33 MODULE_PATH=goodies\regression
    34 RESFILES=stx_goodies_regressionWINrc.$(RES)
    35 
    36 
    37 
    38 LOCALINCLUDES= -I$(INCLUDE_TOP)\stx\goodies\communication -I$(INCLUDE_TOP)\stx\goodies\sunit -I$(INCLUDE_TOP)\stx\goodies\xml\stx -I$(INCLUDE_TOP)\stx\goodies\xml\vw -I$(INCLUDE_TOP)\stx\libbasic -I$(INCLUDE_TOP)\stx\libbasic2 -I$(INCLUDE_TOP)\stx\libbasic3 -I$(INCLUDE_TOP)\stx\libboss -I$(INCLUDE_TOP)\stx\libcomp -I$(INCLUDE_TOP)\stx\libhtml -I$(INCLUDE_TOP)\stx\libjava -I$(INCLUDE_TOP)\stx\libjavascript -I$(INCLUDE_TOP)\stx\libtool -I$(INCLUDE_TOP)\stx\libview -I$(INCLUDE_TOP)\stx\libview2 -I$(INCLUDE_TOP)\stx\libwidg -I$(INCLUDE_TOP)\stx\libwidg2
    39 LOCALDEFINES=
    40 
    41 STCLOCALOPT=-package=$(PACKAGE) -I. $(LOCALINCLUDES) -headerDir=. $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES)  -varPrefix=$(LIBNAME)
    42 LOCALLIBS=
    43 
    44 OBJS= $(COMMON_OBJS) $(WIN32_OBJS)
    45 
    46 ALL::  classLibRule
    47 
    48 classLibRule: $(OUTDIR) $(OUTDIR)$(LIBNAME).dll
    49 
    50 !INCLUDE $(TOP)\rules\stdRules_bc
    51 
    52 # build all mandatory prerequisite packages (containing superclasses) for this package
    53 prereq:
    54         pushd ..\..\libbasic & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
    55         pushd ..\..\libbasic2 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
    56         pushd ..\..\libview & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
    57         pushd ..\..\libview2 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
    58         pushd ..\sunit & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
    59 
    60 
    61 
    62 
    63 
    64 
    65 
    66 test: $(TOP)\goodies\builder\reports\NUL
    67         pushd $(TOP)\goodies\builder\reports & $(MAKE_BAT)
    68         $(TOP)\goodies\builder\reports\report-runner.bat -D . -r Builder::TestReport -p $(PACKAGE)
    69        
    70 clean::
    71         -del *.$(CSUFFIX)
    72 
    73 
    74 # BEGINMAKEDEPEND --- do not remove this line; make depend needs it
    75 $(OUTDIR)stx_goodies_regression.$(O) stx_goodies_regression.$(C) stx_goodies_regression.$(H): stx_goodies_regression.st $(INCLUDE_TOP)\stx\libbasic\LibraryDefinition.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libbasic\ProjectDefinition.$(H) $(STCHDR)
    76 
    77 # ENDMAKEDEPEND --- do not remove this line
    78 
    79 # **Must be at end**
    80 
    81 # Enforce recompilation of package definition class if Mercurial working
    82 # copy state changes. Together with --guessVersion it ensures that package
    83 # definition class always contains correct binary revision string.
    84 !IFDEF HGROOT
    85 $(OUTDIR)stx_goodies_regression.$(O): $(HGROOT)\.hg\dirstate
    86 !ENDIF
     1# $Header$
     2#
     3# DO NOT EDIT
     4# automagically generated from the projectDefinition: stx_goodies_regression.
     5#
     6# Warning: once you modify this file, do not rerun
     7# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
     8#
     9# Notice, that the name bc.mak is historical (from times, when only borland c was supported).
     10# This file contains make rules for the win32 platform using either borland-bcc or visual-c.
     11# It shares common definitions with the unix-make in Make.spec.
     12# The bc.mak supports the following targets:
     13#    bmake         - compile all st-files to a classLib (dll)
     14#    bmake clean   - clean all temp files
     15#    bmake clobber - clean all
     16#
     17# Historic Note:
     18#  this used to contain only rules to make with borland
     19#    (called via bmake, by "make.exe -f bc.mak")
     20#  this has changed; it is now also possible to build using microsoft visual c
     21#    (called via vcmake, by "make.exe -f bc.mak -DUSEVC")
     22#
     23TOP=..\..
     24INCLUDE_TOP=$(TOP)\..
     25
     26
     27
     28!INCLUDE $(TOP)\rules\stdHeader_bc
     29
     30!INCLUDE Make.spec
     31
     32LIBNAME=libstx_goodies_regression
     33MODULE_PATH=goodies\regression
     34RESFILES=stx_goodies_regressionWINrc.$(RES)
     35
     36
     37
     38LOCALINCLUDES= -I$(INCLUDE_TOP)\stx\goodies\communication -I$(INCLUDE_TOP)\stx\goodies\sunit -I$(INCLUDE_TOP)\stx\goodies\xml\stx -I$(INCLUDE_TOP)\stx\goodies\xml\vw -I$(INCLUDE_TOP)\stx\libbasic -I$(INCLUDE_TOP)\stx\libbasic2 -I$(INCLUDE_TOP)\stx\libbasic3 -I$(INCLUDE_TOP)\stx\libboss -I$(INCLUDE_TOP)\stx\libcomp -I$(INCLUDE_TOP)\stx\libhtml -I$(INCLUDE_TOP)\stx\libjava -I$(INCLUDE_TOP)\stx\libjavascript -I$(INCLUDE_TOP)\stx\libtool -I$(INCLUDE_TOP)\stx\libview -I$(INCLUDE_TOP)\stx\libview2 -I$(INCLUDE_TOP)\stx\libwidg -I$(INCLUDE_TOP)\stx\libwidg2
     39LOCALDEFINES=
     40
     41STCLOCALOPT=-package=$(PACKAGE) -I. $(LOCALINCLUDES) -headerDir=. $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES)  -varPrefix=$(LIBNAME)
     42LOCALLIBS=
     43
     44OBJS= $(COMMON_OBJS) $(WIN32_OBJS)
     45
     46ALL::  classLibRule
     47
     48classLibRule: $(OUTDIR) $(OUTDIR)$(LIBNAME).dll
     49
     50!INCLUDE $(TOP)\rules\stdRules_bc
     51
     52# build all mandatory prerequisite packages (containing superclasses) for this package
     53prereq:
     54        pushd ..\..\libbasic & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
     55        pushd ..\..\libbasic2 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
     56        pushd ..\..\libview & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
     57        pushd ..\..\libview2 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
     58        pushd ..\sunit & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
     59
     60
     61
     62
     63
     64
     65
     66test: $(TOP)\goodies\builder\reports
     67        pushd $(TOP)\goodies\builder\reports & $(MAKE_BAT)
     68        $(TOP)\goodies\builder\reports\report-runner.bat -D . -r Builder::TestReport -p $(PACKAGE)
     69       
     70clean::
     71        -del *.$(CSUFFIX)
     72
     73
     74# BEGINMAKEDEPEND --- do not remove this line; make depend needs it
     75$(OUTDIR)stx_goodies_regression.$(O) stx_goodies_regression.$(C) stx_goodies_regression.$(H): stx_goodies_regression.st $(INCLUDE_TOP)\stx\libbasic\LibraryDefinition.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(INCLUDE_TOP)\stx\libbasic\ProjectDefinition.$(H) $(STCHDR)
     76
     77# ENDMAKEDEPEND --- do not remove this line
     78
     79# **Must be at end**
     80
     81# Enforce recompilation of package definition class if Mercurial working
     82# copy state changes. Together with --guessVersion it ensures that package
     83# definition class always contains correct binary revision string.
     84!IFDEF HGROOT
     85$(OUTDIR)stx_goodies_regression.$(O): $(HGROOT)\.hg\dirstate
     86!ENDIF

  • bmake.bat 

    diff -r fffbc76ecc66 -r 6b07361f12c6 bmake.bat
    a b  
    1 @REM -------
    2 @REM make using Borland bcc32
    3 @REM type bmake, and wait...
    4 @REM do not edit - automatically generated from ProjectDefinition
    5 @REM -------
    6 @SET DEFINES=
    7 @REM Kludge got Mercurial, cannot be implemented in Borland make
    8 @FOR /F "tokens=*" %%i in ('hg root') do SET HGROOT=%%i
    9 @IF "%HGROOT%" NEQ "" SET DEFINES=%DEFINES% "-DHGROOT=%HGROOT%"
    10 
    11 make.exe -N -f bc.mak  %DEFINES% %*
    12 
    13 
    14 
    15 
     1@REM -------
     2@REM make using Borland bcc32
     3@REM type bmake, and wait...
     4@REM do not edit - automatically generated from ProjectDefinition
     5@REM -------
     6@SET DEFINES=
     7@REM Kludge got Mercurial, cannot be implemented in Borland make
     8@FOR /F "tokens=*" %%i in ('hg root') do SET HGROOT=%%i
     9@IF "%HGROOT%" NEQ "" SET DEFINES=%DEFINES% "-DHGROOT=%HGROOT%"
     10
     11make.exe -N -f bc.mak  %DEFINES% %*
     12
     13
     14
     15

  • libInit.cc 

    diff -r fffbc76ecc66 -r 6b07361f12c6 libInit.cc
    a b  
    1 /*
    2  * $Header$
    3  *
    4  * DO NOT EDIT
    5  * automagically generated from the projectDefinition: stx_goodies_regression.
    6  */
    7 #define __INDIRECTVMINITCALLS__
    8 #include <stc.h>
    9 
    10 #ifdef WIN32
    11 # pragma codeseg INITCODE "INITCODE"
    12 #endif
    13 
    14 #if defined(INIT_TEXT_SECTION) || defined(DLL_EXPORT)
    15 DLL_EXPORT void _libstx_goodies_regression_Init() INIT_TEXT_SECTION;
    16 DLL_EXPORT void _libstx_goodies_regression_InitDefinition() INIT_TEXT_SECTION;
    17 #endif
    18 
    19 extern void _stx_137goodies_137regression_Init(int pass, struct __vmData__ *__pRT__, OBJ snd);
    20 
    21 
    22 
    23 void _libstx_goodies_regression_InitDefinition(int pass, struct __vmData__ *__pRT__, OBJ snd)
    24 {
    25   __BEGIN_PACKAGE2__("libstx_goodies_regression__DFN", _libstx_goodies_regression_InitDefinition, "stx:goodies/regression");
    26     _stx_137goodies_137regression_Init(pass,__pRT__,snd);
    27 
    28   __END_PACKAGE__();
    29 }
    30 
    31 void _libstx_goodies_regression_Init(int pass, struct __vmData__ *__pRT__, OBJ snd)
    32 {
    33   __BEGIN_PACKAGE2__("libstx_goodies_regression", _libstx_goodies_regression_Init, "stx:goodies/regression");
    34     _stx_137goodies_137regression_Init(pass,__pRT__,snd);
    35 
    36 
    37   __END_PACKAGE__();
    38 }
     1/*
     2 * $Header$
     3 *
     4 * DO NOT EDIT
     5 * automagically generated from the projectDefinition: stx_goodies_regression.
     6 */
     7#define __INDIRECTVMINITCALLS__
     8#include <stc.h>
     9
     10#ifdef WIN32
     11# pragma codeseg INITCODE "INITCODE"
     12#endif
     13
     14#if defined(INIT_TEXT_SECTION) || defined(DLL_EXPORT)
     15DLL_EXPORT void _libstx_goodies_regression_Init() INIT_TEXT_SECTION;
     16DLL_EXPORT void _libstx_goodies_regression_InitDefinition() INIT_TEXT_SECTION;
     17#endif
     18
     19extern void _stx_137goodies_137regression_Init(int pass, struct __vmData__ *__pRT__, OBJ snd);
     20
     21
     22
     23void _libstx_goodies_regression_InitDefinition(int pass, struct __vmData__ *__pRT__, OBJ snd)
     24{
     25  __BEGIN_PACKAGE2__("libstx_goodies_regression__DFN", _libstx_goodies_regression_InitDefinition, "stx:goodies/regression");
     26    _stx_137goodies_137regression_Init(pass,__pRT__,snd);
     27
     28  __END_PACKAGE__();
     29}
     30
     31void _libstx_goodies_regression_Init(int pass, struct __vmData__ *__pRT__, OBJ snd)
     32{
     33  __BEGIN_PACKAGE2__("libstx_goodies_regression", _libstx_goodies_regression_Init, "stx:goodies/regression");
     34    _stx_137goodies_137regression_Init(pass,__pRT__,snd);
     35
     36
     37  __END_PACKAGE__();
     38}

  • mingwmake.bat 

    diff -r fffbc76ecc66 -r 6b07361f12c6 mingwmake.bat
    a b  
    1 @REM -------
    2 @REM make using mingw gnu compiler
    3 @REM type mingwmake, and wait...
    4 @REM do not edit - automatically generated from ProjectDefinition
    5 @REM -------
    6 @SET DEFINES=
    7 @REM Kludge got Mercurial, cannot be implemented in Borland make
    8 @FOR /F "tokens=*" %%i in ('hg root') do SET HGROOT=%%i
    9 @IF "%HGROOT%" NEQ "" SET DEFINES=%DEFINES% "-DHGROOT=%HGROOT%"
    10 
    11 @pushd ..\..\rules
    12 @call find_mingw.bat
    13 @popd
    14 make.exe -N -f bc.mak %DEFINES% %USEMINGW_ARG% %*
    15 
    16 
    17 
    18 
     1@REM -------
     2@REM make using mingw gnu compiler
     3@REM type mingwmake, and wait...
     4@REM do not edit - automatically generated from ProjectDefinition
     5@REM -------
     6@SET DEFINES=
     7@REM Kludge got Mercurial, cannot be implemented in Borland make
     8@FOR /F "tokens=*" %%i in ('hg root') do SET HGROOT=%%i
     9@IF "%HGROOT%" NEQ "" SET DEFINES=%DEFINES% "-DHGROOT=%HGROOT%"
     10
     11@pushd ..\..\rules
     12@call find_mingw.bat
     13@popd
     14make.exe -N -f bc.mak %DEFINES% %USEMINGW_ARG% %*
     15
     16
     17
     18

  • vcmake.bat 

    diff -r fffbc76ecc66 -r 6b07361f12c6 vcmake.bat
    a b  
    1 @REM -------
    2 @REM make using Microsoft Visual C compiler
    3 @REM type vcmake, and wait...
    4 @REM do not edit - automatically generated from ProjectDefinition
    5 @REM -------
    6 
    7 @if not defined VSINSTALLDIR (
    8     pushd ..\..\rules
    9     call vcsetup.bat
    10     popd
    11 )
    12 @SET DEFINES=
    13 @REM Kludge got Mercurial, cannot be implemented in Borland make
    14 @FOR /F "tokens=*" %%i in ('hg root') do SET HGROOT=%%i
    15 @IF "%HGROOT%" NEQ "" SET DEFINES=%DEFINES% "-DHGROOT=%HGROOT%"
    16 
    17 
    18 make.exe -N -f bc.mak -DUSEVC=1 %DEFINES% %*
    19 
    20 
    21 
    22 
     1@REM -------
     2@REM make using Microsoft Visual C compiler
     3@REM type vcmake, and wait...
     4@REM do not edit - automatically generated from ProjectDefinition
     5@REM -------
     6
     7@if not defined VSINSTALLDIR (
     8    pushd ..\..\rules
     9    call vcsetup.bat
     10    popd
     11)
     12@SET DEFINES=
     13@REM Kludge got Mercurial, cannot be implemented in Borland make
     14@FOR /F "tokens=*" %%i in ('hg root') do SET HGROOT=%%i
     15@IF "%HGROOT%" NEQ "" SET DEFINES=%DEFINES% "-DHGROOT=%HGROOT%"
     16
     17
     18make.exe -N -f bc.mak -DUSEVC=1 %DEFINES% %*
     19
     20
     21
     22