diff --git a/tests/workgroups2-tests.el b/tests/workgroups2-tests.el
index 72b70bb3a8861de73bda69c4d8eec7fe0181cccf..1f78273c8cc4b6ed445b52892f1dfb630084fba9 100644
--- a/tests/workgroups2-tests.el
+++ b/tests/workgroups2-tests.el
@@ -154,18 +154,25 @@
   )
 
 (ert-deftest 310-frames ()
+  ;; Create some frames
   (should wg-control-frames)
   (make-frame)
   (make-frame)
   (should (wg-modified-p))
   (should (= (length (frame-list)) 3))
   (should workgroups-mode)
+
+  ;; Save
   (let (message-log-max)
     (wg-save-session))
+
+  ;; Reset to 1 frame
   (should-not (wg-session-modified (wg-current-session)))
   (should (= (length (wg-session-parameter 'frame-list)) 2))
   (delete-other-frames)
   (should (= (length (frame-list)) 1))
+
+  ;; Restore frames
   (wg-reload-session)
   ;;(should (= (length (wg-session-parameter 'frame-list)) 2))
   (should (= (length (frame-list)) 3))
@@ -173,5 +180,45 @@
   (let (message-log-max)
     (wg-save-session)))
 
+
+
+;; Bugs
+
+;; https://github.com/pashinin/workgroups2/issues/48
+;;(ert-deftest 500-bug-48 ()
+;;  ;; Create a bunch of files for 2 workgroups
+;;  (make-directory "/tmp/wg1" t)
+;;  (make-directory "/tmp/wg2" t)
+;;  (dotimes (i 20)
+;;    (let ((file (format "/tmp/wg1/file_%.2d.\n" (1+ i))))
+;;      (unless (file-exists-p file)
+;;        (write-file file))
+;;      (find-file file)))
+;;  (wg-create-workgroup "wg2" t)
+;;  (dotimes (i 20)
+;;    (let ((file (format "/tmp/wg2/file_%.2d.\n" (+ i 41))))
+;;      (unless (file-exists-p file)
+;;        (write-file file))
+;;      (find-file file)))
+;;
+;;  ;; Reopen, resave
+;;  (workgroups-mode 0)
+;;  (workgroups-mode 1)
+;;  (wg-save-session)     ;; this removes BUF objects, I think garbage collection
+;;
+;;  ;;(should (= (length (wg-session-buf-list (wg-current-session))) 3))
+;;  (let* ((bufs (wg-session-buf-list (wg-current-session)))
+;;         (bufs-len (length bufs))
+;;         (wg1 (wg-get-workgroup "First workgroup"))
+;;         (wg2 (wg-get-workgroup "wg2"))
+;;         (bufs1 (wg-workgroup-associated-bufs wg1))
+;;         (bufs2 (wg-workgroup-associated-bufs wg2))
+;;         (len1 (length bufs1))
+;;         (len2 (length bufs2)))
+;;    ;;(wg-workgroup-associated-bufs)
+;;    (should (>= bufs-len 40))
+;;    (should (>= len1 20))
+;;    (should (>= len2 20))))
+
 (provide 'workgroups2-tests)
 ;;; workgroups2-tests.el ends here