diff options
Diffstat (limited to 'newlib/testsuite/lib/passfail.exp')
| -rw-r--r-- | newlib/testsuite/lib/passfail.exp | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/newlib/testsuite/lib/passfail.exp b/newlib/testsuite/lib/passfail.exp deleted file mode 100644 index 82dc0093c..000000000 --- a/newlib/testsuite/lib/passfail.exp +++ /dev/null @@ -1,50 +0,0 @@ -# Copyright (C) 2002 by Red Hat, Incorporated. All rights reserved. -# -# Permission to use, copy, modify, and distribute this software -# is freely granted, provided that this notice is preserved. -# - -# newlib_pass_fail_all compiles and runs all the source files in the -# test directory. If flag is -x, then the sources whose basenames are -# listed in exclude_list are not compiled and run. - -proc newlib_pass_fail_all { flag exclude_list } { - global srcdir objdir subdir runtests - - foreach fullsrcfile [glob -nocomplain $srcdir/$subdir/*.c] { - set srcfile "[file tail $fullsrcfile]" - # If we're only testing specific files and this isn't one of them, skip it. - if ![runtest_file_p $runtests $srcfile] then { - continue - } - - # Exclude tests listed in exclude_list. - if { $flag == "-x" } then { - if {[lsearch $exclude_list "$srcfile"] != -1} then { - continue - } - } - newlib_pass_fail "$srcfile" - } -} - -# newlib_pass_fail takes the basename of a test source file, which it -# compiles and runs. - -proc newlib_pass_fail { srcfile } { - global srcdir objdir subdir - - set fullsrcfile "$srcdir/$subdir/$srcfile" - - set test_driver "$objdir/testsuite/[file rootname $srcfile].x" - - set comp_output [newlib_target_compile "$fullsrcfile" "$test_driver" "executable" ""] - - if { $comp_output != "" } { - fail "Failed to compile $fullsrcfile.\n" - } else { - set result [newlib_load $test_driver ""] - set status [lindex $result 0] - $status "$fullsrcfile" - } -} |