diff options
Diffstat (limited to 'newlib/testsuite/lib/passfail.exp')
| -rw-r--r-- | newlib/testsuite/lib/passfail.exp | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/newlib/testsuite/lib/passfail.exp b/newlib/testsuite/lib/passfail.exp deleted file mode 100644 index 8a44d274d..000000000 --- a/newlib/testsuite/lib/passfail.exp +++ /dev/null @@ -1,39 +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 compiles and runs all the source files in the test -# directory that are not included in the check_output_tests list. -# check_output_tests lists the sources' basenames. - -proc newlib_pass_fail { check_output_tests } { - global srcdir objdir subdir runtests - - foreach testcase [glob -nocomplain $srcdir/$subdir/*.c] { - # If we're only testing specific files and this isn't one of them, skip it. - if ![runtest_file_p $runtests $testcase] then { - continue - } - - # Exclude tests which require their output to be checked - if {[lsearch $check_output_tests "[file tail $testcase]"] != -1} then { - continue - } - - set test_driver "$objdir/testsuite/[file tail [file rootname $testcase].x]" - - set comp_output [newlib_target_compile "$testcase" "$test_driver" "executable" ""] - - if { $comp_output != "" } { - fail "Failed to compile $testcase.\n" - fail "$testcase" - } else { - pass "Compiled $testcase.\n" - set result [newlib_load $test_driver ""] - set status [lindex $result 0] - $status "$testcase" - } - } -} |