trunk/clients/perl/OpenXPKI-Client/t/30.client.t

   1 use Test::More tests => 12;
   2 use English;
   3
   4 use strict;
   5 use warnings;
   6 # use Smart::Comments;
   7
   8 use OpenXPKI::Client;
   9 use Data::Dumper;
  10
  11 our %config;
  12 require 't/common.pl';
  13
  14 my $debug = $config{debug};
  15
  16 diag("Client library tests");
  17
  18 my $cli = OpenXPKI::Client->new(
  19     {
  20         SOCKETFILE => $config{socket_file},
  21     });
  22
  23 ok(defined $cli, 'Client object defined');
  24
  25 ok($cli->init_session(), 'Init session');
  26 #BAIL_OUT("exiting...");
  27
  28 my $session_id;
  29 ok($session_id = $cli->get_session_id(), 'get_session_id()');
  30 diag("Got session id $session_id");
  31
  32 ok($cli->get_communication_state() eq 'can_send', 'status: can_send');
  33
  34 my $response = $cli->send_receive_service_msg('PING');
  35
  36 ok($response->{SERVICE_MSG} eq 'GET_AUTHENTICATION_STACK', 'Response is GET_AUTHENTICATION_STACK') or diag Dumper $response;
  37 ok(exists $response->{PARAMS}->{AUTHENTICATION_STACKS}->{Anonymous}, 'Response contains anonymous auth stack') or diag Dumper $response;
  38
  39 ### $response
  40 # try to login
  41 $response = $cli->send_receive_service_msg('GET_AUTHENTICATION_STACK',
  42                                            {
  43                                                AUTHENTICATION_STACK => 'Anonymous',
  44                                            });
  45 is($response->{SERVICE_MSG}, 'SERVICE_READY', 'Anonymous login') or diag Dumper $response;
  46 ### $response
  47
  48 # try to operate a simple Server API function
  49 $response = $cli->get_API()->nop();
  50 ### $response
  51
  52 is(ref $response, 'HASH', 'NOP response is a hash') or diag Dumper $response;
  53 is($response->{SERVICE_MSG}, 'COMMAND', 'NOP SERVICE_MSG is COMMAND') or diag Dumper $response;
  54 is($response->{COMMAND}, 'nop', 'NOP COMMAND is nop') or diag Dumper $response;
  55 ok(exists $response->{PARAMS}, 'PARAMS reply exists') or diag Dumper $response;
  56 ok(! defined $response->{PARAMS}, 'PARAMS reply is undef') or diag Dumper $response;
  57