diff options
| author | Vibhav Pant <vibhavp@gmail.com> | 2017-02-13 13:18:54 +0530 |
|---|---|---|
| committer | Vibhav Pant <vibhavp@gmail.com> | 2017-02-13 13:18:54 +0530 |
| commit | c24e8290fa4ec18c04cbedffbe741b53de280dd6 (patch) | |
| tree | 1c9a1983be35498c3c6773f50fe23eaf5eceef63 /test/lisp/emacs-lisp | |
| parent | 219339e2eb332fc913f898e799d6532a7633a1d3 (diff) | |
| download | emacs-c24e8290fa4ec18c04cbedffbe741b53de280dd6.tar.gz emacs-c24e8290fa4ec18c04cbedffbe741b53de280dd6.tar.bz2 emacs-c24e8290fa4ec18c04cbedffbe741b53de280dd6.zip | |
test/lisp/emacs-lisp/bytecomp-tests.el: Add more tests for switch.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index 2233b28d331..acf9343914d 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -253,7 +253,12 @@ bytecompiled code, and their results compared.") (let ((a 'three)) (cond ((eq a 'one) 1) ((eq a 2) 'two) ((eq a 'three) 3) (t t))) (let ((a 2)) (cond ((eq a 'one) 1) ((eq a 1) 'one) ((eq a 2) 'two) - (t nil)))) + (t nil))) + (let ((a 2.0)) (cond ((eql a 2) 'incorrect) ((eql a 2.00) 'correct))) + (let ((a "foobar")) (cond ((equal "notfoobar" a) 'incorrect) + ((equal 1 a) 'incorrect) + ((equal a "foobar") 'correct) + (t 'incorrect)))) "List of expressions for testing byte-switch.") (defun bytecomp-check-1 (pat) |