view release on metacpan or  search on metacpan

t/10methods.t  view on Meta::CPAN

    local $/ = undef;
    my $got = <$fh>;
    Test(defined($got))
	or print "Failed to read file $file: $!\n";
    Test($got eq $expected)
	or print "File $file doesn't match expected contents.\n";
}


eval {
    $cfg = require ".status";
    mkdir $cfg->{'t_dir'}, 0755 unless -d $cfg->{'t_dir'};
    mkdir $cfg->{'output_dir'}, 0755 unless -d $cfg->{'output_dir'};
    mkdir $cfg->{'roaming_dir'}, 0755 unless -d $cfg->{'roaming_dir'};
    mkdir $cfg->{'log_dir'}, 0755 unless -d $cfg->{'log_dir'};
    unlink $cfg->{'pid_file'} if -f $cfg->{'pid_file'};
    open(USER, ">$cfg->{'user_file'}")
	or die "Error while creating user file: $!";
    printf USER ("%s:%s\n", "foo bar", crypt("eoj", "foo bar"))
	or die "Error while writing user file: $!";
    close(USER)
	or die "Error while closing user file: $!";
    $pid = fork ();
    $lwp = require LWP::UserAgent;
};

if ($@  or  !defined($pid)  or  !$cfg  or  !$lwp) {
    print "1..0\n";
    exit 0;
}

sub KillHttpd { system "kill $pid" if $pid };

$SIG{'CHLD'} = sub { my $p = wait; undef $pid if $pid = $p };

t/20liprefs.t  view on Meta::CPAN

    local $/ = undef;
    my $got = <$fh>;
    Test(defined($got))
	or print "Failed to read file $file: $!\n";
    Test($got eq $expected)
	or print "File $file doesn't match expected contents.\n";
}


eval {
    $cfg = require ".status";
    mkdir $cfg->{'t_dir'}, 0755 unless -d $cfg->{'t_dir'};
    mkdir $cfg->{'output_dir'}, 0755 unless -d $cfg->{'output_dir'};
    mkdir $cfg->{'roaming_dir'}, 0755 unless -d $cfg->{'roaming_dir'};
    mkdir $cfg->{'log_dir'}, 0755 unless -d $cfg->{'log_dir'};
    unlink $cfg->{'pid_file'} if -f $cfg->{'pid_file'};
    open(USER, ">$cfg->{'user_file'}")
	or die "Error while creating user file: $!";
    printf USER ("%s:%s\n", "foo bar", crypt("eoj", "foo bar"))
	or die "Error while writing user file: $!";
    close(USER)
	or die "Error while closing user file: $!";
    $pid = fork ();
    $lwp = require LWP::UserAgent;
};

if ($@  or  !defined($pid)  or  !$cfg  or  !$lwp) {
    print "1..0\n";
    exit 0;
}

sub KillHttpd { system "kill $pid" if $pid };

$SIG{'CHLD'} = sub { my $p = wait; undef $pid if $pid = $p };