(should (string= (wg-mode-line-string) " [First workgroup:--]"))

  (setq wg-flag-modified nil)

  (should (string= (wg-mode-line-string) " [First workgroup]"))

  (setq wg-flag-modified t)

  )

(ert-deftest 030-wg-utils ()

  (should (= (length (wg-all-buf-uids)) 1))

  (should (wg-frame-to-wconfig))

  )

(ert-deftest 040-wg-still-active ()

  (should workgroups-mode))

(ert-deftest 050-modify ()

  (split-window-vertically)

  (switch-to-buffer "*Messages*")

  ;; Check 2 buffers

  ;;(should-not (window-tree))

  ;;(should-not (wg-window-tree-to-wtree))

  ;;(should (= (length (wg-all-buf-uids)) 2))

  ;;(should-not (wg-current-workgroup))

  (unless (string-equal "initial_terminal" (terminal-name (selected-frame)))

    (should (wg-session-modified (wg-current-session))))

  )

(ert-deftest 055-structs ()

  (let* ((s (wg-current-session))

         (wgs (wg-session-workgroup-list s))

         (wg1 (car wgs))

         (bufs (wg-session-buf-list s)))

    (should s)

    ;;(should (wg-session-modified s))

    (should wgs)

    (should (string= "First workgroup" (wg-workgroup-name wg1)))

    (should bufs)

    )

  ;;(should-not (wg-current-wconfig))

  ;; wtree

  (let ((wtree (wg-window-tree-to-wtree)))

    (should wtree)

    (should-not (boundp 'window-tree))

    ;;(should (string= (wg-wtree-dir wtree) "a"))

    ;;(should-not (wg-wtree-wlist wtree))

    )

  )