1328 - another error message

1 files changed, 36 insertions, 0 deletions

diff --git a/chessboard.mu b/chessboard.mu
index a5ba2627..11d2c9d3 100644
--- a/chessboard.mu
+++ b/chessboard.mu
@@ -204,6 +204,13 @@ recipe read-file [
     break-unless q-pressed?:boolean
     reply 0:literal/dummy, 1:literal/quit, 0:literal/error
   }
+  {
+    newline?:boolean <- equal c:character, 13:literal/newline
+    break-unless newline?:boolean
+    error-message:address:array:character <- new [that's not enough]
+    print-string screen:address, error-message:address:array:character
+    reply 0:literal/dummy, 0:literal/quit, 1:literal/error
+  }
   file:integer <- subtract c:character, 97:literal  # 'a'
 #?   $print file:integer, [ #? 1
 #? ] #? 1
@@ -245,6 +252,13 @@ recipe read-rank [
     break-unless q-pressed?:boolean
     reply 0:literal/dummy, 1:literal/quit, 0:literal/error
   }
+  {
+    newline?:boolean <- equal c:character, 13:literal/newline
+    break-unless newline?:boolean
+    error-message:address:array:character <- new [that's not enough]
+    print-string screen:address, error-message:address:array:character
+    reply 0:literal/dummy, 0:literal/quit, 1:literal/error
+  }
   rank:integer <- subtract c:character, 49:literal  # '1'
 #?   $print rank:integer, [ #? 1
 #? ] #? 1
@@ -450,6 +464,28 @@ F read-move-file: routine failed to pause after coming up (before any keys were
   ]
 ]
 
+scenario read-move-empty [
+  assume-screen 20:literal/width, 2:literal/height
+  run [
+    1:address:channel <- init-channel 2:literal
+    2:integer/routine <- start-running read-move:recipe, 1:address:channel, screen:address
+    # 'read-move' is waiting for input
+    wait-for-routine 2:integer
+    3:integer <- routine-state 2:integer/id
+    4:boolean/waiting? <- equal 3:integer/routine-state, 2:literal/waiting
+    assert 4:boolean/waiting?, [
+F read-move-file: routine failed to pause after coming up (before any keys were pressed)]
+    1:address:channel <- write 1:address:channel, 13:literal/newline
+    1:address:channel <- write 1:address:channel, 97:literal  # 'a'
+    restart 2:integer/routine
+    wait-for-routine 2:integer
+  ]
+  screen-should-contain [
+    .that's not enough   .
+    .                    .
+  ]
+]
+
 recipe make-move [
   default-space:address:array:location <- new location:type, 30:literal
   b:address:array:address:array:character <- next-ingredient