1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
<?php
/*
Copyright (C) 2007 Hewlett-Packard Development Company, L.P.
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
version 2 as published by the Free Software Foundation.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License along
with this program; if not, write to the Free Software Foundation, Inc.,
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
***********************************************************/
/**
* dashR: test various conditions for the -R parameter
*
* NOTE: test version of cp2foss should be installed to /usr/local/bin as
* cp2foss.test.
*
* @version "$Id: dashR.php 627 2008-05-24 03:04:46Z rrando $"
*/
$archive_path = '/tmp/fossology';
class TestCP2fossRecursion extends UnitTestCase {
/*
* This function will use illegal archives, that is we have a file for
* input, but it is zero length.
*/
public $command = '/usr/local/bin/test.cp2foss';
function TestDashRNoArchive(){
$error = exec("$this->command -p devnull -n fail -a /dev/null -d \"test should fail\" ",
$output, $retval);
//print_r($output);
$this->assertPattern('/Error, .* not greater than zero/', $output[0]);
//print_r($output);
$output = array();
$error = exec("$this->command -p stdin -n fail -a /dev/stdin -d 'stdin should fail'",
$output, $retval);
//print_r($output);
$this->assertPattern('/Stopping, can\'t process archive/', $output[1]);
}
/*
* This test needs setup: need some dir tree to process.
*
* Tyically the fossology sources are used. Check them out to
* /tmp/fossology for this test to work.
*
* Consider adding setup and teardown methods. For now the install
* test script sets this up.
*
*/
function TestNoDashR(){
/*
* Method: run a real cp2foss run, then examine the tar file created
* by it and compare to what was tar'ed up. If no differences,
* at least cp2foss worked as far as creating the archive to upload
* correctly. This test DOES NOT test if the upload worked.
*/
$last = exec(
"$this->command -p CP2fossTest/fldr1 -n fossology -a $archive_path -d 'no -R, only files saved' ", $output, $retval
);
echo "\$output Only files is:\n"; dump($output); echo "\n";
/*
* $output[1] will always have the archive we are loading... in this
* case it will be a tar file....get only the files under fossology
*
* NOTE: this seems to be brittle.... sometimes it's 2?! and then
* this test breaks....
*
*/
$find = "find /tmp/fossology -maxdepth 1 -type f -print";
$last = exec($find, $findoutput, $retval);
$last = exec("tar -tf $output[1]", $tarout, $retval);
// get leaf names from find output
$basenames = array();
foreach($findoutput as $path) {
$basenames[] = basename($path);
}
sort($tarout);
sort($basenames);
$diffs = array_diff($tarout, $basenames);
if (empty($diffs)){
$this->pass();
}
else {
$this->fail();
}
}
function TestDashR(){
/*
* Method: run a real cp2foss run, then examine the tar file created
* by it and compare to what was tar'ed up. If no differences,
* at least cp2foss worked as far as creating the archive to upload
* correctly. This test DOES NOT test if the upload worked.
*/
$last = exec(
"$this->command -p CP2fossTest -n fossology -a $archive_path -R -d '-R all contents saved' ",
$output, $retval);
/*
* $output[1] will always have the archive we are loading... in this
* case it will be a tar file....get only the files under fossology
*
*/
echo "output All contents is:\n"; dump($output); echo "\n";
/*
* Tried using find and combos of ls etc... issue was getting the
* trailing / on directories without changing the format.
* Gave up, and will just retar the archive and then compare to the
* orginal tar.
*/
$temp_tar = "/tmp/test.tar.bz2";
chdir($apath) or die("Can't cd to $apath, $php_errormsg\n");
$tcmd = "tar -cjf $temp_tar --exclude='.svn' --exclude='.cvs' *";
$last = exec($tcmd, $Rtoutput, $retval);
$last = exec("tar -tf $output[1]", $tarout, $retval);
$last = exec("tar -tf $temp_tar", $Rtout, $retval);
foreach($tarout as $p) {
//echo "tar path is:$p\n";
$tpaths[] = rtrim($p);
}
foreach($Rtout as $path) {
$Rtpaths[] = rtrim($path);
}
sort($tpaths);
sort($Rtpaths);
$diffs = array_diff($tpaths, $Rtpaths);
if (empty($diffs)){
$this->pass();
}
else {
echo "diffs are:\n";
$this->dump($diffs);
$this->fail();
}
}
}
?>
|
