class PhpTransliterationTest

class PhpTransliterationTest extends TestCase {
    
    /**
     * Tests the PhpTransliteration::removeDiacritics() function.
     *
     * @param string $original
     *   The language code to test.
     * @param string $expected
     *   The expected return from PhpTransliteration::removeDiacritics().
     *
     * @dataProvider providerTestPhpTransliterationRemoveDiacritics
     */
    public function testRemoveDiacritics($original, $expected) : void {
        $transliterator_class = new PhpTransliteration();
        $result = $transliterator_class->removeDiacritics($original);
        $this->assertEquals($expected, $result);
    }
    
    /**
     * Provides data for self::testRemoveDiacritics().
     *
     * @return array
     *   An array of arrays, each containing the parameters for
     *   self::testRemoveDiacritics().
     */
    public static function providerTestPhpTransliterationRemoveDiacritics() {
        // cSpell:disable
        return [
            // Test all characters in the Unicode range 0x00bf to 0x017f.
[
                'ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏ',
                'AAAAAAÆCEEEEIIII',
            ],
            [
                'ÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß',
                'ÐNOOOOO×OUUUUYÞß',
            ],
            [
                'àáâãäåæçèéêëìíîï',
                'aaaaaaæceeeeiiii',
            ],
            [
                'ðñòóôõö÷øùúûüýþÿ',
                'ðnooooo÷ouuuuyþy',
            ],
            [
                'ĀāĂ㥹ĆćĈĉĊċČčĎď',
                'AaAaAaCcCcCcCcDd',
            ],
            [
                'ĐđĒēĔĕĖėĘęĚěĜĝĞğ',
                'DdEeEeEeEeEeGgGg',
            ],
            [
                'ĠġĢģĤĥĦħĨĩĪīĬĭĮį',
                'GgGgHhHhIiIiIiIi',
            ],
            [
                'İıIJijĴĵĶķĸĹĺĻļĽľĿ',
                'IiIJijJjKkĸLlLlLlL',
            ],
            [
                'ŀŁłŃńŅņŇňʼnŊŋŌōŎŏ',
                'lLlNnNnNnʼnŊŋOoOo',
            ],
            [
                'ŐőŒœŔŕŖŗŘřŚśŜŝŞş',
                'OoŒœRrRrRrSsSsSs',
            ],
            [
                'ŠšŢţŤťŦŧŨũŪūŬŭŮů',
                'SsTtTtTtUuUuUuUu',
            ],
            [
                'ŰűŲųŴŵŶŷŸŹźŻżŽž',
                'UuUuWwYyYZzZzZz',
            ],
            // Test all characters in the Unicode range 0x01CD to 0x024F.
[
                'ǍǎǏ',
                'AaI',
            ],
            [
                'ǐǑǒǓǔǕǖǗǘǙǚǛǜǝǞǟ',
                'iOoUuUuUuUuUuǝAa',
            ],
            [
                'ǠǡǢǣǤǥǦǧǨǩǪǫǬǭǮǯ',
                'AaÆæGgGgKkOoOoƷʒ',
            ],
            [
                'ǰDZDzdzǴǵǶǷǸǹǺǻǼǽǾǿ',
                'jDZDzdzGgǶǷNnAaÆæOo',
            ],
            [
                'ȀȁȂȃȄȅȆȇȈȉȊȋȌȍȎȏ',
                'AaAaEeEeIiIiOoOo',
            ],
            [
                'ȐȑȒȓȔȕȖȗȘșȚțȜȝȞȟ',
                'RrRrUuUuSsTtȜȝHh',
            ],
            [
                'ȠȡȢȣȤȥȦȧȨȩȪȫȬȭȮȯ',
                'ȠȡȢȣZzAaEeOoOoOo',
            ],
            [
                'ȰȱȲȳȴȵȶȷȸȹȺȻȼȽȾȿ',
                'OoYylntjȸȹACcLTs',
            ],
            [
                'ɀɁɂɃɄɅɆɇɈɉɊɋɌɍɎɏ',
                'zɁɂBUɅEeJjQqRrYy',
            ],
        ];
        // cSpell:enable
    }
    
    /**
     * Tests the PhpTransliteration class.
     *
     * @param string $langcode
     *   The language code to test.
     * @param string $original
     *   The original string.
     * @param string $expected
     *   The expected return from PhpTransliteration::transliterate().
     * @param string $unknown_character
     *   (optional) The character to substitute for characters in $string without
     *   transliterated equivalents. Defaults to '?'.
     * @param int $max_length
     *   (optional) If provided, return at most this many characters, ensuring
     *   that the transliteration does not split in the middle of an input
     *   character's transliteration.
     *
     * @dataProvider providerTestPhpTransliteration
     */
    public function testPhpTransliteration(string $langcode, string $original, string $expected, string $unknown_character = '?', ?int $max_length = NULL) : void {
        $transliterator_class = new PhpTransliteration();
        $actual = $transliterator_class->transliterate($original, $langcode, $unknown_character, $max_length);
        $this->assertSame($expected, $actual);
    }
    
    /**
     * Provides data for self::testPhpTransliteration().
     *
     * @return array
     *   An array of arrays, each containing the parameters for
     *   self::testPhpTransliteration().
     */
    public static function providerTestPhpTransliteration() : array {
        $random_generator = new Random();
        $random = $random_generator->string(10);
        // Make some strings with two, three, and four-byte characters for testing.
        // Note that the 3-byte character is overridden by the 'kg' language.
        // cSpell:disable-next-line
        $two_byte = 'Ä Ö Ü Å Ø äöüåøhello';
        // This is a Cyrillic character that looks something like a "u". See
        // http://www.unicode.org/charts/PDF/U0400.pdf
        $three_byte = html_entity_decode('ц', ENT_NOQUOTES, 'UTF-8');
        // This is a Canadian Aboriginal character like a triangle. See
        // http://www.unicode.org/charts/PDF/U1400.pdf
        $four_byte = html_entity_decode('ᐑ', ENT_NOQUOTES, 'UTF-8');
        // These are two Gothic alphabet letters. See
        // http://wikipedia.org/wiki/Gothic_alphabet
        // They are not in our tables, but should at least give us '?' (unknown).
        $five_byte = html_entity_decode('𐌰𐌸', ENT_NOQUOTES, 'UTF-8');
        // cSpell:disable
        return [
            // Each test case is language code, input, output, unknown character, max
            // length.
'Test ASCII in English' => [
                'en',
                $random,
                $random,
            ],
            'Test ASCII in some other language with no overrides' => [
                'fr',
                $random,
                $random,
            ],
            'Test 3-byte characters from data table in a language without overrides' => [
                'fr',
                $three_byte,
                'c',
            ],
            'Test 4-byte characters from data table in a language without overrides' => [
                'fr',
                $four_byte,
                'wii',
            ],
            'Test 5-byte characters not existing in the data table' => [
                'en',
                $five_byte,
                '??',
            ],
            'Test a language with no overrides' => [
                'en',
                $two_byte,
                'A O U A O aouaohello',
            ],
            'Test language overrides in German' => [
                'de',
                $two_byte,
                'Ae Oe Ue A O aeoeueaohello',
            ],
            'Test ASCII in German language with overrides' => [
                'de',
                $random,
                $random,
            ],
            'Test language overrides in Danish' => [
                'da',
                $two_byte,
                'A O U Aa Oe aouaaoehello',
            ],
            'Test ASCII in Danish language with overrides' => [
                'da',
                $random,
                $random,
            ],
            'Test language overrides in Kyrgyz' => [
                'kg',
                $three_byte,
                'ts',
            ],
            'Test language overrides in Turkish' => [
                'tr',
                'Abayı serdiler bize. Söyleyeceğim yüzlerine. Sanırım hepimiz aynı şeyi düşünüyoruz.',
                'Abayi serdiler bize. Soyleyecegim yuzlerine. Sanirim hepimiz ayni seyi dusunuyoruz.',
            ],
            'Test language overrides in Ukrainian' => [
                'uk',
                'На подушечці форми любої є й ґудзик щоб пірʼя геть жовте сховати.',
                'Na podushechtsi formy lyuboyi ye y gudzyk shchob pirya het zhovte skhovaty.',
            ],
            'Max length' => [
                'de',
                $two_byte,
                'Ae Oe Ue A O aeoe',
                '?',
                17,
            ],
            'Do not split up the transliteration of a single character' => [
                'de',
                $two_byte,
                'Ae Oe Ue A O aeoe',
                '?',
                18,
            ],
            'Illegal/unknown unicode' => [
                'en',
                chr(0xf8) . chr(0x80) . chr(0x80) . chr(0x80) . chr(0x80),
                '?????',
            ],
            'Illegal/unknown unicode with non default replacement' => [
                'en',
                chr(0xf8) . chr(0x80) . chr(0x80) . chr(0x80) . chr(0x80),
                '-----',
                '-',
            ],
            'Contains Illegal/unknown unicode' => [
                'en',
                'Hel' . chr(0x80) . 'o World',
                'Hel?o World',
            ],
            'Illegal/unknown unicode at end' => [
                'en',
                'Hell' . chr(0x80) . ' World',
                'Hell? World',
            ],
            'Non default replacement' => [
                'en',
                chr(0x80) . 'ello World',
                '_ello World',
                '_',
            ],
            'Keep the original question marks' => [
                'en',
                chr(0xf8) . '?' . chr(0x80),
                '???',
            ],
            'Keep the original question marks when non default replacement' => [
                'en',
                chr(0x80) . 'ello ? World?',
                '_ello ? World?',
                '_',
            ],
            'Keep the original question marks in some other language' => [
                'pl',
                'aąeę' . chr(0x80) . 'oółżźz ?',
                'aaee?oolzzz ?',
            ],
            'Non-US-ASCII replacement in English' => [
                'en',
                chr(0x80) . 'ello World?',
                'Oello World?',
                'Ö',
            ],
            'Non-US-ASCII replacement in some other language' => [
                'pl',
                chr(0x80) . 'óóść',
                'ooosc',
                'ó',
            ],
            'Ensure question marks are replaced when max length used' => [
                'en',
                chr(0x80) . 'ello ? World?',
                '_ello ?',
                '_',
                7,
            ],
            'Empty replacement' => [
                'en',
                chr(0x80) . 'ello World' . chr(0xf8),
                'ello World',
                '',
            ],
            'Not affecting spacing from the beginning and end of a string' => [
                'en',
                ' Hello Abventor! ',
                ' Hello Abventor! ',
            ],
            'Not affecting spacing from the beginning and end of a string when max length used' => [
                'pl',
                ' Drupal Kraków Community',
                ' Drupal Krakow ',
                '?',
                15,
            ],
            'Keep many spaces between words' => [
                'en',
                'Too    many    spaces between words !',
                'Too    many    spaces between words !',
            ],
        ];
        // cSpell:enable
    }
    
    /**
     * Tests inclusion is safe.
     *
     * @covers ::readLanguageOverrides
     */
    public function testSafeInclude() : void {
        // The overrides in the transliteration data directory transliterates 0x82
        // into "safe" but the overrides one directory higher transliterates the
        // same character into "security hole". So by using "../index" as the
        // language code we can test the ../ is stripped from the langcode.
        vfsStream::setup('transliteration', NULL, [
            'index.php' => '<?php $overrides = ["../index" => [0x82 => "security hole"]];',
            'dir' => [
                'index.php' => '<?php $overrides = ["../index" => [0x82 => "safe"]];',
            ],
        ]);
        $transliteration = new PhpTransliteration(vfsStream::url('transliteration/dir'));
        $transliterated = $transliteration->transliterate(chr(0xc2) . chr(0x82), '../index');
        $this->assertSame('safe', $transliterated);
    }

}