1# Before `make install' is performed this script should be runnable with 2# `make test'. After `make install' it should work as `perl t/01loadmodule.t' 3 4######################### We start with some black magic to print on failure. 5 6BEGIN { $| = 1; print "1..4\n"; } 7END {print "Load failed ... not ok 1\n" unless $loaded;} 8 9use Carp; 10BEGIN { 11 $foo = 0; 12 $SIG{__DIE__} = sub { $foo++ if defined $^S && !$^S } if $] > 5.006; 13} 14use IO::Socket::SSL qw(:debug1); 15$loaded = 1; 16$test=1; 17print "ok $test\n"; 18 19$test++; 20if ($foo) { print "not ";} 21print "ok $test\n"; 22delete $SIG{__DIE__}; 23 24$test++; 25if ($IO::Socket::SSL::DEBUG == 1) { print "ok $test\n"; } 26else { print "not ok $test\n"; } 27 28$test++; 29if ($Net::SSLeay::trace == 1) { print "ok $test\n"; } 30else { print "not ok $test\n"; } 31 32