From 241a3f7d0a85c4bbc69cf4ee3e40016610647bbf Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erix.ericsson.se>
Date: Fri, 14 Jan 2011 15:41:16 +0100
Subject: Update so that cover is skipper for applications without a .cover
 file

---
 lib/test_server/src/ts_run.erl | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib/test_server')

diff --git a/lib/test_server/src/ts_run.erl b/lib/test_server/src/ts_run.erl
index 68d731925f..d1e0e2e99c 100644
--- a/lib/test_server/src/ts_run.erl
+++ b/lib/test_server/src/ts_run.erl
@@ -616,6 +616,9 @@ make_common_test_args(Args0, Options, _Vars) ->
 	end,
     Cover = 
 	case lists:keysearch(cover,1,Options) of
+	    {value,{cover, App, none, _Analyse}} ->
+		io:format("No cover file found for ~p~n",[App]),
+		[];
 	    {value,{cover,_App,File,_Analyse}} -> 
 		[{cover,to_list(File)}];
 	    false -> 
-- 
cgit v1.2.3