[SCM] Tcl interface to FITS Files branch, debian, updated. dc7f1f3ef217a55845b48ee32aef7c673b234376

Ole Streicher debian at liska.ath.cx
Wed Aug 22 17:38:10 UTC 2012


The following commit has been merged in the debian branch:
commit dc7f1f3ef217a55845b48ee32aef7c673b234376
Author: Ole Streicher <debian at liska.ath.cx>
Date:   Wed Aug 22 19:37:48 2012 +0200

    Fail tests on module crash as well

diff --git a/debian/tests/all.tcl b/debian/tests/all.tcl
index d893327..2be27fa 100644
--- a/debian/tests/all.tcl
+++ b/debian/tests/all.tcl
@@ -5,7 +5,11 @@ package require tcltest
 tcltest::verbose {pass body error}
 proc tcltest::cleanupTestsHook {} {
     variable numTests
+    upvar 2 testFileFailures crashed
     set ::code [expr {$numTests(Failed) > 0}]
+    if {[info exists crashed]} {
+        set ::code [expr {$::code || [llength $crashed]}]
+    }
 }
 tcltest::runAllTests
 exit $code

-- 
Tcl interface to FITS Files



More information about the debian-science-commits mailing list