Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

EWTS ignores more standard applications

  • Loading branch information...
commit 296ba5779bf308568b87b00f47d38a30e89b7fdc 1 parent 284530d
Michal Ptaszek authored
Showing with 13 additions and 1 deletion.
  1. +7 −1 bin/test.erl
  2. +6 −0 lib/ewts-1.0/src/ewts.erl
View
8 bin/test.erl
@@ -34,7 +34,7 @@ run_tests(Dir) ->
start_interactive_mode_node(Dir).
start_interactive_mode_node(ReportDir) ->
- Port = open_port({spawn, "bin/start_interactive yaws single_node "
+ Port = open_port({spawn, "bin/start_interactive inets single_node "
"-sasl sasl_error_logger false -pa lib/*/test "
"-s ewts "
"-run ewts start_tests "
@@ -98,8 +98,14 @@ filter(["erlydtl-" ++ _ | Rest], Acc) ->
filter(Rest, Acc);
filter(["crypto-" ++ _ | Rest], Acc) ->
filter(Rest, Acc);
+filter(["compiler-" ++ _ | Rest], Acc) ->
+ filter(Rest, Acc);
+filter(["syntax_tools-" ++ _ | Rest], Acc) ->
+ filter(Rest, Acc);
filter(["ssl-" ++ _ | Rest], Acc) ->
filter(Rest, Acc);
+filter(["xmerl-" ++ _ | Rest], Acc) ->
+ filter(Rest, Acc);
filter(["sasl-" ++ _ | Rest], Acc) ->
filter(Rest, Acc);
filter(["runtime_tools-" ++ _ | Rest], Acc) ->
View
6 lib/ewts-1.0/src/ewts.erl
@@ -124,6 +124,12 @@ filter(["sasl-" ++ _ | Rest], Acc) ->
filter(Rest, Acc);
filter(["runtime_tools-" ++ _ | Rest], Acc) ->
filter(Rest, Acc);
+filter(["compiler-" ++ _ | Rest], Acc) ->
+ filter(Rest, Acc);
+filter(["xmerl-" ++ _ | Rest], Acc) ->
+ filter(Rest, Acc);
+filter(["syntax_tools-" ++ _ | Rest], Acc) ->
+ filter(Rest, Acc);
filter([App | Rest], Acc) ->
filter(Rest, [App | Acc]);
filter([], Acc) ->
Please sign in to comment.
Something went wrong with that request. Please try again.