hmmb
This commit is contained in:
parent
eecd915d27
commit
2e15ae3aac
|
@ -306,7 +306,7 @@ let%expect_test _ =
|
||||||
print_parse_error (fun () -> Parse.user_modes "+I"); [%expect {| unknown mode I |}];
|
print_parse_error (fun () -> Parse.user_modes "+I"); [%expect {| unknown mode I |}];
|
||||||
|
|
||||||
let m, c = Set.normalize (Set.of_string "iw") (Parse.user_modes "-w+io") in
|
let m, c = Set.normalize (Set.of_string "iw") (Parse.user_modes "-w+io") in
|
||||||
Format.printf "%a -> [%a]" Set.pp_change c Set.pp m;
|
Format.printf "%a -> [%a]\n@." Set.pp_change c Set.pp m;
|
||||||
[%expect {| +o-w -> [io] |}];
|
[%expect {| +o-w -> [io] |}];
|
||||||
|
|
||||||
let print_chan_modes (m : Parse.chan_modes) =
|
let print_chan_modes (m : Parse.chan_modes) =
|
||||||
|
|
Loading…
Reference in New Issue