workgroups2 Changeset - bdc7d5e3aa70

Changeset - bdc7d5e3aa70

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-08-25 11:33:14
sergey@pashinin.com

Should not be modified on start

1 file changed with 4 insertions and 2 deletions:

tests/workgroups2-tests.el

0 comments (0 inline, 0 general)

tests/workgroups2-tests.el

➞

Show inline comments

@@ @@ -11,16 +11,18 @@ @@
   (should-not workgroups-mode))
 (ert-deftest 010-activate ()
   ;;(if (file-exists-p "/tmp/wg-test")
   ;;    (delete-file "/tmp/wg-test"))
   (setq wg-session-file "/tmp/wg-test")
   (workgroups-mode 1)
   (should workgroups-mode)
   (should (string= (wg-get-session-file) "/tmp/wg-test")))
 (ert-deftest wg-modeline-string ()
-  (should (string= (wg-mode-line-string) " (First workgroup:*-)"))
+  (should (string= (wg-mode-line-string) " (First workgroup:--)"))
   (setq wg-mode-line-decor-left-brace "["
         wg-mode-line-decor-right-brace "]")
-  (should (string= (wg-mode-line-string) " [First workgroup:*-]"))
+  (should (string= (wg-mode-line-string) " [First workgroup:--]"))
   (setq wg-flag-modified nil)
   (should (string= (wg-mode-line-string) " [First workgroup]"))
+  )

0 comments (0 inline, 0 general)