23 lines
505 B
PHP
23 lines
505 B
PHP
|
<?php
|
||
|
|
|
||
|
|
require_once("../../../config/dmsDefaults.php");
|
||
|
|
require_once(KT_LIB_DIR . '/import/zipimportstorage.inc.php');
|
||
|
|
|
||
|
|
$f = new KTZipImportStorage(KT_DIR . "/tests/import/dataset2/dataset2.zip");
|
||
|
|
$f->init();
|
||
|
|
|
||
|
|
$afolders = array("a/d");
|
||
|
|
|
||
|
|
if ($f->listFolders("a") !== $afolders) {
|
||
|
|
print "Subdir (a) folder listing failure\n";
|
||
|
|
print "Should be:\n";
|
||
|
|
var_dump($afolders);
|
||
|
|
print "Got:\n";
|
||
|
|
var_dump($f->listFolders("a"));
|
||
|
|
$f->cleanup();
|
||
|
|
exit(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
$f->cleanup();
|
||
|
|
print "SUCCESS\n";
|