projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
gui: Fix File|Export in output viewer.
[pspp]
/
tests
/
stats
/
descript-mean-bug.sh
diff --git
a/tests/stats/descript-mean-bug.sh
b/tests/stats/descript-mean-bug.sh
index defe833f041e029f58391e2ea241bebb9e84ffe7..4a8853b47e4109cccdc12531865371bf861e21a5 100755
(executable)
--- a/
tests/stats/descript-mean-bug.sh
+++ b/
tests/stats/descript-mean-bug.sh
@@
-20,6
+20,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
}
@@
-54,6
+58,8
@@
cd $TEMPDIR
activity="create program"
cat > $TEMPDIR/descript.stat <<EOF
activity="create program"
cat > $TEMPDIR/descript.stat <<EOF
+SET FORMAT F8.3.
+
data list notable / X 1.
begin data.
0
data list notable / X 1.
begin data.
0
@@
-71,18
+77,14
@@
if [ $? -ne 0 ] ; then no_result ; fi
activity="run program"
activity="run program"
-$SUPERVISOR $PSPP -
-testing-mode
$TEMPDIR/descript.stat
+$SUPERVISOR $PSPP -
o pspp.csv
$TEMPDIR/descript.stat
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
-diff -b $TEMPDIR/pspp.list - <<EOF
-1.1 DESCRIPTIVES. Valid cases = 6; cases with missing value(s) = 0.
-+--------#-+-----+
-|Variable#N| Mean|
-#========#=#=====#
-|X #6|2.500|
-+--------#-+-----+
+diff -c $TEMPDIR/pspp.csv - <<EOF
+Table: Valid cases = 6; cases with missing value(s) = 0.
+Variable,N,Mean
+X,6,2.500
EOF
if [ $? -ne 0 ] ; then fail ; fi
EOF
if [ $? -ne 0 ] ; then fail ; fi