From 0142817cf293aaa95d649239e40adbdcb7ec5fbc 2014-08-28 18:45:35
From: Sergey Pashinin <sergey@pashinin.com>
Date: 2014-08-28 18:45:35
Subject: [PATCH] Test renaming workgroup

---

diff --git a/tests/workgroups2-tests.el b/tests/workgroups2-tests.el
index 91860bce19de9d5fbe7eda89b20f1d9c9e2e777e..9a5c857a7beb0c6bca14b2cc7058cb94325f175c 100644
--- a/tests/workgroups2-tests.el
+++ b/tests/workgroups2-tests.el
@@ -61,6 +61,13 @@
   ;;(should-not (wg-current-workgroup))
   (unless (string-equal "initial_terminal" (terminal-name (selected-frame)))
     (should (wg-session-modified (wg-current-session))))
+
+  ;; Rename
+  (wg-rename-workgroup "asd")
+  (should (string= (wg-mode-line-string) " [asd:**]"))
+  (wg-rename-workgroup "First workgroup")
+  (should (string= (wg-mode-line-string) " [First workgroup:**]"))
+
   )
 
 (ert-deftest 055-structs ()