From f504c079d263642930e28c7cb950f26b1909f9b0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Michal=20Josef=20=C5=A0pa=C4=8Dek?= <mspacek@redhat.com>
Date: Fri, 17 Mar 2023 13:46:07 +0100
Subject: [PATCH] Package tests

---
 .fmf/version              |  1 +
 perl-Net-Server.rpmlintrc |  2 ++
 perl-Net-Server.spec      | 33 ++++++++++++++++++++++++++++++++-
 plans/sanity.fmf          |  5 +++++
 tests/upstream-tests.fmf  |  4 ++++
 5 files changed, 44 insertions(+), 1 deletion(-)
 create mode 100644 .fmf/version
 create mode 100644 perl-Net-Server.rpmlintrc
 create mode 100644 plans/sanity.fmf
 create mode 100644 tests/upstream-tests.fmf

diff --git a/.fmf/version b/.fmf/version
new file mode 100644
index 0000000..d00491f
--- /dev/null
+++ b/.fmf/version
@@ -0,0 +1 @@
+1
diff --git a/perl-Net-Server.rpmlintrc b/perl-Net-Server.rpmlintrc
new file mode 100644
index 0000000..3c67f8c
--- /dev/null
+++ b/perl-Net-Server.rpmlintrc
@@ -0,0 +1,2 @@
+from Config import *
+addFilter("-tests.noarch: W: no-documentation");
diff --git a/perl-Net-Server.spec b/perl-Net-Server.spec
index bb89d65..7593e0e 100644
--- a/perl-Net-Server.spec
+++ b/perl-Net-Server.spec
@@ -63,23 +63,50 @@ Requires:       perl(IO::Multiplex) >= 1.05
 #  RHBZ#1395714: Optional dependency, including it so that the build matches runtime
 Requires:       perl(IO::Socket::IP)
 
+# Remove private test modules
+%global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\(NetServerTest\\)$
+%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\(NetServerTest\\)$
+
 %description
 An extensible, class oriented module written in perl and intended to
 be the back end layer of internet protocol servers.
 
+%package tests
+Summary:        Tests for %{name}
+Requires:       %{name} = %{?epoch:%{epoch}:}%{version}-%{release}
+Requires:       perl-Test-Harness
+
+%description tests
+Tests from %{name}. Execute them
+with "%{_libexecdir}/%{name}/test".
+
 %prep
 %setup -q -n Net-Server-%{version}
 
 # Do not want to pull in any packaging deps here.
 chmod -c 644 examples/*
 
+# Help generators to recognize Perl scripts
+for F in $(find t/ -name '*.t'); do
+    perl -i -MConfig -ple 'print $Config{startperl} if $. == 1 && !s{\A#!\s*perl}{$Config{startperl}}' "$F"
+    chmod +x "$F"
+done
+
 %build
 perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 NO_PERLLOCAL=1
 %{make_build}
 
 %install
 %{make_install}
-%{_fixperms} $RPM_BUILD_ROOT
+# Install tests
+mkdir -p %{buildroot}%{_libexecdir}/%{name}
+cp -a t %{buildroot}%{_libexecdir}/%{name}
+cat > %{buildroot}%{_libexecdir}/%{name}/test << 'EOF'
+#!/bin/sh
+cd %{_libexecdir}/%{name} && exec prove -I . -j "$(getconf _NPROCESSORS_ONLN)" -r
+EOF
+chmod +x %{buildroot}%{_libexecdir}/%{name}/test
+%{_fixperms} %{buildroot}/*
 
 %check
 make test
@@ -92,8 +119,12 @@ make test
 %{_bindir}/net-server
 %{_mandir}/man1/net-server.1*
 
+%files tests
+%{_libexecdir}/%{name}
+
 %changelog
 * Fri Mar 17 2023 Michal Josef Špaček <mspacek@redhat.com> - 2.014-2
+- Package tests
 - Update license to SPDX format
 
 * Fri Mar 17 2023 Michal Josef Špaček <mspacek@redhat.com> - 2.014-1
diff --git a/plans/sanity.fmf b/plans/sanity.fmf
new file mode 100644
index 0000000..a72ded4
--- /dev/null
+++ b/plans/sanity.fmf
@@ -0,0 +1,5 @@
+summary: Sanity tests
+discover:
+    how: fmf
+execute:
+    how: tmt
diff --git a/tests/upstream-tests.fmf b/tests/upstream-tests.fmf
new file mode 100644
index 0000000..4b4ff13
--- /dev/null
+++ b/tests/upstream-tests.fmf
@@ -0,0 +1,4 @@
+summary: Upstream tests
+component: perl-Net-Server
+require: perl-Net-Server-tests
+test: /usr/libexec/perl-Net-Server/test