c39c10d29da1 — Chris Cannam 6 months ago
Make this message a bit more informative
1 files changed, 1 insertions(+), 5 deletions(-)

M test/test-dir.sml
M test/test-dir.sml +1 -5
@@ 14,11 14,7 @@ structure TestDir = struct
 			 else NONE)
 		       NONE
 		       candidateDirectories of
-		NONE => raise Fail
-                              ("Test file directory " ^ dir ^
-                               " not found (candidate parent dirs: "
-			       ^ String.concatWith ", " candidateDirectories
-                               ^ ")")
+		NONE => raise Fail ("Test file directory " ^ dir ^ " not found: make sure you are running the tests from the correct directory. (Looked within: " ^ String.concatWith ", " (map (fn d => "'" ^ d ^ "'") candidateDirectories) ^ ")")
 	      | SOME acceptable => acceptable ^ "/" ^ dir
         end