From 488f806ae6b9121f0eaa3703cfa2513d8e3294ba Mon Sep 17 00:00:00 2001
From: Giovanni <giovanni@paclan.it>
Date: Fri, 4 Oct 2024 10:10:10 +0200
Subject: [PATCH] add Emlbest regression tests

---
 t/data/emlbest.eml | 9 +++++++++
 t/data/emlbest.txt | 1 +
 t/esp.t            | 9 ++++++++-
 3 files changed, 18 insertions(+), 1 deletion(-)
 create mode 100644 t/data/emlbest.eml
 create mode 100644 t/data/emlbest.txt

diff --git a/t/data/emlbest.eml b/t/data/emlbest.eml
new file mode 100644
index 0000000..51b4618
--- /dev/null
+++ b/t/data/emlbest.eml
@@ -0,0 +1,9 @@
+From: test <info@example.ru>
+To: info@example.com
+X-Complaints-To: abuse@mail.emlbest.com
+X-EnvId: usproduction.b_1234567_332744566_37752340218_695174
+X-Feedback-ID: 332744566:1234567:campaign:US
+Date: Fri, 4 Oct 2024 04:08:22 +0000
+Subject: test
+
+Test
diff --git a/t/data/emlbest.txt b/t/data/emlbest.txt
new file mode 100644
index 0000000..37b0147
--- /dev/null
+++ b/t/data/emlbest.txt
@@ -0,0 +1 @@
+1234567
diff --git a/t/esp.t b/t/esp.t
index fe24480..deec038 100755
--- a/t/esp.t
+++ b/t/esp.t
@@ -3,7 +3,7 @@
 use lib '.'; use lib 't';
 
 use Test::More;
-plan tests => 8;
+plan tests => 9;
 
 sub tstprefs {
   my $rules = shift;
@@ -29,6 +29,10 @@ tstprefs("
   header   ECMESSENGER_ID eval:esp_ecmessenger_check()
   describe ECMESSENGER_ID Check Ec-Messenger id
 
+  emlbest_feed t/data/emlbest.txt
+  header   EMLBEST_ID eval:esp_emlbest_check()
+  describe EMLBEST_ID Check Emlbest id
+
   mailchimp_feed t/data/mailchimp.txt
   header   MAILCHIMP_ID   eval:esp_mailchimp_check()
   describe MAILCHIMP_ID   Check Mailchimp id
@@ -57,6 +61,9 @@ like($test, "/FORDEM_ID/");
 my $test = qx($sarun -L -t --siteconfigpath=t/rules < t/data/ecmessenger.eml);
 like($test, "/ECMESSENGER_ID/");
 
+my $test = qx($sarun -L -t --siteconfigpath=t/rules < t/data/emlbest.eml);
+like($test, "/EMLBEST_ID/");
+
 $test = qx($sarun -L -t --siteconfigpath=t/rules < t/data/mailchimp.eml);
 like($test, "/MAILCHIMP_ID/");