Fix unit tests

peromage · Sep 19, 2023 · 9e20366 · 9e20366
1 parent b56af7e
commit 9e20366
Showing 1 changed file with 10 additions and 5 deletions.
diff --git a/pew/site-lisp/pewcfg/tests/test-pewcfg-core.el b/pew/site-lisp/pewcfg/tests/test-pewcfg-core.el
@@ -127,15 +127,16 @@
 ;;; Test :custom
   (expect-equal "Test :custom: Normalize"
     '(('(foo foovalue nil nil "foodoc")
-       '(bar barvalue nil nil nil)))
+       '(bar barvalue nil nil "Set by pewcfg:custom")))
     (pewcfg::normalize--:custom '((foo foovalue "foodoc")
                                   (bar barvalue))))
 
   (expect-equal "Test :custom: Generate"
-    `((custom-theme-set-variables
-       ',pewcfg::custom-theme
-       '(foo foovalue nil nil "foodoc")
-       '(bar barvalue nil nil nil)))
+    `((let ((custom--inhibit-theme-enable nil))
+        (custom-theme-set-variables
+         ',pewcfg::custom-theme
+         '(foo foovalue nil nil "foodoc")
+         '(bar barvalue nil nil nil))))
     (pewcfg::generate--:custom `'(foo foovalue nil nil "foodoc")
                                `'(bar barvalue nil nil nil)))
 
@@ -150,6 +151,10 @@
     '((customize-set-variable 'foo foovalue "comment"))
     (pewcfg::generate--:customize 'foo 'foovalue "comment"))
 
+  (expect-equal "Test :customize: Generate with default comment"
+    '((customize-set-variable 'foo foovalue "Set by pewcfg:customize"))
+    (pewcfg::generate--:customize 'foo 'foovalue))
+
 ;;; Test :setq
   (expect-equal "Test :setq: Normalize"
     '((foo foovalue bar barvalue))