doc: Fix listed supported categories

Added dedicated test

Author: g-bougard

.github/workflows/glpi-agent-ci.yml

@@ -50,7 +50,7 @@ jobs:
         make test
     - name: Run Author tests
       run: |
-        make test TEST_AUTHOR=1 TEST_FILES="t/02critic.t t/03var.t t/04pod-syntax.t t/06pod-spelling.t t/07whitespaces.t t/09cpanmeta.t"
+        make test TEST_AUTHOR=1 TEST_FILES="t/02critic.t t/03var.t t/04pod-syntax.t t/06pod-spelling.t t/06pod-listed-categories.t t/07whitespaces.t t/09cpanmeta.t"
 
   windows-test:
 

Changes

@@ -2,6 +2,9 @@ Revision history for GLPI agent
 
 1.15 not yet released
 
+core:
+* Fix glpi-agent script listed supported categories
+
 packaging:
 * Update Windows packaging to use:
   - gcc 14.2.0posix-19.1.7-12.0.0-msvcrt-r3

bin/glpi-agent

@@ -499,6 +499,8 @@ categories are:
 
 =item * accesslog
 
+=item * antivirus
+
 =item * battery
 
 =item * bios
@@ -513,6 +515,8 @@ categories are:
 
 =item * environment
 
+=item * firewall
+
 =item * hardware
 
 =item * input

t/06pod-listed-categories.t

@@ -0,0 +1,41 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+use UNIVERSAL::require;
+use English qw(-no_match_vars);
+
+use GLPI::Agent::Tools;
+
+use constant    LISTED_CATEGORY_COUNT   => 37;
+
+plan(skip_all => 'Author test, set $ENV{TEST_AUTHOR} to a true value to run')
+    if !$ENV{TEST_AUTHOR};
+
+# Check all categtories are listed in glpi-agent pod part
+
+plan tests => 2;
+
+my %categories;
+foreach my $line (getAllLines(command => "bin/glpi-agent --list-categories")) {
+    chomp($line);
+    next unless $line =~ /^ - (.+)$/;
+    $categories{$1} = 1;
+}
+
+my $count = scalar keys(%categories);
+ok($count == LISTED_CATEGORY_COUNT, "Listed categories count: $count should be ".LISTED_CATEGORY_COUNT);
+
+foreach my $line (getAllLines(file => "bin/glpi-agent")) {
+    chomp($line);
+    next unless $line =~ /^=item \* (.+)$/;
+    delete $categories{$1};
+}
+
+my @missing = keys(%categories);
+
+map { warn "Category '$_' is missing in bin/glpi-agent pod\n" } @missing;
+
+ok(scalar(@missing) == 0, "Listed categories in bin/glpi-agent");