Issue #519 - Stage new test cases

tests/base.scm

@@ -59,6 +59,40 @@
        1.2e+40))
 )
 
+;TODO: 
+;(floor/ 5 2) =⇒ 2 1
+;(floor/ -5 2) =⇒ -3 1
+;(floor/ 5 -2) =⇒ -3 -1
+;(floor/ -5 -2) =⇒ 2 -1
+;(truncate/ 5 2) =⇒ 2 1
+;(truncate/ -5 2) =⇒ -2 -1
+;(truncate/ 5 -2) =⇒ -2 1
+;(truncate/ -5 -2) =⇒ 2 -1
+;(truncate/ -5.0 -2) =⇒ 2.0 -1.0
+;
+;(gcd 32 -36) =⇒ 4
+;(gcd) =⇒ 0
+;(lcm 32 -36) =⇒ 288
+;(lcm 32.0 -36) =⇒ 288.0 ; inexact
+;(lcm) =⇒ 1
+;
+;(floor -4.3) =⇒ -5.0
+;(ceiling -4.3) =⇒ -4.0
+;(truncate -4.3) =⇒ -4.0
+;(round -4.3) =⇒ -4.0
+;(floor 3.5) =⇒ 3.0
+;(ceiling 3.5) =⇒ 4.0
+;(truncate 3.5) =⇒ 3.0
+;(round 3.5) =⇒ 4.0 ; inexact
+;(round 7/2) =⇒ 4 ; exact
+;(round 7) =⇒ 7
+;
+;(numerator (/ 6 4)) =⇒ 3
+;(denominator (/ 6 4)) =⇒ 2
+;(denominator
+;(inexact (/ 6 4))) =⇒ 2.0
+
+
 (test-group
   "truncate"
   (test -1 (truncate -1))