From 526e82d3d73112530d92d7b7e87b2ab85c532514 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 13 Mar 2025 16:27:39 +0100 Subject: [PATCH] Bug 39319: Add test using Pod::Checker podchecker is used by the QA script and catch more than Test::Pod Signed-off-by: David Nind --- xt/author/pod_checker.t | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 xt/author/pod_checker.t diff --git a/xt/author/pod_checker.t b/xt/author/pod_checker.t new file mode 100644 index 0000000000..4c7415bb00 --- /dev/null +++ b/xt/author/pod_checker.t @@ -0,0 +1,17 @@ +#!/usr/bin/env perl + +use Modern::Perl; +use Test::More; +use Test::NoWarnings; +use Pod::Checker; + +my @files; +push @files, qx{git ls-files '*.pl' '*.PL' '*.pm' '*.t'}; +push @files, qx{git ls-files svc opac/svc}; # Files without extension +chomp for @files; + +plan tests => 1; + +for my $file (@files) { + podchecker($file); +} -- 2.39.5