From 9db858a13257b4b19b37bfc0a09276909f8a77a2 Mon Sep 17 00:00:00 2001 From: Ming Lu Date: Thu, 26 Sep 2024 19:04:29 +0800 Subject: [PATCH] CA-399638: Add unit tests Signed-off-by: Ming Lu --- ocaml/tests/test_repository_helpers.ml | 30 +++++++++++++++++++++++++- 1 file changed, 29 insertions(+), 1 deletion(-) diff --git a/ocaml/tests/test_repository_helpers.ml b/ocaml/tests/test_repository_helpers.ml index dbb5b7f1a42..775c7635665 100644 --- a/ocaml/tests/test_repository_helpers.ml +++ b/ocaml/tests/test_repository_helpers.ml @@ -3881,7 +3881,29 @@ module PruneUpdateInfoForLivepatches = Generic.MakeStateless (struct ; base_build_id= "2cc28689364587682593b6a72e2a586d29996bb9" ; base_version= "4.19.19" ; base_release= "8.0.20.xs8" - ; to_version= "4.13.4" + ; to_version= "4.19.19" + ; to_release= "8.0.21.xs8" + } + + let lp2 = + LivePatch. + { + component= Livepatch.Kernel + ; base_build_id= "2cc28689364587682593b6a72e2a586d29996bb9" + ; base_version= "4.19.19" + ; base_release= "8.0.20.xs8" + ; to_version= "4.19.20" + ; to_release= "8.0.21.xs8" + } + + let lp3 = + LivePatch. + { + component= Livepatch.Kernel + ; base_build_id= "4cc28689364587682593b6a72e2a586d29996bb9" + ; base_version= "4.19.20" + ; base_release= "7.0.20.xs8" + ; to_version= "4.13.5" ; to_release= "8.0.21.xs8" } @@ -3915,6 +3937,12 @@ module PruneUpdateInfoForLivepatches = Generic.MakeStateless (struct ; ( ([], {updateinfo with livepatches= [lp0; lp1]}) , {updateinfo with livepatches= []} ) + ; ( ([lp0; lp2], {updateinfo with livepatches= [lp0; lp1; lp2; lp3]}) + , {updateinfo with livepatches= [lp0; lp1; lp2]} + ) + ; ( ([lp0], {updateinfo with livepatches= [lp0; lp1; lp2; lp3]}) + , {updateinfo with livepatches= [lp0]} + ) ] end)