branch: elpa/evil-exchange
commit 86500b91f6c93cdb6bc27cfd03f9e2be9504deae
Author: Dewdrops <[email protected]>
Commit: Dewdrops <[email protected]>
add test
---
.gitignore | 1 +
.travis.yml | 14 ++++++++++++++
Cask | 7 +++++++
Makefile | 11 +++++++++++
test/evil-exchange-test.el | 43 +++++++++++++++++++++++++++++++++++++++++++
5 files changed, 76 insertions(+)
diff --git a/.gitignore b/.gitignore
index c3e97ab14d..087daa6761 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,4 @@
+.cask/
*.elc
tags
TAGS
diff --git a/.travis.yml b/.travis.yml
new file mode 100644
index 0000000000..91e4af0813
--- /dev/null
+++ b/.travis.yml
@@ -0,0 +1,14 @@
+language: emacs-lisp
+sudo: false
+before_install:
+ - curl -fsSkL https://gist.github.com/rejeep/ebcd57c3af83b049833b/raw > x.sh
&& source ./x.sh
+ - evm install $EVM_EMACS --use --skip
+ - cask
+env:
+ - EVM_EMACS=emacs-24.4-travis
+ - EVM_EMACS=emacs-24.5-travis
+ - EVM_EMACS=emacs-25.1-travis
+ - EVM_EMACS=emacs-25.2-travis
+script:
+ - emacs --version
+ - make test
diff --git a/Cask b/Cask
new file mode 100644
index 0000000000..edd8a93cea
--- /dev/null
+++ b/Cask
@@ -0,0 +1,7 @@
+(source gnu)
+(source melpa)
+
+(package-file "evil-exchange.el")
+
+(development
+ (depends-on "ert-runner"))
diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000000..b2a6550bef
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,11 @@
+all:
+ cask
+
+test:
+ cask exec ert-runner -l evil-exchange.el
+
+clean:
+ rm -rf .cask
+ rm -f *.elc test/*.elc
+
+.PHONY: test
diff --git a/test/evil-exchange-test.el b/test/evil-exchange-test.el
new file mode 100644
index 0000000000..c3e309d500
--- /dev/null
+++ b/test/evil-exchange-test.el
@@ -0,0 +1,43 @@
+;;; evil-exchange-test.el --- evil-exchange test
+
+;; Copyright (C) 2017 by Dewdrops
+
+;; Author: Dewdrops <[email protected]>
+
+;;; Code:
+
+
+(require 'evil-exchange)
+(require 'ert)
+
+(ert-deftest eex-test-exchange-general ()
+ (with-temp-buffer
+ (insert "left right")
+ (evil-exchange 1 4)
+ (evil-exchange 6 10)
+ (should (equal (buffer-string) "right left"))))
+
+(ert-deftest eex-test-exchange-adjacent ()
+ (with-temp-buffer
+ (insert "leftright")
+ (evil-exchange 1 4)
+ (evil-exchange 5 9)
+ (should (equal (buffer-string) "rightleft"))))
+
+(ert-deftest eex-test-exchange-across-line ()
+ (with-temp-buffer
+ (insert "left\nright")
+ (evil-exchange 1 4)
+ (evil-exchange 6 10)
+ (should (equal (buffer-string) "right\nleft"))))
+
+(ert-deftest eex-test-exchange-single-letter-with-comma ()
+ "regression for #4"
+ (with-temp-buffer
+ (insert "alpha a, beta b")
+ (evil-exchange 1 6)
+ (evil-exchange 10 14)
+ (should (equal (buffer-string) "beta a, alpha b"))))
+
+
+;;; evil-exchange-test.el ends here
