3 # Tests guessing of data formats from data.
5 TEMPDIR=/tmp/pspp-tst-$$
7 # ensure that top_builddir are absolute
8 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
9 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
10 top_builddir=`cd $top_builddir; pwd`
11 PSPP=$top_builddir/src/ui/terminal/pspp
13 # ensure that top_srcdir is absolute
14 top_srcdir=`cd $top_srcdir; pwd`
16 STAT_CONFIG_PATH=$top_srcdir/config
17 export STAT_CONFIG_PATH
54 activity="create test data"
55 sed -ne 's/#.*//;/^[ ]*$/!p' > $TEMPDIR/test-list <<'EOF'
78 "1,123" => COMMA5.0 # Is , is grouping or decimal? Assume grouping.
79 "1.123" => F5.3 # Ditto.
80 "1,12" => F4.2 # Not a group of 3, so last delim must be decimal.
81 "1.12" => F4.2 # Ditto.
82 "1,1234" => F6.4 # Not a group of 3, so last delim must be decimal.
83 "1.1234" => F6.4 # Ditto.
84 "$1.234" => DOLLAR6.3 # Dollar sign means decimal has to be '.'.
85 "$1,234" => DOLLAR6.0 # Ditto.
86 "1.234%" => PCT6.3 # Percent sign means decimal has to be '.'.
87 "1,234%" => PCT6.0 # Ditto.
88 "1,123.456" => COMMA9.3 # Both '.' and ',', so last delim must be decimal.
89 "1.123,456" => DOT9.3 # Ditto.
90 "1,123,456.45" => COMMA12.2 # Ditto.
91 "1.123.456,45" => DOT12.2 # Ditto.
92 "1,123,456" => COMMA9.0 # Ditto.
93 "1.123.456" => DOT9.0 # Ditto.
95 # Date and time formats.
96 "01-OCT-1978" => DATE11
97 "01-x-1978" => EDATE9 # Roman numeral for month.
99 "1-13-99" => ADATE7 (ADATE8)
101 "13-1-99" => EDATE7 (EDATE8)
102 "32-1-1" => SDATE6 (SDATE8)
113 "1-1-01 1:2" => A10 # Minute needs at least two digits.
114 "1-1-01 1:02" => DATETIME11.0 (DATETIME17.0)
115 "1-1-01 1:02:3" => A13 # Second needs at least two digits.
116 "1-1-01 1:02:03" => DATETIME20.0
117 "1-1-01 1:02:03.1" => DATETIME20.1 (DATETIME22.1)
118 "1-1-01 +1:02:03.1" => DATETIME20.1 (DATETIME22.1)
119 "1-1-01 -1:02:03.1" => DATETIME20.1 (DATETIME22.1)
120 "1:30" => TIME4.0 (TIME5.0)
124 "-1:30:15" => TIME8.0
125 "+1:30:15" => TIME8.0
126 "-1:30:15.5" => TIME10.1
127 "+1:30:15.75" => TIME11.2
128 "1 1:30" => DTIME6.0 (DTIME8.0)
129 "+1 1:30" => DTIME7.0 (DTIME8.0)
130 "-1 1:30" => DTIME7.0 (DTIME8.0)
134 "1:00:01.03" => TIME10.2 (TIME11.2)
135 "12 1:00:01.3" => DTIME12.1 (DTIME13.1)
139 "i" => A1 # Not detected as MONTH format.
154 "september" => MONTH9
161 "wedensday" => WKDAY9
167 # Ambiguous; bias in favor of more sensible DD/MM/YY format:
171 # Several ambiguous dates can be clarified by one unambiguous example:
172 "1/1/1978" "1/2/1978" "1/3/1978" "1/13/1978" => ADATE9 # MM/DD/YY
173 "01/01/01" "02/01/01" "03/01/01" "13/01/01" => EDATE8 # DD/MM/YY
174 "01/01/01" "02/01/01" "03/01/01" "2013/01/01" => SDATE10 # YY/MM/DD
176 if [ $? -ne 0 ] ; then no_result ; fi
178 activity="create syntax file"
180 echo "SET DECIMAL=DOT." &&
181 sed < $TEMPDIR/test-list -e 's#^\(.*\)=> \(.*\)$#DEBUG FORMAT GUESSER \1.#'
182 } > $TEMPDIR/test.stat
183 if [ $? -ne 0 ] ; then no_result ; fi
185 activity="run program"
186 $SUPERVISOR $PSPP --testing-mode \
187 $TEMPDIR/test.stat >$TEMPDIR/test.err 2> $TEMPDIR/test.out
189 activity="compare output"
190 perl -pi -e 's/^\s*$//g' $TEMPDIR/test-list $TEMPDIR/test.out
191 diff -b $TEMPDIR/test-list $TEMPDIR/test.out
192 if [ $? -ne 0 ] ; then fail ; fi