First crack at support to run tests using dejagnu. This file contains a procedure to run a test like TestRunner.sh does.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@17521 91177308-0d34-0410-b5e6-96231b3b80d8
diff --git a/test/lib/llvm-dg.exp b/test/lib/llvm-dg.exp
new file mode 100644
index 0000000..a904770
--- /dev/null
+++ b/test/lib/llvm-dg.exp
@@ -0,0 +1,103 @@
+proc llvm-runtest { programs srcdir subdir target_triplet} {
+
+ set path [file join $srcdir $subdir]
+
+ #Make Output Directory if it does not exist already
+ cd $path
+
+ file mkdir Output
+
+ foreach test $programs {
+
+ 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
+
+ #replace %s with filename
+ regsub -all {%s} $runline $filename new_runline
+
+ 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
+ }
+
+ }
+ }
+
+ }
+
+ 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} ]
+
+ 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$result"
+ }
+ XFAIL {
+ xfail "$test: \n$result"
+ }
+ default {
+ file delete $output
+ fail "$test: $result"
+ }
+ }
+ } else {
+ switch $outcome {
+ XFAIL {
+ xpass "$test"
+ }
+ default {
+ pass "$test"}
+ }
+ }
+ }
+ }
+}
\ No newline at end of file