Re: PATCH: completion tests

[Tanaka Akira <akr@xxxxxxxxxxx>]

In article <200003011528.QAA28206@xxxxxxxxxxxxxxxxxxxxxxxxxxxx>,
  Sven Wischnowsky <wischnow@xxxxxxxxxxxxxxxxxxxxxxx> writes:

> Ah, I forgot to say: this is intentional. It comes from the printfmt() 
> functions to ensure that printing a completion list over a completion
> list doesn't flicker. No way around that.

Ok.  I modified comptest to remove it.

Index: Test/.distfiles
===================================================================
RCS file: /projects/zsh/zsh/Test/.distfiles,v
retrieving revision 1.1.1.7
diff -u -r1.1.1.7 .distfiles
--- Test/.distfiles	2000/02/20 01:27:22	1.1.1.7
+++ Test/.distfiles	2000/03/01 15:34:31
@@ -1,7 +1,7 @@
 DISTFILES_SRC='
     .cvsignore .distfiles Makefile.in
-    ztst.zsh
+    ztst.zsh comptest
     01grammar.ztst 02alias.ztst 03quoting.ztst 04redirect.ztst
     05command.ztst 06arith.ztst 07cond.ztst 08traps.ztst 09funcdef.ztst
-    10prompt.ztst 50cd.ztst 51xtrace.ztst
+    10prompt.ztst 50cd.ztst 51xtrace.ztst 52zregexparse.ztst 53completion.ztst
 '
Index: Test/comptest
===================================================================
RCS file: /projects/zsh/zsh/Test/comptest,v
retrieving revision 1.1.1.2
diff -u -r1.1.1.2 comptest
--- Test/comptest	2000/03/01 13:14:50	1.1.1.2
+++ Test/comptest	2000/03/01 15:34:31
@@ -7,6 +7,7 @@
 dump=(-D)
 code=
 zsh=${ZSH:-zsh}
+termcap_ce="$(echotc ce)"
 
 while getopts Dd:c:z: opt; do
   case $opt in
@@ -91,7 +92,7 @@
     log="${log[$mend[1]+1,-1]}"
     if (( 0 <= $mbegin[2] )); then
       if [[ $match[2] != TC && $match[3] != \ # ]]; then
-	print -lr "$match[2]:{$match[3]}"
+	print -lr "$match[2]:{${match[3]%$termcap_ce}}"
       fi
     elif (( 0 <= $mbegin[4] )); then
       print -lr "DESCRIPTION:{$match[4]}"
-- 
Tanaka Akira