Ticket #269: regression_fix_1_of_1_rev_ba58ef8a6214_Issue__269__Tests_when_renaming_registy_subKey_s_.patch

RegressionTests__Win32OperatingSystemTest.st

@@ -2505 +2505 @@
     "Modified (format): / 01-02-2019 / 13:32:02 / svestkap"
 ! !
 
+!Win32OperatingSystemTest methodsFor:'tests-unicodeRename'!
+
+testRenameSubKey_01
+    "Testing if subKey is correctly renamed"
+    | readData testingRegistryEntryPath |   
+
+    testingRegistryEntryPath := Win32OperatingSystem registryEntry key: registryPath.
+    
+    self assert: (testingRegistryEntryPath renameSubKey: ' ルすしか_testing_delete'  to: 'RenamedSubKey').
+    readData := testingRegistryEntryPath subKeyNamed: 'RenamedSubKey'.
+    
+    self assert: readData notEmptyOrNil.
+    self assert: readData path = (registryPath, '\', 'RenamedSubKey').
+
+    "
+     self run:#testRenameSubKey_01
+     self new testRenameSubKey_01
+    "
+
+    "Created: / 09-04-2019 / 09:05:28 / svestkap"
+!
+
+testRenameSubKey_02
+    "Testing if subKey is correctly renamed"
+    | readData testingRegistryEntryPath |   
+
+    testingRegistryEntryPath := Win32OperatingSystem registryEntry key: registryPath.
+    
+    self assert: (testingRegistryEntryPath renameSubKey: ' ルすしか_testing_delete'  to: 'すしか_').
+    readData := testingRegistryEntryPath subKeyNamed: 'すしか_'.
+    
+    self assert: readData notEmptyOrNil.
+    self assert: readData path = (registryPath, '\', 'すしか_').
+
+    testingRegistryEntryPath := Win32OperatingSystem registryEntry key: (registryPath, '\', 'すしか_').
+    readData := testingRegistryEntryPath subKeyNamed: 'bobr'.
+    
+    self assert: readData notEmptyOrNil.
+    self assert: readData path = (registryPath, '\', 'すしか_', '\', 'bobr')
+    
+    "
+     self run:#testRenameSubKey_02
+     self new testRenameSubKey_02
+    "
+
+    "Created: / 09-04-2019 / 09:35:05 / svestkap"
+!
+
+testRenameSubKey_03
+    "Testing when renamed subKey does not exist"
+    | readData testingRegistryEntryPath |   
+
+    testingRegistryEntryPath := Win32OperatingSystem registryEntry key: registryPath.
+    
+    self deny: (testingRegistryEntryPath renameSubKey: 'a key that does not exist'  to: 'すしか_').
+    readData := testingRegistryEntryPath subKeyNamed: 'すしか_'.
+    
+    self assert: readData isEmptyOrNil
+    
+    "
+     self run:#testRenameSubKey_03
+     self new testRenameSubKey_03
+    "
+
+    "Created: / 09-04-2019 / 09:39:52 / svestkap"
+! !
+
 !Win32OperatingSystemTest methodsFor:'tests-unicodeWrite'!
 
 testDefaultValue_01