Permalink
Browse files

Remove test/

  • Loading branch information...
1 parent adac2fa commit 95d99ece976adc9ef79014a79532c69eb52a0ba5 @tkf committed Aug 30, 2012
Showing with 15 additions and 18 deletions.
  1. +0 −18 test/test-ne2wm-utils.el
  2. +15 −0 tests/test-ne2wm-utils.el
View
18 test/test-ne2wm-utils.el
@@ -1,18 +0,0 @@
-(require 'cl)
-(require 'ert)
-(require 'ne2wm-utils)
-
-(ert-deftest ne2wm:find-next-in-seq ()
- (let ((seq '(0 1 2 3 4)))
- (should (equal (ne2wm:find-next-in-seq seq 1) 2))
- (should (equal (ne2wm:find-next-in-seq seq 4) 0))
- (should (equal (ne2wm:find-next-in-seq seq 1 1) 2))
- (should (equal (ne2wm:find-next-in-seq seq 4 1) 0))
- (should (equal (ne2wm:find-next-in-seq seq 1 0) 1))
- (should (equal (ne2wm:find-next-in-seq seq 4 0) 4))
- (should (equal (ne2wm:find-next-in-seq seq 1 2) 3))
- (should (equal (ne2wm:find-next-in-seq seq 4 2) 1))
- (should (equal (ne2wm:find-next-in-seq seq 3 2) 0))
- (should (equal (ne2wm:find-next-in-seq seq 1 -1) 0))
- (should (equal (ne2wm:find-next-in-seq seq 0 -1) 4))
- (should (equal (ne2wm:find-next-in-seq seq 4 -1) 3))))
View
15 tests/test-ne2wm-utils.el
@@ -39,6 +39,21 @@
(should (eql (ne2wm:find-next-in-seq '(a b c d) 'd 2 t) 'b))
(should (eql (ne2wm:find-next-in-seq '(a b c d) 'a -1 t) 'b)))
+(ert-deftest ne2wm:find-next-in-seq2 ()
+ (let ((seq '(0 1 2 3 4)))
+ (should (equal (ne2wm:find-next-in-seq seq 1) 2))
+ (should (equal (ne2wm:find-next-in-seq seq 4) 0))
+ (should (equal (ne2wm:find-next-in-seq seq 1 1) 2))
+ (should (equal (ne2wm:find-next-in-seq seq 4 1) 0))
+ (should (equal (ne2wm:find-next-in-seq seq 1 0) 1))
+ (should (equal (ne2wm:find-next-in-seq seq 4 0) 4))
+ (should (equal (ne2wm:find-next-in-seq seq 1 2) 3))
+ (should (equal (ne2wm:find-next-in-seq seq 4 2) 1))
+ (should (equal (ne2wm:find-next-in-seq seq 3 2) 0))
+ (should (equal (ne2wm:find-next-in-seq seq 1 -1) 0))
+ (should (equal (ne2wm:find-next-in-seq seq 0 -1) 4))
+ (should (equal (ne2wm:find-next-in-seq seq 4 -1) 3))))
+
(ert-deftest ne2wm:find-neighbor ()
(should (eq (ne2wm:find-neighbor '(a b c d) 'a) 'b))
(should (eq (ne2wm:find-neighbor '(a b c d) 'b) 'c))

0 comments on commit 95d99ec

Please sign in to comment.