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
52
53
54
55
56
57
58
59
|
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Test::More;
eval "use Test::MockObject";
plan skip_all => 'Test::MockObject required' if $@;
$ENV{XDG_CONFIG_HOME} = 't/config';
$ENV{XDG_DATA_HOME} = 't/data';
plan tests => 9;
my $mock = Test::MockObject->new();
$mock->fake_module( 'Term::ReadLine', new => sub { return bless( {}, $_[0] ) },
);
use_ok('App::Raps2');
my $r2 = App::Raps2->new( master_password => 'sekrit' );
isa_ok( $r2, 'App::Raps2' );
ok( -e 't/config/raps2/password', 'config file created' );
$r2->pw_save(
password => 'foopass',
name => 'test1'
),
ok( -e 't/data/raps2/test1', 'Save password test1' );
is( $r2->pw_load( name => 'test1' )->{password},
'foopass', 'Password for test1 loaded ok' );
$r2->pw_save(
password => 'foopass',
file => 't/data/raps2/test2',
url => 'murl',
login => 'mlogin',
extra => 'mextra',
),
is( $r2->pw_load_info( file => 't/data/raps2/test2' )->{url},
'murl', 'Password info loaded ok (url)' );
is( $r2->pw_load_info( file => 't/data/raps2/test2' )->{login},
'mlogin', 'Password info loaded ok (login)' );
is( $r2->pw_load( file => 't/data/raps2/test2' )->{password},
'foopass', 'Password for test2 loaded ok' );
is( $r2->pw_load( file => 't/data/raps2/test2' )->{extra},
'mextra', 'Extra for test2 loaded ok' );
unlink('t/data/raps2/test1');
unlink('t/data/raps2/test2');
unlink('t/config/raps2/password');
|
