f957a57ad8
Another Elisp library that I wrote during my manic experience of switching to EXWM. Change-Id: I652f5c7228332a7f5822bd408a0c0be8f7bc4b4f Reviewed-on: https://cl.tvl.fyi/c/depot/+/6018 Tested-by: BuildkiteCI Reviewed-by: wpcarro <wpcarro@gmail.com> Autosubmit: wpcarro <wpcarro@gmail.com>
25 lines
726 B
EmacsLisp
25 lines
726 B
EmacsLisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; 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))))
|