aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEdwin Fine <[email protected]>2016-07-28 18:11:29 -0400
committerEdwin Fine <[email protected]>2016-07-28 18:12:32 -0400
commit7b69120ae116cf4d0e1e68775f5ba474c6b69f77 (patch)
tree77bb91a7726454e47d7a654f8a508f89c6f7c77d
parent7babe1a82adc9dd1deb1b43074ac184f89fda945 (diff)
downloadotp-7b69120ae116cf4d0e1e68775f5ba474c6b69f77.tar.gz
otp-7b69120ae116cf4d0e1e68775f5ba474c6b69f77.tar.bz2
otp-7b69120ae116cf4d0e1e68775f5ba474c6b69f77.zip
Add test for inet6fb4 validation
-rw-r--r--lib/inets/test/inets_sup_SUITE.erl30
1 files changed, 29 insertions, 1 deletions
diff --git a/lib/inets/test/inets_sup_SUITE.erl b/lib/inets/test/inets_sup_SUITE.erl
index 5b8b1463c8..cf7aa78ff3 100644
--- a/lib/inets/test/inets_sup_SUITE.erl
+++ b/lib/inets/test/inets_sup_SUITE.erl
@@ -33,7 +33,7 @@ suite() ->
all() ->
[default_tree, ftpc_worker, tftpd_worker,
- httpd_subtree, httpd_subtree_profile,
+ httpd_config, httpd_subtree, httpd_subtree_profile,
httpc_subtree].
groups() ->
@@ -52,6 +52,29 @@ end_per_suite(_) ->
inets:stop(),
ok.
+init_per_testcase(httpd_config, Config) ->
+ PrivDir = proplists:get_value(priv_dir, Config),
+ Dir = filename:join(PrivDir, "root"),
+ ok = file:make_dir(Dir),
+
+ FallbackConfig = [{port, 0},
+ {server_name,"www.test"},
+ {modules, [mod_get]},
+ {server_root, Dir},
+ {document_root, Dir},
+ {bind_address, any},
+ {ipfamily, inet6fb4}],
+ try
+ inets:stop(),
+ inets:start(),
+ inets:start(httpd, FallbackConfig),
+ Config
+ catch
+ _:Reason ->
+ inets:stop(),
+ exit({failed_starting_inets, Reason})
+ end;
+
init_per_testcase(httpd_subtree, Config) ->
PrivDir = proplists:get_value(priv_dir, Config),
Dir = filename:join(PrivDir, "root"),
@@ -193,6 +216,11 @@ tftpd_worker(Config) when is_list(Config) ->
[] = supervisor:which_children(tftp_sup),
ok.
+httpd_config() ->
+ [{doc, "Makes sure the httpd config works for inet6fb4."}].
+httpd_config(Config) when is_list(Config) ->
+ Config. % All the work is done in the init_per_testcase
+
httpd_subtree() ->
[{doc, "Makes sure the httpd sub tree is correct."}].
httpd_subtree(Config) when is_list(Config) ->