File: bug66431_1.phpt

package info (click to toggle)
php8.4 8.4.16-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 211,276 kB
  • sloc: ansic: 1,176,142; php: 35,419; sh: 11,964; cpp: 7,208; pascal: 4,951; javascript: 3,091; asm: 2,817; yacc: 2,411; makefile: 696; xml: 446; python: 301; awk: 148
file content (58 lines) | stat: -rw-r--r-- 1,307 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
--TEST--
Bug #66431 Special Character via COM Interface (CP_UTF8), Application.Word
--EXTENSIONS--
com_dotnet
--SKIPIF--
<?php
try {
    new COM("word.application", NULL, CP_UTF8);
} catch (Exception $e) {
    die('skip ' . $e->getMessage());
}

?>
--FILE--
<?php

$text= "Xin chào cộng đồng PHP";
$fpath = str_replace("/", "\\", __DIR__ . "/bug66431.docx");

com_load_typelib('Word.Application');

$Wrd = new COM("word.application", NULL, CP_UTF8);
$Wrd->Documents->Add();
$Wrd->Selection->TypeText($text);
$Wrd->ActiveDocument->SaveAs($fpath);
$Wrd->ActiveDocument->Close(false);
$Wrd->Application->Quit();
unset($Wrd);

$Wrd = new COM("word.application", NULL, CP_UTF8);
$Wrd->Documents->Open($fpath, NULL, false);
$check_text = $Wrd->ActiveDocument->Range($Wrd->ActiveDocument->Sentences(1)->Start, $Wrd->ActiveDocument->Sentences(1)->End)->Text;
$Wrd->ActiveDocument->Close(false);
$Wrd->Application->Quit();
unset($Wrd);

/* trim the returned text as we'll get windows eol from a word doc. */
$result = (trim($check_text) == $text);

var_dump($result);

if (!$result) {
    echo "Expected: '$check_text'\n";
    echo "Have: '$text'\n";
}

?>
--CLEAN--
<?php

$fpath = str_replace("/", "\\", __DIR__ . "/bug66431.docx");

if (file_exists($fpath)) {
    unlink($fpath);
}
?>
--EXPECT--
bool(true)