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:
William Carroll 2022-07-30 11:29:31 -07:00 committed by clbot
parent 9f325f01bf
commit f957a57ad8
3 changed files with 55 additions and 0 deletions

View file

@ -0,0 +1,30 @@
{ pkgs, depot, ... }:
let
math = pkgs.callPackage
({ emacsPackages }:
emacsPackages.trivialBuild {
pname = "math";
version = "1.0.0";
src = ./math.el;
packageRequires =
(with emacsPackages; [
dash
]) ++
(with depot.users.wpcarro.emacs.pkgs; [
maybe
]);
})
{ };
emacs = (pkgs.emacsPackagesFor pkgs.emacs28).emacsWithPackages (epkgs: [
math
]);
in
math.overrideAttrs (_old: {
doCheck = true;
checkPhase = ''
${emacs}/bin/emacs -batch \
-l ert -l ${./tests.el} -f ert-run-tests-batch-and-exit
'';
})

View 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))))