vhd-tool: Add read_headers_interval to the cram test

Signed-off-by: Andrii Sultanov <andriy.sultanov@vates.tech>

Author: last-genius

ocaml/vhd-tool/cli/read_headers.t

@@ -9,14 +9,22 @@ Check if the right clusters are found to be allocated (legacy JSON format)
   $ ./main.exe read_headers test.vhd
   {"virtual_size":33562624,"cluster_bits":21,"data_clusters":[0,1,2,13,14,15]}
 
+Check if the right clusters are found to be allocated (interval-based JSON format)
+  $ ./main.exe read_headers_interval test.vhd
+  {"virtual_size":33562624,"cluster_bits":21,"data_clusters":[[0,2],[13,15]]}
+
 Check fully allocated file
   $ dd if=/dev/random of=test.raw bs=2097152 count=16 > /dev/null 2>&1
   $ qemu-img convert -f raw -O vpc test.raw test.vhd
   $ ./main.exe read_headers test.vhd
   {"virtual_size":33562624,"cluster_bits":21,"data_clusters":[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15]}
+  $ ./main.exe read_headers_interval test.vhd
+  {"virtual_size":33562624,"cluster_bits":21,"data_clusters":[[0,15]]}
 
 Check empty file
   $ dd if=/dev/zero of=test.raw bs=2097152 count=16 > /dev/null 2>&1
   $ qemu-img convert -f raw -O vpc test.raw test.vhd
   $ ./main.exe read_headers test.vhd
   {"virtual_size":33562624,"cluster_bits":21,"data_clusters":[]}
+  $ ./main.exe read_headers_interval test.vhd
+  {"virtual_size":33562624,"cluster_bits":21,"data_clusters":[]}