Track change of sameaccent -> samemark

Raku · May 12, 2015 · 77dbc77 · 77dbc77
1 parent bc6e3c8
commit 77dbc77
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 21 deletions.
diff --git a/S32-str/sameaccent.t b/S32-str/sameaccent.t
diff --git a/S32-str/samemark.t b/S32-str/samemark.t
@@ -0,0 +1,21 @@
+use v6;
+use Test;
+
+# L<S32::Str/Str/"=item samemark">
+
+plan 7;
+
+is(samemark('ABb', 'ƗƗƗ'), 'ȺɃƀ', 'samemark as a function works');
+
+# should this be an exception or a Failure instead?
+is(samemark('AF', 'ƗƗ'), 'ȺF', 'samemark without matching character silently fails');
+
+is('ABb'.samemark('ƗƗƗ'), 'ȺɃƀ', 'samemark as a method works');
+
+is('text'.samemark('asdf'), 'text', 'samemark without a change (no accents)');
+is('ȺɃƀ'.samemark('ƗƗƗ'), 'ȺɃƀ', 'samemark without a change (accents already present');
+
+is('text'.samemark('this is longer'), 'text', 'samemark with longer base string');
+is('ABCD'.samemark('ƗƗ'), 'ȺɃCD', 'samemark with longer source string');
+
+# vim: ft=perl6