test: Add test for GC-ing shared Type1 entries

Add a test to make sure we do not GC shared Type1 entries when they're
still referenced

Signed-off-by: Pragyan Poudyal <pragyanpoudyal41999@gmail.com>

Author: Johan-Liebert1

tmt/tests/booted/test-composefs-gc.nu

@@ -53,9 +53,6 @@ def second_boot [] {
 
     let path = cat /var/large-file-marker-objpath
 
-    echo "\$path"
-    echo $path
-
     assert ($path | path exists)
 
     # Create another image with a different initrd so we can test kernel + initrd cleanup
@@ -107,14 +104,12 @@ def third_boot [] {
     let boot_dir = if ($bootloader | str downcase) == "systemd" {
         # TODO: Some concrete API for this would be great
         mkdir /var/tmp/efi
-        mount /dev/vda2 /var/tmp/efi
+        mount /dev/disk/by-partlabel/EFI-SYSTEM /var/tmp/efi
         "/var/tmp/efi/EFI/Linux"
     } else {
         "/sysroot/boot"
     }
 
-    print $"bootdir ($boot_dir)"
-
     assert ($"($boot_dir)/($dir_prefix)($booted_verity)" | path exists)
 
     # This is for the rollback, but since the rollback and the very
@@ -144,13 +139,38 @@ def fourth_boot [] {
     if ($bootloader | str downcase) == "systemd" {
         # TODO: Some concrete API for this would be great
         mkdir /var/tmp/efi
-        mount /dev/vda2 /var/tmp/efi
+        mount /dev/disk/by-partlabel/EFI-SYSTEM /var/tmp/efi
     }
 
     assert equal $booted.image.image "localhost/bootc-final"
     assert (not ((cat /var/to-be-deleted-kernel | path exists)))
 
-    tap ok
+    # Now we want to test preservation of shared BLS binaries
+    # This takes at least 3 reboots
+    1..3 | each { |i|
+        echo $"
+            FROM localhost/bootc-derived-initrd
+            RUN echo '($i)' > /usr/share/($i)
+        " | podman build -t $"localhost/bootc-shared-($i)" . -f -
+    }
+
+    bootc switch --transport containers-storage localhost/bootc-shared-1
+
+    tmt-reboot
+}
+
+def fifth_boot [i: int] {
+    assert equal $booted.image.image $"localhost/bootc-shared-($i)"
+
+    # Just this being booted counts as success
+    if $i == 3 {
+        tap ok
+        return
+    }
+
+    bootc switch --transport containers-storage $"localhost/bootc-shared-($i + 1)"
+
+    tmt-reboot
 }
 
 def main [] {
@@ -159,6 +179,9 @@ def main [] {
         "1" => second_boot,
         "2" => third_boot,
         "3" => fourth_boot,
+        "4" => { fifth_boot 1 },
+        "5" => { fifth_boot 2 },
+        "6" => { fifth_boot 3 },
         $o => { error make { msg: $"Invalid TMT_REBOOT_COUNT ($o)" } },
     }
 }