* test/src/comp-tests.el (comp-tests-type-spec-tests): Add two more test.

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))