Subversion-Projekte lars-tiefland.php_share

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

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') {
    $u_conf_file  = $peardir . $ds . 'pear.ini';
    $conf_file    = $peardir . $ds . 'pearsys.ini';
    $custom_file1 = $peardir . $ds . 'name1.pearsys.ini';
    $custom_file2 = $userdir . $ds . 'name2.pearsys.ini';
} else {
    $u_conf_file  = $peardir . $ds . '.pearrc';
    $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:
 * usage of stylesheet to customize look and feel
 */
$testCase = 'testCustomStyleSheet';

$GLOBALS['_PEAR_Config_instance'] = null;

$pearInfo   = new PEAR_Info($peardir);
$css_exists = $pearInfo->setStyleSheet($tpldir . $ds . 'blueskin.css');

$result = ($css_exists)
    ? 'OK' : 'CSS file does not exists';

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

/**
 * TestCase 2:
 * display main page with default stylesheet
 */
$testCase = 'testDefaultStyleSheet';

$GLOBALS['_PEAR_Config_instance'] = null;

$options = array('resume' =>  PEAR_INFO_GENERAL |
                              PEAR_INFO_PACKAGES_VERSION |
                              PEAR_INFO_FULLPAGE,
                 'channels' => array());

$pearInfo = new PEAR_Info($peardir, '', '', $options);
$html = $pearInfo->toHtml();

$packages_tpl = file_get_contents($tpldir . $ds . 'packages.tpl');
$packages_tpl = str_replace(
                    array(
                        '{styles}',
                        '{script_filename}',
                        '{config_file}',
                        '{usr_config_file}',
                        '{sys_config_file}'
                    ),
                    array(
                        $pearInfo->getStyleSheet(),
                        __FILE__,
                        $conf_file,
                        $u_conf_file,
                        $conf_file
                    ),
                    $packages_tpl);

if (OS_WINDOWS) {
    $html = str_replace("\r\n", "\n", $html);
}

$result = (strcasecmp($html, $packages_tpl) == 0)
    ? 'OK' : 'HTML strings are not same';

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

/**
 * TestCase 3:
 * display credits page with default stylesheet
 */
$testCase = 'testCreditsWithDefaultStyleSheet';

$GLOBALS['_PEAR_Config_instance'] = null;

$options = array('resume' =>  PEAR_INFO_GENERAL |
                              PEAR_INFO_CREDITS_ALL |
                              PEAR_INFO_FULLPAGE,
                 'channels' => array());

$pearInfo = new PEAR_Info($peardir, '', '', $options);
ob_start();
$pearInfo->show();
$html = ob_get_contents();
ob_end_clean();

$credits_tpl = file_get_contents($tpldir . $ds . 'credits.tpl');
$credits_tpl = str_replace(
                    array(
                        '{styles}',
                        '{script_filename}',
                        '{config_file}',
                        '{usr_config_file}',
                        '{sys_config_file}'
                    ),
                    array(
                        $pearInfo->getStyleSheet(),
                        __FILE__,
                        $conf_file,
                        $u_conf_file,
                        $conf_file
                    ),
                    $credits_tpl);

if (OS_WINDOWS) {
    $html = str_replace("\r\n", "\n", $html);
}

$result = (strcasecmp($html, $credits_tpl) == 0)
    ? 'OK' : 'HTML strings are not same';

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--
testCustomStyleSheet : OK
testDefaultStyleSheet : OK
testCreditsWithDefaultStyleSheet : OK