1#!perl -T 2use strict; 3use Test::More tests => 5; 4 5BEGIN { 6 use_ok( 'Mail::Sender' ); 7} 8 9my $sender = Mail::Sender->new({tls_allowed => 0}); 10 11ok( ($sender > 0), "created the object with default settings") 12 or do { diag( " Error: $Mail::Sender::Error"); exit}; 13 14SKIP: { 15 skip "No SMTP server set in the default config", 3 unless $sender->{smtp}; 16 17 ok( $sender->{smtpaddr}, "smtpaddr defined"); 18 19 my $res = $sender->Connect(); 20 ok( (ref($res) or $res >=0), "->Connect()") 21 or do { diag("Error: $Mail::Sender::Error"); exit}; 22 23 ok( ($sender->{'supports'} and ref($sender->{'supports'}) eq 'HASH'), "found out what extensions the server supports"); 24}; 25