From da24af38e32dc0fb2d2875bb38fc4fdf706fe72d Mon Sep 17 00:00:00 2001
From: Kharec <sandro@cazzaniga.fr>
Date: Thu, 11 Dec 2025 16:38:20 +0100
Subject: [PATCH] test: add underscores-in-words regression tests for emphasis

---
 t/03-formatting.t | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/t/03-formatting.t b/t/03-formatting.t
index f17edcc..9930dee 100755
--- a/t/03-formatting.t
+++ b/t/03-formatting.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 11;
+use Test::More tests => 13;
 use MarkdownParser;
 
 my $parser = MarkdownParser->new();
@@ -62,4 +62,7 @@ is(
     "<p><strong>bold text</strong></p>\n",
     "Bold with ___"
 );
-
+is( $parser->parse("my_variable"),
+    "<p>my_variable</p>\n", "Underscore inside word unchanged" );
+is( $parser->parse("CONST__VALUE"),
+    "<p>CONST__VALUE</p>\n", "Double underscores inside word unchanged" );