Mercurial > hg > may

changeset 152:34b7e3c649db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Handle tests that fail with an exception
author Chris Cannam
date Tue, 30 Apr 2013 10:50:38 +0100
parents d5a5a0d7ce30
children 071a15999a96
files yetilab/test/test.yeti
diffstat 1 files changed, 10 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/yetilab/test/test.yeti	Mon Apr 29 22:14:28 2013 +0100
+++ b/yetilab/test/test.yeti	Tue Apr 30 10:50:38 2013 +0100
@@ -3,6 +3,8 @@
 vec = load yetilab.block.fvector;
 ss = load yetilab.stream.syntheticstream;
 
+import yeti.lang: FailureException;
+
 testStream n is number -> 'a  = ss.precalculated 1000 (vec.vector [1..n]);
 
 compare obtained expected =
@@ -18,10 +20,15 @@
 failedTests testHash =
     select (!= "")
        (mapHash do name f:
-            if f () then "" else
-                println "Test \(name) failed";
+            try
+                if f () then "" else
+                    println "Test \(name) failed";
+                    name;
+                fi 
+            catch FailureException e:
+                println "Test \(name) threw exception: \(e)";
                 name;
-            fi 
+            yrt;
         done testHash);
         
 runTests group testHash =