Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fix a lot of smartlinks in S02; some I broke and some bitrotten by va…

…rious spec edits
  • Loading branch information...
commit 0b24db8b4f83cb76cac998a71391013566af6e4b 1 parent b059fe5
@diakopter diakopter authored
View
2  S02-builtin_data_types/declare.t
@@ -6,7 +6,7 @@ use Test;
plan 84;
-# L<S02/"Built-In Data Types"/"Built-in object types start with an uppercase letter">
+# L<S02/"Built-in Type Conventions"/"Built-in object types start with an uppercase letter">
# immutable types (e.g. Int, Num, Complex, Rat, Str, Bit, Regex, Set, Block, List)
View
2  S02-builtin_data_types/fatrat.t
@@ -4,7 +4,7 @@ use Test;
plan 1;
-#L<S02/Built-In Data Types/For applications that really need arbitrary precision>
+#L<S02/The Num and Rat Types/For applications that really need arbitrary precision>
{
my $fatty := FatRat.new(9,10);
isa_ok( $fatty, FatRat);
View
2  S02-builtin_data_types/infinity.t
@@ -2,7 +2,7 @@ use v6;
use Test;
plan 13;
-# L<S02/"Built-In Data Types" /Perl 6 should by default make standard IEEE floating point concepts visible>
+# L<S02/"Infinity and NaN" /Perl 6 by default makes standard IEEE floating point concepts visible>
{
my $x = Inf;
View
2  S02-builtin_data_types/keyhash.t
@@ -7,7 +7,7 @@ sub showkh($h) {
$h.keys.sort.map({ $^k ~ ':' ~ $h{$^k} }).join(' ')
}
-# L<S02/Mutable types/"A KeyHash differs from a normal Hash">
+# L<S02/Mutable types/"The KeyHash role differs from a normal Associative hash">
# untyped KeyHash
{
View
1  S02-builtin_data_types/keyweight.t
@@ -4,6 +4,7 @@ plan 8;
#?rakudo emit class FatRat { method new($x, $y) { Rat.new($x, $y) } }; # FatRat NYI, so we fake it with Rat
+# the below smartlink is broken; KeyWeight apparently is no longer specced
# L<S02/Mutable types/KeyWeight>
{
View
2  S02-builtin_data_types/nan.t
@@ -6,7 +6,7 @@ plan 19;
# Undeterminate Math results
# see L<"http://mathworld.wolfram.com/Indeterminate.html">
-# L<S02/"Built-In Data Types" /Perl 6 should by default make standard IEEE floating point concepts visible>
+# L<S02/"Infinity and NaN" /Perl 6 by default makes standard IEEE floating point concepts visible>
is 0 * Inf , NaN, "0 * Inf";
is Inf / Inf, NaN, "Inf / Inf";
View
12 S02-builtin_data_types/num.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-#L<S02/Built-In Data Types/Perl intrinsically supports big integers>
+#L<S02/The Num and Rat Types/Perl 6 intrinsically supports big integers>
plan 62;
@@ -34,7 +34,7 @@ is_approx( eval((-1.1).perl), -1.1, 'eval -1.1.Num.perl is -1.1' );
is($a, "-1", '-1 stringification works');
}
-#L<S02/Built-In Data Types/Rat supports arbitrary precision rational arithmetic>
+#L<S02/The Num and Rat Types/Rat supports extended precision rational arithmetic>
{
my $a = 1 / 1;
isa_ok($a, Rat);
@@ -101,7 +101,7 @@ is_approx( eval((-1.1).perl), -1.1, 'eval -1.1.Num.perl is -1.1' );
is($a, "10010", '10.01e3 stringification works');
}
-#L<S02/Built-In Data Types/Perl intrinsically supports big integers>
+#L<S02/The Num and Rat Types/Perl 6 intrinsically supports big integers>
{
my $a = 0b100; "$a";
@@ -130,7 +130,7 @@ is_approx( eval((-1.1).perl), -1.1, 'eval -1.1.Num.perl is -1.1' );
my $a = -1; "$a";
ok($a + 1 == 0, 'basic addition with negative numbers works'); # parsing bug
}
-#L<S02/Built-In Data Types/Rat supports arbitrary precision rational arithmetic>
+#L<S02/The Num and Rat Types/Rat supports extended precision rational arithmetic>
isa_ok(1 / 1, Rat);
@@ -146,7 +146,7 @@ isa_ok(1 / 1, Rat);
ok($a == 10.0, 'trailing zeros compare correctly');
}
-#L<S02/Built-In Data Types/Perl intrinsically supports big integers>
+#L<S02/The Num and Rat Types/Perl 6 intrinsically supports big integers>
{
my $a = "1.01";
@@ -154,7 +154,7 @@ isa_ok(1 / 1, Rat);
is($a.Int, 1, "1.01 intifies to 1");
}
-#L<S02/Built-In Data Types/Num may support arbitrary-precision floating-point>
+#L<S02/The Num and Rat Types/may be bound to an arbitrary>
{
my $a = "0d0101";
View
2  S02-builtin_data_types/set.t
@@ -64,7 +64,7 @@ sub showset($s) { $s.keys.sort.join(' ') }
dies_ok { %s = a => True, b => True }, "Can't assign to a %var implemented by Set";
}
-# L<S02/Hyper operators/'unordered type'>
+# L<S03/Hyper operators/'unordered type'>
{
is showset(set(1, 2, 3) »+» 6), '7 8 9', 'Set »+» Int';
View
4 S02-builtin_data_types/type.t
@@ -7,7 +7,7 @@ Basic tests about variables having built-in types assigned
=end description
-# L<S02/"Built-In Data Types"/"A variable's type is a constraint indicating what sorts">
+# L<S02/"Types as Constraints"/"A variable's type is a constraint indicating what sorts">
plan 55;
@@ -41,7 +41,7 @@ my $baz of Int;
is(($baz = 42), 42, 'of Int is an integer');
}
-# L<S02/Built-In Data Types/Variables with native types do not support undefinedness>
+# L<S02/Variables Containing Undefined Values/Variables with native types do not support undefinedness>
#?rakudo skip 'native types (causes false positives if marked with todo)'
{
eval_lives_ok('my int $alpha = 1', 'Has native type int');
View
4 S02-builtin_data_types/unicode.t
@@ -3,7 +3,7 @@ use v6;
use Test;
plan 17;
-#L<S02/"Built-In Data Types"/".bytes, .codes or .graphs">
+#L<S02/"Methods on Arrays"/".bytes, .codes or .graphs">
# LATIN CAPITAL LETTER A, COMBINING GRAVE ACCENT
my Str $u = "\x[0041,0300]";
@@ -26,7 +26,7 @@ is $u.chars, 1, '.chars defaults to .graphs';
is $rt65170.chars, 1, '.chars defaults to .graphs (3)';
}
-#L<S02/"Built-In Data Types"/"coerce to the proper units">
+#L<S02/"Units of Position Arguments"/"coerce to the proper units">
$u = "\x[41,
E1,
41, 0300,
View
12 S02-builtin_data_types/whatever.t
@@ -3,7 +3,7 @@ use Test;
plan 73;
-# L<S02/Built-In Data Types/"The * character as a standalone term captures the notion of">
+# L<S02/The Whatever Object/"The * character as a standalone term captures the notion of">
# L<S02/Native types/"If any native type is explicitly initialized to">
{
@@ -16,7 +16,7 @@ plan 73;
ok *.WHAT === Whatever, '*.WHAT does not autocurry';
}
-# L<S02/Built-In Data Types/"Most of the built-in numeric operators">
+# L<S02/Currying of Unary and Binary Operators/"Most of the built-in numeric operators">
my $x = *-1;
lives_ok { $x.WHAT }, '(*-1).WHAT lives';
@@ -87,7 +87,7 @@ isa_ok (1..*-1)(10), Range, '(1..*-1)(10) is a Range';
is @x1.join('|'), '1|2|3|4', '+* in hash slice (RT 67450)';
}
-# L<S02/Built-In Data Types/are internally curried into closures of one or two
+# L<S02/Currying of Unary and Binary Operators/are internally curried into closures of one or two
# arguments>
{
my $c = * * *;
@@ -123,7 +123,7 @@ is (0,0,0,0,0,0) >>+>> ((1,2) xx *), <1 2 1 2 1 2>, 'xx * works';
ok not $rt68714(Any), '*.defined works (false)';
}
-# L<S02/Built-In Data Types/skip first two elements>
+# L<S02/The Whatever Object/skip first two elements>
{
# TODO: find out if this allowed for item assignment, or for list
# assignment only
@@ -135,7 +135,7 @@ is (0,0,0,0,0,0) >>+>> ((1,2) xx *), <1 2 1 2 1 2>, 'xx * works';
}
-# L<S02/Built-In Data Types/This rewrite happens after variables are looked up
+# L<S02/Currying of Unary and Binary Operators/This rewrite happens after variables are looked up
# in their lexical scope>
{
@@ -148,7 +148,7 @@ is (0,0,0,0,0,0) >>+>> ((1,2) xx *), <1 2 1 2 1 2>, 'xx * works';
}
}
-# L<S02/Built-In Data Types/This is only for operators that are not
+# L<S02/The .assuming Method/This is only for operators that are not
# Whatever-aware.>
{
multi sub infix:<quack>($x, $y) { "$x|$y" };
View
4 S02-lexical-conventions/unicode.t
@@ -107,13 +107,13 @@ is((do { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल
is f(ä => 3), 3, 'non-ASCII named arguments';
}
-# L<S02/Lexical Conventions/Perl can count Unicode line and paragraph separators>
+# L<S02/Unicode Semantics/Perl can count Unicode line and paragraph separators>
#?rakudo: todo 'PS does not work to separate lines'
#?niecza skip 'PS does not work to separate lines'
eval_lives_ok "\{ 1 \} \x2029 \{ 1 \}", "Unicode 2029 can terminate lines";
-# L<S02/Lexical Conventions/If a character is already used>
+# L<S02/Bracketing Characters/If a character is already used>
eval_lives_ok "q\x298d test \x298e", "Unicode open-298d maps to close-298e";
eval_lives_ok "q\x301d test \x301e", "Unicode open-301d maps to close-301e";
View
2  S02-whitespace_and_comments/begin_end_pod.t
@@ -12,7 +12,7 @@ ok 1, "Before the =END Block";
=begin END
-ok 2, "Afer the end block";
+ok 2, "After the end block";
# vim: ft=perl6
View
20 S02-whitespace_and_comments/comments.t
@@ -6,7 +6,7 @@ use Test;
plan 46;
-# L<S02/"Whitespace and Comments"/"Embedded comments"
+# L<S02/"Embedded comments"/"Embedded comments"
# "#" plus any bracket>
{
@@ -58,7 +58,7 @@ plan 46;
is(610 #`﴾ paci ﴿ +987, 1597, 'embedded comment with #`﴾﴿');
}
-# L<S02/"Whitespace and Comments"/"no space" between "#" and bracket>
+# L<S02/"Embedded Comments"/"no space" between "#" and bracket>
{
ok !eval("3 * #` (invalid comment) 2"), "no space allowed between '#`' and '('";
@@ -68,7 +68,7 @@ plan 46;
}
-# L<S02/"Whitespace and Comments"/"closed by" "same number of"
+# L<S02/"User-selected Brackets"/"closed by" "same number of"
# "closing brackets">
{
@@ -84,7 +84,7 @@ plan 46;
is(6 * #`<< > >> 6, 36, '#`<< > >>');
}
-# L<S02/"Whitespace and Comments"/"Brackets may be nested">
+# L<S02/"Embedded Comments"/"Brackets may be nested">
#?rakudo skip 'nested brackets'
{
is 3, #`(
@@ -124,7 +124,7 @@ plan 46;
'single line comment cannot correctly nested within multiline';
}
-# L<S02/"Whitespace and Comments"/"Counting of nested brackets"
+# L<S02/"User-selected Brackets"/"Counting of nested brackets"
# "applies only to" "pairs of brackets of the same length">
#?rakudo skip 'nested parens and braces'
{
@@ -147,14 +147,14 @@ plan 46;
'#+bracket at start of line is an error';
}
-# L<S02/Whitespace and Comments/"comment may not contain an unspace">
+# L<S02/Comments in Unspaces and vice versa/"comment may not contain an unspace">
{
my $a;
ok !eval '$a = #`\ (comment) 32', "comments can't contain unspace";
ok !$a.defined, '$a remains undefined';
}
-# L<S02/Whitespace and Comments/"# may not be used as"
+# L<S02/Single-line Comments/"# may not be used as"
# delimiter quoting>
{
my $a;
@@ -166,13 +166,13 @@ plan 46;
ok !$a.defined, "``#'' can't be used as quote delimiters";
}
-# L<S02/Whitespace and Comments/"single-line comments"
+# L<S02/Single-line Comments/"single-line comments"
{
# ticket http://rt.perl.org/rt3/Ticket/Display.html?id=70752
eval_lives_ok "#=======\n#=======\nuse v6;", "pragma use after single line comments";
}
-# L<S02/"Whitespace and Comments"/POD sections may be>
+# L<S02/Multiline Comments/POD sections may be>
=begin oppsFIXME
{
# needs to be wrapped in eval so it can be properly isolated
@@ -191,7 +191,7 @@ a "=cut".
is $a, 'bar', '=begin comment without =cut works';
}
-# L<S02/Whitespace and Comments/"single paragraph comments"
+# L<S02/Multiline Comments/"single paragraph comments"
# =for comment>
{
View
4 S02-whitespace_and_comments/unicode-whitespace.t
@@ -4,7 +4,7 @@ use Test;
plan 52;
-# L<S02/"Lexical Conventions"/"Unicode horizontal whitespace">
+# L<S02/"Unicode Semantics"/"Unicode horizontal whitespace">
is(eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
@@ -131,7 +131,7 @@ multi foo($x) { $x }
'), "b", "MEDIUM MATHEMATICAL SPACE");
is(eval('
-my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
+my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "IDEOGRAPHIC SPACE");
#Long dot whitespace tests
View
8 S02-whitespace_and_comments/unspace.t
@@ -6,7 +6,7 @@ use Test;
plan 75;
-# L<S02/"Whitespace and Comments"/This is known as the "unspace">
+# L<S02/"Unspaces"/This is known as the "unspace">
ok(4\ .sqrt == 2, 'unspace with numbers');
@@ -209,7 +209,7 @@ eval_dies_ok('sub f { 3 } sub g { 3 }', 'semicolon or newline required between b
is((xyzzy { @^x }\ : 1, 2, 3), (1, 2, 3), 'unspace then colon following arg block');
}
-# L<S02/"Whitespace and Comments"/"natural conflict between postfix operators and infix operators">
+# L<S02/"Optional Whitespace and Exclusions"/"natural conflict between postfix operators and infix operators">
#This creates syntactic ambiguity between
# ($n) ++ ($m)
# ($n++) $m
@@ -270,11 +270,11 @@ eval_dies_ok('sub f { 3 } sub g { 3 }', 'semicolon or newline required between b
is($n\ .++, 1, 'postfix unspace');
is($n, 2, 'check $n');
- # L<S02/"Lexical Conventions"/"U+301D codepoint has two closing alternatives">
+ # L<S02/"Bracketing Characters"/"U+301D codepoint has two closing alternatives">
is((foo\#`〝 comment 〞.id), 'a', 'unspace with U+301D/U+301E comment');
eval_dies_ok('foo\#`〝 comment 〟.id', 'unspace with U+301D/U+301F is invalid');
- # L<S02/"Whitespace and Comments"/".123">
+ # L<S02/"Implicit Topical Method Calls"/".123">
# .123 is equal to 0.123
is ( .123), 0.123, ' .123 is equal to 0.123';
View
2  S06-signature/sub-ref.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-# L<S02/"Built-In Data Types">
+# L<S02/"Built-In Data Types"/Perl 6>
plan 34;
Please sign in to comment.
Something went wrong with that request. Please try again.