Replace "all-hook" with "all-local".
[pspp-builds.git] / tests / expressions / valuelabel.sh
1 #!/bin/sh
2
3 # This program tests use of the VALUELABEL function in expressions.
4
5 TEMPDIR=/tmp/pspp-tst-$$
6
7 # ensure that top_srcdir and top_builddir  are absolute
8 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
9 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
10 top_srcdir=`cd $top_srcdir; pwd`
11 top_builddir=`cd $top_builddir; pwd`
12 PSPP=$top_builddir/src/ui/terminal/pspp
13
14 STAT_CONFIG_PATH=$top_srcdir/config
15 export STAT_CONFIG_PATH
16
17 LANG=C
18 export LANG
19
20 cleanup()
21 {
22      if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then 
23         echo "NOT cleaning $TEMPDIR" 
24         return ; 
25      fi
26      cd /
27      rm -rf $TEMPDIR
28 }
29
30
31 fail()
32 {
33     echo $activity
34     echo FAILED
35     cleanup;
36     exit 1;
37 }
38
39
40 no_result()
41 {
42     echo $activity
43     echo NO RESULT;
44     cleanup;
45     exit 2;
46 }
47
48 pass()
49 {
50     cleanup;
51     exit 0;
52 }
53
54 mkdir -p $TEMPDIR
55
56 cd $TEMPDIR
57
58 activity="create program"
59 cat > $TEMPDIR/valuelabel.stat <<EOF
60 DATA LIST notable /n 1 s 2(a).
61 VALUE LABELS /n 0 'Very dissatisfied'
62                 1 'Dissatisfied'
63                 1.5 'Slightly Peeved'
64                 2 'Neutral'
65                 3 'Satisfied'
66                 4 'Very satisfied'.
67 VALUE LABELS /s 'a' 'Wouldn''t buy again'
68                 'b' 'Unhappy'
69                 'c' 'Bored'
70                 'd' 'Satiated'
71                 'e' 'Elated'.
72 STRING nlabel slabel(a10).
73 COMPUTE nlabel = VALUELABEL(n).
74 COMPUTE slabel = VALUELABEL(s).
75 LIST.
76 BEGIN DATA.
77
78 0a
79 1b
80 2c
81 3d
82 4e
83 5f
84 6g
85 END DATA.
86
87 EOF
88 if [ $? -ne 0 ] ; then no_result ; fi
89
90 activity="run program"
91 $SUPERVISOR $PSPP --testing-mode $TEMPDIR/valuelabel.stat
92 if [ $? -ne 0 ] ; then fail ; fi
93
94 activity="compare results"
95 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
96 diff -b  $TEMPDIR/pspp.list - <<EOF
97 n s     nlabel     slabel
98 - - ---------- ----------
99 .                         
100 0 a Very dissa Wouldn't b 
101 1 b Dissatisfi Unhappy    
102 2 c Neutral    Bored      
103 3 d Satisfied  Satiated   
104 4 e Very satis Elated     
105 5 f                       
106 6 g                       
107 EOF
108 if [ $? -ne 0 ] ; then fail ; fi
109
110
111
112 pass;