Output disk information in automation

Output disk information in automation to facilitate information
lookup on disks which benefits the latest updates collecting and
avoids manual intervention.

Author: waynechen55

lib/utils.pm

@@ -146,6 +146,7 @@ our @EXPORT = qw(
   parse_json
   inspect_existing_issue
   dump_tasktrace
+  show_all_disks
 );
 
 our @EXPORT_OK = qw(
@@ -3716,4 +3717,14 @@ sub dump_tasktrace {
     select_console($old_console, await_console => 0);
 }
 
+=head2 show_all_disks
+
+Output information about all disks on system to facilitate convenient and quick
+information lookup on the fly without manual intervention.
+=cut
+
+sub show_all_disks {
+    record_info('Disk info', script_output('lsblk -p -o NAME,SIZE,FSTYPE,TYPE,MOUNTPOINT,WWN;ls -ahl /dev/disk/by-id;df -ah', proceed_on_failure => 1));
+}
+
 1;

tests/virt_autotest/prepare_non_transactional_server.pm

@@ -29,6 +29,7 @@ sub run {
 
     $self->prepare_ground;
     $self->prepare_console;
+    $self->prepare_storages;
     $self->prepare_extensions;
     $self->prepare_packages;
     $self->prepare_bootloader;
@@ -61,6 +62,12 @@ sub prepare_console {
     select_backend_console(init => 0);
 }
 
+sub prepare_storages {
+    my $self = shift;
+
+    show_all_disks;
+}
+
 sub prepare_extensions {
     my $self = shift;
 

tests/virt_autotest/prepare_transactional_server.pm

@@ -41,6 +41,7 @@ sub prepare_in_trup_shell {
 sub prepare_on_active_system {
     my $self = shift;
 
+    show_all_disks;
     double_check_xen_role if (is_xen_host and is_sle('>=16.1') and is_disk_image);
     check_kvm_modules if (is_kvm_host and is_sle('>=16.1') and is_disk_image);
     $self->prepare_services;