Permalink
Browse files

[t/spec] fix more smartlinks

git-svn-id: http://svn.pugscode.org/pugs@30087 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 82332a3 commit b8d99dd706f79c7ad9723d7c876746738203d2ad moritz committed Mar 15, 2010
@@ -14,7 +14,7 @@ plan 4;
is %h.keys.join, 'a', '... and the right one is gone';
}
-# L<S32/Containers/KeyWeight>
+# L<S32::Containers/KeyWeight>
{
my %h is KeyWeight;
@@ -208,7 +208,7 @@ ok(%fellowship<dwarf>.notdef, "dwarf arg was not given");
dies_ok { renames(:x(23)) }, 'old name is not available';
}
-# L<06/Parameters and arguments/"A signature containing a name collision">
+# L<S06/Parameters and arguments/"A signature containing a name collision">
eval_dies_ok 'sub rt68086( $a, $a ) { }', 'two sub params with the same name';
View
@@ -4,7 +4,7 @@ plan *;
# Very basic enum tests
-# L<S12/Enums/values are specified as a list>
+# L<S12/Enumerations/values are specified as a list>
enum Day <Sun Mon Tue Wed Thu Fri Sat>;
{
@@ -80,7 +80,7 @@ my Color $c2 = white;
is($c1, 0, 'can assign enum value to typed variable with short name');
dies_ok({ my Color $c3 = "for the fail" }, 'enum as a type enforces checks');
-# L<S12/Enums/"Like type names, enum names are parsed as standalone tokens">
+# L<S12/Enumerations/"Like type names, enum names are parsed as standalone tokens">
# conflict between subs and enums
{
my sub white { 'sub' };
@@ -89,7 +89,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/Enums/"define a .pick method">
+# L<S12/Enumerations/"define a .pick method">
{
lives_ok { my Color $k = Color.pick }, 'Color.pick assigns to Color var';
isa_ok Color.pick, Color.pick.WHAT, 'Color.pick.isa';
View
@@ -8,12 +8,12 @@ plan *;
=begin description
-Enum tests from L<S12/Enums>
+Enum tests from L<S12/Enumerations>
=end description
#?pugs 999 skip
-# L<S12/Enums/values are specified as a list>
+# L<S12/Enumerations/values are specified as a list>
enum day <Sun Mon Tue Wed Thu Fri Sat>;
ok day ne "", 'enum itself stringififes';
@@ -44,7 +44,7 @@ sub test_stuff($x) {
{
my $x = 1;
is $x, 1, "basic sanity (1)";
- # L<S12/Enums/has the right semantics mixed in:>
+ # L<S12/Enumerations/has the right semantics mixed in:>
ok $x does day(Tue), "basic enum mixing worked (1-1)";
test_stuff($x);
}
@@ -54,7 +54,7 @@ sub test_stuff($x) {
{
my $x = 2;
is $x, 2, "basic sanity (2)";
- # L<S12/Enums/or pseudo-hash form:>
+ # L<S12/Enumerations/or pseudo-hash form:>
ok $x does day<Tue>, "basic enum mixing worked (2-1)";
test_stuff($x);
}
@@ -63,7 +63,7 @@ sub test_stuff($x) {
{
my $x = 3;
is $x, 3, "basic sanity (3)";
- # L<S12/Enums/is the same as>
+ # L<S12/Enumerations/is the same as>
ok $x does day::Tue, "basic enum mixing worked (3-1)";
test_stuff($x);
}
@@ -73,7 +73,7 @@ sub test_stuff($x) {
{
my $x = 4;
is $x, 4, "basic sanity (4)";
- # L<S12/Enums/which is short for something like:>
+ # L<S12/Enumerations/which is short for something like:>
ok $x does day, "basic enum mixing worked (4-0)";
ok $x.day = &day::("Tue"), "basic enum mixing worked (4-1)";
test_stuff($x);
View
@@ -2,7 +2,7 @@ use v6;
use Test;
plan 50;
-# L<S32::Numeric/Num/"=item abs">
+# L<S32::Numeric/Numeric/"=item abs">
=begin pod
View
@@ -2,7 +2,7 @@ use v6;
use Test;
plan 59;
-# L<S32::Numeric/Num/"=item exp">
+# L<S32::Numeric/Numeric/"=item exp">
=begin pod
View
@@ -2,8 +2,8 @@ use v6;
use Test;
plan 82;
-# L<S32::Numeric/Num/"=item truncate">
-# truncate and int() are synonynms.
+# L<S32::Numeric/Real/=item truncate>
+# truncate and .Int are synonynms.
# Possibly more tests for truncate should be added here, too.
=begin pod
@@ -25,23 +25,23 @@ isa_ok( eval((-0).perl), Int, 'eval -0.perl is Int' );
is( eval((-0).perl), -0, 'eval -0.perl is 0' );
is((-1).Int, -1, "(-1).Int is -1");
-is(0.Int, 0, "int(0) is 0");
-is(1.Int, 1, "int(1) is 1");
-is(3.14159265.Int, 3, "int(3.14159265) is 3");
-is((-3.14159265).Int, -3, "int(-3.14159265) is -3");
-
-is(0.999.Int, 0, "int(0.999) is 0");
-is(0.51.Int, 0, "int(0.51) is 0");
-is(0.5.Int, 0, "int(0.5) is 0");
-is(0.49.Int, 0, "int(0.49) is 0");
-is(0.1.Int, 0, "int(0.1) is 0");
-isa_ok(0.1.Int, Int, 'int(0.1) returns an Int');
-
-is((-0.999).Int, 0, "int(-0.999) is 0");
-is((-0.51).Int, 0, "int(-0.51) is 0");
-is((-0.5).Int, 0, "int(-0.5) is 0");
-is((-0.49).Int, 0, "int(-0.49) is 0");
-is((-0.1).Int, 0, "int(-0.1) is 0");
+is(0.Int, 0, "0.Int is 0");
+is(1.Int, 1, "1.Int is 1");
+is(3.14159265.Int, 3, "3.14159265.Int is 3");
+is((-3.14159265).Int, -3, "(-3.14159265).Int is -3");
+
+is(0.999.Int, 0, "0.999.Int is 0");
+is(0.51.Int, 0, "0.51.Int is 0");
+is(0.5.Int, 0, "0.5.Int is 0");
+is(0.49.Int, 0, "0.49.Int is 0");
+is(0.1.Int, 0, "0.1.Int is 0");
+isa_ok(0.1.Int, Int, '0.1.Int returns an Int');
+
+is((-0.999).Int, 0, "(-0.999).Int is 0");
+is((-0.51).Int, 0, "(-0.51).Int is 0");
+is((-0.5).Int, 0, "(-0.5).Int is 0");
+is((-0.49).Int, 0, "(-0.49).Int is 0");
+is((-0.1).Int, 0, "(-0.1).Int is 0");
isa_ok((-0.1).Int, Int, 'int(-0.1) returns an Int');
is(1.999.Int, 1, "int(1.999) is 1");
View
@@ -14,7 +14,7 @@ my $log10_5 = 49471/70777;
my $log10_one_tenth = -1;
my $pi = 312689/99532;
-# L<S32::Numeric/Num/"=item log">
+# L<S32::Numeric/Numeric/"=item log">
is_approx(log(5), $log_5, 'got the log of 5');
is_approx(log(0.1), $log_one_tenth, 'got the log of 0.1');
@@ -32,7 +32,7 @@ is_approx(log("42", "23"), 1.19205119221557, 'log(42, 23) with strings');
is_approx(log(:x(0.1)), $log_one_tenth, 'got the log of 0.1');
}
-# L<S32::Numeric/Num/"=item log10">
+# L<S32::Numeric/Numeric/"=item log10">
is_approx(log10(5), $log10_5, 'got the log10 of 5');
is_approx(log10(0.1), $log10_one_tenth, 'got the log10 of 0.1');
View
@@ -2,7 +2,7 @@ use v6;
use Test;
plan 6;
-# L<S32::Numeric/Num/"Num provides a number of constants">
+# L<S32::Numeric/Numeric/"Numeric provides some constants">
=begin pod
View
@@ -10,7 +10,7 @@ Basic tests for the rand builtin
=end pod
-# L<S32::Numeric/Num/"=item rand">
+# L<S32::Numeric/Numeric/"=item rand">
ok(rand >= 0, 'rand returns numbers greater than or equal to 0');
ok(rand < 1, 'rand returns numbers less than 1');
@@ -28,7 +28,7 @@ test_rand_range(5);
test_rand_range(7);
test_rand_range(11);
-# L<S32::Numeric/Num/"=item srand">
+# L<S32::Numeric/Real/"=item srand">
lives_ok { srand(1) }, 'srand(1) lives and parses';
View
@@ -4,7 +4,7 @@ use Test <plan ok>;
#?rakudo emit use Test;
plan 44;
-# L<S32::Numeric/Num/"=item roots">
+# L<S32::Numeric/Numeric/"=item roots">
sub approx($a, $b){
my ($x,$y);
View
@@ -2,10 +2,10 @@ use v6;
use Test;
plan 50;
-# L<S32::Numeric/Num/"=item round">
-# L<S32::Numeric/Num/"=item floor">
-# L<S32::Numeric/Num/"=item truncate">
-# L<S32::Numeric/Num/"=item ceiling">
+# L<S32::Numeric/Real/"=item round">
+# L<S32::Numeric/Real/"=item floor">
+# L<S32::Numeric/Real/"=item truncate">
+# L<S32::Numeric/Real/"=item ceiling">
=begin pod
View
@@ -2,7 +2,7 @@ use v6;
use Test;
plan 42;
-# L<S32::Numeric/Num/"=item sign">
+# L<S32::Numeric/Real/"=item sign">
=begin pod
View
@@ -2,7 +2,7 @@ use v6;
use Test;
plan 24;
-# L<S32::Numeric/Num/"=item sqrt">
+# L<S32::Numeric/Real/"=item sqrt">
=begin pod
View
@@ -4,7 +4,7 @@ use Test;
plan *;
-# L<S32::Numeric/Num/=item cis>
+# L<S32::Numeric/Numeric/=item cis>
my $pi = 312689/99532;
{
@@ -22,8 +22,8 @@ my $pi = 312689/99532;
}
# Test that 1.unpolar == cis
-# L<S32::Numeric/Num/=item cis>
-# L<S32::Numeric/Num/=item unpolar>
+# L<S32::Numeric/Numeric/=item cis>
+# L<S32::Numeric/Numeric/=item unpolar>
{
for 1...20 -> $i {
@@ -35,8 +35,8 @@ my $pi = 312689/99532;
}
}
-# L<S32::Numeric/Num/=item abs>
-# L<S32::Numeric/Num/=item unpolar>
+# L<S32::Numeric/Numeric/=item abs>
+# L<S32::Numeric/Numeric/=item unpolar>
#
# Test that unpolar() doesn't change the absolute value
@@ -52,7 +52,7 @@ my $pi = 312689/99532;
}
}
-# L<S32::Numeric/Num/=item unpolar>
+# L<S32::Numeric/Numeric/=item unpolar>
{
# Basic tests for unpolar()
my $s = 2 * sqrt(2);
View
@@ -27,7 +27,6 @@ plan *;
our $GLOBAL;
-# L<S32::Basics/Scalar/=item undef>
# L<S32::Basics/Mu/=item defined>
ok(Mu === Mu, "Mu is equal to Mu");

0 comments on commit b8d99dd

Please sign in to comment.