view release on metacpan or  search on metacpan

t/lib/TestUtils.pm  view on Meta::CPAN

        return $ENV{MSYS} =~ /winsymlinks:nativestrict/;
    } elsif ($^O eq 'MSWin32') {
        # Perl 5.33.5 adds symlink support for MSWin32 but needs elevated
        # privileges so verify if we can use it for testing.
        my $wd=tempd();
        open my $fh, ">", "foo";
        return eval { symlink "foo", "bar" };
    }
}

sub exception(&) {
    my $code    = shift;
    my $success = eval { $code->(); 1 };
    my $err     = $@;
    return '' if $success;
    croak "Execution died, but the error was lost" unless $@;
    return $@;
}

sub tempd {
    return pushd( File::Temp->newdir );