Provide an infrastructure for testing the llvm2cpp program (yet to be

committed). This infrastructure is only activated when RUNLLVM2CPP=1 is
specified on the make command line. Currently it is only supported in the
Feature test suite.


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

1 files changed, 79 insertions, 0 deletions

diff --git a/test/lib/llvm2cpp.exp b/test/lib/llvm2cpp.exp
new file mode 100644
index 0000000000..9066f77d49
--- /dev/null
+++ b/test/lib/llvm2cpp.exp
@@ -0,0 +1,79 @@
+# This file defines a tcl proc to assist with testing the llvm2cpp. There are
+# no llvm2cpp specific test cases. Instead, it utilizes all the existing test
+# cases and makes sure llvm2cpp can run them. The basic idea is that we find
+# all the LLVM Assembly (*.ll) files, run llvm2cpp on them to generate a C++
+# program, compile those programs, run them and see if what they produce matches
+# the original input to llvm2cpp.
+
+proc llvm2cpp-test { files } {
+#  if { $env(LLVM_RUNLLVM2CPP_TEST) == 1 } {
+    global subdir tooldir libdir objdir srcdir objroot srcroot 
+    set timeout 30
+    set path [file join $objdir $subdir]
+    set llvm2cpp [file join $tooldir llvm2cpp ]
+    set llvmas [file join $tooldir llvm-as ]
+    set llvmdis [file join $tooldir llvm-dis ]
+
+    #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 $files {
+	
+      set filename [file tail $test]
+      set generated [file join Output $filename.cpp]
+      set executable [file join Output $filename.exe]
+      set output [file join Output $filename.gen]
+      set assembly [file join Output $filename.asm]
+
+      set retval [ catch { 
+        exec -keepnewline $llvmas $test -o - | $llvmdis -f -o $assembly } msg ] 
+
+      if { $retval != 0 } {
+        fail "$test: llvm-as/llvm-dis returned $retval\n$msg"
+        continue 
+      }
+
+      set retval [ catch { 
+        exec -keepnewline $llvm2cpp -f -o $generated $test } msg]
+
+      if { $retval != 0 } {
+        fail "$test: llvm2cpp returned $retval\n$msg"
+        continue
+      }
+
+      set retval [ catch { 
+        exec -keepnewline gcc -g -D__STDC_LIMIT_MACROS -o $executable $generated -I$srcroot/include -I$objroot/include -L$libdir $libdir/LLVMCore.o -lLLVMSupport $libdir/LLVMbzip2.o -lLLVMSystem -lstdc++ } msg ]
+
+      if { $retval != 0 } {
+        fail "$test: gcc returned $retval\n$msg"
+        continue
+      }
+
+      set retval [ catch { 
+        exec -keepnewline $executable > $output } msg ]
+
+      if { $retval != 0 } {
+        fail "$test: $filename returned $retval\n$msg"
+        continue
+      } 
+
+      set retval [ catch { 
+        exec -keepnewline diff -u $assembly $generated } msg ]
+
+      if { $retval != 0 } {
+        fail "$test: diff returned $retval\n$msg"
+        continue
+      }
+      pass "$test"
+    }
+#  }
+}
+
+