diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-12-26 12:34:58 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-12-26 12:34:58 +0100 |
| commit | fc02c8458d636e682b079a68f2ee7347e0299132 (patch) | |
| tree | 03e8b9a7f5cc5ce0de99d9eef42a90eb4202c6da | |
| parent | fcd8c60182efc8bfe7bad11fb74489fe5df28d6b (diff) | |
| download | emacs-fc02c8458d636e682b079a68f2ee7347e0299132.tar.gz emacs-fc02c8458d636e682b079a68f2ee7347e0299132.tar.bz2 emacs-fc02c8458d636e682b079a68f2ee7347e0299132.zip | |
* test/src/comp-tests.el (comp-tests-type-spec-tests): Add two more test.
| -rw-r--r-- | test/src/comp-tests.el | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index 22065f8f6e4..e1c13598ad6 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el @@ -1018,7 +1018,21 @@ Return a list of results." x)) (or null (integer 4 9))) - ;; 33 No float range support. + ;; 33 + ((defun comp-tests-ret-type-spec-f (x) + (when (or (> x 3) + (< x 10)) + x)) + (or null integer)) + + ;; 34 + ((defun comp-tests-ret-type-spec-f (x) + (when (or (< x 3) + (> x 10)) + x)) + (or null (integer * 2) (integer 11 *))) + + ;; 35 No float range support. ((defun comp-tests-ret-type-spec-f (x) (when (> x 1.0) x)) |