From f0554910ce3b47c6feb150c75fa376bfdfa8818d Mon Sep 17 00:00:00 2001
From: Ben Pfaff <blp@cs.stanford.edu>
Date: Sat, 9 Oct 2010 20:58:18 -0700
Subject: [PATCH] tests: Remove files that are no longer used.
---
tests/command/get-data-gnm.sh | 211 ----------------------
tests/command/input-program.sh | 309 ---------------------------------
2 files changed, 520 deletions(-)
delete mode 100755 tests/command/get-data-gnm.sh
delete mode 100755 tests/command/input-program.sh
diff --git a/tests/command/get-data-gnm.sh b/tests/command/get-data-gnm.sh
deleted file mode 100755
index 08cad6a3..00000000
--- a/tests/command/get-data-gnm.sh
+++ /dev/null
@@ -1,211 +0,0 @@
-#!/bin/sh
-
-# This program tests that pspp can read Gnumeric files
-
-TEMPDIR=/tmp/pspp-tst-$$
-TESTFILE=$TEMPDIR/`basename $0`.sps
-
-# ensure that top_srcdir and top_builddir are absolute
-if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
-if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
-top_srcdir=`cd $top_srcdir; pwd`
-top_builddir=`cd $top_builddir; pwd`
-
-PSPP=$top_builddir/src/ui/terminal/pspp$EXEEXT
-
-STAT_CONFIG_PATH=$top_srcdir/config
-export STAT_CONFIG_PATH
-
-LANG=C
-export LANG
-
-
-cleanup()
-{
- if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then
- echo "NOT cleaning $TEMPDIR"
- return ;
- fi
- cd /
- rm -rf $TEMPDIR
-}
-
-
-fail()
-{
- echo $activity
- echo FAILED
- cleanup;
- exit 1;
-}
-
-
-no_result()
-{
- echo $activity
- echo NO RESULT;
- cleanup;
- exit 2;
-}
-
-pass()
-{
- cleanup;
- exit 0;
-}
-
-mkdir -p $TEMPDIR
-
-cd $TEMPDIR
-
-activity="zip the gnm file and place it in the test directory"
-gzip -c $top_srcdir/tests/Book1.gnm.unzipped > $TEMPDIR/Book1.gnumeric
-if [ $? -ne 0 ] ; then no_result ; fi
-
-activity="create program 1"
-cat > $TESTFILE <<EOF
-GET DATA /TYPE=gnm /FILE='$TEMPDIR/Book1.gnumeric' /READNAMES=off /SHEET=name 'This' /CELLRANGE=range 'g9:i13' .
-DISPLAY VARIABLES.
-LIST.
-
-
-GET DATA /TYPE=gnm /FILE='$TEMPDIR/Book1.gnumeric' /READNAMES=on /SHEET=name 'This' /CELLRANGE=range 'g8:i13' .
-DISPLAY VARIABLES.
-LIST.
-
-
-GET DATA /TYPE=gnm /FILE='$TEMPDIR/Book1.gnumeric' /SHEET=index 3.
-DISPLAY VARIABLES.
-LIST.
-
-* This sheet has no data in one of its variables
-GET DATA /TYPE=gnm /FILE='$TEMPDIR/Book1.gnumeric' /READNAMES=on /SHEET=index 5.
-DISPLAY VARIABLES.
-LIST.
-
-EOF
-if [ $? -ne 0 ] ; then no_result ; fi
-
-activity="run program 1"
-$SUPERVISOR $PSPP -o pspp.csv $TESTFILE
-if [ $? -ne 0 ] ; then no_result ; fi
-
-
-activity="compare output 1"
-diff -c $TEMPDIR/pspp.csv - <<EOF
-Variable,Description,,Position
-VAR001,Format: F8.2,,1
-,Measure: Scale,,
-,Display Alignment: Right,,
-,Display Width: 8,,
-VAR002,Format: A8,,2
-,Measure: Nominal,,
-,Display Alignment: Left,,
-,Display Width: 8,,
-VAR003,Format: F8.2,,3
-,Measure: Scale,,
-,Display Alignment: Right,,
-,Display Width: 8,,
-
-Table: Data List
-VAR001,VAR002,VAR003
-.00,fred ,20.00
-1.00,11 ,21.00
-2.00,twelve ,22.00
-3.00,13 ,23.00
-4.00,14 ,24.00
-
-Variable,Description,,Position
-V1,Format: F8.2,,1
-,Measure: Scale,,
-,Display Alignment: Right,,
-,Display Width: 8,,
-V2,Format: A8,,2
-,Measure: Nominal,,
-,Display Alignment: Left,,
-,Display Width: 8,,
-VAR001,Format: F8.2,,3
-,Measure: Scale,,
-,Display Alignment: Right,,
-,Display Width: 8,,
-
-Table: Data List
-V1,V2,VAR001
-.00,fred ,20.00
-1.00,11 ,21.00
-2.00,twelve ,22.00
-3.00,13 ,23.00
-4.00,14 ,24.00
-
-Variable,Description,,Position
-name,Format: A8,,1
-,Measure: Nominal,,
-,Display Alignment: Left,,
-,Display Width: 8,,
-id,Format: F8.2,,2
-,Measure: Scale,,
-,Display Alignment: Right,,
-,Display Width: 8,,
-height,Format: F8.2,,3
-,Measure: Scale,,
-,Display Alignment: Right,,
-,Display Width: 8,,
-
-Table: Data List
-name,id,height
-fred ,.00,23.40
-bert ,1.00,.56
-charlie ,2.00,.
-dick ,3.00,-34.09
-
-Variable,Description,,Position
-vone,Format: F8.2,,1
-,Measure: Scale,,
-,Display Alignment: Right,,
-,Display Width: 8,,
-vtwo,Format: F8.2,,2
-,Measure: Scale,,
-,Display Alignment: Right,,
-,Display Width: 8,,
-vthree,Format: A8,,3
-,Measure: Nominal,,
-,Display Alignment: Left,,
-,Display Width: 8,,
-v4,Format: F8.2,,4
-,Measure: Scale,,
-,Display Alignment: Right,,
-,Display Width: 8,,
-
-Table: Data List
-vone,vtwo,vthree,v4
-1.00,3.00,,5.00
-2.00,4.00,,6.00
-EOF
-if [ $? -ne 0 ] ; then fail ; fi
-
-
-activity="create program 2"
-cat > $TESTFILE <<EOF
-* This sheet is empty
-GET DATA /TYPE=gnm /FILE='$TEMPDIR/Book1.gnumeric' /SHEET=name 'Empty'.
-
-
-* This sheet doesnt exist
-GET DATA /TYPE=gnm /FILE='$TEMPDIR/Book1.gnumeric' /SHEET=name 'foobarxx'.
-
-EOF
-if [ $? -ne 0 ] ; then no_result ; fi
-
-activity="run program 2"
-$SUPERVISOR $PSPP -o pspp.csv $TESTFILE > /dev/null
-if [ $? -ne 0 ] ; then fail ; fi
-
-activity="compare output 2"
-diff -c $TEMPDIR/pspp.csv - <<EOF
-warning: Selected sheet or range of spreadsheet \`$TEMPDIR/Book1.gnumeric' is empty.
-
-warning: Selected sheet or range of spreadsheet \`$TEMPDIR/Book1.gnumeric' is empty.
-EOF
-if [ $? -ne 0 ] ; then fail ; fi
-
-pass;
diff --git a/tests/command/input-program.sh b/tests/command/input-program.sh
deleted file mode 100755
index dd881e7b..00000000
--- a/tests/command/input-program.sh
+++ /dev/null
@@ -1,309 +0,0 @@
-#!/bin/sh
-
-# This program tests the INPUT PROGRAM command, specifically all of
-# the examples given in the user manual.
-
-TEMPDIR=/tmp/pspp-tst-$$
-
-# ensure that top_builddir are absolute
-if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
-if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
-top_builddir=`cd $top_builddir; pwd`
-PSPP=$top_builddir/src/ui/terminal/pspp$EXEEXT
-
-# ensure that top_srcdir is absolute
-top_srcdir=`cd $top_srcdir; pwd`
-
-STAT_CONFIG_PATH=$top_srcdir/config
-export STAT_CONFIG_PATH
-
-LANG=C
-export LANG
-
-cleanup()
-{
- if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then
- echo "NOT cleaning $TEMPDIR"
- return ;
- fi
- cd /
- rm -rf $TEMPDIR
-}
-
-
-fail()
-{
- echo $activity
- echo FAILED
- cleanup;
- exit 1;
-}
-
-
-no_result()
-{
- echo $activity
- echo NO RESULT;
- cleanup;
- exit 2;
-}
-
-pass()
-{
- cleanup;
- exit 0;
-}
-
-mkdir -p $TEMPDIR
-
-cd $TEMPDIR
-
-activity="create a.data"
-cat > a.data <<EOF
-1
-2
-3
-EOF
-if [ $? -ne 0 ] ; then no_result ; fi
-
-activity="create b.data"
-cat > b.data <<EOF
-4
-5
-6
-7
-8
-EOF
-if [ $? -ne 0 ] ; then no_result ; fi
-
-activity="create test1.pspp"
-cat > test1.pspp <<EOF
-INPUT PROGRAM.
- DATA LIST NOTABLE FILE='a.data'/X 1-10.
- DATA LIST NOTABLE FILE='b.data'/Y 1-10.
-END INPUT PROGRAM.
-LIST.
-EOF
-if [ $? -ne 0 ] ; then no_result ; fi
-
-activity="run test1"
-$SUPERVISOR $PSPP -o pspp.csv test1.pspp
-if [ $? -ne 0 ] ; then no_result ; fi
-
-activity="compare test1 results"
-diff -c $TEMPDIR/pspp.csv - << EOF
-Table: Data List
-X,Y
-1,4
-2,5
-3,6
-EOF
-if [ $? -ne 0 ] ; then fail ; fi
-
-activity="create test2.pspp"
-cat > test2.pspp <<EOF
-INPUT PROGRAM.
- NUMERIC #A #B.
-
- DO IF NOT #A.
- DATA LIST NOTABLE END=#A FILE='a.data'/X 1-10.
- END IF.
- DO IF NOT #B.
- DATA LIST NOTABLE END=#B FILE='b.data'/Y 1-10.
- END IF.
- DO IF #A AND #B.
- END FILE.
- END IF.
- END CASE.
-END INPUT PROGRAM.
-LIST.
-EOF
-if [ $? -ne 0 ] ; then no_result ; fi
-
-activity="run test2"
-$SUPERVISOR $PSPP -o pspp.csv test2.pspp
-if [ $? -ne 0 ] ; then no_result ; fi
-
-activity="compare test2 results"
-perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.csv
-diff -c $TEMPDIR/pspp.csv - << EOF
-Table: Data List
-X,Y
-1,4
-2,5
-3,6
-.,7
-.,8
-EOF
-if [ $? -ne 0 ] ; then fail ; fi
-
-activity="create test3.pspp"
-cat > test3.pspp <<EOF
-INPUT PROGRAM.
- NUMERIC #A #B.
-
- DO IF #A.
- DATA LIST NOTABLE END=#B FILE='b.data'/X 1-10.
- DO IF #B.
- END FILE.
- ELSE.
- END CASE.
- END IF.
- ELSE.
- DATA LIST NOTABLE END=#A FILE='a.data'/X 1-10.
- DO IF NOT #A.
- END CASE.
- END IF.
- END IF.
-END INPUT PROGRAM.
-LIST.
-EOF
-if [ $? -ne 0 ] ; then no_result ; fi
-
-activity="run test3"
-$SUPERVISOR $PSPP -o pspp.csv test3.pspp
-if [ $? -ne 0 ] ; then no_result ; fi
-
-activity="compare test3 results"
-perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.csv
-diff -c $TEMPDIR/pspp.csv - << EOF
-Table: Data List
-X
-1
-2
-3
-4
-5
-6
-7
-8
-EOF
-if [ $? -ne 0 ] ; then fail ; fi
-
-activity="create test4.pspp"
-cat > test4.pspp <<EOF
-INPUT PROGRAM.
- NUMERIC #EOF.
-
- LOOP IF NOT #EOF.
- DATA LIST NOTABLE END=#EOF FILE='a.data'/X 1-10.
- DO IF NOT #EOF.
- END CASE.
- END IF.
- END LOOP.
-
- COMPUTE #EOF = 0.
- LOOP IF NOT #EOF.
- DATA LIST NOTABLE END=#EOF FILE='b.data'/X 1-10.
- DO IF NOT #EOF.
- END CASE.
- END IF.
- END LOOP.
-
- END FILE.
-END INPUT PROGRAM.
-LIST.
-EOF
-if [ $? -ne 0 ] ; then no_result ; fi
-
-activity="run test4"
-$SUPERVISOR $PSPP -o pspp.csv test4.pspp
-if [ $? -ne 0 ] ; then no_result ; fi
-
-activity="compare test4 results"
-perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.csv
-diff -c $TEMPDIR/pspp.csv - << EOF
-Table: Data List
-X
-1
-2
-3
-4
-5
-6
-7
-8
-EOF
-if [ $? -ne 0 ] ; then fail ; fi
-
-# This example differs slightly from the one in the manual in that
-# it doesn't generate random variates. There's already a test that
-# checks that random variates are predictable, so we don't need
-# another.
-activity="create test5.pspp"
-cat > test5.pspp <<EOF
-INPUT PROGRAM.
- LOOP #I=1 TO 50.
- COMPUTE X=#I * 3.
- END CASE.
- END LOOP.
- END FILE.
-END INPUT PROGRAM.
-LIST/FORMAT=NUMBERED.
-EOF
-if [ $? -ne 0 ] ; then no_result ; fi
-
-activity="run test5"
-$SUPERVISOR $PSPP -o pspp.csv test5.pspp
-if [ $? -ne 0 ] ; then no_result ; fi
-
-activity="compare test5 results"
-perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.csv
-diff -c $TEMPDIR/pspp.csv - << EOF
-Table: Data List
-Case Number,X
-1,3.00
-2,6.00
-3,9.00
-4,12.00
-5,15.00
-6,18.00
-7,21.00
-8,24.00
-9,27.00
-10,30.00
-11,33.00
-12,36.00
-13,39.00
-14,42.00
-15,45.00
-16,48.00
-17,51.00
-18,54.00
-19,57.00
-20,60.00
-21,63.00
-22,66.00
-23,69.00
-24,72.00
-25,75.00
-26,78.00
-27,81.00
-28,84.00
-29,87.00
-30,90.00
-31,93.00
-32,96.00
-33,99.00
-34,102.00
-35,105.00
-36,108.00
-37,111.00
-38,114.00
-39,117.00
-40,120.00
-41,123.00
-42,126.00
-43,129.00
-44,132.00
-45,135.00
-46,138.00
-47,141.00
-48,144.00
-49,147.00
-50,150.00
-EOF
-if [ $? -ne 0 ] ; then fail ; fi
-
-
-pass
--
2.30.2