--- a/tests/FcPatternTests.st	Fri May 12 22:54:14 2023 +0100
+++ b/tests/FcPatternTests.st	Fri Apr 26 21:09:50 2024 +0100
@@ -1,5 +1,6 @@
 "
  COPYRIGHT (c) 2016 Jan Vrany
+ COPYRIGHT (c) 2024 LabWare
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -25,6 +26,7 @@
 copyright
 "
  COPYRIGHT (c) 2016 Jan Vrany
+ COPYRIGHT (c) 2024 LabWare
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -79,7 +81,7 @@
     "/ wait until fixed version get into Linux distributions. 
     "/ So, just skip this test for this particular version. 
     "/ I'm sorry, I (JV) hate this more that you may think...
-    self skipIf: FontConfigVersion == 21301 description: 'Known to fail with fontconfig 2.13.1'.
+    self skipIf: FontConfigVersion >= 21301 description: 'Known to fail with fontconfig 2.13.1'.
 
     p1 := FcPattern new.
     p1 at: 'x' put: 10.
@@ -97,6 +99,7 @@
     self assert: p1 = p2.
 
     "Created: / 17-02-2016 / 14:57:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-04-2024 / 21:07:23 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 test_03
@@ -128,6 +131,34 @@
     self assert: p1 asString = 'Helvetica'.
 
     "Created: / 17-02-2016 / 15:01:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_05
+    | p1 p2 |
+
+    p1 := FcPattern new.
+    p1 at: 'x' put: 10.
+
+    p2 := FcPattern new.
+    p2 at: 'x' put: 10.
+
+    self assert: p1 hash == p2 hash.
+    self assert: p1 = p2.
+
+    p1 at: 'y' put: 20.
+    self assert: p1 ~= p2.
+
+    p2 at: 'y' put: 20.
+    self assert: p1 = p2.
+
+    p1 removeKey: 'x'.    
+    self assert: p1 ~= p2.
+
+    p2 removeKey: 'x'.    
+    self assert: p1 = p2.
+
+    "Created: / 26-04-2024 / 14:42:11 / Jan Vrany <jan.vrany@labware.com>"
+    "Modified: / 10-05-2024 / 22:30:00 / Jan Vrany <jan.vrany@labware.com>"
 ! !
 
 !FcPatternTests class methodsFor:'documentation'!