From b6f0c7026a61c45f3551b0314fc9aa39b6fb647f 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>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
---
 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