view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

BEGIN
{ 
   use Test::More tests => 3;
   use_ok("CAM::EmailTemplate");
}


SKIP: {
   if (!$ENV{RECIPIENT})
   {
      skip('Use "setenv RECIPIENT user@somehost.foo.com" to enable this test', 2);
   }

   my $t = CAM::EmailTemplate->new();
   ok($t, "Constructor");

   $t->setString(<<'EOF'
To: ::RECIPIENT::, "Joe Smith" <::RECIPIENT::>
From: "EmailTemplate test" <justatest@clotho.com>
Subject: test