From c09092a90642142756c6d9aafb553fd3dd4d11a6 Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Mon, 17 Sep 2018 07:28:27 -0400 Subject: [PATCH] Filter-out non-.tig files from list of test case files --- compiler/src/lib/tiger/tiger_test_cases_book.ml | 1 + 1 file changed, 1 insertion(+) 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) -- 2.20.1