Changed from GET to POST on all parameter passing. Fixed a nasty bug in previous...

[hermes] / api / t / tests_common.pm

diff --git a/api/t/tests_common.pm b/api/t/tests_common.pm
index 9c2ec83266683cc68612be6476ad258c5fdfda4a..59a43e88e94d590074a4a2a14ec4260b6ef331e2 100644 (file)
--- a/api/t/tests_common.pm
+++ b/api/t/tests_common.pm
@@ -40,15 +40,12 @@ sub exec_apinode($$)
 
        $session = "" if not defined $session;
        $auth_key = "" if not defined $auth_key;
-       my $url = $api_base . $node . 
-               "?session=" . $session .
-               "&auth_key=" . $auth_key;
+       my $url = $api_base . $node;
 
-       foreach my $key ( keys %$param )
-       {
-               $url .= "&" . $key . "=" . $param->{$key};
-       }
-       $response = $g_ua->get( $url );
+       $param->{'session'} = $session;
+       $param->{'auth_key'} = $auth_key;
+
+       $response = $g_ua->post( $url, $param );
        if ( $response->is_success )
        {
                if ( $response->content =~ m/\s*{/ )
@@ -66,8 +63,9 @@ sub exec_apinode($$)
 
 sub login_apikey
 {
-       my $response = $g_ua->get( $api_base . "auth/login" .
-                       "?api_key=" . $api_key );
+       my $response = $g_ua->post( $api_base . "auth/login",
+               [ "api_key" => $api_key ] );
+
        ok ($response->is_success,              'login_apikey request is_success');
        my $data = decode_json( $response->content) if $response->is_success;
        die("HTTP error") unless $response->is_success;
@@ -89,9 +87,10 @@ sub login_apikey
 
 sub login_user
 {
-       my $response = $g_ua->get( $api_base . "auth/login" .
-               "?username=" . $test_username .
-               "&password=" . $test_password );
+       my $response = $g_ua->post( $api_base . "auth/login",
+               [ "username" => $test_username,
+                 "password" => $test_password ] );
+
 
        ok ($response->is_success,              'login_user request is_success');
        my $data = decode_json( $response->content) if $response->is_success;
@@ -114,8 +113,8 @@ sub login_user
 
 sub logout
 {
-       my $response = $g_ua->get( $api_base . "auth/logout" .
-               "?session=" . $session );
+       my $response = $g_ua->post( $api_base . "auth/logout",
+               [ "session" => $session ] );
 
        ok ($response->is_success,              'logout request is_success');
        die("HTTP error") unless $response->is_success;