posix.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
print "1..0\n";
exit 0;
}
}
$| = 1;
print "1..27\n";
if ($Is_Dos) {
for (4..5) {
print "ok $_ # skipped, no pipe() support on dos\n";
}
} else {
print <$reader>;
}
for (6..11) {
}
}
else {
kill 'HUP', $$;
sleep 1;
print "ok 11\n";
sub SigHUP {
print "ok 8\n";
kill 'INT', $$;
sleep 2;
print "ok 9\n";
}
sub SigINT {
print "ok 10\n";
}
}
# Check string conversion functions.
# Using long double NVs may introduce greater accuracy than wanted.
$n =~ s/^3.14158999\d*$/3.14159/
print (($n == 3.14159) && ($x == 6) ? "ok 14\n" : "not ok 14\n");
} else { print "# strtod not present\n", "ok 14\n"; }
print (($n == 21) && ($x == 9) ? "ok 15\n" : "not ok 15\n");
} else { print "# strtol not present\n", "ok 15\n"; }
print (($n == 88) && ($x == 6) ? "ok 16\n" : "not ok 16\n");
} else { print "# strtoul not present\n", "ok 16\n"; }
# Pick up whether we're really able to dynamically load everything.
# This can coredump if struct tm has a timezone field and we
# didn't detect it. If this fails, try adding
# If that worked, validate the mini_mktime() routine's normalisation of
# input fields to strftime().
sub try_strftime {
my $num = shift;
my $expect = shift;
}
else {
}
}
$| = 0;
# The following line assumes buffered output, which may be not true with EMX: