blob: ef3430c9131b6aac2b527ec63a05d12d458029cf (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dependencies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ert)
(require 'math)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Tests
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(ert-deftest math-mod ()
(should (= 0 (math-mod 9 3)))
(should (= 4 (math-mod 9 5))))
(ert-deftest math-exp ()
(should (= 9 (math-exp 3 2)))
(should (= 8 (math-exp 2 3))))
(ert-deftest math-round ()
(should (= 10 (math-round 9.5)))
(should (= 9 (math-round 9.45))))
(ert-deftest math-floor ()
(should (= 9 (math-floor 9.5))))
|
