summaryrefslogtreecommitdiff
path: root/inttest/logging/logging_rt.erl
diff options
context:
space:
mode:
Diffstat (limited to 'inttest/logging/logging_rt.erl')
-rw-r--r--inttest/logging/logging_rt.erl99
1 files changed, 0 insertions, 99 deletions
diff --git a/inttest/logging/logging_rt.erl b/inttest/logging/logging_rt.erl
deleted file mode 100644
index 2b8e54b..0000000
--- a/inttest/logging/logging_rt.erl
+++ /dev/null
@@ -1,99 +0,0 @@
--module(logging_rt).
--export([files/0,
- run/1]).
-
--define(APP_FILE, "ebin/logging.app").
-
-files() ->
- [
- {copy, "../../rebar", "rebar"},
- {create, ?APP_FILE, app(invalid_name, [])}
- ].
-
-run(_Dir) ->
- SharedExpected = "==> logging_rt \\(compile\\)",
- %% provoke ERROR due to an invalid app file
- retest:log(info, "Check 'compile' failure output~n"),
- ok = check_output("./rebar compile -q", should_fail,
- [SharedExpected, "ERROR: "],
- ["WARN: ", "INFO: ", "DEBUG: "]),
- %% fix bad app file
- ok = file:write_file(?APP_FILE, app(logging, [])),
- retest:log(info, "Check 'compile' success output~n"),
- ok = check_output("./rebar compile", should_succeed,
- [SharedExpected],
- ["ERROR: ", "WARN: ", "INFO: ", "DEBUG: "]),
- retest:log(info, "Check 'compile -v' success output~n"),
- ok = check_output("./rebar compile -v", should_succeed,
- [SharedExpected],
- ["ERROR: ", "INFO: ", "DEBUG: "]),
- retest:log(info, "Check 'compile -vv' success output~n"),
- ok = check_output("./rebar compile -vv", should_succeed,
- [SharedExpected, "DEBUG: "],
- ["ERROR: ", "INFO: "]),
- ok.
-
-check_output(Cmd, FailureMode, Expected, Unexpected) ->
- case {retest:sh(Cmd), FailureMode} of
- {{error, _}=Error, should_succeed} ->
- retest:log(error, "cmd '~s' failed:~n~p~n", [Cmd, Error]),
- Error;
- {{ok, Captured}, should_succeed} ->
- Joined = string:join(Captured, "\n"),
- check_output1(Cmd, Joined, Expected, Unexpected);
- {{error, {stopped, {_Rc, Captured}}}, should_fail} ->
- Joined = string:join(Captured, "\n"),
- check_output1(Cmd, Joined, Expected, Unexpected)
- end.
-
-check_output1(Cmd, Captured, Expected, Unexpected) ->
- ReOpts = [{capture, all, list}],
- ExMatches =
- lists:zf(
- fun(Pattern) ->
- case re:run(Captured, Pattern, ReOpts) of
- nomatch ->
- retest:log(error,
- "Expected pattern '~s' missing "
- "in the following output:~n"
- "=== BEGIN ===~n~s~n=== END ===~n",
- [Pattern, Captured]),
- {true, Pattern};
- {match, _} ->
- false
- end
- end, Expected),
-
- UnExMatches =
- lists:zf(
- fun(Pattern) ->
- case re:run(Captured, Pattern, ReOpts) of
- nomatch ->
- false;
- {match, [Match]} ->
- retest:log(
- console,
- "Unexpected output when running cmd '~s':~n~s~n",
- [Cmd, Match]),
- {true, Match}
- end
- end, Unexpected),
-
- case {ExMatches, UnExMatches} of
- {[], []} ->
- ok;
- _ ->
- error
- end.
-
-%%
-%% Generate the contents of a simple .app file
-%%
-app(Name, Modules) ->
- App = {application, Name,
- [{description, atom_to_list(Name)},
- {vsn, "1"},
- {modules, Modules},
- {registered, []},
- {applications, [kernel, stdlib]}]},
- io_lib:format("~p.\n", [App]).