home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / hostmgr.zip / TEST.PL < prev   
Text File  |  1999-07-03  |  821b  |  24 lines
  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.  
  9.  
  10.  use Mail::Sender;
  11.  $sender = new Mail::Sender
  12.   {smtp => 'ns.microkod.ru', from => 'microkod@kursknet.ru'};
  13.  $result = $sender->MailMsg({to => 'microkod@sovtest.ru',
  14.   msg => "This is\n test message\n only for you\n",
  15.   file => "test.pl"});
  16.  print "$result\n";
  17.  
  18. ######################### End of black magic.
  19.  
  20. # Insert your test code below (better if it prints "ok 13"
  21. # (correspondingly "not ok 13") depending on the success of chunk 13
  22. # of the test code):
  23.  
  24.