45 lines
1.1 KiB
Plaintext
45 lines
1.1 KiB
Plaintext
# Copyright (C) 2001 Red Hat, Inc.
|
|
|
|
load_lib "libgloss.exp"
|
|
|
|
global tmpdir
|
|
|
|
if ![info exists tmpdir] {
|
|
set tmpdir "/tmp"
|
|
}
|
|
|
|
proc test_libffi {src} {
|
|
|
|
global tmpdir srcdir
|
|
|
|
set executable $tmpdir/[file tail [file rootname $src].x]
|
|
|
|
regsub "^$srcdir/?" $src "" testcase
|
|
# If we couldn't rip $srcdir out of `src' then just do the best we can.
|
|
# The point is to reduce the unnecessary noise in the logs. Don't strip
|
|
# out too much because different testcases with the same name can confuse
|
|
# `test-tool'.
|
|
if [string match "/*" $testcase] {
|
|
set testcase "[file tail [file dirname $src]]/[file tail $src]"
|
|
}
|
|
|
|
remote_file build delete $executable;
|
|
verbose "Testing $testcase" 1
|
|
|
|
set comp_output [target_compile $src $executable executable "additional_flags=-g additional_flags=-I$srcdir/../include libs=../.libs/libffi.a"]
|
|
|
|
set result [libffi_load "$executable" "" ""]
|
|
set status [lindex $result 0];
|
|
set output [lindex $result 1];
|
|
|
|
$status "$testcase"
|
|
|
|
if { $status == "pass" } {
|
|
remote_file build delete $executable;
|
|
}
|
|
}
|
|
|
|
# Local Variables:
|
|
# tcl-indent-level:4
|
|
# End:
|