Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

[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
authored November 06, 2009
2  S04-closure-traits/ascending-order.t
@@ -8,7 +8,7 @@ use Test;
8 8
 
9 9
 plan 8;
10 10
 
11  
-# L<S04/Closure traits/END "at run time" ALAP>
  11
+# L<S04/Phasers/END "at run time" ALAP>
12 12
 
13 13
 my $var;
14 14
 my ($var_at_begin, $var_at_check, $var_at_init, $var_at_start, $var_at_enter);
2  S04-closure-traits/check.t
@@ -4,7 +4,7 @@ use Test;
4 4
 
5 5
 plan 5;
6 6
 
7  
-# L<S04/"Closure traits"/CHECK "at compile time" ALAP>
  7
+# L<S04/"Phasers"/CHECK "at compile time" ALAP>
8 8
 # CHECK {...} block in "void" context
9 9
 {
10 10
     my $str = '';
2  S04-closure-traits/descending-order.t
@@ -8,7 +8,7 @@ use Test;
8 8
 
9 9
 plan 7;
10 10
 
11  
-# L<S04/Closure traits/END "at run time" ALAP>
  11
+# L<S04/Phasers/END "at run time" ALAP>
12 12
 
13 13
 my $var;
14 14
 my ($var_at_enter, $var_at_init, $var_at_check, $var_at_begin);
8  S04-closure-traits/enter-leave.t
@@ -4,8 +4,8 @@ use Test;
4 4
 
5 5
 plan 19;
6 6
 
7  
-# L<S04/Closure traits/ENTER "at every block entry time">
8  
-# L<S04/Closure traits/LEAVE "at every block exit time">
  7
+# L<S04/Phasers/ENTER "at every block entry time">
  8
+# L<S04/Phasers/LEAVE "at every block exit time">
9 9
 
10 10
 {
11 11
     my $str;
@@ -52,7 +52,7 @@ plan 19;
52 52
     is $str, '[({21})]', 'multiple ENTER/LEAVE worked';
53 53
 }
54 54
 
55  
-# L<S04/Closure traits/ENTER "repeats on loop blocks">
  55
+# L<S04/Phasers/ENTER "repeats on loop blocks">
56 56
 {
57 57
     my $str;
58 58
     for 1..2 {
@@ -63,7 +63,7 @@ plan 19;
63 63
     is $str, 'E1,L1 E2,L2 ', 'ENTER/LEAVE repeats on loop blocks';
64 64
 }
65 65
 
66  
-# L<S04/Closure traits/LEAVE "at every block exit time">
  66
+# L<S04/Phasers/LEAVE "at every block exit time">
67 67
 
68 68
 # named sub:
69 69
 {
6  S04-closure-traits/first.t
@@ -4,7 +4,7 @@ use Test;
4 4
 
5 5
 plan 4;
6 6
 
7  
-# L<S04/Closure traits/FIRST "at loop initialization time">
  7
+# L<S04/Phasers/FIRST "at loop initialization time">
8 8
 {
9 9
     my $str = '';
10 10
     for 1..2 {
@@ -22,7 +22,7 @@ plan 4;
22 22
     is $a_in_first, undef, 'FIRST {} ran before the loop body';
23 23
 }
24 24
 
25  
-# L<S04/Closure traits/can occur multiple times>
  25
+# L<S04/Phasers/can occur multiple times>
26 26
 {
27 27
     my $str = '';
28 28
     for 1..2 {
@@ -33,7 +33,7 @@ plan 4;
33 33
     is $str, '1: ', 'multiple FIRST {} ran in order';
34 34
 }
35 35
 
36  
-# L<S04/Closure traits/FIRST "at loop initialization time" "before any ENTER">
  36
+# L<S04/Phasers/FIRST "at loop initialization time" "before any ENTER">
37 37
 {
38 38
     my $str = '';
39 39
     for 1..2 {
2  S04-closure-traits/in-eval.t
@@ -6,7 +6,7 @@ use Test;
6 6
 
7 7
 plan 31;
8 8
 
9  
-# L<S04/Closure traits/Code "generated at run time" "still fire off"
  9
+# L<S04/Phasers/Code "generated at run time" "still fire off"
10 10
 #   "can't" "travel back in time" >
11 11
 
12 12
 my ($handle);
2  S04-closure-traits/in-loop.t
@@ -16,7 +16,7 @@ plan 2;
16 16
 #
17 17
 # * PRE/POST in classes is not the same as LEAVE/ENTER
18 18
 
19  
-# L<S04/"Closure traits">
  19
+# L<S04/"Phasers">
20 20
 
21 21
 {
22 22
     my $str;
6  S04-closure-traits/init.t
@@ -4,7 +4,7 @@ use Test;
4 4
 
5 5
 plan 11;
6 6
 
7  
-# L<S04/"Closure traits"/INIT "at run time" ASAP>
  7
+# L<S04/"Phasers"/INIT "at run time" ASAP>
8 8
 # INIT {...} blocks in "void" context
9 9
 {
10 10
     my $str;
@@ -54,7 +54,7 @@ plan 11;
54 54
     is $str, 'o', 'the value set by INIT {} wiped out by the initializer of $str';
55 55
 }
56 56
 
57  
-# L<S04/"Closure traits"/INIT "runs before" "mainline code">
  57
+# L<S04/"Phasers"/INIT "runs before" "mainline code">
58 58
 
59 59
 my $str ~= 'o';  # Note that this is different from  "my $str = 'o';".
60 60
 {
@@ -62,7 +62,7 @@ my $str ~= 'o';  # Note that this is different from  "my $str = 'o';".
62 62
 }
63 63
 is $str, 'io', 'INIT {} always runs before the mainline code runs';
64 64
 
65  
-# L<S04/Closure traits/INIT "runs once for all copies of" "cloned closure">
  65
+# L<S04/Phasers/INIT "runs once for all copies of" "cloned closure">
66 66
 {
67 67
 	my $var;
68 68
 	for <first second> {
2  S04-closure-traits/interpolate.t
@@ -8,7 +8,7 @@ plan 6;
8 8
 
9 9
 # [TODO] add tests for ENTER/LEAVE/KEEP/UNDO/PRE/POST/etc
10 10
 
11  
-# L<S04/Closure traits/END "at run time" ALAP>
  11
+# L<S04/Phasers/END "at run time" ALAP>
12 12
 
13 13
 # IRC log:
14 14
 # ----------------------------------------------------------------
8  S04-closure-traits/keep-undo.t
@@ -4,8 +4,8 @@ use Test;
4 4
 
5 5
 plan 10;
6 6
 
7  
-# L<S04/Closure traits/KEEP "at every successful block exit">
8  
-# L<S04/Closure traits/UNDO "at every unsuccessful block exit">
  7
+# L<S04/Phasers/KEEP "at every successful block exit">
  8
+# L<S04/Phasers/UNDO "at every unsuccessful block exit">
9 9
 
10 10
 {
11 11
     my $str;
@@ -25,7 +25,7 @@ plan 10;
25 25
     is $str, '1 > 0 0 <= 0 -1 <= 0 ', 'UNDO worked as expected';
26 26
 }
27 27
 
28  
-# L<S04/Closure traits/KEEP UNDO are "variants of LEAVE"
  28
+# L<S04/Phasers/KEEP UNDO are "variants of LEAVE"
29 29
 #   "treated as part of the queue of LEAVE blocks">
30 30
 {
31 31
     my $str;
@@ -44,7 +44,7 @@ plan 10;
44 44
     is $str, '(1 > 0)(-5 <= 0)', 'UNDO triggered as part of LEAVE blocks';
45 45
 }
46 46
 
47  
-# L<S04/Closure traits/"can occur multiple times">
  47
+# L<S04/Phasers/"can occur multiple times">
48 48
 
49 49
 # multiple KEEP/UNDO
50 50
 {
2  S04-closure-traits/multiple.t
@@ -8,7 +8,7 @@ use Test;
8 8
 
9 9
 plan 2;
10 10
 
11  
-# L<S04/Closure traits/"occur multiple times">
  11
+# L<S04/Phasers/"occur multiple times">
12 12
 # IRC log:
13 13
 # [05:41] <agentzh> TimToady: S04 doesn't discuss the running order 
14 14
 #                   of multiple closure traits (say, two END {} in 
10  S04-closure-traits/next.t
@@ -4,7 +4,7 @@ use Test;
4 4
 
5 5
 plan 13;
6 6
 
7  
-# L<S04/Closure traits/NEXT executes "only if" 
  7
+# L<S04/Phasers/NEXT executes "only if" 
8 8
 #   "end of the loop block" or "explicit next">
9 9
 {
10 10
     my $str = '';
@@ -48,7 +48,7 @@ plan 13;
48 48
     is $str, 'nnl', 'NEXT are LAST blocks may not be exclusive';
49 49
 }
50 50
 
51  
-# L<S04/Closure traits/NEXT "not executed" if exited
  51
+# L<S04/Phasers/NEXT "not executed" if exited
52 52
 #   "via any exception other than" next>
53 53
 
54 54
 {
@@ -85,7 +85,7 @@ plan 13;
85 85
     is $str, '123', "return didn't trigger NEXT \{}";
86 86
 }
87 87
 
88  
-# L<S04/Closure traits/last bypasses "NEXT blocks">
  88
+# L<S04/Phasers/last bypasses "NEXT blocks">
89 89
 {
90 90
     my $str = '';
91 91
     for 1..5 {
@@ -95,7 +95,7 @@ plan 13;
95 95
     is $str, '123', "last bypass NEXT \{}";
96 96
 }
97 97
 
98  
-# L<S04/Closure traits/NEXT "before any LEAVE">
  98
+# L<S04/Phasers/NEXT "before any LEAVE">
99 99
 
100 100
 {
101 101
     my $str = '';
@@ -116,7 +116,7 @@ plan 13;
116 116
     is $str, 'nlnl', 'NEXT {} ran before LEAVE {} (2)';
117 117
 }
118 118
 
119  
-# L<S04/Closure traits/NEXT "at loop continuation time">
  119
+# L<S04/Phasers/NEXT "at loop continuation time">
120 120
 
121 121
 # L<http://groups.google.com/group/perl.perl6.language/msg/07370316d32890dd>
122 122
 
2  S04-closure-traits/pre-post.t
@@ -3,7 +3,7 @@ use v6;
3 3
 use Test;
4 4
 # Test of PRE and POST traits
5 5
 #
6  
-# L<S04/Closure traits/"assert precondition at every block ">
  6
+# L<S04/Phasers/"assert precondition at every block ">
7 7
 # L<S06/Subroutine traits/"Mark blocks that are to be unconditionally executed">
8 8
 #
9 9
 # TODO: 
2  S04-closure-traits/rvalue.t
@@ -7,7 +7,7 @@ use Test;
7 7
 
8 8
 plan 10;
9 9
 
10  
-# L<S04/Closure traits/"marked with a *" "used within" expression>
  10
+# L<S04/Phasers/"marked with a *" "used within" expression>
11 11
 
12 12
 my $hist = '';
13 13
 
10  S04-closure-traits/start.t
@@ -4,7 +4,7 @@ use Test;
4 4
 
5 5
 plan 21;
6 6
 
7  
-# L<S04/"Closure traits"/START "runs separately for each clone">
  7
+# L<S04/"Phasers"/START "runs separately for each clone">
8 8
 #?rakudo todo '$_ inside START has some issues, it seems'
9 9
 {
10 10
     is(eval(q{{
@@ -20,7 +20,7 @@ plan 21;
20 20
     }}), '12');
21 21
 };
22 22
 
23  
-# L<S04/"Closure traits"/START "puts off" initialization till
  23
+# L<S04/"Phasers"/START "puts off" initialization till
24 24
 #   "last possible moment">
25 25
 {
26 26
     my $var;
@@ -35,7 +35,7 @@ plan 21;
35 35
     is $var, 2, "START {} only runs once for each clone";
36 36
 }
37 37
 
38  
-# L<S04/"Closure traits"/START "on first ever execution">
  38
+# L<S04/"Phasers"/START "on first ever execution">
39 39
 {
40 40
     my $str ~= 'o';
41 41
     {
@@ -44,7 +44,7 @@ plan 21;
44 44
     is $str, 'oi', 'START {} runs when we first try to use a block';
45 45
 }
46 46
 
47  
-# L<S04/"Closure traits"/START "executes inline">
  47
+# L<S04/"Phasers"/START "executes inline">
48 48
 
49 49
 # Execute the tests twice to make sure that START binds to
50 50
 # the lexical scope, not the lexical position.
@@ -77,7 +77,7 @@ for <first second> {
77 77
     is $str, 'banana', "START block modified the correct variable ($_ time)";
78 78
 }
79 79
 
80  
-# L<S04/"Closure traits"/START "caches its value for all subsequent calls">
  80
+# L<S04/"Phasers"/START "caches its value for all subsequent calls">
81 81
 {
82 82
     my $was_in_start;
83 83
     my $sub = {

0 notes on commit 4e5f604

Please sign in to comment.
Something went wrong with that request. Please try again.