From b35f1653409a0daf7fd0a79723e29e49bb40e2eb Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Fri, 15 Mar 2024 11:40:57 +0100
Subject: [PATCH] Bug 36328: Add test

Signed-off-by: David Cook <dcook@prosentient.com.au>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
(cherry picked from commit b315c0f2630ccd738fc811e13d1e95b11d3c8df1)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
(cherry picked from commit 11ea420b54ee8ec791b3f6d688a7366acccb42fa)
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
---
 t/Scrubber.t | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/t/Scrubber.t b/t/Scrubber.t
index 1b4a9e13d1..1d03ce6762 100755
--- a/t/Scrubber.t
+++ b/t/Scrubber.t
@@ -1,10 +1,9 @@
 #!/usr/bin/perl
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 $| = 1;
-use Test::More tests => 29;
+use Test::More tests => 30;
 use Test::Warn;
 
 BEGIN {
@@ -82,3 +81,5 @@ eval{
 if ($@) {
     pass("Test should have failed on entry of 'Client' and it did. YAY!");
 }
+
+is( C4::Scrubber->new('comment')->scrub('<span>Allow span</span>'), '<span>Allow span</span>' );
-- 
2.39.5