File: visual-fill-column-test.el

package info (click to toggle)
visual-fill-column 2.4-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 400 kB
  • sloc: lisp: 235; makefile: 4
file content (15 lines) | stat: -rw-r--r-- 511 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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