Show the original value for defcustom variables

Fixes #199

1 files changed, 14 insertions, 0 deletions

diff --git a/test/helpful-unit-test.el b/test/helpful-unit-test.el
index 64c9f02..d1d4840 100644
--- a/test/helpful-unit-test.el
+++ b/test/helpful-unit-test.el
@@ -950,3 +950,17 @@ find the source code."
   ;; loaded.
   ;;
   (helpful-function #'tetris))
+
+(defcustom helpful-test-custom-var 123
+  "I am an example custom variable."
+  :type 'number
+  :group 'helpful)
+
+;; Ensure the current value differs from the original value.
+(setq helpful-test-custom-var 456)
+
+(ert-deftest helpful--original-value ()
+  "Show the original value for defcustom variables."
+  (helpful-variable 'helpful-test-custom-var)
+  (should
+   (s-contains-p "Original Value\n123" (buffer-string))))