Add simple new lcm.t.

Raku · Jul 16, 2011 · 0bfac46 · 0bfac46
1 parent 453290b
commit 0bfac46
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/S03-operators/lcm.t b/S03-operators/lcm.t
@@ -0,0 +1,20 @@
+use v6;
+use Test;
+plan 5;
+
+# L<S32::Numeric/Numeric/"=item lcm">
+
+=begin pod
+
+Basic tests for the lcm operator
+
+=end pod
+
+is 10 lcm 5, 10, "The lcm of 10 and 5 is 10";
+isa_ok 10 lcm 5, Int, "The lcm of 10 and 5 is an Int";
+is -432 lcm 63, 3024, "The lcm of -432 and 63 is 3024";
+is 4342 lcm 65536, 142278656, "The lcm of 4342 and 65536 is 142278656";
+isa_ok 4342 lcm 65536, Int, "The lcm of 4342 and 65536 is an Int";
+
+done;
+# vim: ft=perl6