PAL.C.T MINI SHELL
--TEST--
Delete entries
--SKIPIF--
<?php
/* $Id$ */
if(!extension_loaded('zip')) die('skip');
?>
--FILE--
<?php
$dirname = dirname(__FILE__) . '/';
$file = $dirname . '__tmp_oo_delete.zip';
if (file_exists($file)) {
unlink($file);
}
$zip = new ZipArchive;
if (!$zip->open($file, ZIPARCHIVE::CREATE)) {
exit('failed');
}
$zip->addFromString('entry1.txt', 'entry #1');
$zip->addFromString('entry2.txt', 'entry #2');
$zip->addFromString('dir/entry2.txt', 'entry #2');
if ($zip->status == ZIPARCHIVE::ER_OK) {
$zip->close();
echo "ok\n";
} else {
var_dump($zip);
echo "failed\n";
}
if (!$zip->open($file, ZIPARCHIVE::CREATE)) {
exit('failed');
}
if ($zip->deleteIndex(0)) {
echo "ok\n";
}
if ($zip->deleteName('entry2.txt')) {
echo "ok\n";
} else {
echo "failed 3\n";
}
if ($zip->deleteName('dir/entry2.txt')) {
echo "ok\n";
} else {
echo "failed 3\n";
}
if (!$zip->deleteIndex(123)) {
echo "ok\n";
} else {
print_r($zip);
echo "failed\n";
}
$sb = $zip->statIndex(0);
var_dump($sb);
$sb = $zip->statIndex(1);
var_dump($sb);
$sb = $zip->statIndex(2);
var_dump($sb);
// suppress irrelevant error message:
@$zip->close();
unset($zip);
if (file_exists($file)) {
unlink($file);
}
?>
--EXPECTF--
ok
ok
ok
ok
ok
bool(false)
bool(false)
bool(false)
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`