From 99e2c92f96b642bfab1bb577f9fa7d02d3f7b868 Mon Sep 17 00:00:00 2001 From: deb0ch Date: Mon, 28 Nov 2016 22:42:38 +0100 Subject: [PATCH] remove obsoleted test files --- .travis.yml | 40 ---------------------------------------- tests.el | 37 ------------------------------------- 2 files changed, 77 deletions(-) delete mode 100644 .travis.yml delete mode 100644 tests.el diff --git a/.travis.yml b/.travis.yml deleted file mode 100644 index 7c71234..0000000 --- a/.travis.yml +++ /dev/null @@ -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 diff --git a/tests.el b/tests.el deleted file mode 100644 index 54a6ea2..0000000 --- a/tests.el +++ /dev/null @@ -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]))) - )