File: bug54028.phpt

package info (click to toggle)
php8.4 8.4.11-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 208,108 kB
  • sloc: ansic: 1,060,628; php: 35,345; sh: 11,866; cpp: 7,201; pascal: 4,913; javascript: 3,091; asm: 2,810; yacc: 2,411; makefile: 689; xml: 446; python: 301; awk: 148
file content (69 lines) | stat: -rw-r--r-- 1,336 bytes parent folder | download | duplicates (3)
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
--TEST--
Bug #54028 Directory::read() cannot handle non-unicode chars properly
--EXTENSIONS--
mbstring
--SKIPIF--
<?php
include __DIR__ . DIRECTORY_SEPARATOR . "util.inc";

skip_if_not_win();
if (getenv("SKIP_SLOW_TESTS")) die("skip slow test");
skip_if_no_required_exts();

?>
--FILE--
<?php

/* This file is in UTF-8. */

include __DIR__ . DIRECTORY_SEPARATOR . "util.inc";

$prefix = __DIR__ . DIRECTORY_SEPARATOR . "testBug54028" . DIRECTORY_SEPARATOR;

$dirs = array("a", "ソ", "ゾ", "şŞıİğĞ", "多国語", "王", "汚れて掘る");

mkdir($prefix);
foreach ($dirs as $d) {
    mkdir($prefix . $d);
}

$directory = dir($prefix);
while (false !== ($content = $directory->read())) {
    if ("." == $content || ".." == $content) continue;

        printf("Returned (%s)\n", $content);
        printf("Encoding: %s\n", mb_detect_encoding($content));
        if ($content != get_basename_with_cp($prefix . $content, 65001, false)) {
        echo "Verification failed!\n";
    }
    echo "\n";
}

foreach ($dirs as $d) {
    rmdir($prefix . $d);
}
rmdir($prefix);

?>
--EXPECT--
Returned (a)
Encoding: ASCII

Returned (şŞıİğĞ)
Encoding: UTF-8

Returned (ソ)
Encoding: UTF-8

Returned (ゾ)
Encoding: UTF-8

Returned (多国語)
Encoding: UTF-8

Returned (汚れて掘る)
Encoding: UTF-8

Returned (王)
Encoding: UTF-8