Subversion-Projekte lars-tiefland.php_share

--TEST--
PEAR_Info using custom configuration
--FILE--
<?php
$ds         = DIRECTORY_SEPARATOR;
$dir        = dirname(__FILE__);
$sysconfdir = $dir . $ds . 'sysconf_dir';
$peardir    = $dir . $ds . 'pear_dir';
$userdir    = $dir . $ds . 'user_dir';

putenv("PHP_PEAR_SYSCONF_DIR=" . $sysconfdir);
chdir($dir);

// we get PEAR_Info class only here due to setting of PEAR_CONFIG_SYSCONFDIR
include_once 'PEAR/Info.php';

if (strtoupper(substr(PHP_OS, 0, 3)) === 'WIN') {
    $conf_file    = $peardir . $ds . 'pearsys.ini';
    $custom_file1 = $peardir . $ds . 'name1.pearsys.ini';
    $custom_file2 = $userdir . $ds . 'name2.pearsys.ini';
} else {
    $conf_file    = $peardir . $ds . 'pear.conf';
    $custom_file1 = $peardir . $ds . 'name1.pear.conf';
    $custom_file2 = $userdir . $ds . 'name2.pear.conf';
}

if (!file_exists($conf_file)) {
    // write once PEAR system-wide config file for simulation
    $config =& PEAR_Config::singleton();
    $config->set('php_dir', $peardir);
    $config->writeConfigFile($conf_file);

    // also writes custom pear system config files
    $config->writeConfigFile($custom_file1);
    $config->writeConfigFile($custom_file2);
}

/**
 * TestCase 1:
 * class constructor with only $pear_dir parameter
 *
 * Will try to detect if default user config files (pear.ini | .pearrc),
 * and/or default system config files (pearsys.ini | pear.conf) are available
 * into $peardir directory.
 */
$testCase = 'testConfigFilesExistWithDefaultNameInPearDir';

$GLOBALS['_PEAR_Config_instance'] = null;

$pear_dir = $peardir;

// try to load PEAR system config ($conf_file) from system dir
$pearInfo = new PEAR_Info($pear_dir);

$result = (!is_null($pearInfo->reg))
    ? 'OK' : 'System PEAR configuration files does not exist';

echo $testCase . ' : ' . $result;
echo "\n";

/**
 * TestCase 2:
 * class constructor with 3 parameters ($pear_dir, $user_file, and $system_file)
 *
 * Will try to detect if user config files and/or system config files
 * are available into $peardir directory.
 */
$testCase = 'testConfigFilesExistWithCustomNameInPearDir';

$GLOBALS['_PEAR_Config_instance'] = null;

$pear_dir    = $peardir;
$user_file   = '';
$system_file = $custom_file1;

// try to load PEAR system config ($custom_file1) from pear dir
$pearInfo = new PEAR_Info($pear_dir, $user_file, $system_file);

$result = (!is_null($pearInfo->reg))
    ? 'OK' : 'User PEAR configuration files does not exist';

echo $testCase . ' : ' . $result;
echo "\n";

/**
 * TestCase 3:
 * class constructor with parameters ($user_file, and $system_file)
 *
 * Will try to detect if user config files and/or system config files
 * are available into user directory.
 */
$testCase = 'testConfigFilesExistInUserDir';

$GLOBALS['_PEAR_Config_instance'] = null;

if (strtoupper(substr(PHP_OS, 0, 3)) === 'WIN') {
    $user_file   = $userdir . $ds . 'name2.pear.ini';
    $system_file = $userdir . $ds . 'name2.pearsys.ini';
} else {
    $user_file   = $userdir . $ds . 'name2.pearrc';
    $system_file = $userdir . $ds . 'name2.pear.conf';
}
$pear_dir = '';

// try to load PEAR system config ($system_file) from user dir,
// because user config ($user_file) does not exists (volontary)
$pearInfo = new PEAR_Info($pear_dir, $user_file, $system_file);

$result = (!is_null($pearInfo->reg))
    ? 'OK' : 'User PEAR configuration files does not exist';

echo $testCase . ' : ' . $result;
echo "\n";

/**
 * TestCase 4:
 * class constructor with only $pear_dir parameter
 *
 * No user or system file exists into pear directory.
 * Will display error to prevent unexpected behavior.
 */
$testCase = 'testNoConfigFilesFoundIntoPearDir';

$GLOBALS['_PEAR_Config_instance'] = null;

$pear_dir = $dir . $ds . 'pear2_dir';

$pearInfo = new PEAR_Info($pear_dir);

$result = (is_null($pearInfo->reg))
    ? 'OK' : 'User PEAR configuration files does not exist';

echo $testCase . ' : ' . $result;
echo "\n";

/**
 * TestCase 5:
 * class constructor with only $user_file and $system_file parameters
 *
 * No such (name3) user or system file exists into user directory.
 * Will display an error to prevent unexpected behavior.
 */
$testCase = 'testNoConfigFilesFoundIntoUserDir';

$GLOBALS['_PEAR_Config_instance'] = null;

if (strtoupper(substr(PHP_OS, 0, 3)) === 'WIN') {
    $user_file   = $userdir . $ds . 'name3.pear.ini';
    $system_file = $userdir . $ds . 'name3.pearsys.ini';
} else {
    $user_file   = $userdir . $ds . 'name3.pearrc';
    $system_file = $userdir . $ds . 'name3.pear.conf';
}
$pear_dir = '';

$pearInfo = new PEAR_Info($pear_dir, $user_file, $system_file);

$result = (is_null($pearInfo->reg))
    ? 'OK' : strip_tags($pearInfo->info);

echo $testCase . ' : ' . $result;
echo "\n";

/**
 * TestCase 6:
 * class constructor with only $options parameter
 */
$testCase = 'testShowResultsWithRenderOptions';

$GLOBALS['_PEAR_Config_instance'] = null;

$pear_dir    = $peardir;
$user_file   = '';
$system_file = '';
$options     = array(
    'resume' => PEAR_INFO_FULLPAGE |
                PEAR_INFO_GENERAL | PEAR_INFO_CHANNELS | PEAR_INFO_PACKAGES_VERSION |
                PEAR_INFO_CREDITS_PACKAGES,
    'channels' => array()
);

// try to load PEAR system config from pear dir
$pearInfo = new PEAR_Info($pear_dir, $user_file, $system_file, $options);

$result = (!is_null($pearInfo->reg))
    ? 'OK' : 'KO';

echo $testCase . ' : ' . $result;
echo "\n";

/**
 * TestCase 7:
 * class constructor with invalid $peardir parameter
 */
$testCase = 'testInvalidPearDir';

$GLOBALS['_PEAR_Config_instance'] = null;

$pear_dir = $dir . $ds . 'invalid_pear_dir';

$pearInfo = new PEAR_Info($pear_dir);

$result = (is_null($pearInfo->reg))
    ? 'OK' : 'Valid PEAR directory found';

echo $testCase . ' : ' . $result;
?>
--CLEAN--
<?php
$ds         = DIRECTORY_SEPARATOR;
$dir        = dirname(__FILE__);
$sysconfdir = $dir . $ds . 'sysconf_dir';
$peardir    = $dir . $ds . 'pear_dir';
$userdir    = $dir . $ds . 'user_dir';

if (strtoupper(substr(PHP_OS, 0, 3)) === 'WIN') {
    $conf_file    = $peardir . $ds . 'pearsys.ini';
    $custom_file1 = $peardir . $ds . 'name1.pearsys.ini';
    $custom_file2 = $userdir . $ds . 'name2.pearsys.ini';
} else {
    $conf_file    = $peardir . $ds . 'pear.conf';
    $custom_file1 = $peardir . $ds . 'name1.pear.conf';
    $custom_file2 = $userdir . $ds . 'name2.pear.conf';
}

unlink ($conf_file);
unlink ($custom_file1);
unlink ($custom_file2);
?>
--EXPECT--
testConfigFilesExistWithDefaultNameInPearDir : OK
testConfigFilesExistWithCustomNameInPearDir : OK
testConfigFilesExistInUserDir : OK
testNoConfigFilesFoundIntoPearDir : OK
testNoConfigFilesFoundIntoUserDir : OK
testShowResultsWithRenderOptions : OK
testInvalidPearDir : OK