Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
5594:cc8ea7ed4286 5595:391d809fa4e9
985 ;;----------------------------------------------------- 985 ;;-----------------------------------------------------
986 ;; Test `type-of' 986 ;; Test `type-of'
987 ;;----------------------------------------------------- 987 ;;-----------------------------------------------------
988 (Assert (eq (type-of load-path) 'cons)) 988 (Assert (eq (type-of load-path) 'cons))
989 (Assert (eq (type-of obarray) 'vector)) 989 (Assert (eq (type-of obarray) 'vector))
990 (Assert (eq (type-of 42) 'integer)) 990 (Assert (eq (type-of 42) 'fixnum))
991 (Assert (eq (type-of ?z) 'character)) 991 (Assert (eq (type-of ?z) 'character))
992 (Assert (eq (type-of "42") 'string)) 992 (Assert (eq (type-of "42") 'string))
993 (Assert (eq (type-of 'foo) 'symbol)) 993 (Assert (eq (type-of 'foo) 'symbol))
994 (Assert (eq (type-of (selected-device)) 'device)) 994 (Assert (eq (type-of (selected-device)) 'device))
995 995
2905 (+ 5 (needs-lexical-context 2905 (+ 5 (needs-lexical-context
2906 (1- first) 2906 (1- first)
2907 third 2907 third
2908 #'(lambda () (return-from awkward 0))) 2908 #'(lambda () (return-from awkward 0)))
2909 first))))) 2909 first)))))
2910 (if (compiled-function-p 2910 (Known-Bug-Expect-Failure
2911 (ignore-errors (indirect-function #'needs-lexical-context))) 2911 (Assert (eql 0 (needs-lexical-context 2 nil nil))
2912 (Known-Bug-Expect-Failure 2912 "the function special operator doesn't create a lexical context.")))
2913 (Assert (eql 0 (needs-lexical-context 2 nil nil))
2914 "the function special operator doesn't create a lexical context."))
2915 (Assert (eql 0 (needs-lexical-context 2 nil nil)))))
2916 2913
2917 ;; Test symbol-macrolet with symbols with identical string names. 2914 ;; Test symbol-macrolet with symbols with identical string names.
2918 2915
2919 (macrolet 2916 (macrolet
2920 ((test-symbol-macrolet () 2917 ((test-symbol-macrolet ()