Mercurial > hg > xemacs-beta
diff tests/automated/lisp-tests.el @ 414:da8ed4261e83 r21-2-15
Import from CVS: tag r21-2-15
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:21:38 +0200 |
| parents | 697ef44129c6 |
| children | 11054d720c21 |
line wrap: on
line diff
--- a/tests/automated/lisp-tests.el Mon Aug 13 11:20:44 2007 +0200 +++ b/tests/automated/lisp-tests.el Mon Aug 13 11:21:38 2007 +0200 @@ -785,3 +785,20 @@ (defun test-emacs-buffer-local-parameter (test-emacs-buffer-local-variable) (setq test-emacs-buffer-local-variable nil))) (test-emacs-buffer-local-parameter nil) + +;;----------------------------------------------------- +;; Test split-string +;;----------------------------------------------------- +;; Hrvoje didn't like these tests so I'm disabling them for now. -sb +;(Assert (equal (split-string "foo" "") '("" "f" "o" "o" ""))) +;(Assert (equal (split-string "foo" "^") '("" "foo"))) +;(Assert (equal (split-string "foo" "$") '("foo" ""))) +(Assert (equal (split-string "foo,bar" ",") '("foo" "bar"))) +(Assert (equal (split-string ",foo,bar," ",") '("" "foo" "bar" ""))) +(Assert (equal (split-string ",foo,bar," "^,") '("" "foo,bar,"))) +(Assert (equal (split-string ",foo,bar," ",$") '(",foo,bar" ""))) +(Assert (equal (split-string ",foo,,bar," ",") '("" "foo" "" "bar" ""))) +(Assert (equal (split-string "foo,,,bar" ",") '("foo" "" "" "bar"))) +(Assert (equal (split-string "foo,,bar,," ",") '("foo" "" "bar" "" ""))) +(Assert (equal (split-string "foo,,bar" ",+") '("foo" "bar"))) +(Assert (equal (split-string ",foo,,bar," ",+") '("" "foo" "bar" "")))