view release on metacpan or  search on metacpan

t/05-api_key.t  view on Meta::CPAN

{
    is eval {
        api_key_get();
        1;
    }, undef, "api_key_get() croaks if no key file exists ok";
    like $@, qr/doesn't exist/, "...and error message is sane";
}

# api_key_set() croak if can't write file (only run if not root user)
if ($^O !~ /win/i) {
    if (getpwuid($<) ne 'root') {
        open my $fh, '>', $file or die "Can't open $file for creation: $!";
        chmod(0400, $file) or die "Can't set permissions on $file: $!";
        close $fh;

        is eval {
            api_key_set(2, 3);
            1;
        }, undef, "api_key_set() croaks if can't open file for writing";
        like $@, qr/for writing/, "...and error message is sane";