;; ;; Test spigot module ;; (use gauche.test) (test-start "spigot") (use spigot) (test-module 'spigot) ;; This checks the exported symbols are indeed bound. ;; Normal operation test (test* "spigot-calculate-pi (10)" '#(3 1 4 1 5 9 2 6 5 3) (spigot-calculate-pi 10)) (test* "spigot-calculate-e (15)" '#(2 7 1 8 2 8 1 8 2 8 4 5 9 0 4) (spigot-calculate-e 15)) (test* "spigot-calculate-pi (1)" '#(3) (spigot-calculate-pi 1)) (test* "spigot-calculate-e (1)" '#(2) (spigot-calculate-e 1)) ;; See if they reports error for invalid arguments. (test* "spigot-calculate-pi (0)" *test-error* (spigot-calculate-pi 0)) (test* "spigot-calculate-e (0)" *test-error* (spigot-calculate-e 0)) (test* "spigot-calculate-pi (-1)" *test-error* (spigot-calculate-pi -1)) (test* "spigot-calculate-e (-1)" *test-error* (spigot-calculate-e -1)) (test-end)