34 lines
861 B
Gleam
34 lines
861 B
Gleam
import gleam/list
|
|
import gleeunit
|
|
|
|
import mpv/key.{type Key, Char, csi, esc}
|
|
|
|
pub fn main() -> Nil {
|
|
gleeunit.main()
|
|
}
|
|
|
|
type TestCase {
|
|
TestCase(input: List(String), expected: Key)
|
|
}
|
|
|
|
pub fn key_from_list_test() {
|
|
let test_cases = [
|
|
TestCase(["c"], Char("c")),
|
|
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([])),
|
|
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) {
|
|
assert tc.expected == key.from_list(tc.input)
|
|
})
|
|
}
|