From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 22460 invoked from network); 30 Mar 2001 07:00:29 -0000 Received: from sunsite.dk (130.225.51.30) by ns1.primenet.com.au with SMTP; 30 Mar 2001 07:00:29 -0000 Received: (qmail 26083 invoked by alias); 30 Mar 2001 07:00:20 -0000 Mailing-List: contact zsh-workers-help@sunsite.dk; run by ezmlm Precedence: bulk X-No-Archive: yes X-Seq: 13846 Received: (qmail 26068 invoked from network); 30 Mar 2001 07:00:19 -0000 From: "Bart Schaefer" Message-Id: <1010330070007.ZM3566@candle.brasslantern.com> Date: Fri, 30 Mar 2001 07:00:06 +0000 X-Mailer: Z-Mail (5.0.0 30July97) To: zsh-workers@sunsite.dk Subject: PATCH: Still more feedback during tests MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Another obfuscated zsh contest entry. Apply this patch and then run `make check TESTNUM=54' to get the best look at the results. Index: Test/ztst.zsh =================================================================== --- Test/ztst.zsh 2001/03/29 05:33:50 1.12 +++ Test/ztst.zsh 2001/03/30 06:53:42 @@ -107,6 +107,9 @@ shift [[ -n $ZTST_verbose && $ZTST_verbose -ge $lev ]] && print -- $* >&8 } +ZTST_hashmark() { + [[ ZTST_verbose -le 0 && -t 8 ]] && print -nu8 ${(pl:SECONDS::\#::\#\r:)} +} [[ ! -r $ZTST_testname ]] && ZTST_testfailed "can't read test file." @@ -292,6 +295,7 @@ # If we found some code to execute... if [[ -n $ZTST_code ]]; then + ZTST_hashmark ZTST_verbose 1 "Running test: $ZTST_message" ZTST_verbose 2 "ZTST_test: expecting status: $ZTST_xstatus" -- Bart Schaefer Brass Lantern Enterprises http://www.well.com/user/barts http://www.brasslantern.com Zsh: http://www.zsh.org | PHPerl Project: http://phperl.sourceforge.net