From 83a43dcacceb87628ab625a3fa736596e12142d7 Mon Sep 17 00:00:00 2001
From: aborah-sudo <aborah@redhat.com>
Date: Wed, 18 Mar 2026 21:10:00 +0530
Subject: [PATCH] Remove support for pcre

Pcre package is no more available to RHEL
---
 tests/Test-coverage-for-TTY-auditing/runtest.sh | 4 ++--
 tests/tests.yml                                 | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/Test-coverage-for-TTY-auditing/runtest.sh b/tests/Test-coverage-for-TTY-auditing/runtest.sh
index 8ce10a0..5839654 100644
--- a/tests/Test-coverage-for-TTY-auditing/runtest.sh
+++ b/tests/Test-coverage-for-TTY-auditing/runtest.sh
@@ -31,7 +31,7 @@
 . /usr/lib/beakerlib/beakerlib.sh
 
 PACKAGES="pam"
-BINARIES="pcregrep expect bc"
+BINARIES="expect bc perl"
 
 rlJournalStart &&{
   rlPhaseStartSetup &&{
@@ -100,7 +100,7 @@ EOF
       rlRun "diff ./audit.log /var/log/audit/audit.log | grep '>' | sed -e 's/> //' | tee ./log" 0-255
       rlChk "check that audit.log contains what it should" &&{
         aureport --tty -ts recent -if ./log |tee log.txt
-        rlRun "pcregrep -M 'bc \"1\+1\",(<ret>|<nl>)(\n|\r)?.*\"10\^2\",(<ret>|<nl>)(\r|\n)?.*<up>,<up>,(<ret>|<nl>)' log.txt"
+        rlRun "perl -0777 -ne 'exit 0 if /bc \"1\\+1\",(<ret>|<nl>)(\\n|\\r)?.*\"10\\^2\",(<ret>|<nl>)(\\r|\\n)?.*<up>,<up>,(<ret>|<nl>)/s; exit 1' log.txt"
       rlFin; }
     rlFin; }
     #PS1="[test] " bash
diff --git a/tests/tests.yml b/tests/tests.yml
index ae82b9a..2698ee2 100644
--- a/tests/tests.yml
+++ b/tests/tests.yml
@@ -15,7 +15,7 @@
     - openssh-clients
     - openssh-server
     - pam
-    - pcre-tools
+    - perl
 
 # Tests that run in container context
 - hosts: localhost
@@ -30,4 +30,4 @@
     - expect
     - findutils         # beakerlib needs find command
     - pam
-    - pcre-tools
+    - perl