1# Before `make install' is performed this script should be runnable with
2# `make test'. After `make install' it should work as `perl test.pl'
3
4######################### We start with some black magic to print on failure.
5
6# Change 1..1 below to 1..last_test_to_print .
7# (It may become useful if the test is moved to ./t subdirectory.)
8
9BEGIN { $| = 1; print "1..2\n"; }
10END {print "not ok 1\n" unless $loaded;}
11use Mail::Sender;
12$loaded = 1;
13print "ok 1\n";
14
15######################### End of black magic.
16
17# Insert your test code below (better if it prints "ok 13"
18# (correspondingly "not ok 13") depending on the success of chunk 13
19# of the test code):
20
21use vars qw($sender);
22
23$sender = new Mail::Sender;
24if (ref $sender) {
25	print "ok 2\n";
26} else {
27	print "not ok 2\n\tfailed to create a new Mail::Sender object!\n";
28	exit;
29}
30