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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Catmandu::Store::Hash;
my $pkg;
BEGIN {
$pkg = 'Catmandu::Plugin::Versioning';
use_ok $pkg;
}
require_ok $pkg;
my $store = Catmandu::Store::Hash->new(
bags => {data => {plugins => [qw(Versioning)]}});
ok $store->does('Catmandu::Store'),
'create Catmandu-Store with Versioning plugin';
ok $store->bag->add({_id => '001', name => 'Penguin'}), 'store something';
my $obj = $store->bag->get('001');
ok $obj, 'get 001';
is $obj->{name}, 'Penguin', 'get values';
ok $store->bag->get_version('001', 1),
'get version 1, no versions stored yet';
is $store->bag->get_version('001', 1)->{_version}, 1,
'get version 1, no versions stored yet';
$obj->{name} = 'Polar Bear';
ok $store->bag->add($obj), 'change object and store';
is $store->bag->get('001')->{name}, 'Polar Bear', 'check change';
ok $store->bag->get_history('001'), 'get_history';
is @{$store->bag->get_history('001')}, 2, 'one item in history';
my $version = $store->bag->get_history('001')->[0];
is $version->{name}, 'Polar Bear', 'correct item in history';
ok $store->bag->get_version('001', 1), 'get_version 1';
is $store->bag->get_version('001', 1)->{name}, 'Penguin',
'get_version 1 name';
ok $store->bag->get_version('001', 2), 'get latest version';
ok $store->bag->get_previous_version('001'), 'get_previous_version';
is $store->bag->get_previous_version('001')->{name}, 'Penguin',
'get_previous_version name';
ok $store->bag->restore_version('001', 1), 'restore_version';
is $store->bag->get('001')->{name}, 'Penguin', 'check restore version';
# reset
ok $store->bag->add($obj), 'reset';
is $store->bag->get('001')->{name}, 'Polar Bear', 'check change';
ok $store->bag->restore_previous_version('001'), 'restore_previous_version';
is $store->bag->get('001')->{name}, 'Penguin', 'check restore version';
$store = Catmandu::Store::Hash->new(
bags => {
data => {
plugins => [qw(Versioning)],
version_compare_ignore => [qw(stamp)],
}
}
);
$store->bag->add({_id => '1', name => 'Penguin', stamp => 1});
$store->bag->add({_id => '1', name => 'Penguin', stamp => 2});
is_deeply $store->bag->get('1'),
{_id => '1', _version => 1, name => 'Penguin', stamp => 1};
$store = Catmandu::Store::Hash->new(
bags => {
data => {
plugins => [qw(Versioning)],
version_compare_ignore => [qw(stamp)],
version_transfer => [qw(stamp)],
}
}
);
$store->bag->add({_id => '1', name => 'Penguin', stamp => 1});
$store->bag->add({_id => '1', name => 'El Penguino', stamp => 2});
is_deeply $store->bag->get('1'),
{_id => '1', _version => 2, name => 'El Penguino', stamp => 2};
$store->bag->add({_id => '2', name => 'Penguin', stamp => 1});
$store->bag->add({_id => '2', name => 'El Penguino'});
is_deeply $store->bag->get('2'),
{_id => '2', _version => 2, name => 'El Penguino', stamp => 1};
# custom version bag, custom keys
$store = Catmandu::Store::Hash->new(
bags => {
history => {id_key => 'my_history_id',},
data => {
plugins => [qw(Versioning)],
version_bag => 'my_history',
version_key => 'my_version',
id_key => 'my_id',
},
},
);
is $store->bag->version_bag->name, 'my_history';
my $data = $store->bag->add({name => 'Penguin'});
is $data->{_id}, undef;
is $data->{_version}, undef;
ok exists($data->{my_id});
is $data->{my_version}, 1;
$data->{name} = 'Camel';
$store->bag->add($data);
isnt $store->bag->version_bag->get("$data->{my_id}.1"), undef;
$store = Catmandu::Store::Hash->new(
key_prefix => 'my_',
bags => {data => {plugins => [qw(Versioning)],},},
);
is $store->bag->version_key, 'my_version';
done_testing;
|
