mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

elisp test fixes

Browse source 
* 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.
This commit is contained in:
BT Templeton 2011-06-17 01:29:49 -04:00
parent 8f2f65668a
commit 59e46065ce
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/tests/elisp-compiler.test
View file

@ -169,7 +169,7 @@
(= (catch 'abc (throw 'abc 2) 1) 2) (= (catch 'abc (throw 'abc 2) 1) 2)
(= (catch 'abc (catch 'def (throw 'abc (1+ 0)) 2) 3) 1) (= (catch 'abc (catch 'def (throw 'abc (1+ 0)) 2) 3) 1)
(= (catch 'abc (catch 'def (throw 'def 1) 2) 3) 3) (= (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" (pass-if "unwind-protect"
(progn (setq a 0 b 1 c 1) (progn (setq a 0 b 1 c 1)
@ -563,8 +563,8 @@
(setq some-string "abc") (setq some-string "abc")
(and (eq 2 2) (not (eq 1 2)) (and (eq 2 2) (not (eq 1 2))
(eq 'abc 'abc) (not (eq 'abc 'def)) (eq 'abc 'abc) (not (eq 'abc 'def))
(eq some-string some-string) (not (eq some-string "abc")) (eq some-string some-string) (not (eq some-string (string 97 98 99)))
(eq some-list some-list) (not (eq some-list '(1 2))))))) (eq some-list some-list) (not (eq some-list (list 1 2)))))))
(with-test-prefix/compile "Number Built-Ins" (with-test-prefix/compile "Number Built-Ins"