# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1291950166 18000
# Node ID 8f6170ce8e3dd0b3745d723c577c702e246b270c
# Parent  feff77db2f4303baa6fdb54c95a6b4e51719e69a
tests: test arrow mappings

diff -r feff77db2f43 -r 8f6170ce8e3d tests/test-movement.vim
--- a/tests/test-movement.vim	Thu Dec 09 21:59:57 2010 -0500
+++ b/tests/test-movement.vim	Thu Dec 09 22:02:46 2010 -0500
@@ -62,6 +62,34 @@
     " 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 @@
     " Move up
     normal k
     Assert g:CurrentLineContains("[3]")
+
+    " Move up
+    normal k
+    Assert g:CurrentLineContains("[4]")
 endfunction"}}}