Permalink
Browse files

point several smartlinks to the S32::Str specs

git-svn-id: http://svn.pugscode.org/pugs@26441 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 81835a0 commit b7f485337bfad72996310172fa3432608d2b1793 szabgab committed Apr 26, 2009
Showing with 15 additions and 15 deletions.
  1. +1 −1 S32-str/chomp.t
  2. +1 −1 S32-str/comb.t
  3. +7 −7 S32-str/length.t
  4. +1 −1 S32-str/p5chop.t
  5. +1 −1 S32-str/pos.t
  6. +1 −1 S32-str/rindex.t
  7. +2 −2 S32-str/sprintf.t
  8. +1 −1 S32-str/unpack.t
View
@@ -10,7 +10,7 @@ Basic tests for the chomp() builtin
=end pod
-# L<S29/"Str"/=item chomp>
+# L<S32::Str/Str/=item chomp>
# Also see L<"http://use.perl.org/~autrijus/journal/25351">
# &chomp and &wrap are now nondestructive; chomp returns the chomped part,
View
@@ -4,7 +4,7 @@ use Test;
plan 25;
-# L<S29/Str/=item comb>
+# L<S32::Str/Str/=item comb>
# comb Str
is "".comb, (), 'comb on empty string';
View
@@ -2,7 +2,7 @@ use v6;
use Test;
-# L<S29/Str/=item length>
+# L<S32::Str/Str/=item length>
=begin pod
@@ -21,7 +21,7 @@ eval_dies_ok('"moose".length', 'Str.length properly not implemented');
# string literals, for sanity
-# L<S29/Str/=item bytes>
+# L<S32::Str/Str/=item bytes>
#?rakudo 3 skip '.bytes not implemented'
is("".bytes, 0, "empty string");
@@ -32,7 +32,7 @@ dies_ok { $x.bytes }, "undef.bytes fail()s";
# See thread "undef.chars" on p6l started by Ingo Blechschmidt:
# L<"http://www.nntp.perl.org/group/perl.perl6.language/22595">
-# L<S29/Str/=item chars>
+# L<S32::Str/Str/=item chars>
# Precedence tests
ok (chars "abcdef" > 4), "chars() has the right precedence (1)";
@@ -62,10 +62,10 @@ my @data = (
);
#:map { my %hash; %hash<string bytes codes graphs> = $_; \%hash };
-# L<S29/Str/=item bytes>
-# L<S29/Str/=item chars>
-# L<S29/Str/=item codes>
-# L<S29/Str/=item graphs>
+# L<S32::Str/Str/=item bytes>
+# L<S32::Str/Str/=item chars>
+# L<S32::Str/Str/=item codes>
+# L<S32::Str/Str/=item graphs>
for @data -> $string, $bytes, $codes, $graphs, $chars {
is($string.bytes, $bytes, "'{$string}'.bytes");
View
@@ -34,7 +34,7 @@ is(p5chop("abc"), 'c', 'p5chop on literal string');
my @empty_array;
my $r = p5chop(@empty_array);
ok(defined $r, 'defined');
-is($r, '', 'p5chop on emty array returns empty string');
+is($r, '', 'p5chop on empty array returns empty string');
View
@@ -2,7 +2,7 @@ use v6;
use Test;
-# L<S29/Str/=item pos>
+# L<S29/Obsolete Functions/=item pos>
plan 2;
View
@@ -1,7 +1,7 @@
use v6;
use Test;
-# L<S29/Str/"=item rindex">
+# L<S32::Str/Str/"=item rindex">
plan 33;
View
@@ -4,7 +4,7 @@ use Test;
plan 42;
-# L<S29/Str/"identical to" "C library sprintf">
+# L<S32::Str/Str/"identical to" "C library sprintf">
is sprintf("Hi"), "Hi", "sprintf() works with zero args";
#?rakudo skip 'calling positional params by name'
@@ -52,7 +52,7 @@ is sprintf('%03x', 42.6), '02a', '0-padded decimal %x';
is sprintf('%X', 12), 'C', 'simple %X';
is sprintf('%03X', 42.6), '02A', '0-padded decimal %X';
-# L<S29/"Str"/"The special directive, %n does not work in Perl 6">
+# L<S32::Str/"Str"/"The special directive, %n does not work in Perl 6">
dies_ok(sub {my $x = sprintf('%n', 1234)}, '%n dies (Perl 5 compatibility)');
#?rakudo todo "%p doesn't yet throw exception"
dies_ok(sub {my $x = sprintf('%p', 1234)}, '%p dies (Perl 5 compatibility)');
View
@@ -1,7 +1,7 @@
use v6;
use Test;
-# L<S29/Str/"=item unpack">
+# L<S32::Str/Str/"=item unpack">
plan 3;

0 comments on commit b7f4853

Please sign in to comment.