Test numifying 'NaN', 'Inf', '-Inf' and '+Inf'

Raku · Apr 27, 2017 · 4954f24 · 4954f24
1 parent 02bdfce
commit 4954f24
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/t/nqp/109-coercions.t b/t/nqp/109-coercions.t
@@ -0,0 +1,10 @@
+plan(4);
+
+my sub isnan($n) {
+    nqp::isnanorinf($n) && $n != nqp::inf() && $n != nqp::neginf();
+}
+
+ok(isnan(+'NaN'), 'numifying NaN');
+ok(+'Inf' == nqp::inf, 'numifying Inf');
+ok(+'+Inf' == nqp::inf, 'numifying +Inf');
+ok(+'-Inf' == nqp::neginf, 'numifying -Inf');