Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[spec] fixed roots.t, pmichaud++

also re-fudged unicode tests which fail on systems without ICU


git-svn-id: http://svn.pugscode.org/pugs@20955 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit 1f5bd6f53cd28860537dc4a1b81fde7777845f0b 1 parent 039fdf8
moritz authored
View
1  S29-num/roots.t
@@ -12,6 +12,7 @@ sub has_approx($n, @list) {
for @list -> $i {
if approx($i, $n) {
return 1;
+ }
}
return undef;
}
View
1  S29-str/capitalize.t
@@ -27,4 +27,5 @@ is "ab cD Ef".capitalize, "Ab Cd Ef", "works on ordinary string";
}
# Non-ASCII chars:
+#?rakudo skip "unicode"
is capitalize("äöü abcä"), "Äöü Abcä", "capitalize() works on non-ASCII chars";
View
1  S29-str/lcfirst.t
@@ -8,6 +8,7 @@ plan 8;
is lcfirst("HELLO WORLD"), "hELLO WORLD", "simple";
is lcfirst(""), "", "empty string";
+#?rakudo 2 skip 'unicode'
is lcfirst("ÜÜÜÜ"), "üÜÜÜ", "umlaut";
is lcfirst("ÓÓÓÓŃ"), "óÓÓÓŃ", "accented chars";
View
1  S29-str/ucfirst.t
@@ -8,6 +8,7 @@ plan 4;
is ucfirst("hello world"), "Hello world", "simple";
is ucfirst(""), "", "empty string";
+#?rakudo 2 skip 'unicode'
is ucfirst("üüüü"), "Üüüü", "umlaut";
is ucfirst("óóóó"), "Óóóó", "accented chars";
Please sign in to comment.
Something went wrong with that request. Please try again.