root/t/02pl-scripts.t

#!/usr/bin/perl -w

use Test::More "no_plan";

use English;
use FindBin qw($Bin);
use File::Temp qw/tempdir/;
use IPC::Open3;
use POSIX ":sys_wait_h";

sub execscript ($$$$);

my $tmphome = tempdir(CLEANUP => 1);
$ENV{HOME} = $tmphome;

sub cleanup ($;$) {
    my ($signal, $exitcode) = @_;
    $exitcode = 0 unless (defined $exitcode);
    my $cleanup = "/bin/rm -rf $tmphome";
    system ($cleanup);

    exit $exitcode;
}
$SIG{__DIE__} = \&cleanup;
$SIG{'INT'} = \&cleanup;
$SIG{'QUIT'} = \&cleanup;

my @in = <DATA>;
is (@in, 2, "no of addresses");
my (@out, @err);

execscript ("blib/script/pl-init test\@localhost $ENV{USER}\@localhost", [], \@out, \@err);
is (@err, 0, "init errors");
execscript ("blib/script/pl-subscribe --nowelcome --nomail test\@localhost", \@in, \@out, \@err);
is (@err, 0, "subscribe errors");
cleanup('NONE', 0);

sub execscript ( $$$$ ) {
    my ($script, $pIn, $pOut, $pErr) = @_;

    my $pid
      = open3 (*IN, *OUT, *ERR,
               $script)
        or die "Cannot start script (\"$script\"): $ERRNO";

    print IN @{$pIn};
    close IN;

    @{$pOut} = <OUT>;
    close OUT;
    @{$pErr} = <ERR>;
    close ERR;

    print STDERR @{$pErr} if @{$pErr};

    waitpid ($pid, 0)
      or die "Cannot stop (\"$script\"): $ERRNO";

}

__DATA__
Gerd Aschemann <aschemann@localhost>
Anselm Lingnau <anselm@localhost>