|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
<h3>Using trace to debug Megatest issues</h3>
# Create ~/.megatestrc
<verbatim>(use trace)
(import trace)
;; list the functions you think might illuminate the problem here
runs:process-expanded-tests
)</verbatim>
# Patch trace to emit a little info on where the function was called
<verbatim>
chicken-install -r trace
cd trace
patch -p0 <<EOF
> *** trace.scm 2014-11-26 09:29:50.000000000 -0700
> --- ../../trace/trace.scm 2014-11-25 21:12:41.000000000 -0700
> ***************
> *** 61,66 ****
> --- 61,68 ----
> (trace-indent)
> (set! *trace-indent-level* (fx+ 1 *trace-indent-level*))
> (write (cons name args) port)
> + (write ", Called from: " port)
> + (write (conc (car (reverse (get-call-chain)))))
> (write-char #\newline port)
> (flush-output port) ) )
> EOF
chicken-install
</verbatim>
# Run your megatest runs and dig through the various logs :)
|