Skip to content

Commit cd6aeac

Browse files
colomoncolomon
committed
Get rid of a lot of dead weight from the trig test harness.
1 parent d05d08a commit cd6aeac

File tree

16 files changed

+335
-370
lines changed

16 files changed

+335
-370
lines changed

‎S32-trig/atan2.t

Lines changed: 90 additions & 90 deletions
Large diffs are not rendered by default.

‎S32-trig/cos.t

Lines changed: 17 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -10,23 +10,22 @@ use TrigTestSupport;
1010

1111
# cos tests
1212

13-
my $base_list = (TrigTest::official_bases() xx *).flat;
1413
my $iter_count = 0;
1514
for TrigTest::cosines() -> $angle
1615
{
1716

1817
my $desired-result = $angle.result;
1918

2019
# Num.cos tests -- very thorough
21-
is_approx($angle.num(Radians).cos, $desired-result,
22-
"Num.cos - {$angle.num(Radians)}");
20+
is_approx($angle.num().cos, $desired-result,
21+
"Num.cos - {$angle.num()}");
2322

2423
# Complex.cos tests -- also very thorough
25-
my Complex $zp0 = $angle.complex(0.0, Radians);
24+
my Complex $zp0 = $angle.num + 0.0i;
2625
my Complex $sz0 = $desired-result + 0i;
27-
my Complex $zp1 = $angle.complex(1.0, Radians);
26+
my Complex $zp1 = $angle.num + 1.0i;
2827
my Complex $sz1 = { (exp($_ * 1i) + exp(-$_ * 1i)) / 2 }($zp1);
29-
my Complex $zp2 = $angle.complex(2.0, Radians);
28+
my Complex $zp2 = $angle.num + 2.0i;
3029
my Complex $sz2 = { (exp($_ * 1i) + exp(-$_ * 1i)) / 2 }($zp2);
3130

3231
is_approx($zp0.cos, $sz0, "Complex.cos - $zp0");
@@ -47,7 +46,7 @@ is_approx(cos((-1.57079632680947).Rat(1e-9)), 0, "cos(Rat) - -1.57079632680947")
4746
is_approx(cos(:x((-1.04719755120631).Rat(1e-9))), 0.5, "cos(:x(Rat)) - -1.04719755120631");
4847

4948
# Complex tests
50-
is_approx(cos((-0.785398163397448 + 2i).Complex), 2.66027408529666 + 2.56457758882432i, "cos(Complex) - -0.785398163397448 + 2i");
49+
is_approx(cos((-0.785398163404734 + 2i).Complex), 2.66027408529666 + 2.56457758882432i, "cos(Complex) - -0.785398163404734 + 2i");
5150
is_approx(cos(:x((0 + 2i).Complex)), 3.76219569108363 + -0i, "cos(:x(Complex)) - 0 + 2i");
5251

5352
# Str tests
@@ -70,9 +69,9 @@ is_approx(cos(:x((2.3561944902142).Str)), -0.707106781186548, "cos(:x(Str)) - 2.
7069
}
7170
}
7271

73-
is_approx(NotComplex.new(3.14159265358979 + 2i).cos, -3.76219569108363 + 1.05700044699469e-10i, "NotComplex.cos - 3.14159265358979 + 2i");
74-
is_approx(cos(NotComplex.new(3.92699081698724 + 2i)), -2.66027408521913 + 2.56457758889906i, "cos(NotComplex) - 3.92699081698724 + 2i");
75-
is_approx(cos(:x(NotComplex.new(4.71238898038469 + 2i))), 1.64464647771967e-10 + 3.62686040784702i, "cos(:x(NotComplex)) - 4.71238898038469 + 2i");
72+
is_approx(NotComplex.new(3.14159265361894 + 2i).cos, -3.76219569108363 + 1.05698434049896e-10i, "NotComplex.cos - 3.14159265361894 + 2i");
73+
is_approx(cos(NotComplex.new(3.92699081702367 + 2i)), -2.66027408521913 + 2.56457758889906i, "cos(NotComplex) - 3.92699081702367 + 2i");
74+
is_approx(cos(:x(NotComplex.new(4.7123889804284 + 2i))), 1.64464647771967e-10 + 3.62686040784702i, "cos(:x(NotComplex)) - 4.7123889804284 + 2i");
7675
}
7776

7877
{
@@ -105,14 +104,14 @@ for TrigTest::cosines() -> $angle
105104

106105
# Num.acos tests -- thorough
107106
is_approx($desired-result.Num.acos.cos, $desired-result,
108-
"Num.acos - {$angle.num(Radians)}");
107+
"Num.acos - {$angle.num()}");
109108

110109
# Num.acos(Complex) tests -- thorough
111110
for ($desired-result + 0i, $desired-result + .5i, $desired-result + 2i) -> $z {
112111
is_approx(cos(acos($z)), $z,
113-
"acos(Complex) - {$angle.num(Radians)}");
112+
"acos(Complex) - {$angle.num()}");
114113
is_approx($z.acos.cos, $z,
115-
"Complex.acos - {$angle.num(Radians)}");
114+
"Complex.acos - {$angle.num()}");
116115
}
117116
}
118117

@@ -126,18 +125,18 @@ is_approx(acos((0.707106781186548).Rat(1e-9)), 0.785398163404734, "acos(Rat) - 0
126125
is_approx(acos(:x((0.707106781186548).Rat(1e-9))), 0.785398163404734, "acos(:x(Rat)) - 0.785398163404734");
127126

128127
# Complex tests
129-
is_approx(acos((0.785398163404734 + 2i).Complex), 1.22945740853542 - 1.49709293866352i, "acos(Complex) - 1.22945740853542 - 1.49709293866352i");
130-
is_approx(acos(:x((0.785398163404734 + 2i).Complex)), 1.22945740853542 - 1.49709293866352i, "acos(:x(Complex)) - 1.22945740853542 - 1.49709293866352i");
128+
is_approx(acos((0.785398163404734 + 2i).Complex), 1.22945740853541 - 1.49709293866352i, "acos(Complex) - 1.22945740853541 - 1.49709293866352i");
129+
is_approx(acos(:x((0.785398163404734 + 2i).Complex)), 1.22945740853541 - 1.49709293866352i, "acos(:x(Complex)) - 1.22945740853541 - 1.49709293866352i");
131130

132131
# Str tests
133132
is_approx(((0.707106781186548).Str).acos, 0.785398163404734, "Str.acos - 0.785398163404734");
134133
is_approx(acos((0.707106781186548).Str), 0.785398163404734, "acos(Str) - 0.785398163404734");
135134
is_approx(acos(:x((0.707106781186548).Str)), 0.785398163404734, "acos(:x(Str)) - 0.785398163404734");
136135

137136
# NotComplex tests
138-
is_approx((NotComplex.new(0.785398163404734 + 2i)).acos, 1.22945740853542 - 1.49709293866352i, "NotComplex.acos - 1.22945740853542 - 1.49709293866352i");
139-
is_approx(acos(NotComplex.new(0.785398163404734 + 2i)), 1.22945740853542 - 1.49709293866352i, "acos(NotComplex) - 1.22945740853542 - 1.49709293866352i");
140-
is_approx(acos(:x(NotComplex.new(0.785398163404734 + 2i))), 1.22945740853542 - 1.49709293866352i, "acos(:x(NotComplex)) - 1.22945740853542 - 1.49709293866352i");
137+
is_approx((NotComplex.new(0.785398163404734 + 2i)).acos, 1.22945740853541 - 1.49709293866352i, "NotComplex.acos - 1.22945740853541 - 1.49709293866352i");
138+
is_approx(acos(NotComplex.new(0.785398163404734 + 2i)), 1.22945740853541 - 1.49709293866352i, "acos(NotComplex) - 1.22945740853541 - 1.49709293866352i");
139+
is_approx(acos(:x(NotComplex.new(0.785398163404734 + 2i))), 1.22945740853541 - 1.49709293866352i, "acos(:x(NotComplex)) - 1.22945740853541 - 1.49709293866352i");
141140

142141
# DifferentReal tests
143142
is_approx((DifferentReal.new(0.707106781186548)).acos, 0.785398163404734, "DifferentReal.acos - 0.785398163404734");

‎S32-trig/cosec.t

Lines changed: 17 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -10,23 +10,22 @@ use TrigTestSupport;
1010

1111
# cosec tests
1212

13-
my $base_list = (TrigTest::official_bases() xx *).flat;
1413
my $iter_count = 0;
1514
for TrigTest::sines() -> $angle
1615
{
17-
next if abs(sin($angle.num(Radians))) < 1e-6;
18-
my $desired-result = 1.0 / sin($angle.num(Radians));
16+
next if abs(sin($angle.num())) < 1e-6;
17+
my $desired-result = 1.0 / sin($angle.num());
1918

2019
# Num.cosec tests -- very thorough
21-
is_approx($angle.num(Radians).cosec, $desired-result,
22-
"Num.cosec - {$angle.num(Radians)}");
20+
is_approx($angle.num().cosec, $desired-result,
21+
"Num.cosec - {$angle.num()}");
2322

2423
# Complex.cosec tests -- also very thorough
25-
my Complex $zp0 = $angle.complex(0.0, Radians);
24+
my Complex $zp0 = $angle.num + 0.0i;
2625
my Complex $sz0 = $desired-result + 0i;
27-
my Complex $zp1 = $angle.complex(1.0, Radians);
26+
my Complex $zp1 = $angle.num + 1.0i;
2827
my Complex $sz1 = { 1.0 / sin($_) }($zp1);
29-
my Complex $zp2 = $angle.complex(2.0, Radians);
28+
my Complex $zp2 = $angle.num + 2.0i;
3029
my Complex $sz2 = { 1.0 / sin($_) }($zp2);
3130

3231
is_approx($zp0.cosec, $sz0, "Complex.cosec - $zp0");
@@ -47,8 +46,8 @@ is_approx(cosec((0.785398163404734).Rat(1e-9)), 1.41421356236279, "cosec(Rat) -
4746
is_approx(cosec(:x((1.57079632680947).Rat(1e-9))), 1, "cosec(:x(Rat)) - 1.57079632680947");
4847

4948
# Complex tests
50-
is_approx(cosec((2.35619449019234 + 2i).Complex), 0.194833118732865 + 0.187824499978879i, "cosec(Complex) - 2.35619449019234 + 2i");
51-
is_approx(cosec(:x((3.92699081698724 + 2i).Complex)), -0.194833118743389 + 0.187824499967129i, "cosec(:x(Complex)) - 3.92699081698724 + 2i");
49+
is_approx(cosec((2.3561944902142 + 2i).Complex), 0.194833118732865 + 0.187824499978879i, "cosec(Complex) - 2.3561944902142 + 2i");
50+
is_approx(cosec(:x((3.92699081702367 + 2i).Complex)), -0.194833118743389 + 0.187824499967129i, "cosec(:x(Complex)) - 3.92699081702367 + 2i");
5251

5352
# Str tests
5453
is_approx((4.7123889804284).Str.cosec, -1, "Str.cosec - 4.7123889804284");
@@ -70,9 +69,9 @@ is_approx(cosec(:x((6.80678408284103).Str)), 1.99999999978126, "cosec(:x(Str)) -
7069
}
7170
}
7271

73-
is_approx(NotComplex.new(10.2101761241668 + 2i).cosec, -0.194833118753914 + 0.18782449995538i, "NotComplex.cosec - 10.2101761241668 + 2i");
74-
is_approx(cosec(NotComplex.new(-3.92699081698724 + 2i)), 0.194833118743389 + 0.187824499967129i, "cosec(NotComplex) - -3.92699081698724 + 2i");
75-
is_approx(cosec(:x(NotComplex.new(-0.523598775598299 + 2i))), -0.140337325258517 - 0.234327511878805i, "cosec(:x(NotComplex)) - -0.523598775598299 + 2i");
72+
is_approx(NotComplex.new(10.2101761242615 + 2i).cosec, -0.194833118753914 + 0.18782449995538i, "NotComplex.cosec - 10.2101761242615 + 2i");
73+
is_approx(cosec(NotComplex.new(-3.92699081702367 + 2i)), 0.194833118743389 + 0.187824499967129i, "cosec(NotComplex) - -3.92699081702367 + 2i");
74+
is_approx(cosec(:x(NotComplex.new(-0.523598775603156 + 2i))), -0.140337325258517 - 0.234327511878805i, "cosec(:x(NotComplex)) - -0.523598775603156 + 2i");
7675
}
7776

7877
{
@@ -100,19 +99,19 @@ is_approx(cosec(:x((6.80678408284103).Str)), 1.99999999978126, "cosec(:x(Str)) -
10099

101100
for TrigTest::sines() -> $angle
102101
{
103-
next if abs(sin($angle.num(Radians))) < 1e-6;
104-
my $desired-result = 1.0 / sin($angle.num(Radians));
102+
next if abs(sin($angle.num())) < 1e-6;
103+
my $desired-result = 1.0 / sin($angle.num());
105104

106105
# Num.acosec tests -- thorough
107106
is_approx($desired-result.Num.acosec.cosec, $desired-result,
108-
"Num.acosec - {$angle.num(Radians)}");
107+
"Num.acosec - {$angle.num()}");
109108

110109
# Num.acosec(Complex) tests -- thorough
111110
for ($desired-result + 0i, $desired-result + .5i, $desired-result + 2i) -> $z {
112111
is_approx(cosec(acosec($z)), $z,
113-
"acosec(Complex) - {$angle.num(Radians)}");
112+
"acosec(Complex) - {$angle.num()}");
114113
is_approx($z.acosec.cosec, $z,
115-
"Complex.acosec - {$angle.num(Radians)}");
114+
"Complex.acosec - {$angle.num()}");
116115
}
117116
}
118117

‎S32-trig/cosech.t

Lines changed: 20 additions & 21 deletions
Original file line numberDiff line numberDiff line change
@@ -10,23 +10,22 @@ use TrigTestSupport;
1010

1111
# cosech tests
1212

13-
my $base_list = (TrigTest::official_bases() xx *).flat;
1413
my $iter_count = 0;
1514
for TrigTest::sines() -> $angle
1615
{
17-
next if abs(sinh($angle.num(Radians))) < 1e-6;
18-
my $desired-result = 1.0 / sinh($angle.num(Radians));
16+
next if abs(sinh($angle.num())) < 1e-6;
17+
my $desired-result = 1.0 / sinh($angle.num());
1918

2019
# Num.cosech tests -- very thorough
21-
is_approx($angle.num(Radians).cosech, $desired-result,
22-
"Num.cosech - {$angle.num(Radians)}");
20+
is_approx($angle.num().cosech, $desired-result,
21+
"Num.cosech - {$angle.num()}");
2322

2423
# Complex.cosech tests -- also very thorough
25-
my Complex $zp0 = $angle.complex(0.0, Radians);
24+
my Complex $zp0 = $angle.num + 0.0i;
2625
my Complex $sz0 = $desired-result + 0i;
27-
my Complex $zp1 = $angle.complex(1.0, Radians);
26+
my Complex $zp1 = $angle.num + 1.0i;
2827
my Complex $sz1 = { 1.0 / sinh($_) }($zp1);
29-
my Complex $zp2 = $angle.complex(2.0, Radians);
28+
my Complex $zp2 = $angle.num + 2.0i;
3029
my Complex $sz2 = { 1.0 / sinh($_) }($zp2);
3130

3231
is_approx($zp0.cosech, $sz0, "Complex.cosech - $zp0");
@@ -38,7 +37,7 @@ is(cosech(Inf), 0, "cosech(Inf) -");
3837
is(cosech(-Inf), "-0", "cosech(-Inf) -");
3938

4039
# Num tests
41-
is_approx(cosech((-6.28318530723787).Num), -0.00373489848806797, "cosech(Num) - -6.28318530723787");
40+
is_approx(cosech((-6.28318530723787).Num), -0.00373489848806798, "cosech(Num) - -6.28318530723787");
4241
is_approx(cosech(:x((-3.92699081702367).Num)), -0.0394210493494572, "cosech(:x(Num)) - -3.92699081702367");
4342

4443
# Rat tests
@@ -47,8 +46,8 @@ is_approx(cosech((0.523598775603156).Rat(1e-9)), 1.8253055746695, "cosech(Rat) -
4746
is_approx(cosech(:x((0.785398163404734).Rat(1e-9))), 1.15118387090806, "cosech(:x(Rat)) - 0.785398163404734");
4847

4948
# Complex tests
50-
is_approx(cosech((1.5707963267949 + 2i).Complex), -0.156411854193272 - 0.372638353746799i, "cosech(Complex) - 1.5707963267949 + 2i");
51-
is_approx(cosech(:x((2.35619449019234 + 2i).Complex)), -0.0772627459225851 - 0.171882832059526i, "cosech(:x(Complex)) - 2.35619449019234 + 2i");
49+
is_approx(cosech((1.57079632680947 + 2i).Complex), -0.156411854193272 - 0.372638353746799i, "cosech(Complex) - 1.57079632680947 + 2i");
50+
is_approx(cosech(:x((2.3561944902142 + 2i).Complex)), -0.0772627459225851 - 0.171882832059526i, "cosech(:x(Complex)) - 2.3561944902142 + 2i");
5251

5352
# Str tests
5453
is_approx((3.14159265361894).Str.cosech, 0.086589537527514, "Str.cosech - 3.14159265361894");
@@ -70,9 +69,9 @@ is_approx(cosech(:x((4.7123889804284).Str)), 0.0179680320529917, "cosech(:x(Str)
7069
}
7170
}
7271

73-
is_approx(NotComplex.new(5.49778714378214 + 2i).cosech, -0.00340879719539436 - 0.00744860766594804i, "NotComplex.cosech - 5.49778714378214 + 2i");
74-
is_approx(cosech(NotComplex.new(6.28318530717959 + 2i)), -0.00155424826436473 - 0.00339611810181237i, "cosech(NotComplex) - 6.28318530717959 + 2i");
75-
is_approx(cosech(:x(NotComplex.new(6.80678408277788 + 2i))), -0.000920717929196107 - 0.00201181030212346i, "cosech(:x(NotComplex)) - 6.80678408277788 + 2i");
72+
is_approx(NotComplex.new(5.49778714383314 + 2i).cosech, -0.00340879719539436 - 0.00744860766594804i, "NotComplex.cosech - 5.49778714383314 + 2i");
73+
is_approx(cosech(NotComplex.new(6.28318530723787 + 2i)), -0.00155424826436473 - 0.00339611810181237i, "cosech(NotComplex) - 6.28318530723787 + 2i");
74+
is_approx(cosech(:x(NotComplex.new(6.80678408284103 + 2i))), -0.000920717929196107 - 0.00201181030212346i, "cosech(:x(NotComplex)) - 6.80678408284103 + 2i");
7675
}
7776

7877
{
@@ -91,28 +90,28 @@ is_approx(cosech(:x((4.7123889804284).Str)), 0.0179680320529917, "cosech(:x(Str)
9190
}
9291

9392
is_approx(DifferentReal.new(10.2101761242615).cosech, 7.35879739979009e-05, "DifferentReal.cosech - 10.2101761242615");
94-
is_approx(cosech(DifferentReal.new(12.5663706144757)), 6.97468471168974e-06, "cosech(DifferentReal) - 12.5663706144757");
95-
is_approx(cosech(:x(DifferentReal.new(-6.28318530723787))), -0.00373489848806797, "cosech(:x(DifferentReal)) - -6.28318530723787");
93+
is_approx(cosech(DifferentReal.new(12.5663706144757)), 6.97468471168976e-06, "cosech(DifferentReal) - 12.5663706144757");
94+
is_approx(cosech(:x(DifferentReal.new(-6.28318530723787))), -0.00373489848806798, "cosech(:x(DifferentReal)) - -6.28318530723787");
9695
}
9796

9897

9998
# acosech tests
10099

101100
for TrigTest::sines() -> $angle
102101
{
103-
next if abs(sinh($angle.num(Radians))) < 1e-6;
104-
my $desired-result = 1.0 / sinh($angle.num(Radians));
102+
next if abs(sinh($angle.num())) < 1e-6;
103+
my $desired-result = 1.0 / sinh($angle.num());
105104

106105
# Num.acosech tests -- thorough
107106
is_approx($desired-result.Num.acosech.cosech, $desired-result,
108-
"Num.acosech - {$angle.num(Radians)}");
107+
"Num.acosech - {$angle.num()}");
109108

110109
# Num.acosech(Complex) tests -- thorough
111110
for ($desired-result + 0i, $desired-result + .5i, $desired-result + 2i) -> $z {
112111
is_approx(cosech(acosech($z)), $z,
113-
"acosech(Complex) - {$angle.num(Radians)}");
112+
"acosech(Complex) - {$angle.num()}");
114113
is_approx($z.acosech.cosech, $z,
115-
"Complex.acosech - {$angle.num(Radians)}");
114+
"Complex.acosech - {$angle.num()}");
116115
}
117116
}
118117

‎S32-trig/cosh.t

Lines changed: 13 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -10,23 +10,22 @@ use TrigTestSupport;
1010

1111
# cosh tests
1212

13-
my $base_list = (TrigTest::official_bases() xx *).flat;
1413
my $iter_count = 0;
1514
for TrigTest::coshes() -> $angle
1615
{
1716

1817
my $desired-result = $angle.result;
1918

2019
# Num.cosh tests -- very thorough
21-
is_approx($angle.num(Radians).cosh, $desired-result,
22-
"Num.cosh - {$angle.num(Radians)}");
20+
is_approx($angle.num().cosh, $desired-result,
21+
"Num.cosh - {$angle.num()}");
2322

2423
# Complex.cosh tests -- also very thorough
25-
my Complex $zp0 = $angle.complex(0.0, Radians);
24+
my Complex $zp0 = $angle.num + 0.0i;
2625
my Complex $sz0 = $desired-result + 0i;
27-
my Complex $zp1 = $angle.complex(1.0, Radians);
26+
my Complex $zp1 = $angle.num + 1.0i;
2827
my Complex $sz1 = { (exp($_) + exp(-$_)) / 2 }($zp1);
29-
my Complex $zp2 = $angle.complex(2.0, Radians);
28+
my Complex $zp2 = $angle.num + 2.0i;
3029
my Complex $sz2 = { (exp($_) + exp(-$_)) / 2 }($zp2);
3130

3231
is_approx($zp0.cosh, $sz0, "Complex.cosh - $zp0");
@@ -47,8 +46,8 @@ is_approx(cosh((0).Rat(1e-9)), 1, "cosh(Rat) - 0");
4746
is_approx(cosh(:x((0.523598775603156).Rat(1e-9))), 1.14023832107909, "cosh(:x(Rat)) - 0.523598775603156");
4847

4948
# Complex tests
50-
is_approx(cosh((0.785398163397448 + 2i).Complex), -0.551231882156447 + 0.789880270046195i, "cosh(Complex) - 0.785398163397448 + 2i");
51-
is_approx(cosh(:x((1.5707963267949 + 2i).Complex)), -1.04418668623968 + 2.09256517025804i, "cosh(:x(Complex)) - 1.5707963267949 + 2i");
49+
is_approx(cosh((0.785398163404734 + 2i).Complex), -0.551231882156447 + 0.789880270046195i, "cosh(Complex) - 0.785398163404734 + 2i");
50+
is_approx(cosh(:x((1.57079632680947 + 2i).Complex)), -1.04418668623968 + 2.09256517025804i, "cosh(:x(Complex)) - 1.57079632680947 + 2i");
5251

5352
# Str tests
5453
is_approx((2.3561944902142).Str.cosh, 5.32275214963423, "Str.cosh - 2.3561944902142");
@@ -70,9 +69,9 @@ is_approx(cosh(:x((3.92699081702367).Str)), 25.3868611932849, "cosh(:x(Str)) - 3
7069
}
7170
}
7271

73-
is_approx(NotComplex.new(4.71238898038469 + 2i).cosh, -23.1641398700872 + 50.6064005308964i, "NotComplex.cosh - 4.71238898038469 + 2i");
74-
is_approx(cosh(NotComplex.new(5.49778714378214 + 2i)), -50.8021984580908 + 111.001104449219i, "cosh(NotComplex) - 5.49778714378214 + 2i");
75-
is_approx(cosh(:x(NotComplex.new(6.28318530717959 + 2i))), -111.421967793699 + 243.459743211402i, "cosh(:x(NotComplex)) - 6.28318530717959 + 2i");
72+
is_approx(NotComplex.new(4.7123889804284 + 2i).cosh, -23.1641398700872 + 50.6064005308964i, "NotComplex.cosh - 4.7123889804284 + 2i");
73+
is_approx(cosh(NotComplex.new(5.49778714383314 + 2i)), -50.8021984580908 + 111.001104449219i, "cosh(NotComplex) - 5.49778714383314 + 2i");
74+
is_approx(cosh(:x(NotComplex.new(6.28318530723787 + 2i))), -111.421967793698 + 243.459743211402i, "cosh(:x(NotComplex)) - 6.28318530723787 + 2i");
7675
}
7776

7877
{
@@ -105,14 +104,14 @@ for TrigTest::coshes() -> $angle
105104

106105
# Num.acosh tests -- thorough
107106
is_approx($desired-result.Num.acosh.cosh, $desired-result,
108-
"Num.acosh - {$angle.num(Radians)}");
107+
"Num.acosh - {$angle.num()}");
109108

110109
# Num.acosh(Complex) tests -- thorough
111110
for ($desired-result + 0i, $desired-result + .5i, $desired-result + 2i) -> $z {
112111
is_approx(cosh(acosh($z)), $z,
113-
"acosh(Complex) - {$angle.num(Radians)}");
112+
"acosh(Complex) - {$angle.num()}");
114113
is_approx($z.acosh.cosh, $z,
115-
"Complex.acosh - {$angle.num(Radians)}");
114+
"Complex.acosh - {$angle.num()}");
116115
}
117116
}
118117

0 commit comments

Comments
 (0)