git.maemo.org Git - pkg-perl/blob - deb-src/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/local/15_bio.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More tests => 7;
   6 use Net::SSLeay;
   7
   8 my $data = '0123456789' x 100;
   9 my $len  = length $data;
  10
  11 ok( my $bio = Net::SSLeay::BIO_new( &Net::SSLeay::BIO_s_mem ), 'BIO_new' );
  12 is( Net::SSLeay::BIO_write($bio, $data), $len, 'BIO_write' );
  13 is( Net::SSLeay::BIO_pending($bio), $len, 'BIO_pending' );
  14
  15 my $read_len = 9;
  16 is( Net::SSLeay::BIO_read($bio, $read_len), substr($data, 0, $read_len), 'BIO_read part' );
  17 is( Net::SSLeay::BIO_pending($bio), $len - $read_len, 'BIO_pending' );
  18
  19 is( Net::SSLeay::BIO_read($bio), substr($data, $read_len), 'BIO_read rest' );
  20
  21 ok( Net::SSLeay::BIO_free($bio), 'BIO_free' );