Re: [RFA:] sim-defs.exp: support xfail

[Andrew Cagney <cagney at gnu dot org>]

Hans-Peter Nilsson wrote:
> Directly taken from the same option in the ld run_dump_test.
>
> Ok to commit?
>
> 2004-11-10  Hans-Peter Nilsson  <hp@axis.com>
>
> 	* lib/sim-defs.exp (run_sim_test): Support "xfail" option.

What do you mean by "xfail"? (Hint, check a current dejagnu document 
where it describes kfail :-)

Andrew

> Index: sim-defs.exp
> ===================================================================
> RCS file: /cvs/src/src/sim/testsuite/lib/sim-defs.exp,v
> retrieving revision 1.8
> diff -c -p -r1.8 sim-defs.exp
> *** sim-defs.exp	26 Oct 2004 08:07:59 -0000	1.8
> --- sim-defs.exp	10 Nov 2004 09:49:44 -0000
> *************** proc sim_run { prog sim_opts prog_opts r
> *** 163,168 ****
> --- 163,169 ----
>   # sim[(mach-list)]: <simulator options>
>   # output: program output pattern to match with string-match
>   # xerror: program is expected to return with a "failure" exit code
> + # xfail: <target-triple-where-test-fails>
>   # If `output' is not specified, the program must output "pass" if !xerror or
>   # "fail" if xerror.
>   # The parens in "optname()" are optional if the specification is for all machs.
> *************** proc run_sim_test { name requested_machs
> *** 196,201 ****
> --- 197,203 ----
>       set opts(mach) ""
>       set opts(timeout) ""
>       set opts(xerror) "no"
> +     set opts(xfail) ""
>   
>       if ![info exists global_as_options] {
>           set global_as_options ""
> *************** proc run_sim_test { name requested_machs
> *** 262,267 ****
> --- 268,278 ----
>   
>   	verbose -log "Testing $name on machine $mach."
>   
> + 	# Time to setup xfailures.
> + 	foreach targ $opts(xfail) {
> + 	    setup_xfail $targ
> + 	}
> + 
>   	if ![info exists opts(as,$mach)] {
>   	    set opts(as,$mach) $opts(as)
>   	}
>
> brgds, H-P