From 387dbec326d7c6ebedbbb1c96fecbd578441e71c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Michal=20Josef=20=C5=A0pa=C4=8Dek?= <mspacek@redhat.com>
Date: Fri, 16 Dec 2022 21:03:07 +0100
Subject: [PATCH] Package tests

---
 .fmf/version                     |  1 +
 gating.yaml                      |  7 ++++++
 perl-Devel-CallChecker.rpmlintrc |  1 +
 perl-Devel-CallChecker.spec      | 40 ++++++++++++++++++++++++++++++++
 plans/sanity.fmf                 |  5 ++++
 tests/upstream-tests.fmf         |  4 ++++
 6 files changed, 58 insertions(+)
 create mode 100644 .fmf/version
 create mode 100644 gating.yaml
 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/gating.yaml b/gating.yaml
new file mode 100644
index 0000000..282e16b
--- /dev/null
+++ b/gating.yaml
@@ -0,0 +1,7 @@
+--- !Policy
+product_versions:
+  - fedora-*
+decision_context: bodhi_update_push_stable
+subject_type: koji_build
+rules:
+  - !PassingTestCaseRule {test_case_name: fedora-ci.koji-build.tier0.functional}
diff --git a/perl-Devel-CallChecker.rpmlintrc b/perl-Devel-CallChecker.rpmlintrc
index 87c8e1a..b8cf3c5 100644
--- a/perl-Devel-CallChecker.rpmlintrc
+++ b/perl-Devel-CallChecker.rpmlintrc
@@ -1,2 +1,3 @@
 from Config import *
 addFilter("spelling-error .* cv");
+addFilter("-tests.noarch: W: no-documentation");
diff --git a/perl-Devel-CallChecker.spec b/perl-Devel-CallChecker.spec
index 9f647c1..032edfc 100644
--- a/perl-Devel-CallChecker.spec
+++ b/perl-Devel-CallChecker.spec
@@ -47,6 +47,10 @@ Requires:       perl(DynaLoader::Functions) >= 0.001
 
 %{?perl_default_filter}
 
+# Remove private modules
+%global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\((t::LoadXS|t::WriteHeader)\\)$
+%global __provides_exclude_from %{?__provides_exclude_from:%__provides_exclude_from|}^%{_libexecdir}
+
 %description
 This module makes some new features of the Perl 5.14.0 C API available to
 XS modules running on older versions of Perl. The features are centered
@@ -58,8 +62,24 @@ available. (It is possible to achieve the effect of cv_set_call_checker
 from XS code on much earlier Perl versions, but it is painful to achieve
 without the centralized facility.)
 
+%package tests
+Summary:        Tests for %{name}
+BuildArch:      noarch
+Requires:       %{name} = %{?epoch:%{epoch}:}%{version}-%{release}
+Requires:       coreutils
+Requires:       perl-Test-Harness
+
+%description tests
+Tests from %{name}. Execute them
+with "%{_libexecdir}/%{name}/test".
+
 %prep
 %setup -q -n Devel-CallChecker-%{version}
+# Help generators to recognize Perl scripts
+for F in t/*.t; do
+    perl -i -MConfig -ple 'print $Config{startperl} if $. == 1 && !s{\A#!\s*perl}{$Config{startperl}}' "$F"
+    chmod +x "$F"
+done
 
 %build
 perl Build.PL installdirs=vendor optimize="$RPM_OPT_FLAGS"
@@ -69,6 +89,22 @@ perl Build.PL installdirs=vendor optimize="$RPM_OPT_FLAGS"
 ./Build install destdir=$RPM_BUILD_ROOT create_packlist=0
 find $RPM_BUILD_ROOT -type f -name '*.bs' -size 0 -delete
 %{_fixperms} $RPM_BUILD_ROOT/*
+# Install tests
+mkdir -p %{buildroot}%{_libexecdir}/%{name}
+cp -a t %{buildroot}%{_libexecdir}/%{name}
+rm -fr %{buildroot}%{_libexecdir}/%{name}/t/pod*
+cat > %{buildroot}%{_libexecdir}/%{name}/test << 'EOF'
+#!/bin/bash
+set -e
+# Test t/rules-dbm.t write into CWD
+DIR=$(mktemp -d)
+cp -a %{_libexecdir}/%{name}/* "$DIR"
+pushd "$DIR"
+prove -I . -j "$(getconf _NPROCESSORS_ONLN)"
+popd
+rm -r "$DIR"
+EOF
+chmod +x %{buildroot}%{_libexecdir}/%{name}/test
 
 %check
 ./Build test
@@ -79,8 +115,12 @@ find $RPM_BUILD_ROOT -type f -name '*.bs' -size 0 -delete
 %{perl_vendorarch}/Devel*
 %{_mandir}/man3/*
 
+%files tests
+%{_libexecdir}/%{name}
+
 %changelog
 * Fri Dec 16 2022 Michal Josef Špaček <mspacek@redhat.com> - 0.008-18
+- Package tests
 - Update license to SPDX format
 
 * Fri Jul 22 2022 Fedora Release Engineering <releng@fedoraproject.org> - 0.008-17
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..16a0cf1
--- /dev/null
+++ b/tests/upstream-tests.fmf
@@ -0,0 +1,4 @@
+summary: Upstream tests
+component: perl-Devel-CallChecker
+require: perl-Devel-CallChecker-tests
+test: /usr/libexec/perl-Devel-CallChecker/test