1665

1 files changed, 29 insertions, 0 deletions

diff --git a/edit.mu b/edit.mu
index d4d8c0da..4b2d6935 100644
--- a/edit.mu
+++ b/edit.mu
@@ -727,6 +727,35 @@ d]
   ]
 ]
 
+scenario editor-wraps-line-on-insert [
+  assume-screen 5:literal/width, 3:literal/height
+  assume-console [
+    type [e]
+  ]
+  run [
+    1:address:array:character <- new [abcd]
+    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 [
+    # no wrap yet
+    .eabcd.
+    .     .
+  ]
+  assume-console [
+    type [f]
+  ]
+  run [
+    event-loop screen:address, console:address, 2:address:editor-data
+  ]
+  screen-should-contain [
+    # now wrap
+    .efab↩.
+    .cd   .
+    .     .
+  ]
+]
+
 scenario editor-moves-cursor-after-inserting-characters [
   assume-screen 10:literal/width, 5:literal/height
   assume-console [