Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 11:27:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add some tests for fns.c

Browse source 
* test/src/fns-tests.el (fns-tests-identity, fns-tests-random)
(fns-tests-length, fns-tests-safe-length)
(fns-tests-string-bytes): New tests.
This commit is contained in:
Stefan Kangas 2021-10-20 03:23:28 +02:00
parent a4a3530510
commit 62591c164c
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
test/src/fns-tests.el
View file

@ -23,6 +23,29 @@
(require 'cl-lib)
(ert-deftest fns-tests-identity ()
(let ((num 12345)) (should (eq (identity num) num)))
(let ((str "foo")) (should (eq (identity str) str)))
(let ((lst '(11))) (should (eq (identity lst) lst))))
(ert-deftest fns-tests-random ()
(should (integerp (random)))
(should (>= (random 10) 0))
(should (< (random 10) 10)))
(ert-deftest fns-tests-length ()
(should (= (length nil) 0))
(should (= (length '(1 2 3)) 3))
(should (= (length '[1 2 3]) 3))
(should (= (length "foo") 3))
(should-error (length t)))
(ert-deftest fns-tests-safe-length ()
(should (= (safe-length '(1 2 3)) 3)))
(ert-deftest fns-tests-string-bytes ()
(should (= (string-bytes "abc") 3)))
;; Test that equality predicates work correctly on NaNs when combined
;; with hash tables based on those predicates. This was not the case
;; for eql in Emacs 26.