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
30
users/wpcarro/emacs/pkgs/math/default.nix
Normal file
30
users/wpcarro/emacs/pkgs/math/default.nix
Normal 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
|
||||
'';
|
||||
})
|
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…
Reference in a new issue