Test module docstrings

tests/native_tests/language.hy

@@ -1785,6 +1785,11 @@ macros()
   (assert (none? (. f4 __doc__)))
   (assert (= (f4 [1 2]) "not a docstring")))
 
+(defn test-module-docstring []
+  (import [tests.resources.module-docstring-example :as m])
+  (assert (= m.__doc__ "This is the module docstring."))
+  (assert (= m.foo 5)))
+
 (defn test-relative-import []
   "Make sure relative imports work properly"
   (import [..resources [tlib]])

tests/resources/module_docstring_example.hy

@@ -0,0 +1,3 @@
+"This is the module docstring."
+
+(setv foo 5)