view release on metacpan or  search on metacpan

t/02_functionality.t  view on Meta::CPAN

    $password_manager->add_password("user1", "password123");

    eval {
        $password_manager->add_password("user1", "newpassword456");
    };

    like($@, qr/Login 'user1' already exists/, "Adding password with existing login should throw an error");
};

subtest 'remove_password_not_found' => sub {
    my ($fh, $tempfile) = tempfile();

    my $password_manager = App::PasswordManager->new(file => $tempfile);

    eval {
        $password_manager->remove_password("nonexistent_user");
    };

    like($@, qr/Login 'nonexistent_user' not found/, "Removing password for a non-existent login should throw an error");
};

subtest 'edit_password_not_found' => sub {
    my ($fh, $tempfile) = tempfile();

    my $password_manager = App::PasswordManager->new(file => $tempfile);

    eval {
        $password_manager->edit_password("nonexistent_user", "newpassword456");
    };

    like($@, qr/Login 'nonexistent_user' not found/, "Editing password for a non-existent login should throw an error");
};