Ticket #250: regression_fix_1_of_1_rev_8e0b72418799_Issue__250__Smalltak_X_is_reading_Windows_Registry_only_in_ASCII_but_registry_is_UTF16.patch

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

Tests for unicode reading

  • RegressionTests__Win32OperatingSystemTest.st 

    # HG changeset patch
# User Patrik Svestka <patrik.svestka@gmail.com>
# Date 1544453348 -3600
#      Mon Dec 10 15:49:08 2018 +0100
# Branch jv
# Node ID 8e0b72418799ccb1446265ac293e83d8cc87cfa4
# Parent  f2cc4999618ab204c528c6af5e31a9cd677dbc10
Issue #250: Smalltak/X is reading Windows Registry only in ASCII but registry is UTF16
 - fixed testReadValueNamed_nonStringValue to expect an Error to be raised

diff -r f2cc4999618a -r 8e0b72418799 RegressionTests__Win32OperatingSystemTest.st
    a b  
    852852    "Testing reading non-string value from Registry via valueNamed
    853853     User should see a warning message in Transcript"
    854854
    855     | readData testingRegistryPath |
     855    | testingRegistryPath |
    856856   
    857     readData := Unicode16String new.   
    858857    testingRegistryPath := Win32OperatingSystem registryEntry key: registryPath.
    859      
    860     readData := testingRegistryPath valueNamed: 11.
    861        
    862     self assert: readData isNil.
     858   
     859    self should: [ testingRegistryPath valueNamed: 11 ] raise: Error
    863860
    864861    "
    865862     self run:#testReadValueNamed_nonStringValue
    … …  
    867864    "
    868865
    869866    "Created: / 05-12-2018 / 12:40:31 / svestkap"
     867    "Modified: / 10-12-2018 / 15:47:37 / svestkap"
    870868! !
    871869
    872870!Win32OperatingSystemTest methodsFor:'tests-unicodeReadEnumeration'!