Commit | Line | Data |
---|---|---|
39ef0f74 LL |
1 | ;;; calc-tests.el --- tests for calc -*- lexical-binding: t; -*- |
2 | ||
3 | ;; Copyright (C) 2014 Leo Liu | |
4 | ||
5 | ;; Author: Leo Liu <sdl.web@gmail.com> | |
6 | ;; Keywords: maint | |
7 | ||
8 | ;; This program is free software; you can redistribute it and/or modify | |
9 | ;; it under the terms of the GNU General Public License as published by | |
10 | ;; the Free Software Foundation, either version 3 of the License, or | |
11 | ;; (at your option) any later version. | |
12 | ||
13 | ;; This program is distributed in the hope that it will be useful, | |
14 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | ;; GNU General Public License for more details. | |
17 | ||
18 | ;; You should have received a copy of the GNU General Public License | |
19 | ;; along with this program. If not, see <http://www.gnu.org/licenses/>. | |
20 | ||
21 | ;;; Commentary: | |
22 | ||
23 | ;;; Code: | |
24 | ||
25 | (require 'cl-lib) | |
26 | (require 'ert) | |
27 | (require 'calc) | |
28 | ||
29 | (ert-deftest test-math-bignum () | |
30 | ;; bug#17556 | |
31 | (let ((n (math-bignum most-negative-fixnum))) | |
32 | (should (math-negp n)) | |
33 | (should (cl-notany #'cl-minusp (cdr n))))) | |
34 | ||
35 | (provide 'calc-tests) | |
36 | ;;; calc-tests.el ends here | |
37 | ||
38 | ;; Local Variables: | |
39 | ;; bug-reference-url-format: "http://debbugs.gnu.org/%s" | |
40 | ;; End: |