Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix all currently broken smartlinks to S05
  • Loading branch information
Coleoid committed Jul 20, 2012
1 parent 16dd063 commit 3a41ccc
Show file tree
Hide file tree
Showing 7 changed files with 17 additions and 19 deletions.
2 changes: 1 addition & 1 deletion S05-grammar/action-stubs.t
Expand Up @@ -4,7 +4,7 @@ use Test;

plan 17;

# L<S05/Grammars/"and optionally pass an action object">
# L<S05/Grammars/optionally pass an actions object>

grammar A::Test::Grammar {
rule TOP { <a> <b> }
Expand Down
2 changes: 1 addition & 1 deletion S05-grammar/ws.t
Expand Up @@ -2,7 +2,7 @@ use v6;
use Test;
plan 12;

# L<S05/Modifiers/"causes whitespace sequences to be considered">
# L<S05/Modifiers/"causes certain whitespace sequences to be considered">
# L<S05/Modifiers/"any grammar is free to override the rule">

# test that implicit and explicit <.ws> rules are overridable
Expand Down
6 changes: 3 additions & 3 deletions S05-mass/rx.t
Expand Up @@ -34,7 +34,7 @@ ok 'abc' !~~ /\d+:/, 'cut on character class shortcut';
#?pugs todo
ok 'verify' ~~ /[ if not | ify ]/, 'control';

# L<S05/Backtracking control/"Backtracking over a double colon">
# L<S05/Backtracking control/"Evaluating a double colon">

#### [ if :: not | ify ] verify n inside a group
#?rakudo skip ':: NYI'
Expand All @@ -55,7 +55,7 @@ ok 'verify' ~~ /[ if : not | ify ]/, 'simple backtrack still works';
#?pugs todo
ok 'verify' ~~ /[ if :: not | ify ] | verify/, 'rule continues';

# L<S05/Backtracking control/"Backtracking over a triple colon">
# L<S05/Backtracking control/"Evaluating a triple colon">
#### [ when ever ] | whence whence y full backtrack failure
#?pugs todo
ok 'whence' ~~ /[ when ever ] | whence/, 'full backtrack failure';
Expand Down Expand Up @@ -98,7 +98,7 @@ ok 'xyzabcde' !~~ /( ab || abc ): de/, 'no backtrack into subpattern';
#?niecza todo ''
ok 'whence' !~~ /[ when <commit> ever ] | whence/, 'full backtrack failure';

#L<S05/Modifiers/"The new :ratchet modifier">
#L<S05/Modifiers/"The new :r or :ratchet modifier">

#### :ratchet a* a bazaar n ratchet modifier
ok 'bazaar' !~~ /:ratchet a* a/, 'ratchet modifier';
Expand Down
4 changes: 1 addition & 3 deletions S05-metasyntax/angle-brackets.t
Expand Up @@ -116,9 +116,7 @@ character classes), and those are referenced at the correct spot.
eval_dies_ok('"foo" ~~ /<test:>/', 'no other characters are allowed (:)');
}

# L<S05/Extensible metasyntax (C<< <...> >>)/A leading . causes a named assertion not to capture what it matches>
# XXX "section ``Extensible metasyntax (<...>)'' not found in S05." - how to
# reference that section?
# L<S05/Extensible metasyntax (C<< <...> >>)/explicitly calls a method as a subrule>
{
is('blorg' ~~ /<.alpha>/, 'b', 'leading . prevents capturing');
}
Expand Down
2 changes: 1 addition & 1 deletion S05-metasyntax/interpolating-closure.t
Expand Up @@ -14,7 +14,7 @@ be valid perl6.

plan 6;

# L<S05/Extensible metasyntax (C<< <...> >>)/A leading & interpolates>
# L<S05/Extensible metasyntax (C<< <...> >>)/unambiguously calls a routine instead>

my regex abc { a b c }

Expand Down
18 changes: 9 additions & 9 deletions S05-modifier/ignoremark.t
Expand Up @@ -12,17 +12,17 @@ TODO: need some tests for combined :ignoremark and :sigspace modifiers
=end description

#L<S05/Modifiers/"The :a">
#L<S05/Modifiers/"The :m (or :ignoremark) modifier">

#?pugs 999 skip feature
ok(!'ä' ~~ m/a/, 'No :ignoreaccent: a doesnt match ä');
ok('ä' ~~ m:m/a/, 'Ignoreaccent: a matches ä');
ok('a' ~~ m:m/ä/, 'Ignoreaccent: ä matches a');
ok('à' ~~ m:m/a/, 'Ignoreaccent: a matches à');
ok('á' ~~ m:m/a/, 'Ignoreaccent: a matches á');
ok('â' ~~ m:m/a/, 'Ignoreaccent: a matches â');
ok('å' ~~ m:m/a/, 'Ignoreaccent: a matches å');
ok('ƌ' ~~ m:m/d/, 'Ignoreaccent: d matches ƌ');
ok(!'ä' ~~ m/a/, 'No :ignoremark: a doesnt match ä');
ok('ä' ~~ m:m/a/, 'Ignoremark: a matches ä');
ok('a' ~~ m:m/ä/, 'Ignoremark: ä matches a');
ok('à' ~~ m:m/a/, 'Ignoremark: a matches à');
ok('á' ~~ m:m/a/, 'Ignoremark: a matches á');
ok('â' ~~ m:m/a/, 'Ignoremark: a matches â');
ok('å' ~~ m:m/a/, 'Ignoremark: a matches å');
ok('ƌ' ~~ m:m/d/, 'Ignoremark: d matches ƌ');
ok('å' ~~ m:m/ä/, 'Both pattern and string may contain accents');
ok('a' ~~ m:m/ä/, 'Pattern may contain accents');

Expand Down
2 changes: 1 addition & 1 deletion S05-modifier/ratchet.t
@@ -1,7 +1,7 @@
use v6;
use Test;

#L<S05/Modifiers/"The new :ratchet modifier">
#L<S05/Modifiers/"The new :r or :ratchet modifier">
# for other tests see
# t/spec/S05-mass/rx.t

Expand Down

0 comments on commit 3a41ccc

Please sign in to comment.