40 lines
1.2 KiB
Plaintext
40 lines
1.2 KiB
Plaintext
# 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"
|
|
}
|
|
}
|
|
}
|