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

[Ole Streicher]

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

    Fail if tcl test units fail. This does not work if the module causes a segfault

diff --git a/debian/tests/all.tcl b/debian/tests/all.tcl
index ba0acc1..d893327 100644
--- a/debian/tests/all.tcl
+++ b/debian/tests/all.tcl
@@ -2,5 +2,10 @@
 # This file is a -*- tcl -*- file
 
 package require tcltest
-namespace import ::tcltest::*
-runAllTests
+tcltest::verbose {pass body error}
+proc tcltest::cleanupTestsHook {} {
+    variable numTests
+    set ::code [expr {$numTests(Failed) > 0}]
+}
+tcltest::runAllTests
+exit $code

-- 
Tcl interface to FITS Files