summaryrefslogtreecommitdiff
path: root/test-suite/tests/elisp-compiler.test
diff options
context:
space:
mode:
authorBT Templeton <bpt@hcoop.net>2011-06-17 01:29:49 -0400
committerBT Templeton <bpt@hcoop.net>2012-02-03 18:53:48 -0500
commit59e46065ce209c591eda15976de60e82eb7766a7 (patch)
tree1af93443066005ca6354ca0676d09bf178f5993a /test-suite/tests/elisp-compiler.test
parent8f2f65668a0aff9e5cddc6932d6026d6f4f0b462 (diff)
downloadguile-59e46065ce209c591eda15976de60e82eb7766a7.tar.gz
elisp test fixes
* test-suite/tests/elisp-compiler.test ("Exceptions")["catch and throw"]: Use a freshly-consed object instead of a literal object. This test previously assumed that similar literal objects are never identical, which no longer true. ("Equivalence Predifcates")["eq"]: Likewise.
Diffstat (limited to 'test-suite/tests/elisp-compiler.test')
-rw-r--r--test-suite/tests/elisp-compiler.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test
index 24c336a20..973291244 100644
--- a/test-suite/tests/elisp-compiler.test
+++ b/test-suite/tests/elisp-compiler.test
@@ -169,7 +169,7 @@
(= (catch 'abc (throw 'abc 2) 1) 2)
(= (catch 'abc (catch 'def (throw 'abc (1+ 0)) 2) 3) 1)
(= (catch 'abc (catch 'def (throw 'def 1) 2) 3) 3)
- (= (catch mylist (catch '(1 2) (throw mylist 1) 2) 3) 1)))
+ (= (catch mylist (catch (list 1 2) (throw mylist 1) 2) 3) 1)))
(pass-if "unwind-protect"
(progn (setq a 0 b 1 c 1)
@@ -563,8 +563,8 @@
(setq some-string "abc")
(and (eq 2 2) (not (eq 1 2))
(eq 'abc 'abc) (not (eq 'abc 'def))
- (eq some-string some-string) (not (eq some-string "abc"))
- (eq some-list some-list) (not (eq some-list '(1 2)))))))
+ (eq some-string some-string) (not (eq some-string (string 97 98 99)))
+ (eq some-list some-list) (not (eq some-list (list 1 2)))))))
(with-test-prefix/compile "Number Built-Ins"