[elpa] externals/scanner 2147abd 30/56: add tests for the configuration commands

[Stefan Monnier]

branch: externals/scanner
commit 2147abd2fe2b7c7ec85a7fa28bc8b6831cee0171
Author: Raffael Stocker <address@hidden>
Commit: Raffael Stocker <address@hidden>

    add tests for the configuration commands
---
 scanner-test.el | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/scanner-test.el b/scanner-test.el
index 47fb60f..44289d9 100644
--- a/scanner-test.el
+++ b/scanner-test.el
@@ -171,6 +171,47 @@
     (should (member "out1" (scanner--tesseract-args "infile" "outfile")))
     (should (member "out2" (scanner--tesseract-args "infile" "outfile")))))
 
+;; Note: interactive commands are only tested for their non-interactive
+;; behavior
+(ert-deftest scanner-test-set-image-resolution ()
+  "Test the image resolution setter."
+  (let ((scanner-resolution '(:image 600 :doc 600)))
+    (should (eql 300 (progn (scanner-set-image-resolution 300)
+                           (plist-get scanner-resolution :image))))
+    (should (eql 600 (progn (scanner-set-image-resolution 300)
+                           (plist-get scanner-resolution :doc))))
+    (should-error (scanner-set-image-resolution nil)
+                 :type 'wrong-type-argument)))
+
+(ert-deftest scanner-test-set-document-resolution ()
+  "Test the document resolution setter."
+  (let ((scanner-resolution '(:image 600 :doc 600)))
+    (should (eql 600 (progn (scanner-set-document-resolution 300)
+                           (plist-get scanner-resolution :image))))
+    (should (eql 300 (progn (scanner-set-document-resolution 300)
+                           (plist-get scanner-resolution :doc))))
+    (should-error (scanner-set-document-resolution nil)
+                 :type 'wrong-type-argument)))
+
+(ert-deftest scanner-test-select-papersize ()
+  "Test the papersize selection command."
+  (let ((scanner-paper-sizes '(:a4 (210 297) :a5 (148 210)))
+       (scanner-doc-papersize :a5))
+    (should (eq :a4 (scanner-select-papersize :a4)))
+    (should-error (scanner-select-papersize :wrdlbrmpft)
+                 :type 'args-out-of-range)
+    (ignore-errors
+      (should (eq :a5 (scanner-select-papersize :wrdlbrmpft))))))
+
+(ert-deftest scanner-test-select-languages ()
+  "Test the language selection command."
+  (let ((scanner-tesseract-languages '("eng")))
+    (should (equal '("deu") (scanner-select-languages '("deu"))))
+    (should (equal '("deu" "eng") (scanner-select-languages '("deu" "eng"))))
+    (should-error (scanner-select-languages 42)
+                 :type 'wrong-type-argument)
+    (ignore-errors
+      (should (equal '("eng") (scanner-select-languages 42))))))
 
 (provide 'scanner-test)