bb36c60b6a
make it easier for plugins to manage temporary workspace. Also add POD and tests for the new functions. Still need to add tests to the temp_*() calls from a plugin. git-svn-id: https://svn.perl.org/qpsmtpd/trunk@369 958fd67b-6ff1-0310-b445-bb7760255be9
28 lines
774 B
Perl
28 lines
774 B
Perl
#!/usr/bin/perl -w
|
|
use Test::More qw(no_plan);
|
|
use File::Path;
|
|
use strict;
|
|
use lib 't';
|
|
use_ok('Test::Qpsmtpd');
|
|
|
|
BEGIN { # need this to happen before anything else
|
|
my $cwd = `pwd`;
|
|
chomp($cwd);
|
|
open my $spooldir, '>', "./config.sample/spool_dir";
|
|
print $spooldir "$cwd/t/tmp";
|
|
close $spooldir;
|
|
}
|
|
|
|
ok(my ($smtpd, $conn) = Test::Qpsmtpd->new_conn(), "get new connection");
|
|
|
|
my ($spool_dir,$tempfile,$tempdir) = ( $smtpd->spool_dir,
|
|
$smtpd->temp_file(), $smtpd->temp_dir() );
|
|
|
|
ok( $spool_dir =~ m!t/tmp/$!, "Located the spool directory");
|
|
ok( $tempfile =~ /^$spool_dir/, "Temporary filename" );
|
|
ok( $tempdir =~ /^$spool_dir/, "Temporary directory" );
|
|
ok( -d $tempdir, "And that directory exists" );
|
|
|
|
unlink "./config.sample/spool_dir";
|
|
rmtree($spool_dir);
|