]>
Dogcows Code - chaz/p5-File-KDBX/blob - t/database.t
951ff74fc80cff167002a8de0b41e15b26f1cfc7
13 BEGIN { use_ok
'File::KDBX' }
15 subtest
'Create a new database' => sub {
16 my $kdbx = File
::KDBX-
>new;
18 $kdbx->add_group(name
=> 'Meh');
19 ok
$kdbx->_is_implicit_root, 'Database starts off with implicit root';
23 password
=> {value
=> 'This is a secret!!!!!', protect
=> 1},
26 ok
!$kdbx->_is_implicit_root, 'Adding an entry to the root group makes it explicit';
30 # dumper $kdbx->groups;
This page took 0.033591 seconds and 3 git commands to generate.