Subversion-Projekte lars-tiefland.php_share

Revision

Details | Letzte Änderung | Log anzeigen | RSS feed

Revision Autor Zeilennr. Zeile
1 lars 1 
--TEST--
2 
Net_SMTP: quotedata() \n | \r  => \r\n replacement
3 
--FILE--
4 
<?php
5 
 
6 
error_reporting(E_ALL);
7 
require_once 'Net/SMTP.php';
8 
 
9 
$tests = array(
10 
    "\n"               => "\r\n",
11 
    "\r\n"             => "\r\n",
12 
    "\nxx"             => "\r\nxx",
13 
    "xx\n"             => "xx\r\n",
14 
    "xx\nxx"           => "xx\r\nxx",
15 
    "\n\nxx"           => "\r\n\r\nxx",
16 
    "xx\n\nxx"         => "xx\r\n\r\nxx",
17 
    "xx\n\n"           => "xx\r\n\r\n",
18 
    "\r\nxx"           => "\r\nxx",
19 
    "xx\r\n"           => "xx\r\n",
20 
    "xx\r\nxx"         => "xx\r\nxx",
21 
    "\r\n\r\nxx"       => "\r\n\r\nxx",
22 
    "xx\r\n\r\nxx"     => "xx\r\n\r\nxx",
23 
    "xx\r\n\r\n"       => "xx\r\n\r\n",
24 
    "\r\n\nxx"         => "\r\n\r\nxx",
25 
    "\n\r\nxx"         => "\r\n\r\nxx",
26 
    "xx\r\n\nxx"       => "xx\r\n\r\nxx",
27 
    "xx\n\r\nxx"       => "xx\r\n\r\nxx",
28 
    "xx\r\n\n"         => "xx\r\n\r\n",
29 
    "xx\n\r\n"         => "xx\r\n\r\n",
30 
    "\r"               => "\r\n",
31 
    "\rxx"             => "\r\nxx",
32 
    "xx\rxx"           => "xx\r\nxx",
33 
    "xx\r"             => "xx\r\n",
34 
    "\r\r"             => "\r\n\r\n",
35 
    "\r\rxx"           => "\r\n\r\nxx",
36 
    "xx\r\rxx"         => "xx\r\n\r\nxx",
37 
    "xx\r\r"           => "xx\r\n\r\n",
38 
    "xx\rxx\nxx\r\nxx" => "xx\r\nxx\r\nxx\r\nxx",
39 
    "\r\r\n\n"         => "\r\n\r\n\r\n",
40 
);
41 
 
42 
$hadError = false;
43 
foreach ($tests as $input => $expect) {
44 
    $output = $input;
45 
    Net_SMTP::quotedata($output);
46 
    if ($output != $expect) {
47 
        echo "Error: input " . prettyprint($input) . ", output " . prettyprint($output) . ", expected " . prettyprint($expect) . "\n";
48 
        $hadError = true;
49 
    }
50 
}
51 
 
52 
if (!$hadError) {
53 
    echo "success\n";
54 
}
55 
 
56 
function prettyprint($x)
57 
{
58 
    return str_replace(array("\r", "\n"), array('\r', '\n'), $x);
59 
}
60 
 
61 
--EXPECT--
62 
success