Convert tests to ERT.
This commit is contained in:
parent
229c0561a3
commit
d5b635f34e
|
@ -1,35 +1,37 @@
|
|||
(require 'elk-test)
|
||||
(require 'ert)
|
||||
(require 'window-numbering)
|
||||
|
||||
(deftest "window-numbering-assign"
|
||||
(let ((window-numbering-windows (make-vector 10 nil))
|
||||
(window-numbering-numbers (make-hash-table :size 10))
|
||||
(window-numbering-left '(1 2 3)))
|
||||
(assert-nonnil (window-numbering-assign 'xx 7))
|
||||
(assert-nil (window-numbering-assign 'yy 7))
|
||||
(assert-nonnil (window-numbering-assign 'zz 8))
|
||||
(assert-equal 8 (gethash 'zz window-numbering-numbers))
|
||||
(assert-equal 7 (gethash 'xx window-numbering-numbers))
|
||||
(assert-equal 'zz (aref window-numbering-windows 8))
|
||||
(assert-equal 'xx (aref window-numbering-windows 7))
|
||||
))
|
||||
|
||||
(deftest "window-numbering-assign auto"
|
||||
(let ((window-numbering-windows (make-vector 10 nil))
|
||||
(window-numbering-numbers (make-hash-table :size 10))
|
||||
(window-numbering-left '(1 2 3 4)))
|
||||
(assert-eq 1 (window-numbering-assign 'xx))
|
||||
(assert-nonnil (window-numbering-assign 'yy 3))
|
||||
(assert-eq 2 (window-numbering-assign 'zz))
|
||||
(assert-eq 4 (window-numbering-assign 'aa))
|
||||
))
|
||||
(ert-deftest window-numbering-assign ()
|
||||
(let ((window-numbering-windows (make-vector 10 nil))
|
||||
(window-numbering-numbers (make-hash-table :size 10))
|
||||
(window-numbering-left '(1 2 3)))
|
||||
(should (not (null (window-numbering-assign 'xx 7))))
|
||||
(should (null (window-numbering-assign 'yy 7)))
|
||||
(should (not (null (window-numbering-assign 'zz 8))))
|
||||
(should (equal 8 (gethash 'zz window-numbering-numbers)))
|
||||
(should (equal 7 (gethash 'xx window-numbering-numbers)))
|
||||
(should (equal 'zz (aref window-numbering-windows 8)))
|
||||
(should (equal 'xx (aref window-numbering-windows 7)))
|
||||
))
|
||||
|
||||
|
||||
(deftest "window-numbering-calculate-left"
|
||||
(assert-equal '(6) (window-numbering-calculate-left
|
||||
[t t t t t nil t t t t]))
|
||||
(assert-equal '(1 2 3) (window-numbering-calculate-left
|
||||
[nil nil nil t t t t t t t]))
|
||||
(assert-equal '(1 2 3 4 5 6 7 8 9 0)
|
||||
(window-numbering-calculate-left
|
||||
[nil nil nil nil nil nil nil nil nil nil]))
|
||||
(ert-deftest window-numbering-assign-auto ()
|
||||
(let ((window-numbering-windows (make-vector 10 nil))
|
||||
(window-numbering-numbers (make-hash-table :size 10))
|
||||
(window-numbering-left '(1 2 3 4)))
|
||||
(should (eq 1 (window-numbering-assign 'xx)))
|
||||
(should (not (null (window-numbering-assign 'yy 3))))
|
||||
(should (eq 2 (window-numbering-assign 'zz)))
|
||||
(should (eq 4 (window-numbering-assign 'aa)))
|
||||
))
|
||||
|
||||
|
||||
(ert-deftest window-numbering-calculate-left ()
|
||||
(should (equal '(6) (window-numbering-calculate-left
|
||||
[t t t t t nil t t t t])))
|
||||
(should (equal '(1 2 3) (window-numbering-calculate-left
|
||||
[nil nil nil t t t t t t t])))
|
||||
(should (equal '(1 2 3 4 5 6 7 8 9 0)
|
||||
(window-numbering-calculate-left
|
||||
[nil nil nil nil nil nil nil nil nil nil])))
|
||||
)
|
||||
|
|
Loading…
Reference in a new issue