;;(make-frame)

  (if (file-exists-p "/tmp/wg-tests.log")

      (delete-file "/tmp/wg-tests.log"))

  (if (file-exists-p "/tmp/wg-test")

      (delete-file "/tmp/wg-test"))

  ;;(should-not (string-equal "initial_terminal" (terminal-name (selected-frame))))

  (should (boundp workgroups-mode))

  (should-not workgroups-mode)

  (should wg-session-load-on-start))

(ert-deftest 010-activate ()

  ;;(if (file-exists-p "/tmp/wg-test")

  ;;    (delete-file "/tmp/wg-test"))

  (setq wg-session-file "/tmp/wg-test")

  ;;(setq wg-session-load-on-start nil)

  (let (message-log-max)

    (workgroups-mode 1))

  (should workgroups-mode)

  (should (string= (wg-get-session-file) "/tmp/wg-test")))

(ert-deftest 020-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]"))

  (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))

    )

  )

(ert-deftest 100-wg-save ()

  (should (= (length (frame-list)) 1))

  (let (message-log-max)

    (wg-save-session))

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

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

    (unless (file-exists-p "/tmp/wg-test")

      (error "WG session file wasn't created"))))

(defmacro test-pickel (value)

  "Test `wg-pickel' `wg-unpickel' on VALUE."

  `(progn

     (wg-unpickel (wg-pickel ,value))))

(ert-deftest 110-wg-pickel ()

  (test-pickel 123)

  (test-pickel "str")

  (test-pickel 'symbol)

  (test-pickel (current-buffer))

  ;; (get-buffer org-agenda-buffer-name)

  (test-pickel (point-marker))

  (test-pickel (list 'describe-variable 'help-xref-stack-item (get-buffer "*Help*")))

  ;; TODO: