Permalink
Browse files

smartlink updates

git-svn-id: http://svn.pugscode.org/pugs@26549 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
szabgab
szabgab committed Apr 29, 2009
1 parent 594e40d commit f33600bac3f652b514254bcb90526c03836b9c3e
View
@@ -130,7 +130,7 @@ ok(?(42 > 12 & 20 & 32), "test the all infix operator");
lives_ok { (undef min 2) }, 'can do (undef min 2)';
}
-# L<S03/Hyper operators/"but a short list may always be extended arbitrarily">
+# L<S03/Traversing arrays in parallel/"but a short list may always be extended arbitrarily">
#?rakudo todo 'RT #64474'
{
is (1, 2, * Z <a b c d>).join('|'),
@@ -4,7 +4,8 @@ use Test;
plan 4;
-# L<S03/Changes to Perl 5 operators/The scalar assignment operator still parses as it did before>
+# old: L<S03/Changes to Perl 5 operators/The scalar assignment operator still parses as it did before>
+# L<S03/Changes to Perl 5 operators>
{
my $x = 15;
@@ -9,15 +9,17 @@ if !eval('("a" ~~ /a/)') {
exit;
}
-# L<S05/Return values from matches/"A match always returns a Match object" >
+# old: L<S05/Return values from matches/"A match always returns a Match object" >
+# L<S05/Match objects/"A match always returns a " >
{
my $match = 'abd' ~~ m/ (a) (b) c || (\w) b d /;
isa_ok( $match, 'Match', 'Match object returned');
isa_ok( $/, 'Match', 'Match object assigned to $/');
ok( $/ === $match, 'Same match objects');
}
-# L<S05/Return values from matches/"The array elements of a C<Match> object are referred to" >
+# old: L<S05/Return values from matches/"The array elements of a C<Match> object are referred to" >
+# L<S05/Accessing captured subpatterns/"The array elements of a " >
{
'abd' ~~ m/ (a) (b) c || (\w) b d /;
ok( $/[0] eq 'a', 'positional capture accessible');
@@ -26,7 +28,8 @@ if !eval('("a" ~~ /a/)') {
ok( $/.list.elems == 1, 'the .list methods returns a list object');
}
-# L<S05/Return values from matches/"When used as a hash, a C<Match> object" >
+# old: L<S05/Return values from matches/"When used as a hash, a C<Match> object" >
+# L<S05/Match objects/"When used as a hash" >
{
'abd' ~~ m/ <alpha> <alpha> c || <alpha> b d /;
ok( $/<alpha> eq 'a', 'named capture accessible');
View
@@ -3,13 +3,14 @@ use Test;
plan 4;
-# L<S05/Bracket rationalization/"An explicit reduction using the make function sets the result object for this match:">
+# should be: L<S05/Bracket rationalization/"An B<explicit> reduction using the C<make> function">
+# L<S05/Bracket rationalization/reduction using the>
"4" ~~ / (\d) { make $0.sqrt } Remainder /;
ok($/);
is($( $/ ), 2);
-# L<S05/Match objects/"Fortunately, when you just want to return a different result object">
+# L<S05/Match objects/"Fortunately, when you just want to return a different">
"blah foo blah" ~~ / foo # Match 'foo'
{ make 'bar' } # But pretend we matched 'bar'
@@ -18,7 +18,8 @@ if !eval('("a" ~~ /a/)') {
#?pugs emit force_todo(2,3,5,6,10);
-# L<S05/Modifiers/With the new C<:ov> (C<:overlap>) modifier,>
+# should be: L<S05/Modifiers/With the new C<:ov> (C<:overlap>) modifier,>
+# L<S05/Modifiers/match at all possible character positions>
my $str = "abrAcadAbbra";
View
@@ -2,7 +2,7 @@ use v6;
use Test;
-# L<A12/"Declaration of Methods" /methods do not set the topic now/>
+# old: L<A12/"Declaration of Methods" /methods do not set the topic now/>
# (This is an an "update" section.)
# not mentioned explicitly in S12, but still true.

0 comments on commit f33600b

Please sign in to comment.