From fae8242eb944919e197f10c026fca18e4728a690 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Thu, 25 Jun 2015 00:44:37 -0700
Subject: 1651

---
 edit.mu | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/edit.mu b/edit.mu
index e6ef67f6..e86e6404 100644
--- a/edit.mu
+++ b/edit.mu
@@ -495,6 +495,28 @@ scenario editor-moves-cursor-right-with-key [
   ]
 ]
 
+scenario editor-moves-cursor-to-next-line-with-right-arrow [
+  assume-screen 10:literal/width, 5:literal/height
+  assume-console [
+    press 65514  # right arrow
+    press 65514  # right arrow
+    press 65514  # right arrow
+    press 65514  # right arrow - next line
+    type [0]
+  ]
+  run [
+    1:address:array:character <- new [abc
+d]
+    2:address:editor-data <- new-editor 1:address:array:character, screen:address, 0:literal/top, 0:literal/left, 5:literal/right
+    event-loop screen:address, console:address, 2:address:editor-data
+  ]
+  screen-should-contain [
+    .abc       .
+    .0d        .
+    .          .
+  ]
+]
+
 ## helpers for drawing editor borders
 
 recipe draw-box [
-- 
cgit 1.4.1-2-gfad0