From 072bd50efa733f60a5c65dfb355dd2e9ce6271c2 Mon Sep 17 00:00:00 2001 From: colomon Date: Sun, 11 Apr 2010 00:13:56 +0000 Subject: [PATCH] [t/spec] Add real-bridge tests for cis and unpolar. git-svn-id: http://svn.pugscode.org/pugs@30362 c213334d-75ef-0310-aa23-eaa082d1ae64 --- t/spec/S32-num/real-bridge.t | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/t/spec/S32-num/real-bridge.t b/t/spec/S32-num/real-bridge.t index a7efa7b72..26e69355a 100644 --- a/t/spec/S32-num/real-bridge.t +++ b/t/spec/S32-num/real-bridge.t @@ -82,6 +82,15 @@ is $one-and-one-hundredth - 1.01, 0, "1.01 - 1.01 == 0"; is_approx 1.01 - $one, 0.01, "1.01 - 1 == 0.01"; is_approx $one-and-one-hundredth - 1.Num, 0.01, "1.01 - 1 == 0.01"; +#?rakudo 2 skip "log is a multi method and multi methods and roles don't mix yet" +is_approx $one-and-one-hundredth.log, 1.01.log, "1.01.log is correct"; +is_approx log($one-and-one-hundredth), 1.01.log, "log(1.01) is correct"; + +is_approx $one-and-one-hundredth.cis, 1.01.cis, "1.01.cis is correct"; +is_approx cis($one-and-one-hundredth), 1.01.cis, "cis(1.01) is correct"; +is_approx $one-and-one-hundredth.unpolar($neg-pi), 1.01.unpolar(-3.14), "1.01.unpolar(-3.14) is correct"; +is_approx unpolar($one-and-one-hundredth, $neg-pi), 1.01.unpolar(-3.14), "1.01.unpolar(-3.14) is correct"; + done_testing; # vim: ft=perl6 -- 2.11.4.GIT