#QUALITY by cg
authorClaus Gittinger <cg@exept.de>
Tue, 02 Apr 2019 10:42:50 +0200
changeset 2208 2d54a6ac9a73
parent 2207 33fec8c61cb8
child 2209 dd72456e8de4
#QUALITY by cg class: RegressionTests::StringTests changed: #test90_hash
RegressionTests__StringTests.st
--- a/RegressionTests__StringTests.st	Tue Apr 02 10:41:48 2019 +0200
+++ b/RegressionTests__StringTests.st	Tue Apr 02 10:42:50 2019 +0200
@@ -1445,6 +1445,8 @@
 !
 
 test90_hash
+    "all string-representations must hash equal"
+    
     | string8 string16 string32 |
 
     string8 := 'sun/nio/cs/UTF_8.class'.
@@ -1453,8 +1455,10 @@
 
     self assert: string8 hash == string16 hash.
     self assert: string8 hash == string32 hash.
+    self assert: string8 hash == string8 asSymbol hash.
 
     "Created: / 09-10-2014 / 12:41:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 02-04-2019 / 10:42:35 / Claus Gittinger"
 ! !
 
 !StringTests class methodsFor:'documentation'!