Re: [PATCH] dejagnu runtest.exp cleanup

[Jimmy Guo <guo@cup.hp.com>]

FYI I've committed this.

- Jimmy

On Mon, 31 Jul 2000, Jimmy Guo wrote:

>Mon Jul 31 16:45:29	Jimmy Guo	<guo@cup.hp.com>
>
>	* runtest.exp: Cleanup reference to $env(MULTIPASS) and
>	$env(PASS).  These were added by HP but unused since.
>
>Index: runtest.exp
>/usr/local/bin/diff -c -L runtest.exp runtest.exp@@/main/cygnus/6 runtest.exp
>*** runtest.exp
>--- runtest.exp	Mon Jul 31 16:43:59 2000
>***************
>*** 1604,1623 ****
>  
>      if { [info exists MULTIPASS] } {
>  	set multipass $MULTIPASS
>-     } elseif {[info exists env(MULTIPASS)]} {
>- 	set multipass $env(MULTIPASS)
>      }
>      if { $multipass == "" } {
>  	set multipass { "" }
>      }
>  
>! # If PASS is specified, either as a TCL variable or in environment, we
>! # want to run only the tests specified. Its value should be a number
>! # or a list of numbers that specify the passes that we want to run.
>      if [info exists PASS] {
>  	set pass $PASS
>-     } elseif [info exists env(PASS)] {
>- 	set pass $env(PASS)
>      } else {
>  	set pass ""
>      }
>--- 1604,1619 ----
>  
>      if { [info exists MULTIPASS] } {
>  	set multipass $MULTIPASS
>      }
>      if { $multipass == "" } {
>  	set multipass { "" }
>      }
>  
>! # If PASS is specified, we want to run only the tests specified.
>! # Its value should be a number or a list of numbers that specify
>! # the passes that we want to run.
>      if [info exists PASS] {
>  	set pass $PASS
>      } else {
>  	set pass ""
>      }
>
>

 Jimmy Guo, guo@cup.hp.com       ADO eDL WDB
 Voice: 800-477-6111 ext. 7451   Hewlett-Packard Company
        (HP T-447-5229)          11000 Wolfe Road, MS 42UD
 Fax:   408-447-4629             Cupertino, CA 95014-0678