This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
4807a8d91002808b4cb0dc9ee3d9ce70260414c6
[perl5.git] / ext / POSIX / t / strerror_errno.t
1 use Config;
2 use Test::More;
3
4 # This is placed in a separate file, as some 'requires' and 'uses' are known
5 # to cause it to not fail even with the bug it's testing still being
6 # broken.  [perl #123503].
7
8 plan(skip_all => "POSIX is unavailable")
9     unless $Config{extensions} =~ /\bPOSIX\b/;
10
11 require POSIX;
12
13 $! = 1;
14 POSIX::strerror(1);
15 is (0+$!, 1, 'strerror doesn\'t destroy $!');
16
17 done_testing();