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