Permalink
Browse files

t/spec more smartlink fixes

git-svn-id: http://svn.pugscode.org/pugs@26482 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 0556935 commit 94226b4595a8469af19dbf91eae6099b7cd7b800 szabgab committed Apr 27, 2009
View
@@ -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;
@@ -2,15 +2,15 @@ use v6;
use Test;
+# L<S03/Operator precedence>
+
=begin pod
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;
@@ -1,5 +1,7 @@
use v6;
+# L<S04/Closure traits/END>
+
use Test;
plan 1;
View
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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++; }',
@@ -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
@@ -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
@@ -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
@@ -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
@@ -1,5 +1,7 @@
use v6;
+# L<S28/Named variables/$*CWD>
+
use Test;
plan 2;

0 comments on commit 94226b4

Please sign in to comment.