newlib-cygwin/winsup/testsuite/winsup.api/winsup.exp

source "site.exp"
source "$srcdir/winsup.api/known_bugs.tcl"

if { ! [isnative] } {
    verbose "skipping winsup.api because it's not native"
    return
}

set rv ""

set orig_path "$env(PATH)"

set test_filter ""

if { [info exists env(CYGWIN_TESTSUITE_TESTS)] } {
    set test_filter "$env(CYGWIN_TESTSUITE_TESTS)"
}

proc ws_spawn {cmd} {
    global rv
    verbose "running $cmd\n"
    try {
	set msg [exec -ignorestderr {*}$cmd "2>@1"]
	set rv 0
    } trap CHILDSTATUS {results options} {
	verbose "returned $::errorCode\n"
	set msg $results
	set rv 1
    }
    verbose -log "$msg"
    return $rv
}

verbose "Filter: $test_filter"

foreach src [lsort [glob -nocomplain $srcdir/$subdir/*.c $srcdir/$subdir/*/*.{cc,c}]] {
    if { $test_filter != "" && ! [regexp $test_filter $src] } {
	verbose -log "Skipping $src"
	continue
    }

    regsub "^$srcdir/$subdir/" $src "" testcase
    regsub ".c$" $testcase "" base
    regsub ".*/" $base "" basename
    regsub "/" $base "-" tmpfile

    set exec "./winsup.api/$base.exe"

    if { [lsearch -exact $xfail_list $basename] >= 0 } {
        set xfail_expected 1
	setup_xfail "*-*-*"
    } else {
        set xfail_expected 0
	clear_xfail
    }

    if [ file exists "$srcdir/$subdir/$basename.exp" ] then {
	source "$srcdir/$subdir/$basename.exp"
    } else {
	    if { $verbose } {
	       set redirect_output "./$tmpfile.log"
	    } else {
	       set redirect_output /dev/null
	    }
	    file mkdir $tmpdir/$tmpfile
	    set env(PATH) "$runtime_root:$env(PATH)"
	    ws_spawn "$cygrun $exec $testdll_tmpdir/$tmpfile > $redirect_output"
	    file delete -force $tmpdir/$tmpfile
	    set env(PATH) "$orig_path"
	    if { $rv } {
		fail "$testcase"
	    } else {
		pass "$testcase"
	    }
    }
}