diff --git a/tests/workgroups2-tests.el b/tests/workgroups2-tests.el index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..8f982b94cb55d3369ba931fd065e2d354d569559 100644 --- a/tests/workgroups2-tests.el +++ b/tests/workgroups2-tests.el @@ -0,0 +1,32 @@ +;;; workgroups2-tests.el --- Try something here +;;; Commentary: +;;; Code: + +(require 'cl) +(require 'ert) +(require 'workgroups2) + +(ert-deftest 000-initial () + (should (boundp workgroups-mode)) + (should-not workgroups-mode)) + +(ert-deftest 010-activate () + (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:*-)")) + (setq wg-mode-line-decor-left-brace "[" + wg-mode-line-decor-right-brace "]") + (should (string= (wg-mode-line-string) " [First workgroup:*-]")) + (setq wg-flag-modified nil) + (should (string= (wg-mode-line-string) " [First workgroup]")) + ) + +(ert-deftest wg-still-active () + (should workgroups-mode)) + +(provide 'workgroups2-tests) +;;; workgroups2-tests.el ends here