#!/usr/bin/perl -w require 5.003; use strict; (my $program_name = $0) =~ s|.*/||; # Turn off localisation of executable's ouput. @ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3; my @Tests = ( ['a', {IN => {k => "exec\n"}}, {ERR => "dircolors: k:1: invalid line; missing second token\n"}, {EXIT => 1}], ); my $save_temps = $ENV{DEBUG}; my $verbose = $ENV{VERBOSE}; my $prog = $ENV{PROG} || die "$0: \$PROG not specified in environment\n"; my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose); exit $fail;