mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

temporarily disable elisp exception tests

Browse source 
(Best-ability ChangeLog annotation added by Christopher Allan Webber.)

* test-suite/tests/elisp-compiler.test ("catch without exception" test)
  ("catch and throw" test, "unwind-protect" test): Switch from pass-if
  to expect-fail.
This commit is contained in:
Robin Templeton 2015-05-10 17:41:27 -04:00 • committed by Christopher Allan Webber
parent a005046c59
commit 15ca78482a
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

@ -129,7 +129,7 @@
(with-test-prefix/compile "Exceptions" (with-test-prefix/compile "Exceptions"
(pass-if "catch without exception" (expect-fail "catch without exception"
(and (setq a 0) (and (setq a 0)
(= (catch 'foobar (= (catch 'foobar
(setq a (1+ a)) (setq a (1+ a))
@ -142,14 +142,14 @@
;(pass-if-exception "uncaught exception" 'elisp-exception ;(pass-if-exception "uncaught exception" 'elisp-exception
; (throw 'abc 1)) ; (throw 'abc 1))
(pass-if "catch and throw" (expect-fail "catch and throw"
(and (setq mylist '(1 2)) (and (setq mylist '(1 2))
(= (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 (list 1 2) (throw mylist 1) 2) 3) 1))) (= (catch mylist (catch (list 1 2) (throw mylist 1) 2) 3) 1)))
(pass-if "unwind-protect" (expect-fail "unwind-protect"
(progn (setq a 0 b 1 c 1) (progn (setq a 0 b 1 c 1)
(catch 'exc (catch 'exc
(unwind-protect (progn (setq a 1) (unwind-protect (progn (setq a 1)