diff options
author | Ingela Anderton Andin <[email protected]> | 2013-12-06 15:12:49 +0100 |
---|---|---|
committer | Ingela Anderton Andin <[email protected]> | 2014-02-05 10:32:28 +0100 |
commit | 5b40274acb3355d23e65ef59def92e92f89c72e2 (patch) | |
tree | 336e1eb60efaa1d3f67053cb9e030c7ae92c15d8 /lib/inets/test/inets_test_lib.erl | |
parent | 2c0afc1a1b4d2dd370024b7bd4884e41c3e3c148 (diff) | |
download | otp-5b40274acb3355d23e65ef59def92e92f89c72e2.tar.gz otp-5b40274acb3355d23e65ef59def92e92f89c72e2.tar.bz2 otp-5b40274acb3355d23e65ef59def92e92f89c72e2.zip |
inets: Start CT'ify httpd_SUITE
Conflicts:
lib/inets/test/httpd_SUITE.erl
Diffstat (limited to 'lib/inets/test/inets_test_lib.erl')
-rw-r--r-- | lib/inets/test/inets_test_lib.erl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/inets/test/inets_test_lib.erl b/lib/inets/test/inets_test_lib.erl index 3494269d70..4755776ee8 100644 --- a/lib/inets/test/inets_test_lib.erl +++ b/lib/inets/test/inets_test_lib.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2001-2013. All Rights Reserved. +%% Copyright Ericsson AB 2001-2014. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -287,7 +287,9 @@ print(F, A, Mod, Line) -> print("", F, A, Mod, Line). hostname() -> - from($@, atom_to_list(node())). + {ok, Name} = inet:gethostname(), + Name. + from(H, [H | T]) -> T; from(H, [_ | T]) -> from(H, T); from(_, []) -> []. |