dd9468938d
Instead of "injecting" characters into the input stream, the input stream is now forwarded to the `musicplayer`. It has will have to decide what to do with the stream, e.g. by setting the "mode" to something that captures the input stream and acts upon it
40 lines
920 B
Gleam
40 lines
920 B
Gleam
import gleam/list
|
|
import gleeunit
|
|
|
|
import musicplayer/input/key.{type Key, Char, backspace, csi, esc, return}
|
|
|
|
pub fn main() -> Nil {
|
|
gleeunit.main()
|
|
}
|
|
|
|
type TestCase {
|
|
TestCase(input: List(String), expected: Key)
|
|
}
|
|
|
|
pub fn key_from_list_test() {
|
|
let base_tests = [TestCase([], key.Continue([]))]
|
|
|
|
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),
|
|
]
|
|
|
|
let input_tests = [
|
|
TestCase([return], key.Return),
|
|
TestCase([backspace], key.Backspace),
|
|
]
|
|
|
|
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)
|
|
})
|
|
}
|