Test tau and τ

Raku · Dec 3, 2015 · d43b6ef · d43b6ef
1 parent a04df5f
commit d43b6ef
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/S32-num/pi.t b/S32-num/pi.t
@@ -1,14 +1,14 @@
 use v6;
 use Test;
-plan 5;
+plan 8;
 
 # L<S32::Numeric/Numeric/"Numeric provides some constants">
 
 =begin pod
 
 =head1 DESCRIPTION
 
-Basic tests for builtin Num::pi
+Basic tests for builtin Num::pi and Num::tau
 
 =end pod
 
@@ -26,4 +26,11 @@ is_approx(EVAL("pi + 3"), $PI+3, "pi+3, as a bareword");
 
 is_approx(π, $PI, "unicode π as a bareword");
 
+# Tau, see also: L<"http://tauday.com/tau-digits">
+is(EVAL("tau"), EVAL("2 * pi"), "pi = tau / 2");
+
+throws-like "3 + tau()", X::Undeclared, "tau() is not a sub";
+
+is_approx(τ, 2*$PI, "unicode τ as a bareword");
+
 # vim: ft=perl6