Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[t/spec] fix some smartlinks

git-svn-id: http://svn.pugscode.org/pugs@29005 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit 4e5f60478228e03e6fb1dc0d44abb457f2d4b5dd 1 parent 7c78da6
moritz authored
View
2  S04-closure-traits/ascending-order.t
@@ -8,7 +8,7 @@ use Test;
plan 8;
-# L<S04/Closure traits/END "at run time" ALAP>
+# L<S04/Phasers/END "at run time" ALAP>
my $var;
my ($var_at_begin, $var_at_check, $var_at_init, $var_at_start, $var_at_enter);
View
2  S04-closure-traits/check.t
@@ -4,7 +4,7 @@ use Test;
plan 5;
-# L<S04/"Closure traits"/CHECK "at compile time" ALAP>
+# L<S04/"Phasers"/CHECK "at compile time" ALAP>
# CHECK {...} block in "void" context
{
my $str = '';
View
2  S04-closure-traits/descending-order.t
@@ -8,7 +8,7 @@ use Test;
plan 7;
-# L<S04/Closure traits/END "at run time" ALAP>
+# L<S04/Phasers/END "at run time" ALAP>
my $var;
my ($var_at_enter, $var_at_init, $var_at_check, $var_at_begin);
View
8 S04-closure-traits/enter-leave.t
@@ -4,8 +4,8 @@ use Test;
plan 19;
-# L<S04/Closure traits/ENTER "at every block entry time">
-# L<S04/Closure traits/LEAVE "at every block exit time">
+# L<S04/Phasers/ENTER "at every block entry time">
+# L<S04/Phasers/LEAVE "at every block exit time">
{
my $str;
@@ -52,7 +52,7 @@ plan 19;
is $str, '[({21})]', 'multiple ENTER/LEAVE worked';
}
-# L<S04/Closure traits/ENTER "repeats on loop blocks">
+# L<S04/Phasers/ENTER "repeats on loop blocks">
{
my $str;
for 1..2 {
@@ -63,7 +63,7 @@ plan 19;
is $str, 'E1,L1 E2,L2 ', 'ENTER/LEAVE repeats on loop blocks';
}
-# L<S04/Closure traits/LEAVE "at every block exit time">
+# L<S04/Phasers/LEAVE "at every block exit time">
# named sub:
{
View
6 S04-closure-traits/first.t
@@ -4,7 +4,7 @@ use Test;
plan 4;
-# L<S04/Closure traits/FIRST "at loop initialization time">
+# L<S04/Phasers/FIRST "at loop initialization time">
{
my $str = '';
for 1..2 {
@@ -22,7 +22,7 @@ plan 4;
is $a_in_first, undef, 'FIRST {} ran before the loop body';
}
-# L<S04/Closure traits/can occur multiple times>
+# L<S04/Phasers/can occur multiple times>
{
my $str = '';
for 1..2 {
@@ -33,7 +33,7 @@ plan 4;
is $str, '1: ', 'multiple FIRST {} ran in order';
}
-# L<S04/Closure traits/FIRST "at loop initialization time" "before any ENTER">
+# L<S04/Phasers/FIRST "at loop initialization time" "before any ENTER">
{
my $str = '';
for 1..2 {
View
2  S04-closure-traits/in-eval.t
@@ -6,7 +6,7 @@ use Test;
plan 31;
-# L<S04/Closure traits/Code "generated at run time" "still fire off"
+# L<S04/Phasers/Code "generated at run time" "still fire off"
# "can't" "travel back in time" >
my ($handle);
View
2  S04-closure-traits/in-loop.t
@@ -16,7 +16,7 @@ plan 2;
#
# * PRE/POST in classes is not the same as LEAVE/ENTER
-# L<S04/"Closure traits">
+# L<S04/"Phasers">
{
my $str;
View
6 S04-closure-traits/init.t
@@ -4,7 +4,7 @@ use Test;
plan 11;
-# L<S04/"Closure traits"/INIT "at run time" ASAP>
+# L<S04/"Phasers"/INIT "at run time" ASAP>
# INIT {...} blocks in "void" context
{
my $str;
@@ -54,7 +54,7 @@ plan 11;
is $str, 'o', 'the value set by INIT {} wiped out by the initializer of $str';
}
-# L<S04/"Closure traits"/INIT "runs before" "mainline code">
+# L<S04/"Phasers"/INIT "runs before" "mainline code">
my $str ~= 'o'; # Note that this is different from "my $str = 'o';".
{
@@ -62,7 +62,7 @@ my $str ~= 'o'; # Note that this is different from "my $str = 'o';".
}
is $str, 'io', 'INIT {} always runs before the mainline code runs';
-# L<S04/Closure traits/INIT "runs once for all copies of" "cloned closure">
+# L<S04/Phasers/INIT "runs once for all copies of" "cloned closure">
{
my $var;
for <first second> {
View
2  S04-closure-traits/interpolate.t
@@ -8,7 +8,7 @@ plan 6;
# [TODO] add tests for ENTER/LEAVE/KEEP/UNDO/PRE/POST/etc
-# L<S04/Closure traits/END "at run time" ALAP>
+# L<S04/Phasers/END "at run time" ALAP>
# IRC log:
# ----------------------------------------------------------------
View
8 S04-closure-traits/keep-undo.t
@@ -4,8 +4,8 @@ use Test;
plan 10;
-# L<S04/Closure traits/KEEP "at every successful block exit">
-# L<S04/Closure traits/UNDO "at every unsuccessful block exit">
+# L<S04/Phasers/KEEP "at every successful block exit">
+# L<S04/Phasers/UNDO "at every unsuccessful block exit">
{
my $str;
@@ -25,7 +25,7 @@ plan 10;
is $str, '1 > 0 0 <= 0 -1 <= 0 ', 'UNDO worked as expected';
}
-# L<S04/Closure traits/KEEP UNDO are "variants of LEAVE"
+# L<S04/Phasers/KEEP UNDO are "variants of LEAVE"
# "treated as part of the queue of LEAVE blocks">
{
my $str;
@@ -44,7 +44,7 @@ plan 10;
is $str, '(1 > 0)(-5 <= 0)', 'UNDO triggered as part of LEAVE blocks';
}
-# L<S04/Closure traits/"can occur multiple times">
+# L<S04/Phasers/"can occur multiple times">
# multiple KEEP/UNDO
{
View
2  S04-closure-traits/multiple.t
@@ -8,7 +8,7 @@ use Test;
plan 2;
-# L<S04/Closure traits/"occur multiple times">
+# L<S04/Phasers/"occur multiple times">
# IRC log:
# [05:41] <agentzh> TimToady: S04 doesn't discuss the running order
# of multiple closure traits (say, two END {} in
View
10 S04-closure-traits/next.t
@@ -4,7 +4,7 @@ use Test;
plan 13;
-# L<S04/Closure traits/NEXT executes "only if"
+# L<S04/Phasers/NEXT executes "only if"
# "end of the loop block" or "explicit next">
{
my $str = '';
@@ -48,7 +48,7 @@ plan 13;
is $str, 'nnl', 'NEXT are LAST blocks may not be exclusive';
}
-# L<S04/Closure traits/NEXT "not executed" if exited
+# L<S04/Phasers/NEXT "not executed" if exited
# "via any exception other than" next>
{
@@ -85,7 +85,7 @@ plan 13;
is $str, '123', "return didn't trigger NEXT \{}";
}
-# L<S04/Closure traits/last bypasses "NEXT blocks">
+# L<S04/Phasers/last bypasses "NEXT blocks">
{
my $str = '';
for 1..5 {
@@ -95,7 +95,7 @@ plan 13;
is $str, '123', "last bypass NEXT \{}";
}
-# L<S04/Closure traits/NEXT "before any LEAVE">
+# L<S04/Phasers/NEXT "before any LEAVE">
{
my $str = '';
@@ -116,7 +116,7 @@ plan 13;
is $str, 'nlnl', 'NEXT {} ran before LEAVE {} (2)';
}
-# L<S04/Closure traits/NEXT "at loop continuation time">
+# L<S04/Phasers/NEXT "at loop continuation time">
# L<http://groups.google.com/group/perl.perl6.language/msg/07370316d32890dd>
View
2  S04-closure-traits/pre-post.t
@@ -3,7 +3,7 @@ use v6;
use Test;
# Test of PRE and POST traits
#
-# L<S04/Closure traits/"assert precondition at every block ">
+# L<S04/Phasers/"assert precondition at every block ">
# L<S06/Subroutine traits/"Mark blocks that are to be unconditionally executed">
#
# TODO:
View
2  S04-closure-traits/rvalue.t
@@ -7,7 +7,7 @@ use Test;
plan 10;
-# L<S04/Closure traits/"marked with a *" "used within" expression>
+# L<S04/Phasers/"marked with a *" "used within" expression>
my $hist = '';
View
10 S04-closure-traits/start.t
@@ -4,7 +4,7 @@ use Test;
plan 21;
-# L<S04/"Closure traits"/START "runs separately for each clone">
+# L<S04/"Phasers"/START "runs separately for each clone">
#?rakudo todo '$_ inside START has some issues, it seems'
{
is(eval(q{{
@@ -20,7 +20,7 @@ plan 21;
}}), '12');
};
-# L<S04/"Closure traits"/START "puts off" initialization till
+# L<S04/"Phasers"/START "puts off" initialization till
# "last possible moment">
{
my $var;
@@ -35,7 +35,7 @@ plan 21;
is $var, 2, "START {} only runs once for each clone";
}
-# L<S04/"Closure traits"/START "on first ever execution">
+# L<S04/"Phasers"/START "on first ever execution">
{
my $str ~= 'o';
{
@@ -44,7 +44,7 @@ plan 21;
is $str, 'oi', 'START {} runs when we first try to use a block';
}
-# L<S04/"Closure traits"/START "executes inline">
+# L<S04/"Phasers"/START "executes inline">
# Execute the tests twice to make sure that START binds to
# the lexical scope, not the lexical position.
@@ -77,7 +77,7 @@ for <first second> {
is $str, 'banana', "START block modified the correct variable ($_ time)";
}
-# L<S04/"Closure traits"/START "caches its value for all subsequent calls">
+# L<S04/"Phasers"/START "caches its value for all subsequent calls">
{
my $was_in_start;
my $sub = {
Please sign in to comment.
Something went wrong with that request. Please try again.