]>
Dogcows Code - chaz/p5-File-KDBX/blob - t/group.t
13 subtest
'Path' => sub {
14 my $kdbx = File
::KDBX-
>new;
15 my $group_a = $kdbx->add_group(name
=> 'Group A');
16 my $group_b = $group_a->add_group(name
=> 'Group B');
17 is $kdbx->root->path, 'Root', 'Root group has path';
18 is $group_a->path, 'Group A', 'Layer 1 group has path';
19 is $group_b->path, 'Group A.Group B', 'Layer 2 group has path';
This page took 0.034399 seconds and 4 git commands to generate.