summaryrefslogtreecommitdiff
path: root/t/29-app-raps2.t
blob: 3e2d2501de43f8d46349460fc6a8e2c038ccbc14 (plain)
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
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;

use Test::More tests => 11;

$ENV{XDG_CONFIG_HOME} = 't/config';
$ENV{XDG_DATA_HOME}   = 't/data';

use_ok('App::Raps2');

my $r2 = App::Raps2->new( master_password => 'sekrit', no_cli => 1 );
isa_ok( $r2, 'App::Raps2' );

ok( -e 't/config/raps2/password', 'config file created' );

is_deeply(
	$r2->file_to_hash('t/in/hash'),
	{ key => 'value', otherkey => 'othervalue' },
	'file_to_hash works',
);

is ($r2->ui, undef, 'no_cli works (no UI object 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');