gnu/usr.bin/perl/dist/base/t/base-open-line.t


1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/perl -w

my $file = __FILE__;
open my $fh, '<', $file or die "Can't open $file: $!";
<$fh>;
(my $test_file = $file) =~ s/-open-line//;

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;
}