diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/fns-tests.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el index 8d39a1a56b8..decbdb6ac52 100644 --- a/test/src/fns-tests.el +++ b/test/src/fns-tests.el | |||
| @@ -1672,7 +1672,11 @@ | |||
| 1672 | (should (value< x y)) | 1672 | (should (value< x y)) |
| 1673 | (should-not (value< y x)) | 1673 | (should-not (value< y x)) |
| 1674 | (should-not (value< x x)) | 1674 | (should-not (value< x x)) |
| 1675 | (should-not (value< y y)))) | 1675 | (should-not (value< y y)) |
| 1676 | (should (value< (vector x 2) (vector y 1))) | ||
| 1677 | (should-not (value< (vector y 1) (vector x 2))) | ||
| 1678 | (should (value< (vector x 1) (vector x 2))) | ||
| 1679 | (should (value< (vector y 1) (vector y 2))))) | ||
| 1676 | 1680 | ||
| 1677 | (delete-process proc2) | 1681 | (delete-process proc2) |
| 1678 | (delete-process proc1) | 1682 | (delete-process proc1) |
| @@ -1707,7 +1711,9 @@ | |||
| 1707 | (let ((x (car c)) | 1711 | (let ((x (car c)) |
| 1708 | (y (cdr c))) | 1712 | (y (cdr c))) |
| 1709 | (should-not (value< x y)) | 1713 | (should-not (value< x y)) |
| 1710 | (should-not (value< y x)))))) | 1714 | (should-not (value< y x)) |
| 1715 | (should (value< (cons x 1) (cons y 2))) | ||
| 1716 | (should-not (value< (cons x 2) (cons y 1))))))) | ||
| 1711 | 1717 | ||
| 1712 | (ert-deftest fns-value<-type-mismatch () | 1718 | (ert-deftest fns-value<-type-mismatch () |
| 1713 | ;; values of disjoint (incomparable) types | 1719 | ;; values of disjoint (incomparable) types |