add a test about buffer manipulation

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index e959e2652283fbdf94b26019e5aa26c1fecc8186..1f15a0bd8bd7b14a1a7b8bd6d39f4d3a03f15174 100644 (file)
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -453,6 +453,14 @@
 
   (should (= (comp-test-apply #'comp-tests-cons-cdr-f 3) 3)))
 
+(ert-deftest comp-tests-buffer ()
+  (defun comp-tests-buff0-f ()
+    (with-temp-buffer
+      (insert "foo")
+      (buffer-string)))
+
+  (should (string= (comp-test-apply #'comp-tests-buff0-f) "foo")))
+
 ;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests ;;
 ;;;;;;;;;;;;;;;;;;;;