stack_picker/lib/db.ml

10 lines
158 B
OCaml
Raw Permalink Normal View History

open Base
let%test_unit "rev" =
[%test_eq: int list] (List.rev [ 3; 2; 1 ]) [ 1; 2; 3 ]
let test stdout db =
let _ = stdout in
let _ = db in
Ok ()