mirror of
https://git.openafs.org/openafs.git
synced 2025-01-31 05:27:44 +00:00
f4ab3767b7
Fix a few miscellaneous issues with building and running our tests in objdir builds: - Our C tests use -I$(srcdir)/../.. in the CFLAGS, so we can #include <tests/tap/basic.h>. However, basic.h actually gets copied from src/external/c-tap-harness/tests/tap/ to tests/tap/ during the build, and so basic.h is available in the objdir, not srcdir. For objdir builds, this causes building the tests to fail with failing to find basic.h. Fix this to use TOP_OBJDIR as the include path instead. - Our 'make check' in tests/ tries to run ./libwrap; but our cwd will be in the objdir for objdir builds, and libwrap is a script in our srcdir. Fix this to run libwrap from the srcdir path. - In tests/opr/softsig-t, it tries to find the 'softsig-helper' binary in the same dir as 'softsig-t'. However, softsig-t is just a script in the srcdir, but softsig-helper is a binary built in the objdir. Fix this to use the BUILD env var provided by the tests wrapper, by default. Change-Id: Iff642613bfc88d0d7e348660dc62f59e6fa8af75 Reviewed-on: https://gerrit.openafs.org/13939 Tested-by: BuildBot <buildbot@rampaginggeek.com> Reviewed-by: Benjamin Kaduk <kaduk@mit.edu>
110 lines
3.7 KiB
Perl
Executable File
110 lines
3.7 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# Copyright (c) 2010 Your File System Inc. All rights reserved.
|
|
#
|
|
# Redistribution and use in source and binary forms, with or without
|
|
# modification, are permitted provided that the following conditions
|
|
# are met:
|
|
# 1. Redistributions of source code must retain the above copyright
|
|
# notice, this list of conditions and the following disclaimer.
|
|
# 2. Redistributions in binary form must reproduce the above copyright
|
|
# notice, this list of conditions and the following disclaimer in the
|
|
# documentation and/or other materials provided with the distribution.
|
|
#
|
|
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR `AS IS'' AND ANY EXPRESS OR
|
|
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
|
# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
|
# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
|
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More tests => 11;
|
|
use IO::File;
|
|
use POSIX qw(:signal_h);
|
|
use File::Temp;
|
|
use FindBin qw($Bin);
|
|
|
|
# Start up our test process, and send it various signals. Check that these
|
|
# signals make it to it correctly, and are reported on the command line.
|
|
|
|
my $softsig_helper;
|
|
|
|
# Our softsig helper should be in $TOP_OBJDIR/tests/opr. To calculate that
|
|
# path, use the BUILD env var if the test harness has set it; otherwise, our
|
|
# next best guess is that it's in the same dir as this script.
|
|
if (defined($ENV{BUILD})) {
|
|
$softsig_helper = $ENV{BUILD} . "/opr/softsig-helper";
|
|
} else {
|
|
$softsig_helper = $Bin . "/softsig-helper";
|
|
}
|
|
|
|
# This -dummy argument prevents Perl from putting an intermediate sh
|
|
# -c between us and softsig-helper in the case where the build
|
|
# directory happens to contain shell metacharacters, like the ~ in
|
|
# /build/openafs-vb8tid/openafs-1.8.0~pre1 used by the Debian
|
|
# builders.
|
|
my $pid = open(HELPER, "-|", $softsig_helper, "-dummy")
|
|
or die "Couldn't start test helper.";
|
|
|
|
# Wait for softsig to start up.
|
|
is(<HELPER>, "Ready\n");
|
|
|
|
# Check that a load of common signals are correctly trapped.
|
|
|
|
kill 'INT', $pid;
|
|
is(<HELPER>, "Received INT\n");
|
|
|
|
kill 'HUP', $pid;
|
|
is(<HELPER>, "Received HUP\n");
|
|
|
|
kill 'QUIT', $pid;
|
|
is(<HELPER>, "Received QUIT\n");
|
|
|
|
kill 'ALRM', $pid;
|
|
is(<HELPER>, "Received ALRM\n");
|
|
|
|
kill 'TERM', $pid;
|
|
is(<HELPER>, "Received TERM\n");
|
|
|
|
kill 'USR1', $pid;
|
|
is(<HELPER>, "Received USR1\n");
|
|
|
|
kill 'USR2', $pid;
|
|
is(<HELPER>, "Received USR2\n");
|
|
|
|
|
|
# Check that we can actually stop the process with a kill.
|
|
|
|
kill 'KILL', $pid;
|
|
close(HELPER);
|
|
is($?, SIGKILL, "Helper exited on KILL signal.");
|
|
|
|
# Check that an internal segmentation fault kills the process.
|
|
|
|
$pid = open(HELPER, "-|", $softsig_helper, "-crash")
|
|
or die "Couldn't start test helper.";
|
|
close(HELPER);
|
|
is($? & 0x7f, SIGSEGV, "Helper exited on SEGV signal.");
|
|
|
|
# Check that an internal bus error kills the process.
|
|
# Skip this test when running on ancient versions of Perl
|
|
# which do not have SIGBUS defined.
|
|
SKIP: {
|
|
my $sigbus = eval "SIGBUS";
|
|
skip("Skipping buserror test; SIGBUS constant is not defined.", 1) unless $sigbus;
|
|
|
|
my ($fh, $path) = mkstemp("/tmp/softsig-t_XXXXXX");
|
|
$pid = open(HELPER, "-|", $softsig_helper, "-buserror", $path)
|
|
or die "Couldn't start test helper.";
|
|
close(HELPER);
|
|
is($? & 0x7f, $sigbus, "Helper exited on BUS signal.");
|
|
$fh->close;
|
|
unlink $path;
|
|
}
|