From f53f86b41a75c4c0b9c7a7fe746cdd1459bc9a1c 2014-08-29 11:51:51
From: Sergey Pashinin <sergey@pashinin.com>
Date: 2014-08-29 11:51:51
Subject: [PATCH] Serialization test small fixes

---

diff --git a/tests/workgroups2-tests.el b/tests/workgroups2-tests.el
index 704dfde03624520e6fecfa05565b11198d1c91ce..46b7e9e5e56456ca6db9d06a1fb3ad8845381bfc 100644
--- a/tests/workgroups2-tests.el
+++ b/tests/workgroups2-tests.el
@@ -102,28 +102,27 @@
       (error "WG session file wasn't created"))))
 
 
+;; Test serialization functions
+
 (defmacro test-pickel (value)
   "Test `wg-pickel' `wg-unpickel' on VALUE."
   `(progn
-     (wg-unpickel (wg-pickel ,value))))
+     (eq (wg-unpickel (wg-pickel ,value)) ,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 (current-buffer))  ; #<buffer tests.el>
+  (test-pickel (point-marker))    ; #<marker at 3427 in tests.el>
+  (test-pickel (make-marker))     ; #<marker in no buffer>
   (test-pickel (list 'describe-variable 'help-xref-stack-item (get-buffer "*Help*")))
   ;; TODO:
   ;;(test-pickel (current-window-configuration))
   )
 
 
-
-;;
 ;; Special buffers
-;;
 
 (require 'python)
 (ert-deftest 300-special-modes ()