39 lines
709 B
EmacsLisp
39 lines
709 B
EmacsLisp
|
;;; grains-test.el --- Test for Grains (exercism)
|
||
|
|
|
||
|
|
;;; Commentary:
|
||
|
|
|
||
|
|
;;; Code:
|
||
|
|
|
||
|
|
(load-file "grains.el")
|
||
|
|
|
||
|
|
(ert-deftest square-1 ()
|
||
|
|
(should (= 1 (square 1))))
|
||
|
|
|
||
|
|
(ert-deftest square-2 ()
|
||
|
|
(should (= 2 (square 2))))
|
||
|
|
|
||
|
|
(ert-deftest square-3 ()
|
||
|
|
(should (= 4 (square 3))))
|
||
|
|
|
||
|
|
(ert-deftest square-4 ()
|
||
|
|
(should (= 8 (square 4))))
|
||
|
|
|
||
|
|
(ert-deftest square-16 ()
|
||
|
|
(should (= 32768
|
||
|
|
(square 16))))
|
||
|
|
|
||
|
|
(ert-deftest square-32 ()
|
||
|
|
(should (= 2147483648
|
||
|
|
(square 32))))
|
||
|
|
|
||
|
|
(ert-deftest square-64 ()
|
||
|
|
(should (= 9223372036854775808
|
||
|
|
(square 64))))
|
||
|
|
|
||
|
|
(ert-deftest total-grains ()
|
||
|
|
(should (= 18446744073709551615
|
||
|
|
(total))))
|
||
|
|
|
||
|
|
(provide 'grains-test.el)
|
||
|
|
;;; grains-test.el ends here.
|