Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
92491099
Commit
92491099
authored
May 15, 2014
by
Dmitry Antipov
Browse files
* tests/automated/fns-tests.el: New file.
parent
27f13b21
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
43 additions
and
0 deletions
+43
-0
test/ChangeLog
test/ChangeLog
+4
-0
test/automated/fns-tests.el
test/automated/fns-tests.el
+39
-0
No files found.
test/ChangeLog
View file @
92491099
2014-05-15 Dmitry Antipov <dmantipov@yandex.ru>
* automated/fns-tests.el: New file.
2014-05-08 Glenn Morris <rgm@gnu.org>
* automated/vc-bzr.el (vc-bzr-test-bug9726, vc-bzr-test-bug9781)
...
...
test/automated/fns-tests.el
0 → 100644
View file @
92491099
;;; fns-tests.el --- tests for src/fns.c
;; Copyright (C) 2014 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; This program is free software: you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see `http://www.gnu.org/licenses/'.
;;; Commentary:
;;; Code:
(
require
'cl-lib
)
(
eval-when-compile
(
require
'cl
))
(
ert-deftest
fns-tests-reverse
()
(
should-error
(
reverse
))
(
should-error
(
reverse
1
))
(
should-error
(
reverse
(
make-char-table
'foo
)))
(
should
(
equal
[1
2
3
4]
(
reverse
(
reverse
[1
2
3
4]
))))
(
should
(
equal
"xyzzy"
(
reverse
(
reverse
"xyzzy"
))))
(
should
(
equal
"こんにちは / コンニチハ"
(
reverse
(
reverse
"こんにちは / コンニチハ"
)))))
(
ert-deftest
fns-tests-reverse-bool-vector
()
(
let
((
A
(
make-bool-vector
10
nil
)))
(
dotimes
(
i
5
)
(
aset
A
i
t
))
(
should
(
equal
[nil
nil
nil
nil
nil
t
t
t
t
t]
(
vconcat
(
reverse
A
))))
(
should
(
equal
A
(
reverse
(
reverse
A
))))))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment