[llvm-commits] CVS: llvm/test/lib/llvm2cpp.exp

[Reid Spencer]

Changes in directory llvm/test/lib:

llvm2cpp.exp added (r1.1)
---
Log message:

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. 


---
Diffs of the changes:  (+79 -0)

 llvm2cpp.exp |   79 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 79 insertions(+)


Index: llvm/test/lib/llvm2cpp.exp
diff -c /dev/null llvm/test/lib/llvm2cpp.exp:1.1
*** /dev/null	Sat May 27 23:21:50 2006
--- llvm/test/lib/llvm2cpp.exp	Sat May 27 23:21:40 2006
***************
*** 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"
+     }
+ #  }
+ }
+ 
+