[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/scanner 2147abd 30/56: add tests for the configuration
From: |
Stefan Monnier |
Subject: |
[elpa] externals/scanner 2147abd 30/56: add tests for the configuration commands |
Date: |
Fri, 10 Apr 2020 13:56:03 -0400 (EDT) |
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)
- [elpa] externals/scanner d5be7b8 12/56: clean up resolution setters, (continued)
- [elpa] externals/scanner d5be7b8 12/56: clean up resolution setters, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 1e60cd2 03/56: add test and check targets to Makefile, gitignore dep, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 5bc37ff 02/56: add more customizations and validations, arglist functions, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner c952d0d 15/56: rename -options to -switches, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner e5c74e6 11/56: implement multi-page scan modes, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner dbb0ee4 14/56: add commentary, correct docstrings, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 3e0398c 22/56: correct to eval-and-compile (scanner--device-specific-switches), Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 5f06a4a 21/56: implement correct cleanup and error handling (scanner-scan-document), Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 536e998 16/56: move commands were they belong, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 31c8a49 08/56: add document scanning command and test cases, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 2147abd 30/56: add tests for the configuration commands,
Stefan Monnier <=
- [elpa] externals/scanner 6adbc64 28/56: correct argument handling in all the interactive specs, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner c63d2f9 31/56: update Readme.org, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 68b5c5f 18/56: update tests, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 15bc51d 25/56: correct the ‘run’ make target, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner bc9b16c 27/56: correct a comment and whitespace, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 930448a 24/56: improve docstrings, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 8219c0e 29/56: add ‘scanner-select-device’ to the menu, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 45a3e1c 34/56: use finer argument tests in language and output selection, Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 52bb203 32/56: correct the license notice (GNU Emacs -> This program), Stefan Monnier, 2020/04/10
- [elpa] externals/scanner 6594fcb 17/56: put image scan sentinel back into scanner-scan-image, Stefan Monnier, 2020/04/10