Add some more tests

enso-org · Feb 17, 2022 · 3051ebe · 3051ebe
1 parent c02a8cb
commit 3051ebe
Showing 1 changed file with 17 additions and 5 deletions.
diff --git a/test/Tests/src/Data/Text_Spec.enso b/test/Tests/src/Data/Text_Spec.enso
@@ -53,6 +53,11 @@ spec =
             complex_letter_3 . should_equal complex_letter_2
             common_prefix+complex_letter_1+complex_letter_2+complex_letter_3 . compare_to common_prefix+complex_letter_3+complex_letter_1+complex_letter_2 . should_equal Ordering.Equal
 
+            'e\u{301}'=='e\u{302}' . should_be_false
+
+            'a\u0321\u0302'=='a\u0302\u0321' . should_be_true
+            'a\u0321\u0302'=='A\u0302\u0321' . should_be_false
+
             accent_1+"a" . compare_to accent_2+"b" . should_equal Ordering.Less
             accent_2+"a" . compare_to accent_1+"b" . should_equal Ordering.Less
             accent_1+"b" . compare_to accent_2+"a" . should_equal Ordering.Greater
@@ -72,12 +77,19 @@ spec =
             "abc" . equals_ignore_case "abd" . should_be_false
             "" . equals_ignore_case "" . should_be_true
             "aaaa" . equals_ignore_case "" . should_be_false
-
             "I" . equals_ignore_case "i" . should_be_true
-            "İ" . equals_ignore_case "i" . should_be_true
-            "I" . equals_ignore_case "ı" . should_be_true
-            "i" . equals_ignore_case "ı" . should_be_true
-            "İ" . equals_ignore_case "ı" . should_be_true
+            'e\u0301' . equals_ignore_case 'é' . should_be_true
+            'E\u0301' . equals_ignore_case 'É' . should_be_true
+            'e\u0301' . equals_ignore_case 'É' . should_be_true
+            'E\u0301' . equals_ignore_case 'é' . should_be_true
+            'a\u0321\u0302' . equals_ignore_case 'A\u0302\u0321' . should_be_true
+            'e\u0301' . equals_ignore_case 'e\u0303' . should_be_false
+
+            ## By default the special Turkish variants of the letter 'i' are not
+               treated as equal - treating them as equal would require not
+               treating `I` and `i` as equal.
+            "İ" . equals_ignore_case "i" . should_be_false
+            "I" . equals_ignore_case "ı" . should_be_false
 
         Test.specify "should split the text into grapheme clusters" <|
             str = kshi + facepalm + accent_1 + accent_2