Upstream proxmox-git/pve-storage state of the touched files before d4d440bd7b

src/test/run_disk_tests.pl

@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use TAP::Harness;
+
+my $harness = TAP::Harness->new({ verbosity => -2 });
+my $res = $harness->runtests("disklist_test.pm");
+
+exit -1 if !$res || $res->{failed} || $res->{parse_errors};
+