<?php

namespace Roundcube\Tests\Framework;

use PHPUnit\Framework\TestCase;

/**
 * Test class to test rcube_mime class
 */
class Framework_Mime extends TestCase
{

    /**
     * Test decoding of single e-mail address strings
     * Uses rcube_mime::decode_address_list()
     */
    function test_decode_single_address()
    {
        $headers = [
            0  => 'test@domain.tld',
            1  => '<test@domain.tld>',
            2  => 'Test <test@domain.tld>',
            3  => 'Test Test <test@domain.tld>',
            4  => 'Test Test<test@domain.tld>',
            5  => '"Test Test" <test@domain.tld>',
            6  => '"Test Test"<test@domain.tld>',
            7  => '"Test \\" Test" <test@domain.tld>',
            8  => '"Test<Test" <test@domain.tld>',
            9  => '=?ISO-8859-1?B?VGVzdAo=?= <test@domain.tld>',
            10 => '=?ISO-8859-1?B?VGVzdAo=?=<test@domain.tld>', // #1487068
            // comments in address (#1487673)
            11 => 'Test (comment) <test@domain.tld>',
            12 => '"Test" (comment) <test@domain.tld>',
            13 => '"Test (comment)" (comment) <test@domain.tld>',
            14 => '(comment) <test@domain.tld>',
            15 => 'Test <test@(comment)domain.tld>',
            16 => 'Test Test ((comment)) <test@domain.tld>',
            17 => 'test@domain.tld (comment)',
            18 => '"Test,Test" <test@domain.tld>',
            // 1487939
            19 => 'Test <"test test"@domain.tld>',
            20 => '<"test test"@domain.tld>',
            21 => '"test test"@domain.tld',
            // invalid (#1489092)
            22 => '"John Doe @ SomeBusinessName" <MAILER-DAEMON>',
            23 => '=?UTF-8?B?IlRlc3QsVGVzdCI=?= <test@domain.tld>',
            // invalid, but we do our best to parse correctly
            24 => '"email@test.com" <>',
            // valid with redundant quoting (#1490040)
            25 => '"user"@"domain.tld"',
            // invalid addr-spec (#8164)
            26 => '"Test.org"<test@domain.tld',
            27 => '<test@domain.tld',
        ];

        $results = [
            0  => [1, '', 'test@domain.tld'],
            1  => [1, '', 'test@domain.tld'],
            2  => [1, 'Test', 'test@domain.tld'],
            3  => [1, 'Test Test', 'test@domain.tld'],
            4  => [1, 'Test Test', 'test@domain.tld'],
            5  => [1, 'Test Test', 'test@domain.tld'],
            6  => [1, 'Test Test', 'test@domain.tld'],
            7  => [1, 'Test " Test', 'test@domain.tld'],
            8  => [1, 'Test<Test', 'test@domain.tld'],
            9  => [1, 'Test', 'test@domain.tld'],
            10 => [1, 'Test', 'test@domain.tld'],
            11 => [1, 'Test', 'test@domain.tld'],
            12 => [1, 'Test', 'test@domain.tld'],
            13 => [1, 'Test (comment)', 'test@domain.tld'],
            14 => [1, '', 'test@domain.tld'],
            15 => [1, 'Test', 'test@domain.tld'],
            16 => [1, 'Test Test', 'test@domain.tld'],
            17 => [1, '', 'test@domain.tld'],
            18 => [1, 'Test,Test', 'test@domain.tld'],
            19 => [1, 'Test', '"test test"@domain.tld'],
            20 => [1, '', '"test test"@domain.tld'],
            21 => [1, '', '"test test"@domain.tld'],
            // invalid (#1489092)
            22 => [1, 'John Doe @ SomeBusinessName', 'MAILER-DAEMON'],
            23 => [1, 'Test,Test', 'test@domain.tld'],
            24 => [1, '', 'email@test.com'],
            25 => [1, '', 'user@domain.tld'],
            26 => [1, 'Test.org', 'test@domain.tld'],
            27 => [1, '', 'test@domain.tld'],
        ];

        foreach ($headers as $idx => $header) {
            $res = \rcube_mime::decode_address_list($header);

            $this->assertEquals($results[$idx][0], count($res), "Rows number in result for header: " . $header);
            $this->assertEquals($results[$idx][1], $res[1]['name'], "Name part decoding for header: " . $header);
            $this->assertEquals($results[$idx][2], $res[1]['mailto'], "Email part decoding for header: " . $header);
        }
    }

    /**
     * Test decoding of address groups
     * Uses rcube_mime::decode_address_list()
     */
    function test_decode_address_groups()
    {
        $headers = [
            0  => 'undisclosed-recipients:;',
            1  => 'group:test1@email.com',
            2  => 'group:<test1@email.com>',
            3  => 'group:test1@email.com,test2@email.com',
            4  => 'group: <test1@email.com>,<test2@email.com>',
            5  => '"test:group": "TEST1" <test1@email.com>,"TEST2" <test2@email.com>; test3@email.com',
        ];

        $results = [
            0  => [],
            1  => [1 => ['name' => '', 'mailto' => 'test1@email.com', 'string' => 'test1@email.com']],
            2  => [1 => ['name' => '', 'mailto' => 'test1@email.com', 'string' => 'test1@email.com']],
            3  => [
                1 => ['name' => '', 'mailto' => 'test1@email.com', 'string' => 'test1@email.com'],
                2 => ['name' => '', 'mailto' => 'test2@email.com', 'string' => 'test2@email.com']
            ],
            4  => [
                1 => ['name' => '', 'mailto' => 'test1@email.com', 'string' => 'test1@email.com'],
                2 => ['name' => '', 'mailto' => 'test2@email.com', 'string' => 'test2@email.com'],
            ],
            5  => [
                1 => ['name' => 'TEST1', 'mailto' => 'test1@email.com', 'string' => 'TEST1 <test1@email.com>'],
                2 => ['name' => 'TEST2', 'mailto' => 'test2@email.com', 'string' => 'TEST2 <test2@email.com>'],
                3 => ['name' => '',      'mailto' => 'test3@email.com', 'string' => 'test3@email.com'],
            ],
        ];

        // Note: For now we expect group names ignored, and members handled as independent addresses

        foreach ($headers as $idx => $header) {
            $res = \rcube_mime::decode_address_list($header);

            $this->assertEquals($results[$idx], $res, "Decode address groups (#$idx)");
        }
    }

    /**
     * Test decoding of header values
     * Uses rcube_mime::decode_mime_string()
     */
    function test_header_decode_qp()
    {
        $test = [
            // #1488232: invalid character "?"
            'quoted-printable (1)' => [
                'in'  => '=?utf-8?Q?Certifica=C3=A7=C3=A3??=',
                'out' => 'Certifica=C3=A7=C3=A3?',
            ],
            'quoted-printable (2)' => [
                'in'  => '=?utf-8?Q?Certifica=?= =?utf-8?Q?C3=A7=C3=A3?=',
                'out' => 'Certifica=C3=A7=C3=A3',
            ],
            'quoted-printable (3)' => [
                'in'  => '=?utf-8?Q??= =?utf-8?Q??=',
                'out' => '',
            ],
            'quoted-printable (4)' => [
                'in'  => '=?utf-8?Q??= a =?utf-8?Q??=',
                'out' => ' a ',
            ],
            'quoted-printable (5)' => [
                'in'  => '=?utf-8?Q?a?= =?utf-8?Q?b?=',
                'out' => 'ab',
            ],
            'quoted-printable (6)' => [
                'in'  => '=?utf-8?Q?   ?= =?utf-8?Q?a?=',
                'out' => '   a',
            ],
            'quoted-printable (7)' => [
                'in'  => '=?utf-8?Q?___?= =?utf-8?Q?a?=',
                'out' => '   a',
            ],
        ];

        foreach ($test as $idx => $item) {
            $res = \rcube_mime::decode_mime_string($item['in'], 'UTF-8');
            $res = quoted_printable_encode($res);

            $this->assertEquals($item['out'], $res, "Header decoding for: " . $idx);
        }
    }

    /**
     * Test headers parsing
     */
    function test_parse_headers()
    {
        $this->assertEquals([], \rcube_mime::parse_headers(''));


        $headers = "Subject: Test\r\n"
            . "To: test@test1.com\r\n\ttest@test2.com\r\n";

        $expected = [
            'subject' => 'Test',
            'to' => 'test@test1.com test@test2.com'
        ];

        $this->assertEquals($expected, \rcube_mime::parse_headers($headers));
    }

    /**
     * Test format=flowed unfolding
     */
    function test_format_flowed()
    {
        $raw = file_get_contents(TESTS_DIR . 'src/format-flowed-unfolded.txt');
        $flowed = file_get_contents(TESTS_DIR . 'src/format-flowed.txt');

        $this->assertEquals($flowed, \rcube_mime::format_flowed($raw, 80), "Test correct folding and space-stuffing");
    }

    /**
     * Test format=flowed unfolding
     */
    function test_unfold_flowed()
    {
        $flowed = file_get_contents(TESTS_DIR . 'src/format-flowed.txt');
        $unfolded = file_get_contents(TESTS_DIR . 'src/format-flowed-unfolded.txt');

        $this->assertEquals($unfolded, \rcube_mime::unfold_flowed($flowed), "Test correct unfolding of quoted lines");
    }

    /**
     * Test format=flowed unfolding (#1490284)
     */
    function test_unfold_flowed2()
    {
        $flowed   = "> culpa qui officia deserunt mollit anim id est laborum.\r\n"
                    ."> \r\n"
                    ."Sed ut perspiciatis unde omnis iste natus error \r\nsit voluptatem";
        $unfolded = "> culpa qui officia deserunt mollit anim id est laborum.\r\n"
                    ."> \r\n"
                    ."Sed ut perspiciatis unde omnis iste natus error sit voluptatem";

        $this->assertEquals($unfolded, \rcube_mime::unfold_flowed($flowed), "Test correct unfolding of quoted lines [2]");
    }

    /**
     * Test format=flowed delsp=yes unfolding (RFC3676)
     */
    function test_unfold_flowed_delsp()
    {
        $flowed   = "そしてジョバンニはすぐうしろの天気輪の柱が \r\n"
                    ."いつかぼんやりした三角標の形になって、しば \r\n"
                    ."らく蛍のように、ぺかぺか消えたりともったり \r\n"
                    ."しているのを見ました。";
        $unfolded = "そしてジョバンニはすぐうしろの天気輪の柱がいつかぼんやりした三角標の形になって、しばらく蛍のように、ぺかぺか消えたりともったりしているのを見ました。";

        $this->assertEquals($unfolded, \rcube_mime::unfold_flowed($flowed, null, true), "Test correct unfolding of flowed DelSp=Yes lines");
    }

    /**
     * Test wordwrap()
     */
    function test_wordwrap()
    {
        $samples = [
            [
                ["aaaa aaaa\n           aaaa"],
                "aaaa aaaa\n           aaaa",
            ],
            [
                ["123456789 123456789 123456789 123", 29],
                "123456789 123456789 123456789\n123",
            ],
            [
                ["123456789   3456789 123456789", 29],
                "123456789   3456789 123456789",
            ],
            [
                ["123456789 123456789 123456789   123", 29],
                "123456789 123456789 123456789\n  123",
            ],
            [
                ["abc", 1, "\n", true],
                "a\nb\nc",
            ],
            [
                ["ąść", 1, "\n", true, 'UTF-8'],
                "ą\nś\nć",
            ],
            [
                [">abc\n>def", 2, "\n", true],
                ">abc\n>def",
            ],
            [
                ["abc def", 3, "-"],
                "abc-def",
            ],
            [
                ["----------------------------------------------------------------------------------------\nabc                        def123456789012345", 76],
                "----------------------------------------------------------------------------------------\nabc                        def123456789012345",
            ],
            [
                ["-------\nabc def", 5],
                "-------\nabc\ndef",
            ],
            [
                ["http://xx.xxx.xx.xxx:8080/addressbooks/roundcubexxxxx%40xxxxxxxxxxxxxxxxxxxxxxx.xx.xx/testing/", 70],
                "http://xx.xxx.xx.xxx:8080/addressbooks/roundcubexxxxx%40xxxxxxxxxxxxxxxxxxxxxxx.xx.xx/testing/",
            ],
            [
                ["this-is-just-some-blabla-to-make-this-more-than-seventy-five-characters-in-a-row -- this line should be wrapped", 20, "\n"],
                "this-is-just-some-blabla-to-make-this-more-than-seventy-five-characters-in-a-row\n-- this line should\nbe wrapped",
            ],
            [
                [\rcube_charset::convert("㈱山﨑工業", 'UTF-8', 'ISO-2022-JP'), 1, "\n", true, 'ISO-2022-JP'],
                \rcube_charset::convert("㈱\n山\n﨑\n工\n業", 'UTF-8', 'ISO-2022-JP'),
            ],
        ];

        foreach ($samples as $sample) {
            $this->assertEquals($sample[1], call_user_func_array(['rcube_mime', 'wordwrap'], $sample[0]), "Test text wrapping");
        }
    }

    /**
     * Test parse_message()
     */
    function test_parse_message()
    {
        $file   = file_get_contents(__DIR__ . '/../src/html.msg');
        $result = \rcube_mime::parse_message($file);

        $this->assertInstanceOf(\rcube_message_part::class, $result);
        $this->assertSame('multipart/alternative', $result->mimetype);
        $this->assertSame('1.0', $result->headers['mime-version']);
        $this->assertSame('=_68eeaf4ab95b5312965e45c33362338e', $result->ctype_parameters['boundary']);
        $this->assertSame('1',              $result->parts[0]->mime_id);
        $this->assertSame(12,               $result->parts[0]->size);
        $this->assertSame('text/plain',     $result->parts[0]->mimetype);
        $this->assertSame("this is test",   $result->parts[0]->body);
        $this->assertSame('2',              $result->parts[1]->mime_id);
        $this->assertSame(0,                $result->parts[1]->size);
        $this->assertSame('multipart/related', $result->parts[1]->mimetype);
        $this->assertCount(2,               $result->parts[1]->parts);
        $this->assertSame('2.1',            $result->parts[1]->parts[0]->mime_id);
        $this->assertSame(257,              $result->parts[1]->parts[0]->size);
        $this->assertSame('text/html',      $result->parts[1]->parts[0]->mimetype);
        $this->assertSame('UTF-8',          $result->parts[1]->parts[0]->charset);
        $this->assertMatchesRegularExpression('/<html>/', $result->parts[1]->parts[0]->body);
        $this->assertSame('2.2',            $result->parts[1]->parts[1]->mime_id);
        $this->assertSame(793,              $result->parts[1]->parts[1]->size);
        $this->assertSame('image/jpeg',     $result->parts[1]->parts[1]->mimetype);
        $this->assertSame('base64',          $result->parts[1]->parts[1]->encoding);
        $this->assertSame('inline',          $result->parts[1]->parts[1]->disposition);
        $this->assertSame('photo-mini.jpg', $result->parts[1]->parts[1]->filename);
    }

    /**
     * Test file_content_type()
     */
    function test_file_content_type()
    {
        $file = INSTALL_PATH . 'program/resources/blocked.gif';
        $this->assertSame('image/gif', \rcube_mime::file_content_type($file, 'blocked.gif'));

        $this->assertSame('image/gif', \rcube_mime::file_content_type($file, 'blocked.gif', 'application/octet-stream', false, true));
    }

    /**
     * Test get_mime_extensions()
     */
    function test_get_mime_extensions()
    {
        $this->assertSame([], \rcube_mime::get_mime_extensions('unknown'));
        $this->assertSame(['gif'], \rcube_mime::get_mime_extensions('image/gif'));
        $this->assertSame(['pdf'], \rcube_mime::get_mime_extensions('application/pdf'));
        $this->assertSame(['jpg', 'jpeg', 'jpe'], \rcube_mime::get_mime_extensions('image/jpg'));
    }

    /**
     * Test image_content_type()
     */
    function test_image_content_type()
    {
        $file = file_get_contents(INSTALL_PATH . 'program/resources/blocked.gif');
        $this->assertSame('image/gif', \rcube_mime::image_content_type($file));
    }

    /**
     * Test fix_mimetype()
     */
    function test_fix_mimetype()
    {
        $this->assertSame('unknown', \rcube_mime::fix_mimetype('unknown'));
        $this->assertSame('application/pdf', \rcube_mime::fix_mimetype('pdf'));
        $this->assertSame('application/pdf', \rcube_mime::fix_mimetype('application/pdf.123'));
        $this->assertSame('image/jpeg', \rcube_mime::fix_mimetype('image/pjpeg'));
    }
}