From 7212d250ad3383b83de814646f038f7a77373b6f Mon Sep 17 00:00:00 2001
From: Peter Andersson <peppe@erlang.org>
Date: Thu, 14 Apr 2011 18:04:30 +0200
Subject: Fix failing tests on Windows.

---
 lib/common_test/test/ct_test_support.erl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lib/common_test/test')

diff --git a/lib/common_test/test/ct_test_support.erl b/lib/common_test/test/ct_test_support.erl
index bb142696fa..d8b3daaab8 100644
--- a/lib/common_test/test/ct_test_support.erl
+++ b/lib/common_test/test/ct_test_support.erl
@@ -212,7 +212,11 @@ get_opts(Config) ->
 	end,
     %% test_server:format("Test variables added to Config: ~p\n\n",
     %%                    [CtTestVars]),
-    InitOpts = proplists:get_value(ct_opts, Config),
+    InitOpts =
+	case proplists:get_value(ct_opts, Config) of
+	    undefined -> [];
+	    CtOpts -> CtOpts
+	end,
     [{logdir,LogDir} | InitOpts ++ CtTestVars].
 
 
-- 
cgit v1.2.3