Skip to content
Browse files

[t/spec] fix smartlinks in S32-str

git-svn-id: http://svn.pugscode.org/pugs@26462 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent f9947f8 commit db6b7849bfa3b53c090d05424b1068258f560276 moritz committed
View
2 S32-str/capitalize.t
@@ -4,7 +4,7 @@ use Test;
plan 12;
-# L<S29/Str/capitalize>
+# L<S32::Str/Str/capitalize>
is capitalize(""), "", "capitalize('') works";
is capitalize("puGS Is cOOl!"), "Pugs Is Cool!", "capitalize('...') works";
View
2 S32-str/index.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-# L<S29/Str/"=item index">
+# L<S32::Str/Str/"=item index">
plan 38;
View
2 S32-str/lc.t
@@ -4,7 +4,7 @@ use Test;
plan 13;
-# L<S29/Str/lc>
+# L<S32::Str/Str/lc>
is(lc("hello world"), "hello world", "lowercasing string which is already lowercase");
is(lc("Hello World"), "hello world", "simple lc test");
View
2 S32-str/lcfirst.t
@@ -4,7 +4,7 @@ use Test;
plan 9;
-# L<S29/Str/lcfirst>
+# L<S32::Str/Str/lcfirst>
is lcfirst("HELLO WORLD"), "hELLO WORLD", "simple";
#?rakudo skip 'calling positional args by name'
View
2 S32-str/p5chomp.t
@@ -3,7 +3,7 @@ use Test;
=begin pod
-L<S29/Str/"=item p5chomp">
+L<S32::Str/Str/"=item p5chomp">
=end pod
View
2 S32-str/pack.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-# L<S29/Str/"=item pack">
+# L<S32::Str/Str/"=item pack">
plan => 12;
View
2 S32-str/quotemeta.t
@@ -32,7 +32,7 @@ my %Config; # Empty means there's no 'ebcdic' key defined...
#?pugs todo 'Test Config.pm availability'
is('Config.pm', 'available', 'Config.pm availability');
-# L<S29/Str/quotemeta>
+# L<S32::Str/Str/quotemeta>
is(quotemeta("HeLLo World-72_1"), "HeLLo\\ World\\-72_1", "simple quotemeta test");
is(quotemeta(:string("fREW => fROOH represents encephelon welkin")), "frew\\ \\=\\>\\ frooh\\ represents\\ encephelon\\ welkin", "quotemeta works with named argument");
View
2 S32-str/sameaccent.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-# L<S29/Str/"=item sameaccent">
+# L<S32::Str/Str/"=item sameaccent">
plan 8;
View
2 S32-str/samecase.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-# L<S29/Str/"=item samecase">
+# L<S32::Str/Str/"=item samecase">
=begin pod
View
2 S32-str/split-simple.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-# L<S29/Str/"=item split">
+# L<S32::Str/Str/"=item split">
plan 45;
=begin description
View
2 S32-str/split.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-# L<S29/Str/"=item split">
+# L<S32::Str/Str/"=item split">
# XXX - this needs to be updated when Str.split(Str) works again
# this test really wants is_deeply()
View
2 S32-str/substr.t
@@ -4,7 +4,7 @@ use Test;
plan 126;
-# L<S29/Str/=item substr>
+# L<S32::Str/Str/=item substr>
{ # read only
my $str = "foobar";
View
2 S32-str/uc.t
@@ -4,7 +4,7 @@ use Test;
plan 27;
-# L<S29/"Str"/=item uc>
+# L<S32::Str/"Str"/=item uc>
is(uc("Hello World"), "HELLO WORLD", "simple");
#?rakudo skip 'calling positional params by name'
View
2 S32-str/ucfirst.t
@@ -4,7 +4,7 @@ use Test;
plan 5;
-# L<S29/Str/ucfirst>
+# L<S32::Str/Str/ucfirst>
is ucfirst("hello world"), "Hello world", "simple";
#?rakudo skip 'calling positional params by name'

0 comments on commit db6b784

Please sign in to comment.
Something went wrong with that request. Please try again.