cram: deduplicate candidates for test not found

Signed-off-by: Ali Caglayan <[email protected]>

Author: Alizter

bin/runtest_common.ml

@@ -40,6 +40,8 @@ let all_tests_of_dir parent_dir =
         >>| Path.Source.to_string)
   in
   List.concat [ cram_candidates; dir_candidates ]
+  |> String.Set.of_list
+  |> String.Set.to_list
 ;;
 
 let explain_unsuccessful_search path ~parent_dir =

test/blackbox-tests/test-cases/runtest-cmd-hints.t

@@ -13,7 +13,7 @@ Test the "did you mean" hints for dune runtest command.
 
   $ dune test dip.t
   Error: "dip.t" does not match any known test.
-  Hint: did you mean dir.t or dir.t?
+  Hint: did you mean dir.t?
   [1]
 
   $ dune test other_dip