fix a bunch of smartlinks in S12, broken by me and TimToady++

Raku · Aug 11, 2011 · 8aaac76 · 8aaac76
1 parent 0b24db8
commit 8aaac76
Show file tree

Hide file tree

Showing 22 changed files with 29 additions and 29 deletions.
diff --git a/S12-attributes/class.t b/S12-attributes/class.t
@@ -8,8 +8,8 @@ Class Attributes
 
 =end pod
 
-#L<S12/Attributes/"Class attributes are declared">
-#L<S12/Class methods/metaclass method always delegated>
+#L<S12/Class attributes/"Class attributes are declared">
+#L<S12/Class methods/Such a metaclass method is always delegated>
 
 plan 28;
 

diff --git a/S12-attributes/clone.t b/S12-attributes/clone.t
@@ -4,7 +4,7 @@ use Test;
 
 plan 12;
 
-# L<S12/Construction and Initialization/You can clone an object, changing some of the attributes:>
+# L<S12/Cloning/You can clone an object, changing some of the attributes:>
 class Foo { 
     has $.attr; 
     method set_attr ($attr) { $.attr = $attr; }

diff --git a/S12-attributes/defaults.t b/S12-attributes/defaults.t
@@ -4,7 +4,7 @@ use Test;
 
 plan 21;
 
-# L<S12/Attributes/The value on the right is evaluated at object build time>
+# L<S12/Attribute default values/The value on the right is evaluated at object build time>
 
 my $got_a_num;  sub get_a_num  { $got_a_num++;  42 }
 my $got_a_str;  sub get_a_str  { $got_a_str++;  "Pugs" }
@@ -19,7 +19,7 @@ sub get_a_code {
     };
 }
 
-# L<S12/Attributes/the attribute being initialized>
+# L<S12/Attribute default values/the attribute being initialized>
 
 my $set_by_code_attr;
 

diff --git a/S12-attributes/instance.t b/S12-attributes/instance.t
@@ -29,7 +29,7 @@ class Foo1 { has $.bar; };
     nok($foo.bar.defined, '.. autogenerated accessor works w/out parens');
 }
 
-# L<S12/Attributes/Pseudo-assignment to an attribute declaration specifies the default>
+# L<S12/Attribute default values/Pseudo-assignment to an attribute declaration specifies the default>
 
 {
     class Foo2 { has $.bar = "baz"; };
@@ -121,7 +121,7 @@ class Foo1 { has $.bar; };
     is($foo.get_brain, 2, "getting a private attribute (2)");
 }
 
-# L<S12/Construction and Initialization/If you name an attribute as a parameter, that attribute is initialized directly, so>
+# L<S12/Semantics of C<bless>/If you name an attribute as a parameter, that attribute is initialized directly, so>
 
 
 {

diff --git a/S12-attributes/recursive.t b/S12-attributes/recursive.t
@@ -28,7 +28,7 @@ Test attributes with recursively typed attributes
     ok $b.attr.attr === $b, "Cycles resolve correctly";
 }
 
-#L<S12/Attributes/"Class attributes are declared">
+#L<S12/Class attributes/"Class attributes are declared">
 #?rakudo skip 'class attributes NYI'
 {
     class B {
@@ -44,7 +44,7 @@ Test attributes with recursively typed attributes
 
 }
 
-#L<S12/Methods/current lexically-determined class ::?CLASS>
+#L<S12/Invocants/current lexically-determined class ::?CLASS>
 {
     class C {
         has ::?CLASS $.attr is rw;

diff --git a/S12-class/attributes.t b/S12-class/attributes.t
@@ -4,7 +4,7 @@ use Test;
 
 plan 22;
 
-# L<S12/Methods/"For a call on your own private method">
+# L<S12/Fancy method calls/"For a call on your own private method">
 
 class Counter {
     has $!x;

diff --git a/S12-class/inheritance.t b/S12-class/inheritance.t
@@ -4,7 +4,7 @@ use Test;
 
 plan 36;
 
-# L<S12/Classes/An "isa" is just a trait that happens to be another class>
+# L<S12/Single inheritance/An "isa" is just a trait that happens to be another class>
 
 class Foo {
     has $.bar is rw;

diff --git a/S12-construction/BUILD.t b/S12-construction/BUILD.t
@@ -3,7 +3,7 @@ use Test;
 
 plan 8;
 
-# L<S12/Construction and Initialization/The default BUILD and BUILDALL>
+# L<S12/Semantics of C<bless>/The default BUILD and BUILDALL>
 
 
 class Parent {

diff --git a/S12-construction/destruction.t b/S12-construction/destruction.t
@@ -4,7 +4,7 @@ use Test;
 
 plan 6;
 
-# L<S12/"Construction and Initialization"/"DESTROY and DESTROYALL work the
+# L<S12/"Semantics of C<bless>"/"DESTROY and DESTROYALL work the
 # same way, only in reverse">
 
 my $in_destructor = 0;

diff --git a/S12-construction/named-params-in-BUILD.t b/S12-construction/named-params-in-BUILD.t
@@ -3,7 +3,7 @@ use v6;
 use Test;
 
 plan 3;
-# L<S12/Construction and Initialization/The default BUILD and BUILDALL>
+# L<S12/Semantics of C<bless>/The default BUILD and BUILDALL>
 
 class Foo {
     has $.v;

diff --git a/S12-enums/anonymous.t b/S12-enums/anonymous.t
@@ -4,7 +4,7 @@ plan 7;
 
 # Tests for anonymous enumerations.
 
-# L<S12/Enumerations/An anonymous enum just makes sure each string turns into a pair>
+# L<S12/Anonymous Enumerations/An anonymous enum just makes sure each string turns into a pair>
 
 my $e = enum < ook! ook. ook? >;
 is $e.keys.elems, 3, 'anonymous enum created correct sized hash';

diff --git a/S12-enums/as-role.t b/S12-enums/as-role.t
@@ -3,7 +3,7 @@ use Test;
 
 plan 9;
 
-#L<S12/Enumerations/they may be used to name a desired property>
+#L<S12/Anonymous Mixin Roles using C<but> or C<does>/they may be used to name a desired property>
 
 enum Maybe <No Yes Dunno>;
 class Bar            { }

diff --git a/S12-enums/basic.t b/S12-enums/basic.t
@@ -87,7 +87,7 @@ dies_ok({ my Color $c3 = "for the fail" }, 'enum as a type enforces checks');
     is white(), 'sub', 'short name with parenthesis is a sub';
 }
 
-# L<S12/Enumerations/"define a .pick method">
+# L<S12/The .pick Method/"define a .pick method">
 #?niecza skip '.pick and .roll'
 {
     lives_ok { my Color $k = Color.pick }, 'Color.pick assigns to Color var';

diff --git a/S12-enums/pseudo-functional.t b/S12-enums/pseudo-functional.t
@@ -3,7 +3,7 @@ use Test;
 
 plan 13;
 
-# L<S12/Enumerations/enumeration supplies the type name as a coercion>
+# L<S12/Anonymous Mixin Roles using C<but> or C<does>/enumeration supplies the type name as a coercion>
 
 enum day <<:Sun(1) Mon Tue Wed Thu Fri Sat>>;
 

diff --git a/S12-methods/default-trait.t b/S12-methods/default-trait.t
@@ -3,7 +3,7 @@ use Test;
 
 plan 6;
 
-# L<S12/Multisubs and Multimethods/"only candidates marked with the default
+# L<S12/Candidate Tiebreaking/"only candidates marked with the default
 # trait">
 
 class Something {

diff --git a/S12-methods/indirect_notation.t b/S12-methods/indirect_notation.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-# L<S12/Methods/"Indirect object notation now requires a colon after the invocant, even if there are no arguments">
+# L<S12/Method calls/"Indirect object notation now requires a colon after the invocant, even if there are no arguments">
 
 plan 33;
 
@@ -46,7 +46,7 @@ class T2
 }
 
 
-# L<S12/Methods/"There are several forms of indirection for the method name">
+# L<S12/Fancy method calls/"There are several forms of indirection for the method name">
 
 {
     class A {
@@ -65,7 +65,7 @@ class T2
     is $o.$meth, 'abcbcd',   'calling method with $object.$methodref';
 }
 
-# L<S12/Methods/"$obj.@candidates(1,2,3)">
+# L<S12/Fancy method calls/"$obj.@candidates(1,2,3)">
 #?rakudo skip '.@foo not yet working'
 {
     class T3 {

diff --git a/S12-methods/instance.t b/S12-methods/instance.t
@@ -10,7 +10,7 @@ Very basic instance method tests from L<S12/"Methods">
 
 =end pod
 
-# L<S12/"Methods" /"either the dot notation or indirect object notation:">
+# L<S12/"Method calls" /"either the dot notation or indirect object notation:">
 class Foo {
   method doit ($a, $b, $c) { $a + $b + $c }
   method noargs () { 42 }

diff --git a/S12-methods/lvalue.t b/S12-methods/lvalue.t
@@ -3,7 +3,7 @@ use Test;
 
 plan 16;
 
-# L<S12/Methods/may be declared as lvalues with is rw.>
+# L<S12/Lvalue methods/may be declared as lvalues with is rw.>
 
 class T {
     has $.a;

diff --git a/S12-methods/multi.t b/S12-methods/multi.t
@@ -5,7 +5,7 @@ use Test;
 plan 33;
 
 # L<S12/"Multisubs and Multimethods">
-# L<S12/"Multi dispatch">
+# L<S12/"Trusts">
 
 class Foo {
     multi method bar() {

diff --git a/S12-methods/private.t b/S12-methods/private.t
@@ -3,7 +3,7 @@ use Test;
 
 plan 9;
 
-# L<S12/Methods/"Private methods are declared using">
+# L<S12/Private methods/"Private methods are declared using">
 
 class A {
     method !private {

diff --git a/S12-methods/syntax.t b/S12-methods/syntax.t
@@ -3,7 +3,7 @@ use Test;
 
 plan 11;
 
-# L<S12/Methods/"no space between the method name and the left parenthesis">
+# L<S12/Fancy method calls/"no space between the method name and the left parenthesis">
 
 class A {
     multi method doit () { 'empty' };
@@ -26,7 +26,7 @@ is (.doit(1): 2, 3),    'a:1|b:2!3',    'list op with colon';
 is (.doit(1, 2): 3),    'a:1|b:2!3',    'list op with colon';
 is (.doit\  (1, 2): 3), 'a:1|b:2!3',    'list op with colon, unspace';
 
-# L<S12/Methods/"if any term in a list is a bare closure">
+# L<S12/Fancy method calls/"if any term in a list is a bare closure">
 #?rakudo skip 'adverbial closures'
 is (1..8).grep: { $_ % 2 }.map: { $_ - 1}.join('|'), '0|2|4|6', 
    'adverbial closure has right precedence and associativity';

diff --git a/S12-methods/trusts.t b/S12-methods/trusts.t
@@ -3,7 +3,7 @@ use v6;
 use Test;
 
 # Referencing various parts of Synopsis 12.
-# L<S12/Multi dispatch/"if that other class has indicated that it trusts the
+# L<S12/Trusts/"if that other class has indicated that it trusts the
 # class">
 
 plan 15;