+# NOW: Set the $test_domain to something useful (i.e. the first reported domain)
+$test_domain = $data->{'list'}[0];
+ok($test_domain, 'test_domain set.');
+undef $data;
+
+$data = exec_apinode("domain/get_servers", { "domain" => $test_domain });
+is( $data->{'response'}, 'ok', 'domain/get_servers result');
+ok($data->{'servers'}->{'domain'}, 'domain/get_servers - domain');
+ok($data->{'servers'}->{'registrar'}, 'domain/get_servers - registrar');
+ok($data->{'servers'}->{'r_port'}, 'domain/get_servers - r_port');
+ok($data->{'servers'}->{'proxy'}, 'domain/get_servers - proxy');
+ok($data->{'servers'}->{'p_port'}, 'domain/get_servers - p_port');
+ok($data->{'servers'}->{'prov_url'}, 'domain/get_servers - prov_url');
+undef $data;
+
+$data = exec_apinode("domain/set_servers", {
+ "domain" => $test_domain,
+ "registrar" => "registrar." . $test_domain,
+ "r_port" => 5060,
+ "proxy" => "proxy." . $test_domain,
+ "p_port" => 5060,
+ "prov_url" => "http://phone." . $test_domain . "/hermes/prov/",
+} );
+
+is( $data->{'response'}, 'ok', 'domain/set_servers result');
+ok($data->{'servers'}->{'domain'}, 'domain/set_servers - domain');
+ok($data->{'servers'}->{'registrar'}, 'domain/set_servers - registrar');
+ok($data->{'servers'}->{'r_port'}, 'domain/set_servers - r_port');
+ok($data->{'servers'}->{'proxy'}, 'domain/set_servers - proxy');
+ok($data->{'servers'}->{'p_port'}, 'domain/set_servers - p_port');
+ok($data->{'servers'}->{'prov_url'}, 'domain/set_servers - prov_url');
+undef $data;
+
+logout();