1use Config;
2use 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
8plan(skip_all => "POSIX is unavailable")
9    unless $Config{extensions} =~ /\bPOSIX\b/;
10
11require POSIX;
12
13$! = 1;
14POSIX::strerror(1);
15is (0+$!, 1, 'strerror doesn\'t destroy $!');
16
17# [perl #126229] POSIX::strerror() clears $!
18{
19    local $! = 29;
20    my $e = POSIX::strerror($!);
21    is (0+$!, 29);
22}
23
24done_testing();
25