PATCH: 10prompt.ztst

[Tanaka Akira <akr@xxxxxxxxxxx>]

`make check' was failed since Feb 10.  This problem was not appeared
before, because $date3[8,9] was arithmetically correct even though its
upper digit was forgotten.

| Z:akr@crane% make check
| cd Test ; gmake check
| gmake[1]: Entering directory `/ldl3/akr/zsh/tst/work/zsh-workers_9518/zsh/Test'
| for f in ./*.ztst; do \
|   ../Src/zsh -f ./ztst.zsh $f; \
| done
| ./01grammar.ztst: all tests successful.
| ./02alias.ztst: all tests successful.
| ./03quoting.ztst: all tests successful.
| ./04redirect.ztst: all tests successful.
| ./05command.ztst: all tests successful.
| ./06arith.ztst: all tests successful.
| ./07cond.ztst: all tests successful.
| This test takes at least three seconds...
| This test, too, takes at least three seconds...
| ./08traps.ztst: all tests successful.
| ./09funcdef.ztst: all tests successful.
| *** /tmp/zsh.ztst.out.22529     Fri Feb 11 05:59:27 2000
| --- /tmp/zsh.ztst.tout.22529    Fri Feb 11 05:59:27 2000
| ***************
| *** 0 ****
| --- 1 ----
| + Days of month do not agree in Fri 11, 02/11/00, 00-02-11
| Test ./10prompt.ztst failed: output differs from expected as shown above for:
|   LC_ALL=C
|   date1=$(print -P %w)
|   date2=$(print -P %W)
|   date3=$(print -P %D)
|   if [[ $date1 != [A-Z][a-z][a-z][[:blank:]]##[0-9]## ]]; then
|     print "Date \`$date1' is not in the form \`Day DD' (e.g. \`Mon 1'"
|   fi
|   if [[ $date2 != [0-9][0-9]/[0-9][0-9]/[0-9][0-9] ]]; then
|     print "Date \`$date2' is not in the form \`DD/MM/YYYY'"
|   fi
|   if [[ $date3 != [0-9][0-9]-[0-9][0-9]-[0-9][0-9] ]]; then
|     print "Date \`$date3' is not in the form \`YY-MM-DD'"
|   fi
|   if (( $date1[5,-1] != $date2[4,5] )) || (( $date2[4,5] != $date3[8,9] ))
|   then
|     print "Days of month do not agree in $date1, $date2, $date3"
|   fi
|   if (( $date2[1,2] != $date3[4,5] )); then
|     print "Months do not agree in $date2, $date3"
|   fi
|   if (( $date2[7,8] != $date3[1,2] )); then
|     print "Years do not agree in $date2, $date3"
|   fi
| Was testing: Dates produced by prompt escapes
| ./10prompt.ztst: test failed.
| ./50cd.ztst: all tests successful.
| gmake[1]: Leaving directory `/ldl3/akr/zsh/tst/work/zsh-workers_9518/zsh/Test'

Index: Test/10prompt.ztst
===================================================================
RCS file: /projects/zsh/zsh/Test/10prompt.ztst,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 10prompt.ztst
--- Test/10prompt.ztst	2000/02/02 01:26:24	1.1.1.1
+++ Test/10prompt.ztst	2000/02/10 21:17:29
@@ -93,7 +93,7 @@
   if [[ $date3 != [0-9][0-9]-[0-9][0-9]-[0-9][0-9] ]]; then
     print "Date \`$date3' is not in the form \`YY-MM-DD'"
   fi
-  if (( $date1[5,-1] != $date2[4,5] )) || (( $date2[4,5] != $date3[8,9] ))
+  if (( $date1[5,-1] != $date2[4,5] )) || (( $date2[4,5] != $date3[7,8] ))
   then
     print "Days of month do not agree in $date1, $date2, $date3"
   fi
-- 
Tanaka Akira