From 8d1075930b72fabe58c115675ad5bad0313cb4c8 Mon Sep 17 00:00:00 2001
From: bernhard <Bernhard.Schmalhofer@gmx.de>
Date: Tue, 15 Aug 2023 18:15:22 +0200
Subject: [PATCH] Issue #2462: add a couple of test cases

---
 scripts/test/YAML/YAML.t | 38 +++++++++++++++++++++++++++++++++++++-
 1 file changed, 37 insertions(+), 1 deletion(-)

diff --git a/scripts/test/YAML/YAML.t b/scripts/test/YAML/YAML.t
index 5847b9a24c..1829e3b9c5 100644
--- a/scripts/test/YAML/YAML.t
+++ b/scripts/test/YAML/YAML.t
@@ -23,6 +23,7 @@ use utf8;
 # CPAN modules
 use Test2::V0;
 use YAML::XS qw();
+use Try::Tiny;
 
 # OTOBO modules
 use Kernel::System::UnitTest::RegisterOM;    # set up $Kernel::OM
@@ -137,13 +138,25 @@ my @Tests = (
         SuccessDecode => 1,
     },
 
+    {
+        Name          => 'Simple String 0 - roundtrip',
+        Data          => '0',
+        SuccessDecode => 1,
+    },
     {
         Name          => 'Simple String 0',
+        YAMLString    => "---\n'0'\n",
         Data          => '0',
         SuccessDecode => 1,
     },
+    {
+        Name          => 'Number 0 - roundtrip',
+        Data          => 0,
+        SuccessDecode => 1,
+    },
     {
         Name          => 'Number 0',
+        YAMLString    => "---\n0\n",
         Data          => 0,
         SuccessDecode => 1,
     },
@@ -168,10 +181,33 @@ my @Tests = (
         SuccessDecode => 1,
     },
     {
-        Name          => 'Simple Empty String',
+        Name          => 'Empty String - roundtrip',
         Data          => '',
         SuccessDecode => 1,
     },
+    {
+        Name          => 'Empty String',
+        YAMLString    => "---\n''\n",
+        Data          => '',
+        SuccessDecode => 1,
+    },
+    {
+        Name          => 'undef - roundtrip',
+        Data          => undef,
+        SuccessDecode => 1,
+    },
+    {
+        Name          => 'null',
+        YAMLString    => "---\nnull\n",
+        Data          => undef,
+        SuccessDecode => 1,
+    },
+    {
+        Name          => 'tilde',
+        YAMLString    => "---\n~\n",
+        Data          => undef,
+        SuccessDecode => 1,
+    },
     {
         Name => 'Complex Structure with 0',
         Data => {