add native documentation support test

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index 20d15ac0e7a49750dfa2b101593aa276f249a9fa..5e2fb0bd99a438e6b8ea4869719a49a635b92adb 100644 (file)
--- a/test/src/comp-test-funcs.el
+++ b/test/src/comp-test-funcs.el
@@ -257,6 +257,10 @@
        (b 3))
     (% a b)))
 
+(defun comp-tests-doc-f ()
+  "A nice docstring"
+  t)
+
 \f
 ;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests ;;

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 570dcbd1ffa3ae9124f7c4b65658d25a47ce3047..73c1fe14caa5142fc948931677d149e173aabeb2 100644 (file)
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -307,6 +307,12 @@ Check that the resulting binaries do not differ."
   ;; See `comp-propagate-insn' `comp-function-call-remove'.
   (should (= (comp-tests-func-call-removal-f) 1)))
 
+(ert-deftest comp-tests-doc ()
+  (should (string= (documentation #'comp-tests-doc-f)
+                   "A nice docstring"))
+  (should (string= (symbol-file #'comp-tests-doc-f)
+                   (concat comp-test-src "n"))))
+
 (ert-deftest comp-tests-free-fun ()
   "Check we are able to compile a single function."
   (defun comp-tests-free-fun-f ()