From f29001cdced0ce469c49f3cbebce858cfd4bbf24 Mon Sep 17 00:00:00 2001
From: Gabriel Buica <danutgabriel.buica@cloud.com>
Date: Tue, 7 Jan 2025 17:21:46 +0000
Subject: [PATCH] fixup! CP-52320 & CP-52795: Add unit tests for tgroup library

---
 ocaml/libs/tgroup/test_tgroup.ml | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/ocaml/libs/tgroup/test_tgroup.ml b/ocaml/libs/tgroup/test_tgroup.ml
index bdea32abe9..7623a0c01e 100644
--- a/ocaml/libs/tgroup/test_tgroup.ml
+++ b/ocaml/libs/tgroup/test_tgroup.ml
@@ -11,6 +11,10 @@ let test_identity () =
     ; ((Some " Xen Center 2024 ", ", u 1000 "), "u1000/XenCenter2024")
     ; ((Some "Xen Center ,/@.~# 2024", "root"), "root/XenCenter2024")
     ; ((Some "XenCenter 2024.3.18", ""), "root/XenCenter2024318")
+    ; ((Some "", "S-R-X-Y1-Y2-Yn-1-Yn"), "SRXY1Y2Yn1Yn")
+    ; ( (Some "XenCenter2024", "S-R-X-Y1-Y2-Yn-1-Yn")
+      , "SRXY1Y2Yn1Yn/XenCenter2024"
+      )
     ]
   in