view release on metacpan or  search on metacpan

t/matrixSslEncodeClosureAlert.t  view on Meta::CPAN

my ($Server_Keys, $Client_Keys);
my ($Server_SSL, $Client_SSL);

my @Alert;

########
# Init #
########

lives_ok { $Server_Keys = Crypt::MatrixSSL3::Keys->new() }
    'Keys->new (server)';
is PS_SUCCESS, $Server_Keys->load_rsa($certFile, $privFile, $privPass, undef),
    '$Server_Keys->load_rsa';
lives_ok { $Server_SSL = Crypt::MatrixSSL3::Server->new($Server_Keys, undef) }
    'Server->new';

lives_ok { $Client_Keys = Crypt::MatrixSSL3::Keys->new() }
    'Keys->new (client)';
is PS_SUCCESS, $Client_Keys->load_rsa(undef, undef, undef, $trustedCAcertFiles),
    '$Client_Keys->load_rsa';
lives_ok { $Client_SSL = Crypt::MatrixSSL3::Client->new($Client_Keys, undef, undef, undef, undef, undef, undef) }
    'Client->new';

#############
# Handshake #
#############

my ($client2server, $server2client) = (q{}, q{});
my ($client_rc, $server_rc);
while (1) {
    $server_rc = _decode($Server_SSL, $client2server, $server2client);
    $client_rc = _decode($Client_SSL, $server2client, $client2server);
    last if $client_rc || $server_rc;
}
is 1, $server_rc, 'handshake complete (server)';
is 1, $client_rc, 'handshake complete (client)';
ok !length $client2server, 'client outbuf empty after handshake';
ok !length $server2client, 'server outbuf empty after handshake';

#######
# I/O #
#######

# Simple string

my $s   = "Hello MatrixSSL!\0\n";
my $tmp = $s;
my $buf;

ok $Client_SSL->encode_to_outdata($s) > 0,
    'encode_to_outdata (client)';
is $tmp, $s,
    q{encode_to_outdata doesn't destroy input string};
is undef, _decode($Client_SSL, $server2client, $client2server);
ok length $client2server,
    'got some outbuf (client)';

is undef, _decode($Server_SSL, $client2server, $server2client, $buf);
is $buf, $s,
    'decoded ok (server)';
ok !length $client2server,
    'outbuf empty (client)';
ok !length $server2client,
    'outbuf empty (server)';

# ClosureAlert

is MATRIXSSL_SUCCESS, $Client_SSL->encode_closure_alert(),
    'encode_closure_alert';

is -1, _decode($Client_SSL, $server2client, $client2server);
ok length $client2server,
    'got some outbuf (client)';

ok $Server_SSL->encode_to_outdata($s) > 0,
    'encode_to_outdata (server, before CLOSE_NOTIFY)';

is 0+@Alert, 0,
    'no alerts yet';
is -1, _decode($Server_SSL, $client2server, $server2client, $buf);
is 0+@Alert, 1,
    '1 alert';
is $Alert[0], "MatrixSSL alert: level 1: SSL_ALERT_LEVEL_WARNING, desc 0: SSL_ALERT_CLOSE_NOTIFY",
    'SSL_ALERT_CLOSE_NOTIFY';

is PS_PROTOCOL_FAIL, $Client_SSL->encode_to_outdata($s),
    'encode_to_outdata (client, after CLOSE_NOTIFY)';
is PS_FAILURE, $Server_SSL->encode_to_outdata($s),
    'encode_to_outdata (server, after CLOSE_NOTIFY)';

#######
# Fin #
#######

undef $Server_SSL;
undef $Client_SSL;
undef $Server_Keys;
undef $Client_Keys;
#ok 1, 'matrixSslClose';


###########
# Helpers #
###########

sub _decode {
    my ($ssl) = @_; # other 3 params must be modified in place
    while (length $_[1]) {
        my $rc = $ssl->received_data($_[1], my $buf);
RC:
        if    ($rc == MATRIXSSL_REQUEST_SEND)       { last          }
        elsif ($rc == MATRIXSSL_REQUEST_RECV)       { next          }
        elsif ($rc == MATRIXSSL_HANDSHAKE_COMPLETE) { return 1      }
        elsif ($rc == MATRIXSSL_RECEIVED_ALERT)     { alert($buf); return -1 }
        elsif ($rc == MATRIXSSL_APP_DATA)           { $_[3].=$buf   }
        elsif ($rc == MATRIXSSL_SUCCESS)            { last          }
        else                                        { die error($rc)}
        $rc = $ssl->processed_data($buf);
        goto RC;
    }