[llvm-commits] [hlvm] r38045 - /hlvm/trunk/test/lib/identity.exp

[Reid Spencer]

Author: reid
Date: Sat Jul  7 18:59:15 2007
New Revision: 38045

URL: http://llvm.org/viewvc/llvm-project?rev=38045&view=rev
Log:
Gracefully handle cases where the test program didn't produce any output.

Modified:
    hlvm/trunk/test/lib/identity.exp

Modified: hlvm/trunk/test/lib/identity.exp
URL: http://llvm.org/viewvc/llvm-project/hlvm/trunk/test/lib/identity.exp?rev=38045&r1=38044&r2=38045&view=diff

==============================================================================
--- hlvm/trunk/test/lib/identity.exp (original)
+++ hlvm/trunk/test/lib/identity.exp Sat Jul  7 18:59:15 2007
@@ -47,9 +47,13 @@
     set retval [ catch {exec $tool $testsrc -o $output } ]
     if { $retval == 1 } {
       #Get output
-      set outputFile [open $output {RDONLY}]
-      set result [read $outputFile]
-      close $outputFile
+      if { [file exists $output] } {
+        set outputFile [open $output {RDONLY}]
+        set result [read $outputFile]
+        close $outputFile
+      } else {
+        set result "no output file"
+      }
       fail "$test: $tool returned $retval\n$result"
     } else {
       # Do the identity test
@@ -57,9 +61,13 @@
       set retval [ catch {exec diff $testsrc $output >&$diffout } ]
       if {$retval == 1} {
         #Get output
-        set difffile [open $diffout {RDONLY}]
-        set result [read $difffile]
-        close $difffile
+        if { [file exists $diffout] } {
+          set difffile [open $diffout {RDONLY}]
+          set result [read $difffile]
+          close $difffile
+        } else {
+          set result "no diff file"
+        }
         fail "$test: identity test failed:\n$result"
       } else {
         file delete $diffout