llvm-6502/test/lib/llvm-dg.exp
2007-04-12 02:49:30 +00:00

137 lines
3.8 KiB
Plaintext

proc llvm-runtest { programs } {
global srcroot objroot srcdir objdir subdir target_triplet prcontext
global llvmgcc llvmgxx global llvmgcc_version llvmgccmajvers
global gccpath gxxpath compile_c compile_cxx link shlibext llvmlibsdir
set timeout 60
set path [file join $objdir $subdir]
#Make Output Directory if it does not exist already
if { [file exists path] } {
cd $path
} else {
file mkdir $path
cd $path
}
file mkdir Output
foreach test $programs {
#Should figure out best way to set the timeout
#set timeout 40
set filename [file tail $test]
set output [file join Output $filename.out]
set script $output.script
set outcome PASS
set tmpFile testscript.
append tmpFile $filename .tmp
#set hasRunline bool to check if testcase has a runline
set hasRunline 0
#check if script files exists, and delete if it does
if { [file exists $script] } {
file delete $script
}
#create script file and write run line out to it
set scriptFileId [open $script w 0700]
set testFileId [ open $test r]
foreach line [split [read $testFileId] \n] {
#see if this is our run line
if {[regexp {RUN:(.+)} $line match runline]} {
set runline
set hasRunline 1
set new_runline $runline
#replace %prcontext with prcontext.tcl (Must replace before %p)
regsub -all {%prcontext} $new_runline $prcontext new_runline
#replace %llvmgcc with actual path to llvmgcc
regsub -all {%llvmgcc} $new_runline "$llvmgcc -emit-llvm" new_runline
#replace %llvmgxx with actual path to llvmg++
regsub -all {%llvmgxx} $new_runline "$llvmgxx -emit-llvm" new_runline
#replace %compile_c with C compilation command
regsub -all {%compile_c} $new_runline "$compile_c" new_runline
#replace %compile_cxx with C++ compilation command
regsub -all {%compile_cxx} $new_runline "$compile_cxx" new_runline
#replace %link with C++ link command
regsub -all {%link} $new_runline "$link" new_runline
#replace %shlibext with shared library extension
regsub -all {%shlibext} $new_runline "$shlibext" new_runline
#replace %llvmlibsdir with configure library directory
regsub -all {%llvmlibsdir} $new_runline "$llvmlibsdir" new_runline
#replace %p with path to source,
regsub -all {%p} $new_runline [file join $srcdir $subdir] new_runline
#replace %s with filename
regsub -all {%s} $new_runline $test new_runline
#replace %t with temp filenames
regsub -all {%t} $new_runline [file join Output $tmpFile] new_runline
puts $scriptFileId $new_runline
} elseif {[regexp {XFAIL:[ *](.+)} $line match targets]} {
set targets
#split up target if more then 1 specified
foreach target [split $targets ,] {
if { [regexp {\*} $target match] } {
set outcome XFAIL
} elseif { [regexp $target $target_triplet match] } {
set outcome XFAIL
} elseif { [regexp {llvmgcc(([0-9]+)|([0-9]+[.][0-9]+))} $target match submatch submatch2] } {
if { [regexp ^($submatch)$|^(($submatch)(\.)) $llvmgcc_version match] } {
set outcome XFAIL
}
}
}
}
}
close $testFileId
close $scriptFileId
if { $hasRunline == 0 } {
fail "$test: \nDoes not have a RUN line\n"
} else {
#run script and catch errors
set retval [ catch {exec /bin/sh $script >& $output} errmsg ]
if { $retval == 1 } {
#Get output
set outputFile [open $output {RDONLY}]
set result [read $outputFile]
close $outputFile
file delete $outputFile
switch $outcome {
PASS {
file delete $output
fail "$test: \n$errmsg\n$result"
}
XFAIL {
xfail "$test: \n$errmsg\n$result"
}
default {
file delete $output
fail "$test: $result"
}
}
} else {
switch $outcome {
XFAIL {
xpass "$test"
}
default {
pass "$test"}
}
}
}
}
}