File: bug71509.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 (44 lines) | stat: -rw-r--r-- 1,180 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
--TEST--
Bug #71509 Zip problem with swedish letters in filename.
--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("zip");

?>
--CONFLICTS--
bug71509
--FILE--
<?PHP
// 

include __DIR__ . DIRECTORY_SEPARATOR . "util.inc";

$item = iconv("ISO-8859-1", "UTF-8", "Rd_Statistics"); // cp1252
$prefix = create_data("bug71509", "$item.txt");
$testfile_zip = $prefix . DIRECTORY_SEPARATOR . "$item.txt";
$outputfile_zip = $prefix . DIRECTORY_SEPARATOR . "$item.zip";

var_dump(file_exists($testfile_zip));

$zipfile = new ZipArchive;

$return_code = $zipfile->open($outputfile_zip, ZipArchive::CREATE);
if ($return_code != true) die("Failed to open file: " . $return_code);

$return_code = $zipfile->addfile($testfile_zip, basename($testfile_zip));
if ($return_code != true) print("Failed to add file: " . $zipfile->getStatusString());

$return_code = $zipfile->close();
if ($return_code != true) die("Failed to close archive: " . $zipfile->getStatusString());

var_dump(file_exists($outputfile_zip));

remove_data("bug71509");
?>
--EXPECT--
bool(true)
bool(true)