Mercurial > hg > may

changeset 555:30799a778cac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Print (some of) the stack trace when catching exception from test
author Chris Cannam
date Mon, 31 Mar 2014 14:40:47 +0100
parents 3fdffd2d0649
children 6a5c20ceb949
files src/may/test.yeti
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/may/test.yeti	Mon Mar 31 14:31:56 2014 +0100
+++ b/src/may/test.yeti	Mon Mar 31 14:40:47 2014 +0100
@@ -74,6 +74,10 @@
                 fi 
             catch Exception e:
                 println "Test \(name) threw exception: \(e)";
+                trace = e#getStackTrace();
+                maxLen = 10;
+                for (take maxLen trace) do e: println "    at \(e)" done;
+                if length trace > maxLen then println "    ..." fi;
                 name;
             yrt;
         done (sort (keys testHash)));