210 lines
7.4 KiB
PHP
210 lines
7.4 KiB
PHP
<?php
|
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
|
|
|
/**
|
|
* PHP Version 4
|
|
*
|
|
* Copyright (c) 2002-2005, Sebastian Bergmann <sb@sebastian-bergmann.de>.
|
|
* All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
*
|
|
* * Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
*
|
|
* * Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in
|
|
* the documentation and/or other materials provided with the
|
|
* distribution.
|
|
*
|
|
* * Neither the name of Sebastian Bergmann nor the names of his
|
|
* contributors may be used to endorse or promote products derived
|
|
* from this software without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
|
* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
|
* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
|
|
* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
|
|
* COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
|
|
* BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
|
* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
|
|
* CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRIC
|
|
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
|
|
* ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
|
* POSSIBILITY OF SUCH DAMAGE.
|
|
*
|
|
* @category Testing
|
|
* @package PHPUnit
|
|
* @author Wolfram Kriesing <wolfram@kriesing.de>
|
|
* @copyright 2002-2005 Sebastian Bergmann <sb@sebastian-bergmann.de>
|
|
* @license http://www.opensource.org/licenses/bsd-license.php BSD License
|
|
* @version CVS: $Id: SetupDecorator.php,v 1.15 2005/11/10 09:47:15 sebastian Exp $
|
|
* @link http://pear.php.net/package/PHPUnit
|
|
* @since File available since Release 1.0.0
|
|
*/
|
|
|
|
/**
|
|
* This decorator actually just adds the functionality to read the
|
|
* test-suite classes from a given directory and instanciate them
|
|
* automatically, use it as given in the example below.
|
|
*
|
|
* <code>
|
|
* <?php
|
|
* $gui = new PHPUnit_GUI_SetupDecorator(new PHPUnit_GUI_HTML());
|
|
* $gui->getSuitesFromDir('/path/to/dir/tests','.*\.php$',array('index.php','sql.php'));
|
|
* $gui->show();
|
|
* ?>
|
|
* </code>
|
|
*
|
|
* The example calls this class and tells it to:
|
|
*
|
|
* - find all file under the directory /path/to/dir/tests
|
|
* - for files, which end with '.php' (this is a piece of a regexp, that's why the . is escaped)
|
|
* - and to exclude the files 'index.php' and 'sql.php'
|
|
* - and include all the files that are left in the tests.
|
|
*
|
|
* Given that the path (the first parameter) ends with 'tests' it will be assumed
|
|
* that the classes are named tests_* where * is the directory plus the filename,
|
|
* according to PEAR standards.
|
|
*
|
|
* So that:
|
|
*
|
|
* - 'testMe.php' in the dir 'tests' bill be assumed to contain a class tests_testMe
|
|
* - '/moretests/aTest.php' should contain a class 'tests_moretests_aTest'
|
|
*
|
|
* @category Testing
|
|
* @package PHPUnit
|
|
* @author Wolfram Kriesing <wolfram@kriesing.de>
|
|
* @copyright 2002-2005 Sebastian Bergmann <sb@sebastian-bergmann.de>
|
|
* @license http://www.opensource.org/licenses/bsd-license.php BSD License
|
|
* @version Release: @package_version@
|
|
* @link http://pear.php.net/package/PHPUnit
|
|
* @since Class available since Release 1.0.0
|
|
*/
|
|
class PHPUnit_GUI_SetupDecorator
|
|
{
|
|
/**
|
|
*
|
|
*
|
|
*/
|
|
function PHPUnit_GUI_SetupDecorator(&$gui)
|
|
{
|
|
$this->_gui = &$gui;
|
|
}
|
|
|
|
/**
|
|
* just forwarding the action to the decorated class.
|
|
*
|
|
*/
|
|
function show($showPassed=TRUE)
|
|
{
|
|
$this->_gui->show($showPassed);
|
|
}
|
|
|
|
/**
|
|
* Setup test suites that can be found in the given directory
|
|
* Using the second parameter you can also choose a subsets of the files found
|
|
* in the given directory. I.e. only all the files that contain '_UnitTest_',
|
|
* in order to do this simply call it like this:
|
|
* <code>getSuitesFromDir($dir,'.*_UnitTest_.*')</code>.
|
|
* There you can already see that the pattern is built for the use within a regular expression.
|
|
*
|
|
* @param string the directory where to search for test-suite files
|
|
* @param string the pattern (a regexp) by which to find the files
|
|
* @param array an array of file names that shall be excluded
|
|
*/
|
|
function getSuitesFromDir($dir, $filenamePattern = '', $exclude = array())
|
|
{
|
|
if ($dir{strlen($dir)-1} == DIRECTORY_SEPARATOR) {
|
|
$dir = substr($dir, 0, -1);
|
|
}
|
|
|
|
$files = $this->_getFiles(realpath($dir), $filenamePattern, $exclude, realpath($dir . '/..'));
|
|
asort($files);
|
|
|
|
foreach ($files as $className => $aFile) {
|
|
include_once($aFile);
|
|
|
|
if (class_exists($className)) {
|
|
$suites[] =& new PHPUnit_TestSuite($className);
|
|
} else {
|
|
trigger_error("$className could not be found in $dir$aFile!");
|
|
}
|
|
}
|
|
|
|
$this->_gui->addSuites($suites);
|
|
}
|
|
|
|
/**
|
|
* This method searches recursively through the directories
|
|
* to find all the files that shall be added to the be visible.
|
|
*
|
|
* @param string the path where find the files
|
|
* @param srting the string pattern by which to find the files
|
|
* @param string the file names to be excluded
|
|
* @param string the root directory, which serves as the prefix to the fully qualified filename
|
|
* @access private
|
|
*/
|
|
function _getFiles($dir, $filenamePattern, $exclude, $rootDir)
|
|
{
|
|
$files = array();
|
|
|
|
if ($dp = opendir($dir)) {
|
|
while (FALSE !== ($file = readdir($dp))) {
|
|
$filename = $dir . DIRECTORY_SEPARATOR . $file;
|
|
$match = TRUE;
|
|
|
|
if ($filenamePattern && !preg_match("~$filenamePattern~", $file)) {
|
|
$match = FALSE;
|
|
}
|
|
|
|
if (sizeof($exclude)) {
|
|
foreach ($exclude as $aExclude) {
|
|
if (strpos($file, $aExclude) !== FALSE) {
|
|
$match = FALSE;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (is_file($filename) && $match) {
|
|
$tmp = str_replace($rootDir, '', $filename);
|
|
|
|
if (strpos($tmp, DIRECTORY_SEPARATOR) === 0) {
|
|
$tmp = substr($tmp, 1);
|
|
}
|
|
|
|
if (strpos($tmp, '/') === 0) {
|
|
$tmp = substr($tmp, 1);
|
|
}
|
|
|
|
$className = str_replace(DIRECTORY_SEPARATOR, '_', $tmp);
|
|
$className = basename($className, '.php');
|
|
|
|
$files[$className] = $filename;
|
|
}
|
|
|
|
if ($file != '.' && $file != '..' && is_dir($filename)) {
|
|
$files = array_merge($files, $this->_getFiles($filename, $filenamePattern, $exclude, $rootDir));
|
|
}
|
|
}
|
|
|
|
closedir($dp);
|
|
}
|
|
|
|
return $files;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Local variables:
|
|
* tab-width: 4
|
|
* c-basic-offset: 4
|
|
* c-hanging-comment-ender-p: nil
|
|
* End:
|
|
*/
|
|
?>
|