1#!/usr/bin/perl -w
2
3my $file = __FILE__;
4open my $fh, '<', $file or die "Can't open $file: $!";
5<$fh>;
6(my $test_file = $file) =~ s/-open-line//;
7
8unless (my $return = do $test_file) {
9    warn "couldn't parse $test_file: $@" if $@;
10    warn "couldn't do $test_file: $!"    unless defined $return;
11    warn "couldn't run $test_file"       unless $return;
12}
13