Mercurial > hg > xemacs-beta

comparison tests/automated/lisp-tests.el @ 388:aabb7f5b1c81 r21-2-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-9
author cvs
date Mon, 13 Aug 2007 11:09:42 +0200
parents bbff43aa5eb7
children 74fd4e045ea6
comparison
equal deleted inserted replaced
387:f892a9d0bb8d 388:aabb7f5b1c81
774 (Assert (not (equal #*010 #*0100))) 774 (Assert (not (equal #*010 #*0100)))
775 (Assert (not (equal #*0101 #*010))) 775 (Assert (not (equal #*0101 #*010)))
776 (Assert (equal (bit-vector 0 1 0) #*010)) 776 (Assert (equal (bit-vector 0 1 0) #*010))
777 (Assert (equal (make-bit-vector 3 1) #*111)) 777 (Assert (equal (make-bit-vector 3 1) #*111))
778 (Assert (equal (make-bit-vector 3 0) #*000)) 778 (Assert (equal (make-bit-vector 3 0) #*000))
779
780 ;;-----------------------------------------------------
781 ;; Test buffer-local variables used as (ugh!) function parameters
782 ;;-----------------------------------------------------
783 (make-local-variable 'test-emacs-buffer-local-variable)
784 (byte-compile
785 (defun test-emacs-buffer-local-parameter (test-emacs-buffer-local-variable)
786 (setq test-emacs-buffer-local-variable nil)))
787 (test-emacs-buffer-local-parameter nil)