From a5eec1fedb08db12b2f062d08aa294ad99099cb7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Erik=20Hedenstro=CC=88m?= <erik@hedenstroem.com>
Date: Wed, 30 Mar 2016 22:14:22 +0200
Subject: [PATCH] Added test module to run eunit inside my IDE
---
.gitignore | 1 +
test/eunit_ide.erl | 18 ++++++++++++++++++
2 files changed, 19 insertions(+)
create mode 100644 test/eunit_ide.erl
diff --git a/.gitignore b/.gitignore
index f710fdd..a5cbf19 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,3 +2,4 @@ doc
_build
rebar3
rebar.lock
+erl_crash.dump
diff --git a/test/eunit_ide.erl b/test/eunit_ide.erl
new file mode 100644
index 0000000..9a522f0
--- /dev/null
+++ b/test/eunit_ide.erl
@@ -0,0 +1,18 @@
+-module(eunit_ide).
+
+-export([test/1, test/2]).
+
+-define(INFINITE_TIMOUT, 31536000). %% 365*24*60*60, a year in seconds
+
+test(Tests) ->
+ test(Tests, [verbose]).
+
+test(Tests, Options) ->
+ case lists:keytake(timeout, 1, Options) of
+ {value, {timeout, infinite}, NewOptions} ->
+ eunit:test({timeout, ?INFINITE_TIMOUT, Tests}, NewOptions);
+ {value, {timeout, Timeout}, NewOptions} when is_integer(Timeout) ->
+ eunit:test({timeout, Timeout, Tests}, NewOptions);
+ false ->
+ eunit:test(Tests, Options)
+ end.
--
GitLab