Permalink
Browse files

[t/spec] more smartlink fixes

git-svn-id: http://svn.pugscode.org/pugs@26459 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 88faa1d commit fdd76280f6475c3fa0f148e2e9f57bed879c7535 moritz committed Apr 26, 2009
@@ -2,7 +2,7 @@ use v6;
use Test;
plan 8;
-# L<S02/Mutable types/"KeySet KeyHash of Bool">
+# L<S02/Mutable types/"KeyHash of Bool">
# A KeySet is a KeyHash of Bool, i.e. the values are Bool
View
@@ -91,7 +91,7 @@ is($p, ~('foo' => (1,2,3)), ':foo<1 2 3> is pair of list');
is(%foo<blah>, %e<blah>, "Hashes with embedded newlines in the list (3)");
}
-# L<S02/Literals/The degenerate case C<< <> >> is disallowed>
+# L<S02/Literals/"The degenerate case <> is disallowed">
#?rakudo 2 todo 'bare <> and <STDIN>'
eval_dies_ok '<>', 'bare <> is disallowed';
View
@@ -1,8 +1,7 @@
use v6;
use Test;
-# L<S02/Literals/"There are no barewords in Perl 6. An undeclared bare
-# identifier will always be taken to mean a subroutine name. ">
+# L<S02/Literals/"There are no barewords in Perl">
plan 6;
@@ -4,7 +4,7 @@ use Test;
plan 5;
-# L<S02/Names/"it then looks in %*ENV for the identifier of the variable">
+# L<S02/Names/"for the identifier of the variable">
%*ENV<THIS_NEVER_EXISTS> = 123;
@@ -4,7 +4,7 @@ use Test;
plan 37;
-# L<S02/Names/names are reserved in the first position>
+# L<S02/Names/"The following pseudo-package names are reserved"
ok !eval('module MY; 1'), 'MY is an out of scope name';
ok !eval('module OUR; 1'), 'OUR is an out of scope name';
ok !eval('module GLOBAL; 1'), 'GLOBAL is an out of scope name';

0 comments on commit fdd7628

Please sign in to comment.