2 | All of {dir : string}
3 | Book of {dir : string}
7 let suite = ref Micro in
15 spec := [("-dir", Arg.String (fun dir -> suite := Book {dir}), "")]
17 spec := [("-dir", Arg.String (fun dir -> suite := All {dir}), "")]
23 | All {dir} -> Tiger.Test_cases.all ~dir
24 | Book {dir} -> Tiger.Test_cases.book ~dir
25 | Micro -> Tiger.Test_cases.micro