feat(wpcarro/emacs): Package math.el
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>
This commit is contained in:
parent
9f325f01bf
commit
f957a57ad8
3 changed files with 55 additions and 0 deletions
25
users/wpcarro/emacs/pkgs/math/tests.el
Normal file
25
users/wpcarro/emacs/pkgs/math/tests.el
Normal file
|
|
@ -0,0 +1,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))))
|
||||
Loading…
Add table
Add a link
Reference in a new issue