Permalink
Browse files

[t/spec] fix some of the S12/Roles smartlinks

git-svn-id: http://svn.pugscode.org/pugs@26465 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 5f35d0f commit 605c16f2de2861f3357f2849835a4996694f1d50 moritz committed Apr 26, 2009
Showing with 11 additions and 11 deletions.
  1. +1 −1 S12-role/attributes.t
  2. +5 −5 S12-role/basic.t
  3. +1 −1 S12-role/composition.t
  4. +1 −1 S12-role/mixin.t
  5. +2 −2 S12-role/parameterized-basic.t
  6. +1 −1 S12-role/parameterized-mixin.t
View
2 S12-role/attributes.t
@@ -2,7 +2,7 @@ use v6;
use Test;
plan 5;
-# L<S12/Roles/"Roles may have attributes">
+# L<S14/Roles/"Roles may have attributes">
role R1 {
has $!a1;
View
10 S12-role/basic.t
@@ -6,11 +6,11 @@ plan 30;
=begin description
-Basic role tests from L<S12/Roles>
+Basic role tests from L<S14/Roles>
=end description
-# L<S12/Roles>
+# L<S14/Roles>
# Basic definition
role Foo {}
class Bar does Foo {};
@@ -37,7 +37,7 @@ ok $baz.HOW.does($baz, Foo), '.HOW.does said our $baz now does Foo';
ok $baz.^does(Foo), '.^does said our $baz now does Foo';
dies_ok { $baz ~~ Baz }, 'smartmatch against non-existent type dies';
-# L<S12/Roles/but with a role keyword:>
+# L<S14/Roles/but with a role keyword:>
# Roles may have methods
#?pugs skip "todo"
{
@@ -48,7 +48,7 @@ dies_ok { $baz ~~ Baz }, 'smartmatch against non-existent type dies';
'$a "inherited" the .say_hello method of A';
}
-# L<S12/Roles/Roles may have attributes:>
+# L<S14/Roles/Roles may have attributes:>
{
role B { has $.attr is rw = 42 }
my Bar $b .= new();
@@ -57,7 +57,7 @@ dies_ok { $baz ~~ Baz }, 'smartmatch against non-existent type dies';
is $b.attr, 42, '$b "inherited" the $.attr attribute of B (1)';
is ($b.attr = 23), 23, '$b "inherited" the $.attr attribute of B (2)';
- # L<S12/Roles/operator creates a copy and works on that.>
+ # L<S14/Roles/operator creates a copy and works on that.>
# As usual, ok instead of todo_ok to avoid unexpected succeedings.
my Bar $c .= new(),
ok defined($c), 'creating a Foo worked';
View
2 S12-role/composition.t
@@ -2,7 +2,7 @@ use v6;
use Test;
plan 11;
-# L<S12/Roles/"Roles may be composed into a class at compile time">
+# L<S14/Roles/"Roles may be composed into a class at compile time">
role rA {
method mA1 {
View
2 S12-role/mixin.t
@@ -2,7 +2,7 @@ use v6;
use Test;
plan 18;
-# L<S12/Roles/"Run-time mixins are done with does and but">
+# L<S14/Roles/"Run-time mixins are done with does and but">
role R1 { method test { 42 } }
class C1 { }
View
4 S12-role/parameterized-basic.t
@@ -6,14 +6,14 @@ plan 22;
=begin pod
-Basic parameterized role tests, see L<S12/Roles>
+Basic parameterized role tests, see L<S14/Roles>
=end pod
#?pugs emit skip_rest('parameterized roles'); exit;
#?pugs emit =begin SKIP
-# L<S12/Roles/to be considered part of the long name:>
+# L<S14/Roles/to be considered part of the long name:>
# Some basic arity-based selection tests.
role AritySelection {
View
2 S12-role/parameterized-mixin.t
@@ -15,7 +15,7 @@ Might need some more review and love --moritz
#?pugs emit skip_rest('parameterized roles'); exit;
#?pugs emit =begin SKIP
-# L<S12/Roles/to be considered part of the long name:>
+# L<S14/Roles/to be considered part of the long name:>
role InitialAttribVal[$val] {
has $.attr = $val;
}

0 comments on commit 605c16f

Please sign in to comment.