PlaneteCasio
/
libc
1
0
Fork 0
Code Issues 6 Pull Requests Releases Wiki Activity

* testsuite/lib/passfail.exp (newlib_pass_fail_all): New 

procedure.
	(newlib_pass_fail): Change to compile and run only one file.
	* testsuite/newlib.locale/locale.exp: Use new
	newlib_pass_fail_all procedure.
	* testsuite/newlib.string/string.exp: Likewise.
This commit is contained in:
Thomas Fitzsimmons 2002-06-18 22:39:17 +00:00
parent fb92103141
commit c9ca68d7b5
4 changed files with 49 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
newlib/ChangeLog
View File

@ -1,3 +1,12 @@
2002-06-18 Thomas Fitzsimmons <fitzsim@redhat.com>
* testsuite/lib/passfail.exp (newlib_pass_fail_all): New
procedure.
(newlib_pass_fail): Change to compile and run only one file.
* testsuite/newlib.locale/locale.exp: Use new
newlib_pass_fail_all procedure.
* testsuite/newlib.string/string.exp: Likewise.
2002-06-18 Dave Brolley <brolley@redhat.com>
From Catherine Moore, Michael Meissner, Richard Sandiford:

59
newlib/testsuite/lib/passfail.exp
View File

@ -4,36 +4,49 @@
# 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.
# 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 { check_output_tests } {
proc newlib_pass_fail_all { flag exclude_list } {
global srcdir objdir subdir runtests
foreach testcase [glob -nocomplain $srcdir/$subdir/*.c] {
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 $testcase] then {
if ![runtest_file_p $runtests $srcfile] 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"
# 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"
fail "$fullsrcfile"
} else {
pass "Compiled $fullsrcfile.\n"
set result [newlib_load $test_driver ""]
set status [lindex $result 0]
$status "$fullsrcfile"
}
}

4
newlib/testsuite/newlib.locale/locale.exp
View File

@ -6,8 +6,8 @@
load_lib passfail.exp
set nonpassfailtests {
set exclude_list {
"UTF-8.c"
}
newlib_pass_fail $nonpassfailtests
newlib_pass_fail_all -x $exclude_list

4
newlib/testsuite/newlib.string/string.exp
View File

@ -6,7 +6,7 @@
load_lib passfail.exp
set nonpassfailtests {
set exclude_list {
}
newlib_pass_fail $nonpassfailtests
newlib_pass_fail_all -x $exclude_list