aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorPaul Eggert2017-03-04 23:14:52 -0800
committerPaul Eggert2017-03-04 23:18:39 -0800
commit0d55c44a9a00da3b8542e92586654adeb2bcf228 (patch)
tree1105e60b43ef80d105ca613ece1c8cfc6ee64f07 /test
parent44e7ee2e356452139156e8175c46f646835d27ff (diff)
downloademacs-0d55c44a9a00da3b8542e92586654adeb2bcf228.tar.gz
emacs-0d55c44a9a00da3b8542e92586654adeb2bcf228.zip
Compare and round more carefully
* etc/NEWS: Document this. * src/data.c (store_symval_forwarding): * src/sound.c (parse_sound): Do not botch NaN comparison. * src/data.c (cons_to_unsigned, cons_to_signed): Signal an error if a floating-point arg is not integral. * src/data.c (cons_to_unsigned, cons_to_signed): * src/fileio.c (file_offset): Use simpler overflow check. * src/dbusbind.c (xd_extract_signed, xd_extract_unsigned): Avoid rounding error in overflow check. (Fcar_less_than_car): Use arithcompare directly. * test/src/charset-tests.el: New file.
Diffstat (limited to 'test')
-rw-r--r--test/src/charset-tests.el26
1 files changed, 26 insertions, 0 deletions
diff --git a/test/src/charset-tests.el b/test/src/charset-tests.el
new file mode 100644
index 00000000000..515a4eafe14
--- /dev/null
+++ b/test/src/charset-tests.el
@@ -0,0 +1,26 @@
1;;; charset-tests.el --- Tests for charset.c
2
3;; Copyright 2017 Free Software Foundation, Inc.
4
5;; This program is free software; you can redistribute it and/or modify
6;; it under the terms of the GNU General Public License as published by
7;; the Free Software Foundation, either version 3 of the License, or
8;; (at your option) any later version.
9
10;; This program is distributed in the hope that it will be useful,
11;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13;; GNU General Public License for more details.
14
15;; You should have received a copy of the GNU General Public License
16;; along with this program. If not, see <http://www.gnu.org/licenses/>.
17
18;;; Code:
19
20(require 'ert)
21
22(ert-deftest charset-decode-char ()
23 "Test decode-char."
24 (should-error (decode-char 'ascii 0.5)))
25
26(provide 'charset-tests)