X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=test%2Ftestmail.pl;h=2fb5635847619eff3235f0841fc10ba0c20dac66;hb=c263379f9a5e760eac410378b90a7996359329c6;hp=d84b7f5f3078e64764210f9bf93ebbf31d4f1531;hpb=6dbef47be6e39e23de9539f99b87841ea99013c7;p=clearscm.git

diff --git a/test/testmail.pl b/test/testmail.pl
index d84b7f5..2fb5635 100755
--- a/test/testmail.pl
+++ b/test/testmail.pl
@@ -17,17 +17,10 @@ use warnings;
 
 use FindBin;
 
-my $libs;
-
-BEGIN {
-  $libs = $ENV{SITE_PERLLIB} ? $ENV{SITE_PERLLIB} : "$FindBin::Bin/../lib";
-
-  die "Unable to find libraries\n" if !$libs;
-}
-
-use lib $libs;
+use lib "$FindBin::Bin/../lib";
 
 use Mail;
+use Display;
 
 my $data = <<END;
 <table cellspacing=0 border=1>
@@ -78,11 +71,15 @@ my $subject	= "Helpdesk Report";
 my $to		= "Andrew\@DeFaria.com";
 
 # Main
+display "Calling mail";
 mail (
-  "to"		=> $to,
-  "subject"	=> $subject,
-  "mode"	=> "html",
-  "heading"	=> $heading,
-  "footing"	=> $footing,
-  "data"	=> $data,
-)
+  to            => $to,
+  port          => 1025,
+  subject       => $subject,
+  mode          => "html",
+  heading       => $heading,
+  footing       => $footing,
+  data          => $data,
+  randomizeFrom => 1,
+);
+display "Called mail";
\ No newline at end of file