diff --git a/src/test/run_disk_tests.pl b/src/test/run_disk_tests.pl
new file mode 100644
index 0000000..5a6af07
--- /dev/null
+++ b/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};
+