13 lines
574 B
Plaintext
13 lines
574 B
Plaintext
--- t/40_server.t
|
|
+++ t/40_server.t
|
|
@@ -55,7 +55,8 @@
|
|
$srv = RPC::XML::Server->new(no_default => 1,
|
|
host => 'localhost', port => $port);
|
|
isa_ok($srv, 'RPC::XML::Server', '$srv<2>');
|
|
-is($srv->url, "http://localhost:$port/",
|
|
+my $loc_reverse = gethostbyaddr(inet_aton("127.0.0.1"),AF_INET);
|
|
+is($srv->url, "http://$loc_reverse:$port/",
|
|
'RPC::XML::Server::url method (set)'); # This should be non-null this time
|
|
# Test some of the simpler cases of add_method and get_method
|
|
$res = $srv->add_method({ name => 'perl.test.suite.test1',
|