summaryrefslogtreecommitdiff
path: root/modules/gallery/tests/Sendmail_Test.php
blob: 64c1fff036ee1966d854f2eaedd53653da28af49 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
<?php defined("SYSPATH") or die("No direct script access.");
/**
 * Gallery - a web based photo album viewer and editor
 * Copyright (C) 2000-2009 Bharat Mediratta
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or (at
 * your option) any later version.
 *
 * This program is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA  02110-1301, USA.
 */
class Sendmail_Test extends Unit_Test_Case {
  public function setup() {
    $config = Kohana::config("sendmail");
    $config["from"] = "from@gallery3.com";
    Kohana::config_set("sendmail", $config);
  }

  public function sendmail_test() {
    $expected = "To: receiver@someemail.com\r\n" .
                "From: from@gallery3.com\n" .
                "Reply-To: public@gallery3.com\r\n" .
                "Subject: Test Email Unit test\r\n\r\n" .
                "The mail message body";
    $result = Sendmail_For_Test::factory()
      ->to("receiver@someemail.com")
      /*
       * @todo figure out why this test fails so badly, when the following
       * line is not supplied. It doesn't seem to be set by setup method
       * as you would expect.
       */
      ->from("from@gallery3.com")
      ->subject("Test Email Unit test")
      ->message("The mail message body")
      ->send()
      ->send_text;

    $this->assert_equal($expected, $result);
  }

  public function sendmail_reply_to_test() {
    $expected = "To: receiver@someemail.com\r\n" .
                "From: from@gallery3.com\n" .
                "Reply-To: reply-to@gallery3.com\r\n" .
                "Subject: Test Email Unit test\r\n\r\n" .
                "The mail message body";
    $result = Sendmail_For_Test::factory()
      ->to("receiver@someemail.com")
      ->subject("Test Email Unit test")
      ->reply_to("reply-to@gallery3.com")
      ->message("The mail message body")
      ->send()
      ->send_text;
    $this->assert_equal($expected, $result);
  }

  public function sendmail_html_message_test() {
    $expected = "To: receiver@someemail.com\r\n" .
                "From: from@gallery3.com\n" .
                "Reply-To: public@gallery3.com\n" .
                "MIME-Version: 1.0\n" .
                "Content-type: text/html; charset=iso-8859-1\r\n" .
                "Subject: Test Email Unit test\r\n\r\n" .
                "<html><body><p>This is an html msg</p></body></html>";
    $result = Sendmail_For_Test::factory()
      ->to("receiver@someemail.com")
      ->subject("Test Email Unit test")
      ->header("MIME-Version", "1.0")
      ->header("Content-type", "text/html; charset=iso-8859-1")
      ->message("<html><body><p>This is an html msg</p></body></html>")
      ->send()
      ->send_text;
    $this->assert_equal($expected, $result);
  }

  public function sendmail_wrapped_message_test() {
    $expected = "To: receiver@someemail.com\r\n" .
                "From: from@gallery3.com\n" .
                "Reply-To: public@gallery3.com\r\n" .
                "Subject: Test Email Unit test\r\n\r\n" .
                "This is a long message that needs to go\n" .
                "over forty characters If we get lucky we\n" .
                "might make it long enought to wrap a\n" .
                "couple of times.";
    $result = Sendmail_For_Test::factory()
      ->to("receiver@someemail.com")
      ->subject("Test Email Unit test")
      ->line_length(40)
      ->message("This is a long message that needs to go over forty characters " .
                "If we get lucky we might make it long enought to wrap a couple " .
                "of times.")
      ->send()
      ->send_text;
    $this->assert_equal($expected, $result);
  }
}

class Sendmail_For_Test extends Sendmail {
  static function factory() {
    return new Sendmail_For_Test();
  }

  public function mail($to, $subject, $message, $headers) {
    $this->send_text = "To: $to\r\n{$headers}\r\nSubject: $this->subject\r\n\r\n$message";
    return true;
  }
}