Sat Jul 30 21:54:23 2005 Ben Pfaff <blp@gnu.org>
[pspp-builds.git] / tests / command / import-export.sh
1 #!/bin/sh
2
3 # This program tests the IMPORT and EXPORT commands
4
5 TEMPDIR=/tmp/pspp-tst-$$
6 TESTFILE=$TEMPDIR/`basename $0`.sps
7
8 here=`pwd`;
9
10 # ensure that top_srcdir is absolute
11 cd $top_srcdir; top_srcdir=`pwd`
12
13 STAT_CONFIG_PATH=$top_srcdir/config
14 export STAT_CONFIG_PATH
15
16
17 cleanup()
18 {
19      cd /
20      rm -rf $TEMPDIR
21 }
22
23
24 fail()
25 {
26     echo $activity
27     echo FAILED
28     cleanup;
29     exit 1;
30 }
31
32
33 no_result()
34 {
35     echo $activity
36     echo NO RESULT;
37     cleanup;
38     exit 2;
39 }
40
41 pass()
42 {
43     cleanup;
44     exit 0;
45 }
46
47 mkdir -p $TEMPDIR
48
49 cd $TEMPDIR
50
51 activity="create program"
52 cat > $TESTFILE <<EOF
53 DATA LIST LIST /X * Y *.
54 BEGIN DATA.
55 1 2
56 3 4
57 5 6
58 END DATA.
59
60 EXPORT /OUTFILE='wiz.por'.
61
62 LIST.
63
64 IMPORT /FILE='wiz.por'.
65
66 LIST.
67 EOF
68 if [ $? -ne 0 ] ; then no_result ; fi
69
70
71 activity="run program"
72 $SUPERVISOR $here/../src/pspp --testing-mode -o raw-ascii $TESTFILE
73 if [ $? -ne 0 ] ; then no_result ; fi
74
75 activity="compare output"
76 diff -b -B $TEMPDIR/pspp.list - << EOF
77 1.1 DATA LIST.  Reading free-form data from the command file.
78 +--------+------+
79 |Variable|Format|
80 #========#======#
81 |X       |F8.0  |
82 |Y       |F8.0  |
83 +--------+------+
84
85        X        Y
86 -------- --------
87     1.00     2.00 
88     3.00     4.00 
89     5.00     6.00 
90
91        X        Y
92 -------- --------
93     1.00     2.00 
94     3.00     4.00 
95     5.00     6.00 
96
97 EOF
98 if [ $? -ne 0 ] ; then fail ; fi
99
100 pass;