diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2023-09-08 14:56:10 +0200 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-09-08 17:22:17 +0200 |
| commit | 70604898fc8545d6eb7471f46040e968794abbf9 (patch) | |
| tree | 8224fb6bc5c01ebbd6ddda3b98cc0cf1578e88fe | |
| parent | 3ff527d6c2eb004074a9e8788d9b44eaae8c850a (diff) | |
Strengthen xor test
Don't just test with t and nil, and check return values.
| -rw-r--r-- | compat-tests.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compat-tests.el b/compat-tests.el index 1e902fb..0b7ba5e 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -1329,10 +1329,10 @@ (list (list) (list) (list) (list))))) (ert-deftest compat-xor () - (should (xor t nil)) - (should (xor nil t)) + (should (equal (xor 'a nil) 'a)) + (should (equal (xor nil 'b) 'b)) (should-not (xor nil nil)) - (should-not (xor t t))) + (should-not (xor 'a 'b))) (ert-deftest compat-length= () (should (length= '() 0)) ;empty list |