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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
#!/usr/bin/perl
=head1 NAME
01_kdbx.t - Check version 2 functionality of File::KeePass
=cut
use strict;
use warnings;
use Test::More tests => 17;
if (!eval {
require MIME::Base64;
require XML::Parser;
require Compress::Raw::Zlib;
require utf8;
}) {
diag "Failed to load library: $@";
SKIP: { skip "Missing necessary libraries.\n", 17 };
exit;
}
use_ok('File::KeePass');
my $pass = "foo";
my $ok;
my $obj1_1 = File::KeePass->new;
my $obj1_2 = File::KeePass->new;
my $obj2_1 = File::KeePass->new;
my $obj2_2 = File::KeePass->new;
my $G1 = $obj1_1->add_group({ title => 'personal' });
my $G2 = $obj1_1->add_group({ title => 'career', group => $G1 });
my $G3 = $obj1_1->add_group({ title => 'finance', group => $G1 });
my $G4 = $obj1_1->add_group({ title => 'banking', group => $G2 });
my $G5 = $obj1_1->add_group({ title => 'credit', group => $G2 });
my $G6 = $obj1_1->add_group({ title => 'health', group => $G1 });
my $G7 = $obj1_1->add_group({ title => 'web', group => $G1 });
my $G8 = $obj1_1->add_group({ title => 'hosting', group => $G7 });
my $G9 = $obj1_1->add_group({ title => 'mail', group => $G7 });
my $G0 = $obj1_1->add_group({ title => 'Foo' });
$obj1_1->add_entry({title => "Hey", group => $G1});
$obj1_1->add_entry({title => "Hey2", group => $G1});
$obj1_1->add_entry({title => "Hey3", group => $G5});
my $dump1 = "\n".eval { $obj1_1->dump_groups };
print "# v1 -> v1\n";
$ok = $obj1_2->parse_db($obj1_1->gen_db($pass), $pass, {auto_lock => 0});
my $dump2 = "\n".eval { $obj1_2->dump_groups };
is($dump1, $dump2, "Export v1/import v1 is fine");
is(eval{$obj1_1->header->{'version'}}, undef, 'No version set on pure gen object');
is($obj1_2->header->{'version'}, 1, 'Correct version 1 of re-import');
print "# v1 new -> v2\n";
$ok = $obj2_1->parse_db($obj1_1->gen_db($pass, {version => 2}), $pass, {auto_lock => 0});
my $dump3 = "\n".eval { $obj2_1->dump_groups };
is($dump2, $dump3, "Export from v1 to v2/import v2 is fine");
is(eval{$obj1_1->header->{'version'}}, undef, 'No version set on pure gen object');
is($obj2_1->header->{'version'}, 2, 'Correct version 2 of re-import');
print "# v1 -> v2\n";
$ok = $obj2_1->parse_db($obj1_2->gen_db($pass, {version => 2}), $pass, {auto_lock => 0});
my $dump4 = "\n".eval { $obj2_1->dump_groups };
is($dump3, $dump4, "Export from v1 to v2/import v2 is fine");
is($obj1_2->header->{'version'}, 2, 'V1 object changed to v2');
is($obj2_1->header->{'version'}, 2, 'Correct version 2 of re-import');
print "# v2 -> v2\n";
$ok = $obj2_2->parse_db($obj2_1->gen_db($pass), $pass, {auto_lock => 0});
my $dump5 = "\n".eval { $obj2_2->dump_groups };
is($dump4, $dump5, "Export v2/import v2 is fine");
is($obj2_1->header->{'version'}, 2, 'Correct version 2');
is($obj2_2->header->{'version'}, 2, 'Correct version 2 of re-import');
print "# v2 -> v1\n";
$ok = eval { $obj1_1->parse_db($obj2_2->gen_db($pass, {version => 1}), $pass, {auto_lock => 0}) };
ok($ok, "Gen and parse a db") or diag "Error: $@";
my $dump6 = "\n".eval { $obj1_1->dump_groups };
is($dump5, $dump6, "Export v2/import v1 is fine");
is($obj2_2->header->{'version'}, 1, 'Correct version 1');
is($obj1_1->header->{'version'}, 1, 'Correct version 1 of re-import');
|
