llvm-dg.exp is dead, remove it.

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@36317 91177308-0d34-0410-b5e6-96231b3b80d8

1 files changed, 0 insertions, 136 deletions

diff --git a/test/lib/llvm-dg.exp b/test/lib/llvm-dg.exp
deleted file mode 100644
index 6f83800..0000000
--- a/test/lib/llvm-dg.exp
+++ /dev/null
@@ -1,136 +0,0 @@
-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"}
-		}
-	    }
-	}
-    }
-}