atagen/culr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

reorder tests

Browse Source
This commit is contained in:
atagen 2024-12-03 13:06:46 +11:00
parent f897e0cbb8
commit 881253d833
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/ansi.ml
View File

@ -29,10 +29,10 @@ let ansi_sgr =
'h';
'l';
]
in
and (=?) = List.mem in
peek_char >>= function
| Some c ->
if List.mem c valid then advance 1 *> return (Some c) else return None
if c =? valid then advance 1 *> return (Some c) else return None
| None -> return None
let capture_ansi = both ansi_values ansi_sgr
@ -40,12 +40,6 @@ let capture_ansi = both ansi_values ansi_sgr
let ansi_parse =
ansi_escape *> capture_ansi
let%test "ansi_parse" =
parse_string ~consume:Angstrom.Consume.Prefix ansi_parse "\x1b[35;23;12m"
|> function
| Ok (d, t) -> d = [ 35; 23; 12 ] && t = Some 'm'
| _ -> false
type parser_state_colour = ParsingFg | ParsingBg
type parser_state =
@ -100,6 +94,12 @@ let parse_ansi_intermediate (codes, terminator) : chunk =
in
Ansi final
let%test "ansi_parse" =
parse_string ~consume:Angstrom.Consume.Prefix ansi_parse "\x1b[35;23;12m"
|> function
| Ok (d, t) -> d = [ 35; 23; 12 ] && t = Some 'm'
| _ -> false
let%test "ansi_intermediate_parse" =
let result =
parse_ansi_intermediate ([ 38; 5; 25; 24; 23; 1; 0 ], Some 'm')