From 17049953c08b7c783bf73fcb18ddbb7b05c8a671 Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Sun, 28 Nov 2021 13:03:48 -0500 Subject: add exercises --- .../difference-of-squares-test.el | 40 ++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 exercism/emacs-lisp/difference-of-squares/difference-of-squares-test.el (limited to 'exercism/emacs-lisp/difference-of-squares/difference-of-squares-test.el') diff --git a/exercism/emacs-lisp/difference-of-squares/difference-of-squares-test.el b/exercism/emacs-lisp/difference-of-squares/difference-of-squares-test.el new file mode 100644 index 0000000..56c5559 --- /dev/null +++ b/exercism/emacs-lisp/difference-of-squares/difference-of-squares-test.el @@ -0,0 +1,40 @@ +;;; difference-of-squares-test.el --- Tests for difference-of-squares (exercism) + +;;; Commentary: + +;;; Code: + +(load-file "difference-of-squares.el") + +(ert-deftest square-of-sum-to-5 () + (should (= 225 (square-of-sum 5)))) + +(ert-deftest sum-of-squares-to-5 () + (should (= 55 (sum-of-squares 5)))) + +(ert-deftest difference-of-squares-to-5 () + (should (= 170 (difference 5)))) + + +(ert-deftest square-of-sum-to-10 () + (should (= 3025 (square-of-sum 10)))) + +(ert-deftest sum-of-squares-to-10 () + (should (= 385 (sum-of-squares 10)))) + +(ert-deftest difference-of-squares-to-10 () + (should (= 2640 (difference 10)))) + + +(ert-deftest square-of-sum-to-100 () + (should (= 25502500 (square-of-sum 100)))) + +(ert-deftest sum-of-squares-to-100 () + (should (= 338350 (sum-of-squares 100)))) + +(ert-deftest difference-of-squares-to-100 () + (should (= 25164150 (difference 100)))) + + +(provide 'difference-of-squares-test) +;;; difference-of-squares-test.el ends here -- cgit v1.2.3