/ 
Crypt-MatrixSSL-0.01
River stage zero No dependents
/ mxClient.pl

nope

# we are required after a -4 to send the output buffer back to the other side $rc=333; my $cout=''; $rc=Crypt::MatrixSSL::matrixSslDecode($cssl, $cin, $cout, $error, $alertLevel, $alertDescription); ok($rc==0,'matrixSslDecode'); # test 17 # ok(length($cout)>9,'matrixSslDecode1'); # test 18 ok((($error eq '') || ($error eq '333')),'matrixSslDecode2'); # test 19 ok((($alertLevel eq '') || ($alertLevel eq '333')),'matrixSslDecode3'); # test 20 ok((($alertDescription eq '') || ($alertDescription eq '333')),'matrixSslDecode4'); # test 21 print "matrixSslDecode('$cssl', '${\showme($cin)}', '${\showme($cout)}', '$error', '$alertLevel', '$alertDescription') returns '$rc'\n";

# we are required to call Decode again after a -4 (no need if $sin eq '' tho) $rc=333; my $sout=''; $rc=Crypt::MatrixSSL::matrixSslDecode($sssl, $sin, $sout, $error, $alertLevel, $alertDescription); ok($rc==0,'matrixSslDecode'); # test 17 # ok(length($sout)>9,'matrixSslDecode1'); # test 18 ok((($error eq '') || ($error eq '333')),'matrixSslDecode2'); # test 19 ok((($alertLevel eq '') || ($alertLevel eq '333')),'matrixSslDecode3'); # test 20 ok((($alertDescription eq '') || ($alertDescription eq '333')),'matrixSslDecode4'); # test 21 print "matrixSslDecode('$sssl', '${\showme($sin)}', '${\showme($sout)}', '$error', '$alertLevel', '$alertDescription') returns '$rc'\n";

# we are now going to "reply" (send the server stuff back to the client) $rc=333; $cout=''; $rc=Crypt::MatrixSSL::matrixSslDecode($cssl, $cin, $cout, $error, $alertLevel, $alertDescription); # ok($rc==Crypt::MatrixSSL::mxSSL_SEND_RESPONSE,'matrixSslDecode'); # test 17 ok($rc==0,'matrixSslDecode'); # test 17 ok(length($cout)==0,'matrixSslDecode1'); # test 18 ok((($error eq '') || ($error eq '333')),'matrixSslDecode2'); # test 19 ok((($alertLevel eq '') || ($alertLevel eq '333')),'matrixSslDecode3'); # test 20 ok((($alertDescription eq '') || ($alertDescription eq '333')),'matrixSslDecode4'); # test 21 print "matrixSslDecode('$cssl', '${\showme($cin)}', '${\showme($cout)}', '$error', '$alertLevel', '$alertDescription') returns '$rc'\n";

# We now re-check that it knows the handshake is complete $rc=333; $rc=Crypt::MatrixSSL::matrixSslHandshakeIsComplete($cssl); ok($rc==1, 'matrixSslHandshakeIsComplete'); # test x print "matrixSslHandshakeIsComplete('$cssl') returns '$rc'\n";

# We now re-check that it knows the handshake is complete $rc=333; $rc=Crypt::MatrixSSL::matrixSslHandshakeIsComplete($sssl); ok($rc==1, 'matrixSslHandshakeIsComplete'); # test x print "matrixSslHandshakeIsComplete('$sssl') returns '$rc'\n";

# Our client in now going to send a message to the server $rc=333; $cin='Hello Me!'; $cout=''; $rc=Crypt::MatrixSSL::matrixSslEncode($cssl, $cin, $cout); # ok($rc==Crypt::MatrixSSL::mxSSL_SEND_RESPONSE,'matrixSslDecode'); # test 17 ok($rc==0,'matrixSslEecode'); # test 17 ok(length($cout)>0,'matrixSslEecode1'); # test 18 print "matrixSslEncode('$cssl', '${\showme($cin)}', '${\showme($cout)}') returns '$rc'\n";

# Our Server in now going to send a message to the client $rc=333; $sin='Hello Me!'; $sout=''; $rc=Crypt::MatrixSSL::matrixSslEncode($sssl, $sin, $sout); # ok($rc==Crypt::MatrixSSL::mxSSL_SEND_RESPONSE,'matrixSslDecode'); # test 17 ok($rc==0,'matrixSslEecode'); # test 17 ok(length($sout)>0,'matrixSslEecode1'); # test 18 print "matrixSslEncode('$sssl', '${\showme($sin)}', '${\showme($sout)}') returns '$rc'\n";

$rc=333; $cout=''; $rc=Crypt::MatrixSSL::matrixSslGetSessionId($cssl, $cout); print "matrixSslGetSessionId($cssl, $cout)=$rc\n";

$rc=333; $rc==Crypt::MatrixSSL::matrixSslFreeSessionId($cout); print "matrixSslFreeSessionId($cout)=$rc\n";

$rc=333; $cout=''; $rc=Crypt::MatrixSSL::matrixSslEncodeClosureAlert($cssl, $cout); print "matrixSslEncodeClosureAlert($cssl, $cout)='$rc'\n";

# Clear up the finished session now $rc=333; $rc=Crypt::MatrixSSL::matrixSslDeleteSession($cssl); ok($rc==0,'matrixSslDeleteSession'); # test ?? print "matrixSslDeleteSession($cssl)='$rc'\n";

$rc=333; $rc=Crypt::MatrixSSL::matrixSslDeleteSession($sssl); ok($rc==0,'matrixSslDeleteSession2'); # test ?? print "matrixSslDeleteSession($sssl)='$rc'\n";

# Free our keys $rc=Crypt::MatrixSSL::matrixSslFreeKeys($smxkeys); print "matrixSslFreeKeys($smxkeys)=$rc\n";