remove obsoleted test files
This commit is contained in:
parent
ddacef5a30
commit
99e2c92f96
40
.travis.yml
40
.travis.yml
|
@ -1,40 +0,0 @@
|
|||
# https://github.com/rolandwalker/emacs-travis
|
||||
|
||||
language: emacs-lisp
|
||||
|
||||
env:
|
||||
matrix:
|
||||
- EMACS=emacs23
|
||||
- EMACS=emacs24
|
||||
- EMACS=emacs-snapshot
|
||||
|
||||
matrix:
|
||||
allow_failures:
|
||||
- env:
|
||||
- EMACS=emacs-snapshot
|
||||
|
||||
install:
|
||||
- if [ "$EMACS" = "emacs23" ]; then
|
||||
sudo apt-get update -qq &&
|
||||
sudo apt-get install -qq emacs23-gtk emacs23-el &&
|
||||
mkdir -p lib && curl https://raw.githubusercontent.com/ohler/ert/c619b56c5bc6a866e33787489545b87d79973205/lisp/emacs-lisp/ert.el > lib/ert.el;
|
||||
fi
|
||||
- if [ "$EMACS" = "emacs24" ]; then
|
||||
sudo add-apt-repository -y ppa:cassou/emacs &&
|
||||
sudo apt-get update -qq &&
|
||||
sudo apt-get install -qq emacs24 emacs24-el;
|
||||
fi
|
||||
- if [ "$EMACS" = "emacs-snapshot" ]; then
|
||||
sudo add-apt-repository -y ppa:cassou/emacs &&
|
||||
sudo apt-get update -qq &&
|
||||
sudo apt-get install -qq emacs-snapshot &&
|
||||
sudo apt-get install -qq emacs-snapshot-el emacs-snapshot-gtk;
|
||||
fi
|
||||
- mkdir -p lib && curl https://raw.githubusercontent.com/nschum/elisp-lint/stable/elisp-lint.el > lib/elisp-lint.el
|
||||
|
||||
script:
|
||||
$EMACS --version && find *.el -not -name "tests.el" | xargs $EMACS -Q --batch -l lib/elisp-lint.el -f elisp-lint-files-batch
|
||||
&& $EMACS -Q --batch -L lib -L . -l ert -l tests.el -f ert-run-tests-batch-and-exit
|
||||
|
||||
notifications:
|
||||
email: false
|
37
tests.el
37
tests.el
|
@ -1,37 +0,0 @@
|
|||
(require 'ert)
|
||||
(require 'window-numbering)
|
||||
|
||||
(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)))
|
||||
))
|
||||
|
||||
|
||||
(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