fix varset and add a test

2 files changed, 9 insertions, 3 deletions

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index b92716739b9..4fc62482a0d 100644
--- a/test/src/comp-test-funcs.el
+++ b/test/src/comp-test-funcs.el
@@ -50,8 +50,11 @@
 (defun comp-tests-cons-cdr-f (x)
   (cdr (cons 'foo x)))
 
-(defun comp-tests-varset-f ()
+(defun comp-tests-varset0-f ()
   (setq comp-tests-var1 55))
+(defun comp-tests-varset1-f ()
+  (setq comp-tests-var1 66)
+  4)
 
 (defun comp-tests-length-f ()
   (length '(1 2 3)))
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 47ae7899c69..331e1cfed16 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -71,8 +71,11 @@
 
 (ert-deftest comp-tests-varset ()
   "Testing varset."
-  (comp-tests-varset-f)
-  (should (= comp-tests-var1 55)))
+  (comp-tests-varset0-f)
+  (should (= comp-tests-var1 55))
+
+  (should (= (comp-tests-varset1-f) 4))
+  (should (= comp-tests-var1 66)))
 
 (ert-deftest comp-tests-length ()
   "Testing length."