vcs.maemo.org Git - pkg-perl/blob - deb-src/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/local/04_basic.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More tests => 4;
   6 use Net::SSLeay;
   7
   8 eval "use Test::Exception;";
   9
  10 SKIP: {
  11     skip 'Neet Test::Exception for the some tests', 3 if $@;
  12     lives_ok( sub { Net::SSLeay::randomize() }, 'randomizing' );
  13     lives_ok( sub { Net::SSLeay::load_error_strings() }, 'loading error strings' );
  14     lives_ok( sub { Net::SSLeay::SSLeay_add_ssl_algorithms() }, 'adding ssl algorithms' );
  15 }
  16
  17 is(Net::SSLeay::hello(), 1, 'hello world');