Mercurial > hg > xemacs-beta

comparison tests/automated/lisp-tests.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 9d177e8d4150
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
859 (Assert (eq (char-before) nil)) 859 (Assert (eq (char-before) nil))
860 (Assert (eq (char-after) ?f)) 860 (Assert (eq (char-after) ?f))
861 (Assert (eq (preceding-char) 0)) 861 (Assert (eq (preceding-char) 0))
862 (Assert (eq (following-char) ?f)) 862 (Assert (eq (following-char) ?f))
863 ) 863 )
864
865 ;;-----------------------------------------------------
866 ;; Test plist manipulation functions.
867 ;;-----------------------------------------------------
868 (let ((sym (make-symbol "test-symbol")))
869 (Assert (eq t (get* sym t t)))
870 (Assert (eq t (get sym t t)))
871 (Assert (eq t (getf nil t t)))
872 (Assert (eq t (plist-get nil t t)))
873 (put sym 'bar 'baz)
874 (Assert (eq 'baz (get sym 'bar)))
875 (Assert (eq 'baz (getf '(bar baz) 'bar)))
876 (Assert (eq 'baz (getf (symbol-plist sym) 'bar)))
877 (Assert (eq 2 (getf '(1 2) 1)))
878 )