#!./perl
BEGIN {
chdir 't' if -d 't';
print "1..0\n";
exit 0;
}
}
require "./test.pl";
errno);
use strict 'subs';
$| = 1;
TODO:
{
}
next_test();
print <$reader>;
}
SKIP: {
my $sigint_called = 0;
# But not NetBSD 1.6 & 1.6.1: the test makes perl crash.
# So the kill() must not be done with this config in order to
# finish the test.
# For others (darwin & freebsd), let the test fail without crashing.
kill 'HUP', $$;
} else {
}
sleep 1;
print "ok 12 - signal masks successful\n";
sub SigHUP {
print "ok 9 - sigaction SIGHUP\n";
kill 'INT', $$;
sleep 2;
print "ok 10 - sig mask delayed SIGINT\n";
}
sub SigINT {
}
# The order of the above tests is very important, so
# we use literal prints and hard coded numbers.
}
}
}
my $pat;
if ($Is_MacOS) {
}
elsif ( $Is_VMS ) {
}
else {
}
# Check string conversion functions.
# we're just checking that strtod works, not how accurate it is
}
}
}
# 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
next_test();
# If that worked, validate the mini_mktime() routine's normalisation of
# input fields to strftime().
my $expect = shift;
}
{
$! = 0;
# POSIX::errno is autoloaded.
# Autoloading requires many system calls.
# errno() looks at $! to generate its result.
# Autoloading should not munge the value.
my $foo = $!;
# Force numeric context.
}
}
}
# Check that we can import the POSIX kill routine
my $result = eval "kill 0";
# Check usage.
# Check unimplemented.
"check its unimplemented message");
# Check reimplemented.
"check its redef message");
# Simplistic tests for the isXXX() functions (bug #16799)
# metaphysical question : what should be returned for an empty string ?
# anyway this shouldn't segfault (bug #24554)
# those functions should stringify their arguments
# Check that output is not flushed by _exit. This test should be last
# in the file, and is not counted in the total number of tests.
print "# TODO - hit VOS bug posix-885 - _exit flushes output buffers.\n";
} else {
$| = 0;
# The following line assumes buffered output, which may be not true:
$Is_VMS ||
}