Welcome to mirror list, hosted at ThFree Co, Russian Federation.

cygwin.com/git/newlib-cygwin.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'winsup/testsuite/winsup.api/winsup.exp')
-rw-r--r--winsup/testsuite/winsup.api/winsup.exp74
1 files changed, 0 insertions, 74 deletions
diff --git a/winsup/testsuite/winsup.api/winsup.exp b/winsup/testsuite/winsup.api/winsup.exp
deleted file mode 100644
index 76455a97c..000000000
--- a/winsup/testsuite/winsup.api/winsup.exp
+++ /dev/null
@@ -1,74 +0,0 @@
-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
- }
- set env(PATH) "$runtime_root:$env(PATH)"
- ws_spawn "cygdrop $cygrun $exec > $redirect_output"
- set env(PATH) "$orig_path"
- if { $rv } {
- fail "$testcase"
- } else {
- pass "$testcase"
- }
- }
-}