diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-tests.el | 3 | ||||
| -rw-r--r-- | test/src/fns-tests.el | 6 |
2 files changed, 8 insertions, 1 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index 092504565a6..33b307b1c6e 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el @@ -54,7 +54,8 @@ Check that the resulting binaries do not differ." (comp-debug 0)) (copy-file comp-src comp1-src t) (copy-file comp-src comp2-src t) - (load (concat comp-src "c") nil nil t t) + (let ((load-no-native t)) + (load (concat comp-src "c") nil nil t t)) (should-not (subr-native-elisp-p (symbol-function #'native-compile))) (message "Compiling stage1...") (let ((comp1-eln (native-compile comp1-src))) diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el index f1faf58659a..400e9126486 100644 --- a/test/src/fns-tests.el +++ b/test/src/fns-tests.el @@ -895,3 +895,9 @@ ;; This does not test randomness; it's merely a format check. (should (string-match "\\`[0-9a-f]\\{128\\}\\'" (secure-hash 'sha512 'iv-auto 100)))) + +(ert-deftest test-vector-delete () + (let ((v1 (make-vector 1000 1))) + (should (equal (delete t [nil t]) [nil])) + (should (equal (delete 1 v1) (vector))) + (should (equal (delete 2 v1) v1)))) |