From 8ae637747426292ac15a254f6ac5eec5aa4be220 Mon Sep 17 00:00:00 2001 From: Kevin Marker Date: Sun, 16 Jun 2024 13:07:00 -0500 Subject: [PATCH] sync anagram tests --- exercises/practice/anagram/.meta/tests.toml | 6 ++++++ exercises/practice/anagram/anagram-test.el | 8 ++++++++ 2 files changed, 14 insertions(+) diff --git a/exercises/practice/anagram/.meta/tests.toml b/exercises/practice/anagram/.meta/tests.toml index 9b6126a3..b40a89e2 100644 --- a/exercises/practice/anagram/.meta/tests.toml +++ b/exercises/practice/anagram/.meta/tests.toml @@ -77,3 +77,9 @@ include = false [33d3f67e-fbb9-49d3-a90e-0beb00861da7] description = "words other than themselves can be anagrams" reimplements = "a0705568-628c-4b55-9798-82e4acde51ca" + +[a6854f66-eec1-4afd-a137-62ef2870c051] +description = "handles case of greek letters" + +[fd3509e5-e3ba-409d-ac3d-a9ac84d13296] +description = "different characters may have the same bytes" diff --git a/exercises/practice/anagram/anagram-test.el b/exercises/practice/anagram/anagram-test.el index 74234aee..27fd230d 100644 --- a/exercises/practice/anagram/anagram-test.el +++ b/exercises/practice/anagram/anagram-test.el @@ -90,5 +90,13 @@ '("Silent")))) +(ert-deftest test-handles-case-of-greek-letters () + (should (equal (anagrams-for "ΑΒΓ" '("ΒΓΑ" "ΒΓΔ" "γβα" "αβγ")) + '("ΒΓΑ" "γβα")))) + +(ert-deftest different-characters-may-have-the-same-bytes () + (should (equal (anagrams-for "a⬂" '("€a")) + '()))) + (provide 'anagram-test) ;;; anagram-test.el ends here