Re: Test Failures

[Peter Stephenson <pws@csr.com>]

Vin Shelton wrote:
>     *** /tmp/zsh.ztst.err.5558	Mon Mar 31 16:33:24 2003
>     --- /tmp/zsh.ztst.terr.5558	Mon Mar 31 16:33:24 2003
>     ***************
>     *** 1,2 ****
>     ! 1) one     2) two     3) three   
>       input> input> 
>     --- 1,2 ----
>     ! 1) one    2) two    3) three  
>       input> input> 

Aha!  The last time you sent this the line was missing altogether.  So
we're making progress.  It looks like something to do with the column
spacing, which was what Bart was speculating about.  Now I know what to
look for, I can show it by maximising the window.

Try the following.  It's got an irrelevant additional parameter test
which happened to be lying around tacked on.

Index: Test/A01grammar.ztst
===================================================================
RCS file: /cvsroot/zsh/zsh/Test/A01grammar.ztst,v
retrieving revision 1.7
diff -u -r1.7 A01grammar.ztst
--- Test/A01grammar.ztst	26 Mar 2003 14:55:59 -0000	1.7
+++ Test/A01grammar.ztst	1 Apr 2003 09:50:57 -0000
@@ -233,10 +233,11 @@
 
 ## Select now reads from stdin if the shell is not interactive.
 ## Its own output goes to stderr.
+  (COLUMNS=80
   PS3="input> "
   select name in one two three; do
     print $name
-  done
+  done)
 0:`select' loop
 <2
 ?1) one     2) two     3) three   
Index: Test/D04parameter.ztst
===================================================================
RCS file: /cvsroot/zsh/zsh/Test/D04parameter.ztst,v
retrieving revision 1.6
diff -u -r1.6 D04parameter.ztst
--- Test/D04parameter.ztst	25 Sep 2001 17:37:55 -0000	1.6
+++ Test/D04parameter.ztst	1 Apr 2003 09:50:57 -0000
@@ -555,3 +555,25 @@
 >/here:/there
 >0
 >/elsewhere /somewhere
+
+  string='look for a match in here'
+  if [[ ${string%%(#b)(match)*} = "look for a " ]]; then
+    print $match[1] $mbegin[1] $mend[1] $string[$mbegin[1],$mend[1]]
+    print $#match $#mbegin $#mend
+  else
+    print That didn\'t work.
+  fi
+0:Parameters associated with backreferences
+>match 12 16 match
+>1 1 1
+
+  string='and look for a MATCH in here'
+  if [[ ${(S)string%%(#m)M*H} = "and look for a  in here" ]]; then
+    print $MATCH $MBEGIN $MEND $string[$MBEGIN,$MEND]
+    print $#MATCH
+  else
+    print Oh, dear.  Back to the drawing board.
+  fi
+0:Parameters associated with (#m) flag
+>MATCH 16 20 MATCH
+>5

-- 
Peter Stephenson <pws@csr.com>                  Software Engineer
CSR Ltd., Science Park, Milton Road,
Cambridge, CB4 0WH, UK                          Tel: +44 (0)1223 692070


**********************************************************************
The information transmitted is intended only for the person or
entity to which it is addressed and may contain confidential 
and/or privileged material. 
Any review, retransmission, dissemination or other use of, or
taking of any action in reliance upon, this information by 
persons or entities other than the intended recipient is 
prohibited.  
If you received this in error, please contact the sender and 
delete the material from any computer.
**********************************************************************