Permalink
Browse files

[t/spec] fix several smartlinks

git-svn-id: http://svn.pugscode.org/pugs@27713 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
moritz
moritz committed Jul 24, 2009
1 parent 9c6b5cd commit 7101b98a4293d9095a19da973a0d8b1a0ee34755
@@ -4,7 +4,7 @@ use Test;
plan 16;
-# L<S09/Autovivification/"In Perl 6 these read-only operations are indeed non-destructive:">
+# L<S09/Autovivification/In Perl 6 these read-only operations are indeed non-destructive:>
{
# Compare with Perl 5:
# $ perl -we '
@@ -2,8 +2,8 @@ use v6;
use Test;
plan 18;
-# L<S04/The Relationship of Blocks and Declarations/"A bare closure without
-# placeholder arguments that uses $_">
+# L<S04/The Relationship of Blocks and Declarations/A bare closure
+# (except the block associated with a conditional statement)>
{
# test with explicit $_
View
@@ -77,7 +77,7 @@ plan 15;
{
# I hope I understood this part of specs correctly:
- # L<S04/"The lift statement prefix"/"Everything else within a lift">
+ # L<S04/The C<lift> statement prefix/"Everything else within a lift">
# etc.
# IMHO that means that it's OK to use undeclared variables in a lift:
sub f { lift $a + $b };
View
@@ -290,7 +290,7 @@ ok(!( "}" ~~ m/^<+xdigit>$/ ), q{Don't match unrelated xdigit as charset} );
ok("}" ~~ m/^<-xdigit>$/, q{Match inverted xdigit as charset});
ok("}0" ~~ m/<+xdigit>/, q{Match unanchored xdigit as charset} );
-# L<S05/Extensible metasyntax (C<< <...> >>)/always returns false>
+# L<S05/Predefined Subrules/always returns false>
ok 'abc' !~~ /a <!>/, '<!> fails';
ok '' !~~ /<!>/, '<!> fails (empty string)';
@@ -10,7 +10,7 @@ Tests for .^attributes from L<S12/Introspection>.
=end pod
-# L<S12/Introspection/"The C<.^attributes> method">
+# L<S12/Introspection/"The .^attributes method">
class A {
has Str $.a = "dnes je horuci a potrebujem pivo";

0 comments on commit 7101b98

Please sign in to comment.