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