Mercurial > hg > xemacs-beta

diff tests/automated/lisp-tests.el @ 5595:391d809fa4e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update tests that have started failing because of changed design decisions. 2011-11-09 Aidan Kehoe <kehoea@parhasard.net> Update some tests that have started failing because of some changed design decisions. * automated/lisp-tests.el (eq): (type-of 42) now returns the symbol fixnum. * automated/lisp-tests.el (needs-lexical-context): (function ...) doesn't create a lexical context, and this is now the case in interpreted as well as in compiled code. * automated/mule-tests.el (featurep): Silence messages when byte-compiling files; if a file doesn't have the escape-quoted coding cookie, it will now have the raw-text-unix coding cookie, look for that instead of looking for the absence of the escape-quoted coding cookie.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 09 Nov 2011 13:16:19 +0000
parents 071b810ceb18
children 5bda701e9e7c
line wrap: on
line diff
--- a/tests/automated/lisp-tests.el	Wed Nov 09 12:51:10 2011 +0000
+++ b/tests/automated/lisp-tests.el	Wed Nov 09 13:16:19 2011 +0000
@@ -987,7 +987,7 @@
 ;;-----------------------------------------------------
 (Assert (eq (type-of load-path) 'cons))
 (Assert (eq (type-of obarray) 'vector))
-(Assert (eq (type-of 42) 'integer))
+(Assert (eq (type-of 42) 'fixnum))
 (Assert (eq (type-of ?z) 'character))
 (Assert (eq (type-of "42") 'string))
 (Assert (eq (type-of 'foo) 'symbol))
@@ -2907,12 +2907,9 @@
                      third
                      #'(lambda () (return-from awkward 0)))
                   first)))))
-  (if (compiled-function-p
-       (ignore-errors (indirect-function #'needs-lexical-context)))
-      (Known-Bug-Expect-Failure
-       (Assert (eql 0 (needs-lexical-context 2 nil nil))
-	"the function special operator doesn't create a lexical context."))
-    (Assert (eql 0 (needs-lexical-context 2 nil nil)))))
+  (Known-Bug-Expect-Failure
+   (Assert (eql 0 (needs-lexical-context 2 nil nil))
+           "the function special operator doesn't create a lexical context.")))
 
 ;; Test symbol-macrolet with symbols with identical string names.