-
Notifications
You must be signed in to change notification settings - Fork 5
/
runs.t
51 lines (43 loc) · 921 Bytes
/
runs.t
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
use strict;
use Test::More tests => 1;
use Log::Defer::Viz;
use JSON::XS;
my $z = decode_json q{
{
"start" : 1340353046.93565,
"end" : 0.202386,
"logs" : [
[
0.000158,
30,
"This is an info message (log level=30)"
],
[
0.201223,
20,
"Warning! \n\n Here is some more data:",
{
"whatever" : 987
}
]
],
"data" : {
"junkdata" : "some data"
},
"timers" : [
[
"junktimer",
0.000224,
0.100655
],
[
"junktimer2",
0.000281,
0.202386
]
]
}
};
print encode_json($z);
print Log::Defer::Viz::render_timers(width => 80, timers => $z->{timers});
ok(1, 'did a render_timers');