File Coverage

File:t/store.t
Coverage:100.0%

linestmtbrancondsubpodtimecode
1
1
1
1
29077
6
54
use strict;
2
1
1
1
8
5
33
use warnings;
3
4
1
1
1
581
134653
9
use Test::Most;
5
1
1
1
50495
5963
204
use Test::MockModule;
6
7
1
206139
my $store = Test::MockModule->new('Bot::IRC::Store');
8
1
4
51
147
$store->mock( LoadFile => sub { return { stuff => 'things' } } );
9
1
65
$store->mock( DumpFile => sub {} );
10
11
1
1
1
56
46
111
use constant MODULE => 'Bot::IRC::Store';
12
13
1
1
1
1
1
43
1019
83
73
83
BEGIN { use_ok(MODULE); }
14
1
1
1
1
1
791
2494
6
5
80
BEGIN { use_ok('Bot::IRC'); }
15
16
1
47
ok( MODULE->can('init'), 'init() method exists' );
17
18
1
449
my $plugin;
19
1
14
my $bot = Bot::IRC->new( connect => { server => 'irc.perl.org' } );
20
21
1
1
39
85
lives_ok( sub { $plugin = MODULE->new($bot) }, 'new()' );
22
1
1
329
26
lives_ok( sub { Bot::IRC::Store::init($bot) }, 'init()' );
23
24
1
302
ok( $bot->can('store'), 'store() method exists' );
25
1
173
ok( $bot->store->can('set'), 'set() method exists' );
26
1
189
ok( $bot->store->can('get'), 'get() method exists' );
27
28
1
1
158
29
lives_ok( sub { $bot->store->set( stuff => 'things' ) }, 'set()' );
29
1
1
176
21
lives_ok( sub { $bot->store->get('stuff') }, 'get()' );
30
31
1
363
done_testing;