Dogcows Code - chaz/p5-File-KDBX/blob - t/group.t

   1 #!/usr/bin/env perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use lib 't/lib';
   7 use TestCommon;
   8
   9 use File::KDBX::Group;
  10 use File::KDBX;
  11 use Test::More;
  12
  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';
  20 };
  21
  22 done_testing;