Permalink
Browse files

some more smartlinks updated

git-svn-id: http://svn.pugscode.org/pugs@26535 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
szabgab
szabgab committed Apr 28, 2009
1 parent d952620 commit 0477942e47d9bfd00c0e89446f179bb73fd27b55
@@ -2,6 +2,7 @@ use v6;
use Test;
+# L<S02/Lists>
# XXX -- Lists are not real datatypes, but I haven't found a better location
# for this test. See
# L<"http://www.nntp.perl.org/group/perl.perl6.language/22924">
@@ -2,6 +2,8 @@ use v6;
use Test;
+# L<S02/Mutable types/Array>
+
=begin description
Nested array tests; various interactions of arrayrefs, arrays, flattening and nesting.
@@ -2,14 +2,15 @@ use v6;
use Test;
+# L<S05/"Extensible metasyntax (C<< <...> >>)"/indicates a code assertion:>
+
=begin pod
This file was derived from the perl5 CPAN module Perl6::Rules,
version 0.3 (12 Apr 2004), file t/assert.t.
It has (hopefully) been, and should continue to be, updated to
be valid perl6.
-# L<S05/"Extensible metasyntax (C<< <...> >>)"/"A leading C<?{> or C<!{> indicates a code assertion:" >
=end pod
@@ -2,6 +2,8 @@ use v6;
use Test;
+# L<S05/Extensible metasyntax (C<< <...> >>)/matches any logical grapheme>
+
=begin pod
This file was derived from the perl5 CPAN module Perl6::Rules,
@@ -18,8 +20,6 @@ if !eval('("a" ~~ /a/)') {
skip_rest "skipped tests - rules support appears to be missing";
} else {
-# L<S05/Extensible metasyntax (C<< <...> >>)/matches any logical grapheme>
-
my $unichar = "\c[GREEK CAPITAL LETTER ALPHA]";
my $combchar = "\c[LATIN CAPITAL LETTER A]\c[COMBINING ACUTE ACCENT]";
@@ -1,5 +1,9 @@
use v6;
use Test;
+
+# L<S06/Parameters and arguments>
+# TODO: better smart-linking
+
plan 9;
{
@@ -1,5 +1,8 @@
use v6;
+# L<S06/Parameters and arguments>
+# TODO: better smart-linking
+
use Test;
plan 3;
@@ -2,14 +2,14 @@ use v6;
use Test;
+# L<S06/List parameters/Slurpy parameters follow any required>
+
=begin pod
=head1 List parameter test
These tests are the testing for "List paameters" section of Synopsis 06
-L<S06/List parameters/Slurpy parameters follow any required>
-
You might also be interested in the thread Calling positionals by name in
presence of a slurpy hash" on p6l started by Ingo
Blechschmidt L<http://www.nntp.perl.org/group/perl.perl6.language/22883>
@@ -1,6 +1,8 @@
use v6;
use Test;
+# L<S06/List parameters/Slurpy parameters>
+
plan 14;
sub xelems(*@args) { @args.elems }
View
@@ -1,8 +1,9 @@
use v6;
-
use Test;
+# L<S02/"Built-In Data Types">
+
plan 33;
=begin description
@@ -13,7 +14,6 @@ See L<S02/"Built-in Data Types"> for more information about Code, Routine, Sub,
=end description
-# See L<S02/"Built-in Data Types">
# Quoting A06:
# Code
# ____________|________________
View
@@ -4,7 +4,7 @@ use Test;
plan 2;
-# L<S12/Classes/"class or type variable using the :: type sigil">
+# L<S12/Classes/"class or type name using">
# TODO: move that to t/spec/ as well
BEGIN { @*INC.unshift('t/oo/class/TestFiles'); }
@@ -13,7 +13,7 @@ Basic parameterized role tests, see L<S14/Roles>
#?pugs emit skip_rest('parameterized roles'); exit;
#?pugs emit =begin SKIP
-# L<S14/Roles/to be considered part of the long name:>
+# L<S14/Roles/may be parameterized>
# Some basic arity-based selection tests.
role AritySelection {
@@ -15,7 +15,7 @@ Might need some more review and love --moritz
#?pugs emit skip_rest('parameterized roles'); exit;
#?pugs emit =begin SKIP
-# L<S14/Roles/to be considered part of the long name:>
+# L<S14/Roles/may be parameterized>
role InitialAttribVal[$val] {
has $.attr = $val;
}
@@ -50,7 +50,7 @@ ok $b.^does(InitialAttribVal[23]),
-# L<S14/Roles/A role's main type is generic by default>
+# L<S14/Parametric Roles/main type is generic by default>
role InitialAttribType[::vartype] {
method hi(vartype $foo) { 42 }
}

0 comments on commit 0477942

Please sign in to comment.