| 1 |
lars |
1 |
<?php
|
|
|
2 |
//=======================================================================
|
|
|
3 |
// File: TESTSUIT.PHP
|
|
|
4 |
// Description: Run all the example script in current directory
|
|
|
5 |
// Created: 2002-07-11
|
|
|
6 |
// Ver: $Id: testsuit.php,v 1.1.2.1 2004/03/27 12:43:07 aditus Exp $
|
|
|
7 |
//
|
|
|
8 |
// License: This code is released under QPL 1.0
|
|
|
9 |
// Copyright (C) 2001,2002 Johan Persson
|
|
|
10 |
//========================================================================
|
|
|
11 |
|
|
|
12 |
//-------------------------------------------------------------------------
|
|
|
13 |
//
|
|
|
14 |
// Usage: testsuit.php[?type=1] Generates all non image map scripts
|
|
|
15 |
// testsuit.php?type=2 Generates client side image map scripts
|
|
|
16 |
//
|
|
|
17 |
//-------------------------------------------------------------------------
|
|
|
18 |
class TestDriver {
|
|
|
19 |
|
|
|
20 |
var $iType;
|
|
|
21 |
var $iDir;
|
|
|
22 |
|
|
|
23 |
function TestDriver($aType=1,$aDir='') {
|
|
|
24 |
$this->iType = $aType;
|
|
|
25 |
if( $aDir == '' ) {
|
|
|
26 |
$aDir = getcwd();
|
|
|
27 |
}
|
|
|
28 |
if( !chdir($aDir) ) {
|
|
|
29 |
die("PANIC: Can't access directory : $aDir");
|
|
|
30 |
}
|
|
|
31 |
$this->iDir = $aDir;
|
|
|
32 |
}
|
|
|
33 |
|
|
|
34 |
function GetFiles() {
|
|
|
35 |
$d = dir($this->iDir);
|
|
|
36 |
$a = array();
|
|
|
37 |
while( $entry=$d->Read() ) {
|
|
|
38 |
if( strstr($entry,".php") && strstr($entry,"x") && !strstr($entry,"show") && !strstr($entry,"csim") ) {
|
|
|
39 |
$a[] = $entry;
|
|
|
40 |
}
|
|
|
41 |
}
|
|
|
42 |
$d->Close();
|
|
|
43 |
if( count($a) == 0 ) {
|
|
|
44 |
die("PANIC: Apache/PHP does not have enough permission to read the scripts in directory: $this->iDir");
|
|
|
45 |
}
|
|
|
46 |
sort($a);
|
|
|
47 |
return $a;
|
|
|
48 |
}
|
|
|
49 |
|
|
|
50 |
function GetCSIMFiles() {
|
|
|
51 |
$d = dir($this->iDir);
|
|
|
52 |
$a = array();
|
|
|
53 |
while( $entry=$d->Read() ) {
|
|
|
54 |
if( strstr($entry,".php") && strstr($entry,"csim") ) {
|
|
|
55 |
$a[] = $entry;
|
|
|
56 |
}
|
|
|
57 |
}
|
|
|
58 |
$d->Close();
|
|
|
59 |
if( count($a) == 0 ) {
|
|
|
60 |
die("PANIC: Apache/PHP does not have enough permission to read the CSIM scripts in directory: $this->iDir");
|
|
|
61 |
}
|
|
|
62 |
sort($a);
|
|
|
63 |
return $a;
|
|
|
64 |
}
|
|
|
65 |
|
|
|
66 |
|
|
|
67 |
function Run() {
|
|
|
68 |
switch( $this->iType ) {
|
|
|
69 |
case 1:
|
|
|
70 |
$files = $this->GetFiles();
|
|
|
71 |
break;
|
|
|
72 |
case 2:
|
|
|
73 |
$files = $this->GetCSIMFiles();
|
|
|
74 |
break;
|
|
|
75 |
default:
|
|
|
76 |
die('Panic: Unknown type of test');
|
|
|
77 |
break;
|
|
|
78 |
}
|
|
|
79 |
$n = count($files);
|
|
|
80 |
echo "<h2>Visual test suit for JpGraph</h2>";
|
|
|
81 |
echo "Testtype: " . ($this->iType==1 ? ' Standard images ':' Image map tests ');
|
|
|
82 |
echo "<br>Number of tests: $n<p>";
|
|
|
83 |
echo "<ol>";
|
|
|
84 |
|
|
|
85 |
for( $i=0; $i<$n; ++$i ) {
|
|
|
86 |
if( $this->iType ==1 ) {
|
|
|
87 |
echo '<li><a href="show-example.php?target='.urlencode($files[$i]).'"><img src="'.$files[$i].'" border=0 align=top></a><br><strong>Filename:</strong> <i>'.basename($files[$i])."</i>\n";
|
|
|
88 |
}
|
|
|
89 |
else {
|
|
|
90 |
echo '<li><a href="show-example.php?target='.urlencode($files[$i]).'">'.$files[$i]."</a>\n";
|
|
|
91 |
}
|
|
|
92 |
}
|
|
|
93 |
echo "</ol>";
|
|
|
94 |
|
|
|
95 |
echo "<p>Done.</p>";
|
|
|
96 |
}
|
|
|
97 |
}
|
|
|
98 |
|
|
|
99 |
$type=@$HTTP_GET_VARS['t'];
|
|
|
100 |
if( empty($type) ) {
|
|
|
101 |
$type=1;
|
|
|
102 |
}
|
|
|
103 |
|
|
|
104 |
$driver = new TestDriver($type);
|
|
|
105 |
$driver->Run();
|
|
|
106 |
|
|
|
107 |
?>
|