From: Siraaj Khandkar Date: Mon, 17 Sep 2018 11:28:27 +0000 (-0400) Subject: Filter-out non-.tig files from list of test case files X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=commitdiff_plain;h=c09092a90642142756c6d9aafb553fd3dd4d11a6 Filter-out non-.tig files from list of test case files --- diff --git a/compiler/src/lib/tiger/tiger_test_cases_book.ml b/compiler/src/lib/tiger/tiger_test_cases_book.ml index 5cae186..98e8383 100644 --- a/compiler/src/lib/tiger/tiger_test_cases_book.ml +++ b/compiler/src/lib/tiger/tiger_test_cases_book.ml @@ -144,5 +144,6 @@ let read ~from_dir:dir = Sys.readdir dir |> Array.to_list |> List.filter ~f:is_filename_not_hidden + |> List.filter ~f:(fun filename -> Filename.check_suffix filename ".tig") |> List.sort ~cmp:compare |> List.map ~f:(test_case_of_filename ~dir)