Mercurial > hg > xemacs-beta

comparison tests/automated/lisp-tests.el @ 414:da8ed4261e83 r21-2-15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-15
author cvs
date Mon, 13 Aug 2007 11:21:38 +0200
parents 697ef44129c6
children 11054d720c21
comparison
equal deleted inserted replaced
413:901169e5ca31 414:da8ed4261e83
783 (make-local-variable 'test-emacs-buffer-local-variable) 783 (make-local-variable 'test-emacs-buffer-local-variable)
784 (byte-compile 784 (byte-compile
785 (defun test-emacs-buffer-local-parameter (test-emacs-buffer-local-variable) 785 (defun test-emacs-buffer-local-parameter (test-emacs-buffer-local-variable)
786 (setq test-emacs-buffer-local-variable nil))) 786 (setq test-emacs-buffer-local-variable nil)))
787 (test-emacs-buffer-local-parameter nil) 787 (test-emacs-buffer-local-parameter nil)
788
789 ;;-----------------------------------------------------
790 ;; Test split-string
791 ;;-----------------------------------------------------
792 ;; Hrvoje didn't like these tests so I'm disabling them for now. -sb
793 ;(Assert (equal (split-string "foo" "") '("" "f" "o" "o" "")))
794 ;(Assert (equal (split-string "foo" "^") '("" "foo")))
795 ;(Assert (equal (split-string "foo" "$") '("foo" "")))
796 (Assert (equal (split-string "foo,bar" ",") '("foo" "bar")))
797 (Assert (equal (split-string ",foo,bar," ",") '("" "foo" "bar" "")))
798 (Assert (equal (split-string ",foo,bar," "^,") '("" "foo,bar,")))
799 (Assert (equal (split-string ",foo,bar," ",$") '(",foo,bar" "")))
800 (Assert (equal (split-string ",foo,,bar," ",") '("" "foo" "" "bar" "")))
801 (Assert (equal (split-string "foo,,,bar" ",") '("foo" "" "" "bar")))
802 (Assert (equal (split-string "foo,,bar,," ",") '("foo" "" "bar" "" "")))
803 (Assert (equal (split-string "foo,,bar" ",+") '("foo" "bar")))
804 (Assert (equal (split-string ",foo,,bar," ",+") '("" "foo" "bar" "")))