commit aa166fa408964534bf75a9f1d3f99b5f4436f4ff
author Akron <nils@diewald-online.de> Thu Nov 10 14:15:14 2022 +0100
committer Akron <nils@diewald-online.de> Thu Nov 10 15:36:41 2022 +0100
tree ae36fbc0777bd475cd1679b7de2e0cbecf31077a
parent ddf331963b249378b27f5bf08edf6207f3a01ac2

Improve support for text siglen including underscore

Change-Id: I86204f2aae32834e1592335dca83f40cbf46f559

t/tar_builder.t

diff --git a/t/tar_builder.t b/t/tar_builder.t
index 9413440..9cff269 100644
--- a/t/tar_builder.t
+++ b/t/tar_builder.t
@@ -33,10 +33,10 @@
 ok($tar_read->contains_file('example2.xml'), 'File exists');
 
 my $content = $tar_read->get_content('example1.xml');
-like($content, qr!ART_ABC\.00001!, 'Content is correct');
+like($content, qr!A_RT_ABC\.00001!, 'Content is correct');
 
 $content = $tar_read->get_content('example2.xml');
-like($content, qr!ART\/ABC\.00001!, 'Content is correct');
+like($content, qr!A_RT\/ABC\.00001!, 'Content is correct');
 
 
 
@@ -74,10 +74,10 @@
   ok($tar_read->contains_file('example2.xml'), 'File exists');
 
   $content = $tar_read->get_content('example1.xml');
-  like($content, qr!ART_ABC\.00001!, 'Content is correct');
+  like($content, qr!A_RT_ABC\.00001!, 'Content is correct');
 
   $content = $tar_read->get_content('example2.xml');
-  like($content, qr!ART\/ABC\.00001!, 'Content is correct');
+  like($content, qr!A_RT\/ABC\.00001!, 'Content is correct');
 }
 else {
   diag 'Archive::Tar::Builder not installed.';