projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
perl-module: Use Autotest for testing Perl.
[pspp]
/
tests
/
bugs
/
t-test-with-temp.sh
diff --git
a/tests/bugs/t-test-with-temp.sh
b/tests/bugs/t-test-with-temp.sh
index 7882d8a587ec229692b03f0946ff345606832e5d..3413a51ffb7ba9f57635114022764f907e1e5777 100755
(executable)
--- a/
tests/bugs/t-test-with-temp.sh
+++ b/
tests/bugs/t-test-with-temp.sh
@@
-21,6
+21,10
@@
export STAT_CONFIG_PATH
cleanup()
{
cleanup()
{
+ if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then
+ echo "NOT cleaning $TEMPDIR"
+ return ;
+ fi
cd /
rm -rf $TEMPDIR
}
cd /
rm -rf $TEMPDIR
}
@@
-71,11
+75,11
@@
if [ $? -ne 0 ] ; then no_result ; fi
activity="run program"
activity="run program"
-$SUPERVISOR $PSPP -
-testing-mode
$TESTFILE
+$SUPERVISOR $PSPP -
o pspp.csv
$TESTFILE
if [ $? -ne 0 ] ; then no_result ; fi
activity="copy output"
if [ $? -ne 0 ] ; then no_result ; fi
activity="copy output"
-cp $TEMPDIR/pspp.
list $TEMPDIR/first.list
+cp $TEMPDIR/pspp.
csv $TEMPDIR/first.csv
if [ $? -ne 0 ] ; then no_result ; fi
activity="create program 2"
if [ $? -ne 0 ] ; then no_result ; fi
activity="create program 2"
@@
-99,8
+103,8
@@
EOF
if [ $? -ne 0 ] ; then no_result ; fi
activity="compare output"
if [ $? -ne 0 ] ; then no_result ; fi
activity="compare output"
-perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.
list $TEMPDIR/first.list
-diff -b $TEMPDIR/pspp.
list $TEMPDIR/first.list
+perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.
csv $TEMPDIR/first.csv
+diff -b $TEMPDIR/pspp.
csv $TEMPDIR/first.csv
if [ $? -ne 0 ] ; then fail ; fi
if [ $? -ne 0 ] ; then fail ; fi