winsup/testsuite/winsup.api/winsup.exp

   1 source "site.exp"
   2 source "$srcdir/winsup.api/known_bugs.tcl"
   3
   4 if { ! [isnative] } {
   5     verbose "skipping winsup.api because it's not native"
   6     return
   7 }
   8
   9 set rv ""
  10 set add_includes ""
  11 set add_libs ""
  12
  13 set ltp_includes "-I$ltp_includes"
  14 set ltp_libs "$rootme/libltp.a"
  15
  16 proc ws_spawn {cmd args} {
  17     global rv
  18     verbose "running $cmd\n"
  19     catch [eval "exec $cmd"] rv
  20     verbose send "catchCode = $rv\n"
  21 }
  22
  23 foreach src [glob -nocomplain $srcdir/$subdir/*.c $srcdir/$subdir/*/*.c] {
  24     regsub "^$srcdir/$subdir/" $src "" testcase
  25     regsub ".c$" $testcase "" base
  26     regsub ".*/" $base "" basename
  27     regsub "/" $base "-" base
  28
  29     if { [lsearch -exact $xfail_list $basename] >= 0 } {
  30         set xfail_expected 1
  31         setup_xfail "*-*-*"
  32     } else {
  33         set xfail_expected 0
  34         clear_xfail
  35     }
  36
  37     if { [regexp "^ltp/" $testcase ] } {
  38         set add_includes $ltp_includes
  39         set add_libs $ltp_libs
  40     }
  41
  42     ws_spawn "$CC -g3 $CFLAGS $src $add_includes $add_libs $runtime_root/binmode.o $runtime_root/new-libcygwin.a -o $base.exe"
  43     if { $rv != "" } {
  44         verbose -log "$rv"
  45         fail "$testcase (compile)"
  46     } else {
  47         if { $verbose } {
  48            set redirect_output "./$base.log"
  49         } else {
  50            set redirect_output /dev/null
  51         }
  52         ws_spawn "$runtime_root/cygrun ./$base.exe > $redirect_output"
  53         if { $rv != "" } {
  54             verbose -log "$testcase: $rv"
  55             fail "$testcase (execute)"
  56             if { $xfail_expected } {
  57                 catch { file delete "$base.exe" } err
  58                 if { $err != "" } {
  59                     note "error deleting $base.exe: $err"
  60                 }
  61             }
  62         } else {
  63             pass "$testcase"
  64             catch { file delete "$base.exe" } err
  65             if { $err != "" } {
  66                 note "error deleting $base.exe: $err"
  67             }
  68         }
  69     }
  70 }