File Coverage

File:t/module.t
Coverage:95.6%

linestmtbrancondsubpodtimecode
1
1
1
1
11905
2
26
use strict;
2
1
1
1
4
1
60
use warnings;
3
4
1
1
1
618
166231
7
use Test::Most;
5
6
1
1
1
47866
1
86
use constant MODULE => 'Time::DoAfter';
7
8
1
1
1
1
1
4
858
1
1
16
BEGIN { use_ok(MODULE); }
9
1
118845
require_ok(MODULE);
10
11
1
736
my @obj;
12
1
4
ok( push( @obj, MODULE->new ), MODULE . '->new' );
13
1
147
is( ref $obj[-1], MODULE, 'ref $object' );
14
15
1
164
ok( push( @obj, MODULE->new( sub {} ) ), MODULE . '->new( sub {} )' );
16
1
140
is( ref $obj[-1], MODULE, 'ref $object' );
17
18
1
222
ok( push( @obj, MODULE->new( 'label1', sub {} ) ), MODULE . '->new( sub {} )' );
19
1
320
is( ref $obj[-1], MODULE, 'ref $object' );
20
21ok( push( @obj,
22
1
162
    MODULE->new( 'label2', sub {}, 2, 3, 'label3', sub {}, sub{}, 'label4', [ 2, 3 ] )
23), MODULE . '->new( sub {} )' );
24
1
141
is( ref $obj[-1], MODULE, 'ref $object' );
25
26
1
1
201
28
lives_ok( sub{ $obj[1]->do }, '$object->do' );
27
1
1
196
17
lives_ok( sub{ $obj[0]->do( sub {} ) }, '$object->do( sub {} )' );
28
1
1
152
16
lives_ok( sub{ $obj[0]->do('label1') }, '$object->do("label") run 1' );
29
1
1
338
22
lives_ok( sub{ $obj[0]->do('label1') }, '$object->do("label") run 2' );
30
1
1
274
19
lives_ok( sub{ $obj[0]->do('label1') }, '$object->do("label") run 3' );
31
32
1
200
my $history;
33
1
1
5
17
lives_ok( sub { $history = $obj[0]->history }, '$object->history' );
34
1
171
is( @$history, 5, 'full history size' );
35
36
1
1
223
19
lives_ok( sub { $history = $obj[0]->history('label1') }, '$object->history("label")' );
37
1
148
is( @$history, 3, 'label history size' );
38
39
1
1
187
17
lives_ok( sub { $history = $obj[0]->history('label1', 2 ) }, '$object->history( "label", 2 )' );
40
1
220
is( @$history, 2, 'label history size' );
41
42
1
190
ok( $obj[0]->last, '$object->last' );
43
1
168
ok( $obj[0]->last('label1'), '$object->last("label")' );
44
45
1
166
ok( $obj[0]->now, '$object->now' );
46
47
1
165
done_testing;