Correct io_get_chars comment/documentation

src/mpv/control.gleam

@@ -67,10 +67,6 @@ pub fn get_playback_time(socket: Socket) -> Result(PlaybackTime, ControlError) {
   }
 }
 
-pub fn clear_screen() -> Nil {
-  io.print("\u{001B}[2J\u{001B}[H")
-}
-
 fn send_command(socket: Socket, command: json.Json) -> Result(String, Reason) {
   result.try(tcp.send(socket, json.to_string(command) <> "\n"), fn(_) {
     let timeout_ms = 10_000

test/mpv/key_test.gleam

@@ -12,22 +12,30 @@ type TestCase {
 }
 
 pub fn key_from_list_test() {
-  let test_cases = [
+  let base_tests = [TestCase([], key.Continue([]))]
-    TestCase(["c"], Char("c")),
+
+  let char_tests = [TestCase(["c"], Char("c"))]
+
+  let escape_tests = [
+    TestCase([esc, csi], key.Continue([esc, csi])),
+    TestCase([esc], key.Continue([esc])),
+
     TestCase([esc, csi, "D"], key.Left),
     TestCase([esc, csi, "C"], key.Right),
     TestCase([esc, csi, "A"], key.Up),
     TestCase([esc, csi, "B"], key.Down),
-    TestCase([esc, csi], key.Continue([esc, csi])),
+  ]
-    TestCase([esc], key.Continue([esc])),
+
-    TestCase([], key.Continue([])),
+  let input_tests = [
     TestCase(["$"], key.Continue(["$"])),
     TestCase(["$", "a"], key.Continue(["$", "a"])),
     TestCase(["$", "a", "b"], key.Continue(["$", "ab"])),
     TestCase(["$", "ab", "\r"], key.Input("ab")),
   ]
 
-  list.each(test_cases, fn(tc) {
+  let test_cases = [base_tests, char_tests, escape_tests, input_tests]
+
+  list.each(list.flatten(test_cases), fn(tc) {
     assert tc.expected == key.from_list(tc.input)
   })
 }