From 25601aa8a1926b5d71ea18cb6fd4ceb44b848307 Mon Sep 17 00:00:00 2001
From: Steve Losh <steve@stevelosh.com>
Date: Thu, 9 Dec 2010 22:02:46 -0500
Subject: [PATCH] tests: test arrow mappings

---
 tests/test-movement.vim | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/tests/test-movement.vim b/tests/test-movement.vim
index 04c0ecf..36cd235 100644
--- a/tests/test-movement.vim
+++ b/tests/test-movement.vim
@@ -62,6 +62,34 @@ function! s:TestMovementBasic()"{{{
     " Move up
     normal k
     Assert g:CurrentLineContains("[3]")
+
+
+    " Test arrow mappings
+    Assert g:CurrentLineContains("[3]")
+
+    " Move down
+    exec "normal \<down>"
+    Assert g:CurrentLineContains("[2]")
+
+    " Move down
+    exec "normal \<down>"
+    Assert g:CurrentLineContains("[1]")
+
+    " Move down
+    exec "normal \<down>"
+    Assert g:CurrentLineContains("[0]")
+
+    " Move up
+    exec "normal \<up>"
+    Assert g:CurrentLineContains("[1]")
+
+    " Move up
+    exec "normal \<up>"
+    Assert g:CurrentLineContains("[2]")
+
+    " Move up
+    exec "normal \<up>"
+    Assert g:CurrentLineContains("[3]")
 endfunction"}}}
 
 function! s:TestMovementLinear()"{{{
@@ -117,4 +145,8 @@ function! s:TestMovementLinear()"{{{
     " Move up
     normal k
     Assert g:CurrentLineContains("[3]")
+
+    " Move up
+    normal k
+    Assert g:CurrentLineContains("[4]")
 endfunction"}}}