Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

t/spec more smartlink fixes

git-svn-id: http://svn.pugscode.org/pugs@26482 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit 94226b4595a8469af19dbf91eae6099b7cd7b800 1 parent 0556935
szabgab authored
View
6 S03-operators/feed.t
@@ -2,15 +2,15 @@ use v6;
use Test;
+# L<S06/"Feed operators">
+# L<S03/"Feed operators">
+
=begin pod
Tests for the feed operators
==> and <==
-L<S06/"Feed operators">
-L<S03/"Feed operators">
-
=end pod
plan 23;
View
4 S03-operators/precedence.t
@@ -2,6 +2,8 @@ use v6;
use Test;
+# L<S03/Operator precedence>
+
=begin pod
Tests that each level bind tighter than the next by sampling some ops.
@@ -9,8 +11,6 @@ Tests that each level bind tighter than the next by sampling some ops.
In between each precedence level are some tests that demonstrate the
proper separation of the two levels.
-L<S03/Operator precedence>
-
=end pod
plan 51;
View
2  S04-exceptions/die-and-end.t
@@ -1,5 +1,7 @@
use v6;
+# L<S04/Closure traits/END>
+
use Test;
plan 1;
View
2  S04-statements/for.t
@@ -339,7 +339,7 @@ class TestClass{ has $.key is rw };
is $output, "1,2,3,4,", "grep and sort work in for";
}
-#L<S04/"keywords require whitespace">
+# L<S04/Statement parsing/keywords require whitespace>
eval_dies_ok('for(0..5) { }','keyword needs at least one whitespace after it');
# looping with more than one loop variables
View
2  S04-statements/gather.t
@@ -5,7 +5,7 @@ use Test;
plan 13;
-# L<S04/The gather statement/"A variant of do is gather">
+# L<S04/The C<gather> statement prefix/>
# Standard gather
{
View
5 S04-statements/if.t
@@ -6,10 +6,11 @@ use Test;
Basic "if" tests.
-L<S04/"Conditional statements">
=end kwid
+# L<S04/Conditional statements>
+
plan 25;
my $x = 'test';
@@ -149,7 +150,7 @@ is $foo, 1, "die should stop execution immediately.";
is $got, '', 'else -> $c { } binding previous if';
}
-#L<S04/"keywords require whitespace">
+# L<S04/Statement parsing/keywords require whitespace>
eval_dies_ok('if($x > 1) {}','keyword needs at least one whitespace after it');
# vim: ft=perl6
View
3  S04-statements/last.t
@@ -2,9 +2,10 @@ use v6;
use Test;
+# L<S04/Loop statements/last>
+
=begin description
-L<S04/"Loop statements"/last>
last
last if <condition>;
<condition> and last;
View
3  S04-statements/loop.t
@@ -2,11 +2,12 @@ use v6;
use Test;
+# L<S04/The general loop statement>
+
=begin kwid
loop statement tests
-L<S04/"The general loop statement">
=end kwid
View
4 S04-statements/while.t
@@ -1,5 +1,7 @@
use v6;
+# L<S04/The C<while> and C<until> statements>
+
use Test;
plan 9;
@@ -63,7 +65,7 @@ plan 9;
is $str, '54321', 'while ... -> $x {...} worked (2)';
}
-#L<S04/"keywords require whitespace">
+# L<S04/Statement parsing/keywords require whitespace>
{
my $i = 0;
eval_dies_ok('while($i < 5) { $i++; }',
View
2  S06-advanced_subroutine_features/caller.t
@@ -4,7 +4,7 @@ use Test;
plan 19;
-# L<S06/The C<caller> function>
+# L<S06/The C<context> and C<caller> functions>
# caller.subname
sub a_sub { b_sub() }
View
2  S10-packages/scope.t
@@ -30,7 +30,7 @@ use t::spec::packages::Test;
# test that all the functions are in the right place
# sanity test
-# L<S10/Packages/package for Perl 6 code>
+# L<S10/Packages/package for Perl>
is($?PACKAGE, "Main", 'The Main $?PACKAGE was not broken by any declarations');
# block level
View
2  S12-attributes/delegation.t
@@ -52,7 +52,7 @@ ok MultiFrontend.new, "class definition using multiple method names worked";
is ($a.cool), 1337, "method was successfully handled by backend object (5-2)";
}
-# L<S12/Delegation/you put a pair/>
+# L<S12/Delegation/you put a pair>
class PairTest {
has $.backend1 is rw handles :hello<hi>;
has $.backend2 is rw handles (:ahoj<hi>, :w00t('cool'));
View
4 S12-methods/private.t
@@ -3,7 +3,7 @@ use Test;
plan 9;
-# L<S12/Methods/"Private methods are declared using my">
+# L<S12/Methods/"Private methods are declared using">
class A {
method !private {
@@ -41,7 +41,7 @@ is $o.b_acc1, 'bb', 'indirect call to private method (double quotes)';
is $o.b_acc2, 'bb', 'indirect call to private method (single quotes)';
dies_ok {$o."b" }, 'can not call private method via quotes from outside';
-# L<S12/Roles/"same, but &foo is aliased to &!foo">
+# L<S14/Roles/"same, but &foo is aliased to &!foo">
# S12 says that 'my method foo' is the same as 'my method !foo', but
# also installs the &foo alias for &!foo
View
2  S28-named-variables/cwd.t
@@ -1,5 +1,7 @@
use v6;
+# L<S28/Named variables/$*CWD>
+
use Test;
plan 2;
Please sign in to comment.
Something went wrong with that request. Please try again.