From 217b26d007a7d9be3f0ae768e32a8a3e4807f27c Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Sat, 16 Sep 2023 03:21:21 +0000
Subject: Makefile: add `check-debris' target

This non-parallelized target is useful for noticing core dumps
and preventing them from being clobbered as we run the test
suite.  It will also notice leftover temporary files and
directories.

This make target was used on OpenBSD 7.3 to develop at least two
recent fixes:

e281363ba937 (lei: ensure we run DESTROY|END at daemon exit w/ kqueue)
759885e60e59 (lei: ensure --stdin sets %ENV and $current_lei)

I considered using a per-test TMPDIR for this to enable
parallelization, but on-filesystem UNIX sockets won't work
with excessively long path names.
---
 xt/check-debris.t | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 xt/check-debris.t

(limited to 'xt')

diff --git a/xt/check-debris.t b/xt/check-debris.t
new file mode 100644
index 00000000..0bb5091d
--- /dev/null
+++ b/xt/check-debris.t
@@ -0,0 +1,30 @@
+#!perl -w
+use v5.12;
+use autodie qw(open);
+use PublicInbox::TestCommon;
+use File::Spec;
+my $tmpdir = File::Spec->tmpdir;
+
+diag "note: writes to `$tmpdir' by others results in false-positives";
+
+my %cur = map { $_ => 1 } glob("$tmpdir/*");
+for my $t (@ARGV ? @ARGV : glob('t/*.t')) {
+	open my $fh, '-|', $^X, '-w', $t;
+	my @out;
+	while (<$fh>) {
+		chomp;
+		push @out, $_;
+		next if /^ok / || /\A[0-9]+\.\.[0-9]+\z/;
+		diag $_;
+	}
+	ok(close($fh), $t) or diag(explain(\@out));
+
+	no_coredump($tmpdir);
+
+	my @remain = grep { !$cur{$_}++ } glob("$tmpdir/*");
+	next if !@remain;
+	is_deeply(\@remain, [], "$t has no leftovers") or
+		diag "$t added: ",explain(\@remain);
+}
+
+done_testing;
-- 
cgit v1.2.3-24-ge0c7