newlib/winsup/testsuite/winsup.api/winsup.exp

82 lines
2.0 KiB
Plaintext
Raw Normal View History

2000-02-17 20:38:33 +01:00
source "site.exp"
2000-09-03 05:58:18 +02:00
source "$srcdir/winsup.api/known_bugs.tcl"
2000-02-17 20:38:33 +01:00
if { ! [isnative] } {
verbose "skipping winsup.api because it's not native"
return
}
set rv ""
2000-09-03 05:58:18 +02:00
set ltp_includes "-I$ltp_includes"
set ltp_libs "$rootme/libltp.a"
2000-02-17 20:38:33 +01:00
set add_includes $ltp_includes
set add_libs $ltp_libs
set test_filter ""
if { [info exists env(CYGWIN_TESTSUITE_TESTS)] } {
set test_filter "$env(CYGWIN_TESTSUITE_TESTS)"
}
2000-02-17 20:38:33 +01:00
proc ws_spawn {cmd args} {
global rv
verbose "running $cmd\n"
catch "exec $cmd" rv
2000-02-17 20:38:33 +01:00
verbose send "catchCode = $rv\n"
}
verbose "Filter: $test_filter"
2000-02-17 20:38:33 +01:00
foreach src [glob -nocomplain $srcdir/$subdir/*.c $srcdir/$subdir/*/*.c] {
if { $test_filter != "" && ! [regexp $test_filter $src] } {
verbose -log "Skipping $src"
continue
}
2000-02-17 20:38:33 +01:00
regsub "^$srcdir/$subdir/" $src "" testcase
regsub ".c$" $testcase "" base
regsub ".*/" $base "" basename
regsub "/" $base "-" base
2000-09-03 05:58:18 +02:00
if { [lsearch -exact $xfail_list $basename] >= 0 } {
set xfail_expected 1
2000-02-17 20:38:33 +01:00
setup_xfail "*-*-*"
} else {
2000-09-03 05:58:18 +02:00
set xfail_expected 0
2000-02-17 20:38:33 +01:00
clear_xfail
}
ws_spawn "$CC -nodefaultlibs -mwin32 $CFLAGS $src $add_includes $add_libs $runtime_root/binmode.o -lgcc $runtime_root/new-libcygwin.a -lkernel32 -luser32 -o $base.exe"
2000-02-17 20:38:33 +01:00
if { $rv != "" } {
verbose -log "$rv"
fail "$testcase (compile)"
} else {
2000-09-03 05:58:18 +02:00
if { $verbose } {
set redirect_output "./$base.log"
} else {
set redirect_output /dev/null
}
ws_spawn "$rootme/cygrun ./$base.exe > $redirect_output"
2000-02-17 20:38:33 +01:00
if { $rv != "" } {
verbose -log "$testcase: $rv"
fail "$testcase (execute)"
2000-09-03 05:58:18 +02:00
if { $xfail_expected } {
catch { file delete "$base.exe" } err
if { $err != "" } {
note "error deleting $base.exe: $err"
}
}
2000-02-17 20:38:33 +01:00
} else {
pass "$testcase"
if { ! $xfail_expected } {
catch { file delete "$base.exe" } err
if { $err != "" } {
note "error deleting $base.exe: $err"
}
}
2000-02-17 20:38:33 +01:00
}
}
}