File: bug66431_1.phpt

package info (click to toggle)
php5 5.6.7%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 150,376 kB
  • sloc: ansic: 727,510; php: 21,966; sh: 12,356; cpp: 8,763; xml: 6,105; yacc: 1,551; exp: 1,514; makefile: 1,461; pascal: 1,048; awk: 538; perl: 315; sql: 22
file content (60 lines) | stat: -rw-r--r-- 1,394 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
--TEST--
Bug #66431 Special Character via COM Interface (CP_UTF8), Application.Word
--SKIPIF--
<?php
if (!extension_loaded("com_dotnet")){ echo "skip COM/.Net support not present"; }

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("/", "\\", dirname(__FILE__) . "/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";
}

?>
===DONE===
--CLEAN--
<?php

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

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