[nongnu] elpa/visual-fill-column 5b08b9ae9d 116/137: Add test for `visual-fill-column--add-extra-width`.

[ELPA Syncer]

branch: elpa/visual-fill-column
commit 5b08b9ae9da5b95e42e94e4c9ec01d63e8848ea2
Author: Joost Kremers <joostkremers@fastmail.fm>
Commit: Joost Kremers <joostkremers@fastmail.fm>

    Add test for `visual-fill-column--add-extra-width`.
---
 test/visual-fill-column-test.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/test/visual-fill-column-test.el b/test/visual-fill-column-test.el
index 0d51b61457..a66e0e7d3c 100644
--- a/test/visual-fill-column-test.el
+++ b/test/visual-fill-column-test.el
@@ -1,3 +1,15 @@
 ;;; visual-fill-column-test.el --- Tests for visual-fill-column
 
+;;; Commentary:
+;; Tests for the visual-fill-column package.
+
+;;; Code:
+
+(require 'visual-fill-column)
+
+(ert-deftest visual-fill-column--add-extra-width ()
+  (should (equal (visual-fill-column--add-extra-width 0  80 '(4 . 4)) '(0 . 
76)))
+  (should (equal (visual-fill-column--add-extra-width 10 80 '(4 . 0)) '(6 . 
80)))
+  (should (equal (visual-fill-column--add-extra-width 0  80 '(-4 . 0)) '(4 . 
80))))
+
 ;;; visual-fill-column-test.el ends here