script to run examples from documentation

diff --git a/t/examples.t b/t/examples.t
new file mode 100755 (executable)
index 0000000..19c1377
--- /dev/null
+++ b/t/examples.t
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+use 5.014;
+use warnings;
+use Test::More;
+
+my $filename = 'barcat';
+open my $input, '<', $filename
+       or die "Cannot read documentation from $filename script\n";
+
+local $/ = "\n\n";
+while (readline $input) {
+       /^=head1 EXAMPLES/ ... /^=head1/ or next;
+       /^\h/ or next;
+       chomp;
+
+       my ($name) = /[\h(]*([^|]+)/;
+       ok(qx($_), $name);
+}
+
+done_testing();