1 files changed, 14 insertions, 0 deletions
diff --git a/dist/base/t/base-open-chunk.t b/dist/base/t/base-open-chunk.t
new file mode 100644
index 0000000000..ef6c25d201
--- /dev/null
+++ b/dist/base/t/base-open-chunk.t
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+
+my $file = __FILE__;
+
+open my $fh, '<', $file or die "Can't open $file: $!";
+$/ = \1;
+<$fh>;
+(my $test_file = $file) =~ s/-open-chunk//;
+
+unless (my $return = do $test_file) {
+    warn "couldn't parse $test_file: $@" if $@;
+    warn "couldn't do $test_file: $!"    unless defined $return;
+    warn "couldn't run $test_file"       unless $return;
+}