X-Git-Url: https://git.defcon.no/?a=blobdiff_plain;f=api%2Ft%2Fdomain.t;h=917ab1657273a74327a53e14d2e195aaafec01af;hb=c2f99e5e48ac8d3be1f3140b696bd307a4adb9d0;hp=38467df0f7ac539dc3f9ff8fc253b48cc11baed1;hpb=5564b3420c5316743e1cbc63be96735880d2153e;p=hermes

diff --git a/api/t/domain.t b/api/t/domain.t
index 38467df..917ab16 100644
--- a/api/t/domain.t
+++ b/api/t/domain.t
@@ -12,10 +12,10 @@ my $api_key   = "6327c08b70f9";
 my $api_user  = "test";
 my $api_pass  = "Very5ecr3t";
 
-my $test_domain = "example.com"; #TODO: Must fetch this from API
+my $test_domain = undef;
 
 # plan tests => 2;
-my ($g_ua, $response, $data, $temp);
+my ($g_ua, $response, $data, $temp, @t);
 
 
 $g_ua = LWP::UserAgent->new;
@@ -41,46 +41,51 @@ $data = decode_json( $response->content);
 ok($data, 				'domain/list JSON decode');
 is( $data->{'response'}, 'ok', 		'domain/list result');
 ok($data->{'list'},			'domain/list array');
+
+# 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 $response; undef $data;
 
-TODO: {
-	local $TODO = 'not implemented yet';
-	$response = $g_ua->get( $api_base . "domain/get_servers");
-	isa_ok( $response, 'HTTP::Response', 	'domain/list $response');
-	ok ($response->is_success, 		'domain/list is_success');
-	$data = decode_json( $response->content);
-	ok($data, 				'domain/get_servers JSON decode');
-	is( $data->{'response'}, 'ok', 		'domain/get_servers result');
-	ok($data->{'server'}->{'domain'},	'domain/get_servers - domain');
-	ok($data->{'server'}->{'registrar'},	'domain/get_servers - registrar');
-	ok($data->{'server'}->{'r_port'},	'domain/get_servers - r_port');
-	ok($data->{'server'}->{'proxy'},	'domain/get_servers - proxy');
-	ok($data->{'server'}->{'p_port'},	'domain/get_servers - p_port');
-	ok($data->{'server'}->{'prov_url'},	'domain/get_servers - prov_url');
-	undef $response; undef $data;
+$response = $g_ua->get( $api_base . "domain/get_servers?domain=" . $test_domain );
+isa_ok( $response, 'HTTP::Response', 	'domain/list $response');
+ok ($response->is_success, 		'domain/list is_success');
+$data = decode_json( $response->content);
+ok($data, 				'domain/get_servers JSON decode');
+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 $response; undef $data;
 
-}
+$response = $g_ua->get( $api_base . "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/" );
+	
+isa_ok( $response, 'HTTP::Response', 	'domain/list $response');
+ok ($response->is_success, 		'domain/list is_success');
+$data = decode_json( $response->content);
+ok($data, 				'domain/set_servers JSON decode');
+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 $response; undef $data;
 
 TODO: {
-	local $TODO = 'not implemented yet';
-	$response = $g_ua->get( $api_base . "domain/set_servers" .
-		"?domain=" . $test_domain . # TODO This should be fetched from domain/list !!
-		"&registrar=registrar." . $test_domain .
-		"&r_port=5060" .
-		"&proxy=proxy." . $test_domain .
-		"&p_port=5060" .
-		"&prov_url=http://phone." . $test_domain );
-		
-	isa_ok( $response, 'HTTP::Response', 	'domain/list $response');
-	ok ($response->is_success, 		'domain/list is_success');
-	$data = decode_json( $response->content);
-	ok($data, 				'domain/get_servers JSON decode');
-	is( $data->{'response'}, 'ok', 		'domain/get_servers result');
-	ok($data->{'server'}->{'domain'},	'domain/get_servers - domain');
-	ok($data->{'server'}->{'registrar'},	'domain/get_servers - registrar');
-	ok($data->{'server'}->{'r_port'},	'domain/get_servers - r_port');
-	ok($data->{'server'}->{'proxy'},	'domain/get_servers - proxy');
-	ok($data->{'server'}->{'p_port'},	'domain/get_servers - p_port');
-	ok($data->{'server'}->{'prov_url'},	'domain/get_servers - prov_url');
+	local $TODO = 'auth/logout not implemented yet';
+	$response = $g_ua->get( $api_base . "auth/logout");
+	#$data = decode_json( $response->content);
+	is( $data->{'response'}, 'ok', 		'auth/logout');
 	undef $response; undef $data;
 }