Mercurial > hg > xemacs-beta

comparison tests/automated/lisp-tests.el @ 5370:4c4b96b13f70

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Address the easy test failures in tests/automated. src/ChangeLog addition: 2011-03-11 Aidan Kehoe <kehoea@parhasard.net> * bytecode.c (optimize_byte_code): Only transform assignments to keywords to Bdiscard if NEED_TO_HANDLE_21_4_CODE is turned on. Cf. similar code in reject_constant_symbols(). tests/ChangeLog addition: 2011-03-11 Aidan Kehoe <kehoea@parhasard.net> * automated/byte-compiler-tests.el: (defconst :foo 1) now gives a warning when byte-compiled, check for that. (setq :foo 1) now errors with interpreted code, but succeeds with byte-compiled code; check for the former, wrap a Known-Bug-Expect-Failure around a check for the error in the latter case, we can't yet remove this behaviour while we're using packages compiled by 21.4. * automated/lisp-tests.el (wrong-type-argument): Integer zero is a valid argument to #'substring-no-properties, use Assert not Check-Error for it. Check some other aspects of the functionality of #'substring-no-properties in passing.
author Aidan Kehoe <kehoea@parhasard.net>
date Fri, 11 Mar 2011 20:40:01 +0000
parents 46b53e84ea7a
children d967d96ca043
comparison
equal deleted inserted replaced
5369:4141aeddc55b 5370:4c4b96b13f70
1337 1337
1338 (Check-Error wrong-type-argument (subseq 3 2)) 1338 (Check-Error wrong-type-argument (subseq 3 2))
1339 (Check-Error args-out-of-range (subseq [1 2 3] -42)) 1339 (Check-Error args-out-of-range (subseq [1 2 3] -42))
1340 (Check-Error args-out-of-range (subseq [1 2 3] 0 42)) 1340 (Check-Error args-out-of-range (subseq [1 2 3] 0 42))
1341 1341
1342 (Check-Error wrong-type-argument (substring-no-properties nil 4)) 1342 (let ((string "hi there"))
1343 (Check-Error wrong-type-argument (substring-no-properties "hi there" pi)) 1343 (Assert (equal (substring-no-properties "123" 0) "123"))
1344 (Check-Error wrong-type-argument (substring-no-properties "hi there" 0)) 1344 (Assert (equal (substring-no-properties "1234" -3 -1) "23"))
1345 (Assert (equal (substring-no-properties "hi there" 0) "hi there"))
1346 (put-text-property 0 (length string) 'foo 'bar string)
1347 (Assert (eq 'bar (get-text-property 0 'foo string)))
1348 (Assert (not
1349 (get-text-property 0 'foo (substring-no-properties "hi there" 0))))
1350 (Check-Error wrong-type-argument (substring-no-properties nil 4))
1351 (Check-Error wrong-type-argument (substring-no-properties "hi there" pi))
1352 (Check-Error wrong-type-argument (substring-no-properties "hi there" 0.0)))
1345 1353
1346 ;;----------------------------------------------------- 1354 ;;-----------------------------------------------------
1347 ;; Time-related tests 1355 ;; Time-related tests
1348 ;;----------------------------------------------------- 1356 ;;-----------------------------------------------------
1349 (Assert (= (length (current-time-string)) 24)) 1357 (Assert (= (length (current-time-string)) 24))