From 8dcdca346f02ebb93feab9f9b8c9091bc39eb058 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 27 Nov 2015 13:11:00 +0200
Subject: [PATCH] Add module tests for wrong-type-argument

* modules/mod-test/test.el (mod-test-sum-test): Add tests for
wrong-type-argument.
---
 modules/mod-test/test.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/modules/mod-test/test.el b/modules/mod-test/test.el
index 34090d9b062..3cb4e9344ca 100644
--- a/modules/mod-test/test.el
+++ b/modules/mod-test/test.el
@@ -38,7 +38,9 @@
                      "#<module function at \\(0x\\)?[0-9a-fA-F]+ from .*>"
                    "#<module function Fmod_test_sum from .*>")
                  (nth 1 descr))))
-    (should (= (nth 2 descr) 3))))
+    (should (= (nth 2 descr) 3)))
+  (should-error (mod-test-sum "1" 2) :type 'wrong-type-argument)
+  (should-error (mod-test-sum 1 "2") :type 'wrong-type-argument))
 
 (ert-deftest mod-test-sum-docstring ()
   (should (string= (documentation 'mod-test-sum) "Return A + B")))
-- 
2.39.5