diff options
| author | Raimo Niskanen <[email protected]> | 2011-11-23 18:06:42 +0100 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2011-11-28 14:42:38 +0100 |
| commit | c5c718e28d87c3a77655ed22d2e9fd536e83281f (patch) | |
| tree | 0181f541b6375634ce5948cabf5e301443868ff4 | |
| parent | aef954289c850f69fee007fe978a627f8fae57e8 (diff) | |
| download | otp-c5c718e28d87c3a77655ed22d2e9fd536e83281f.tar.gz otp-c5c718e28d87c3a77655ed22d2e9fd536e83281f.tar.bz2 otp-c5c718e28d87c3a77655ed22d2e9fd536e83281f.zip | |
kernel: Adjust test to allow for creative auto alias on MacOS X
| -rw-r--r-- | lib/kernel/test/inet_SUITE.erl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/kernel/test/inet_SUITE.erl b/lib/kernel/test/inet_SUITE.erl index aaa20b7398..7241b093d0 100644 --- a/lib/kernel/test/inet_SUITE.erl +++ b/lib/kernel/test/inet_SUITE.erl @@ -97,8 +97,12 @@ t_gethostbyaddr() -> required(v4). t_gethostbyaddr(doc) -> "Test the inet:gethostbyaddr/1 function."; t_gethostbyaddr(Config) when is_list(Config) -> - ?line {Name,FullName,IPStr,IP,Aliases,_,_} = + ?line {Name,FullName,IPStr,{A,B,C,D}=IP,Aliases,_,_} = ct:get_config(test_host_ipv4_only), + ?line Rname = integer_to_list(D) ++ "." ++ + integer_to_list(C) ++ "." ++ + integer_to_list(B) ++ "." ++ + integer_to_list(A) ++ ".in-addr.arpa", ?line {ok,HEnt} = inet:gethostbyaddr(IPStr), ?line {ok,HEnt} = inet:gethostbyaddr(IP), ?line {error,Error} = inet:gethostbyaddr(Name), @@ -116,7 +120,7 @@ t_gethostbyaddr(Config) when is_list(Config) -> ok; _ -> ?line check_elems([{HEnt#hostent.h_name,[Name,FullName]}, - {HEnt#hostent.h_aliases,[[],Aliases]}]) + {HEnt#hostent.h_aliases,[[],Aliases,[Rname]]}]) end, ?line {_DName, _DFullName, DIPStr, DIP, _, _, _} = |