6dfafe2631f2 draft — orbitz 7 years ago 
Log the stacktrace as well
patch browse 
1 files changed, 3 insertions(+), 2 deletions(-)

M src/oth/oth.ml

M src/oth/oth.ml +3 -2
@@ 48,11 48,12 @@ let test ?(desc = "") ~name f state =
     end
     | (time, Error exn) -> begin
       state.State.log
-        (Printf.sprintf "Test: %s\t\tFAILED (%0.2f sec)\nDescription:\n%s\nExn:\n%s\n"
+        (Printf.sprintf "Test: %s\t\tFAILED (%0.2f sec)\nDescription:\n%s\nExn:\n%s\n%s\n"
            name
            time
            desc
-           (Printexc.to_string exn));
+           (Printexc.to_string exn)
+           (Printexc.get_backtrace ()));
       test_success := false;
       ()
     end