@@ -166,12 +166,10 @@ ok $neg-pi == -3.14, "-3.14 == -3.14";
166
166
167
167
# bonus round!
168
168
isa_ok $ zero . Complex , Complex , " 0.Complex is a Complex" ;
169
- # ?rakudo 3 skip 'hangs'
170
169
ok $ zero == $ zero . Complex , " 0 == 0.Complex" ;
171
170
ok $ neg-pi == $ neg-pi . Complex , " -3.14 == -3.14.Complex" ;
172
171
ok $ neg-pi == -3.14 . Complex , " -3.14 == -3.14.Complex" ;
173
172
ok -3.14 == $ neg-pi . Complex , " -3.14 == -3.14.Complex" ;
174
- # ?rakudo skip 'hangs'
175
173
nok $ zero == $ neg-pi . Complex , " not 0 == -3.14.Complex" ;
176
174
177
175
nok $ zero != 0 , " not 0 != 0" ;
@@ -181,11 +179,9 @@ ok $neg-pi != -3, "-3.14 != -3";
181
179
ok -1 != $ zero , " -1 != 0" ;
182
180
nok 1 . Rat != $ one , " not 1 != 1" ;
183
181
ok 1.001 != $ one-and-one-hundredth , " 1.001 != 1.01" ;
184
- # ?rakudo skip 'hangs'
185
182
nok $ neg-pi != -3.14 , " not -3.14 != -3.14" ;
186
183
187
184
# bonus round!
188
- # ?rakudo 5 skip 'hangs'
189
185
nok $ zero != $ zero . Complex , " not 0 != 0.Complex" ;
190
186
nok $ neg-pi != $ neg-pi . Complex , " not -3.14 != -3.14.Complex" ;
191
187
nok $ neg-pi != -3.14 . Complex , " not -3.14 != -3.14.Complex" ;
@@ -256,10 +252,8 @@ is_approx 10 % $one-and-ninety-nine-hundredths, 0.05, "10 % 1.99 = 0.05";
256
252
is_approx $ one-and-one-hundredth % 0.2 , 0.01 , " 1.01 % 0.2 = 0.01" ;
257
253
258
254
is_approx $ one-and-one-hundredth . log , 1.01 . log , " 1.01.log is correct" ;
259
- # ?rakudo skip 'hangs'
260
255
is_approx log ($ one-and-one-hundredth ), 1.01 . log , " log(1.01) is correct" ;
261
256
is_approx $ one-and-one-hundredth . log ($ ten ), 1.01 . log10 , " 1.01.log(10) is correct" ;
262
- # ?rakudo 3 skip 'hangs'
263
257
is_approx log ($ one-and-one-hundredth , $ ten ), 1.01 . log10 , " log(1.01, 10) is correct" ;
264
258
is_approx $ one-and-one-hundredth . log ($ ten * 1 i), 1.01 . log / log (10 i), " 1.01.log(10i) is correct" ;
265
259
is_approx ($ one-and-one-hundredth * 1 i). log ($ ten ), log (1.01 i) / log (10 ), " 1.01i.log(10) is correct" ;
@@ -286,7 +280,6 @@ is $one-and-one-hundredth.exp, 1.01.exp, "1.01.exp is correct";
286
280
is $ neg-pi . exp , (-3.14 ). exp , " -3.14.exp is correct" ;
287
281
is $ one-and-one-hundredth . exp (10 . Rat ), 1.01 . exp (10 ), " 1.01.exp(10) is correct" ;
288
282
is 2 . exp ($ neg-pi ), 2 . exp (-3.14 ), " 2.exp(-3.14) is correct" ;
289
- # ?rakudo skip 'hangs'
290
283
is_approx $ one-and-one-hundredth . exp (10 i), 1.01 . exp (10 i), " 1.01.exp(10i) is correct" ;
291
284
292
285
{
0 commit comments