remove obsoleted test files

This commit is contained in:
deb0ch 2016-11-28 22:42:38 +01:00
parent ddacef5a30
commit 99e2c92f96
2 changed files with 0 additions and 77 deletions

View file

@ -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

View file

@ -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])))
)