view release on metacpan or  search on metacpan

t/11client-write.t  view on Meta::CPAN

#!/usr/bin/env perl
#
# Test reading of IMAP4 folders.
# The environment has some requirements:
# On Debian:
#   adduser -d /tmp/imaptest imaptest
#   /etc/cram-md5.pwd:
#       imaptest<tab>testje
#   touch /var/mail/imaptest
#   chown $USER /var/mail/imaptest    # user running the tests
#   .... and a running imapd
#
# On SuSE 8.2
#   useradd -d /tmp/imaptest imaptest
#   /etc/cram-md5.pwd:
#       imaptest<tab>testje
#   touch /var/spool/mail/imaptest
#   chown $USER /var/spool/mail/imaptest    # user running the tests
#   .... and a running imapd, which requires the start of xinetd and
#        enabling the imap service via YaST2

use strict;
use warnings;

use Mail::Box::Test;
use Mail::Box::IMAP4;

use Test::More;
use File::Compare;
use File::Copy;
use File::Spec::Functions;


BEGIN
{
   unless($ENV{MARKOV_DEVEL})
   {   plan skip_all => 'Only tested on markov\'s platform';
   }

   plan tests => 18;

}

my $user     = 'imaptest';
my $password = 'testje';
my $server   = 'localhost';
my $port     = 143;
my @connect  = ( username => $user, password => $password
               , server_name => $server, server_port => $port
	       );

my $home     = "/tmp/$user";
my $inbox    = "/var/mail/$user";

# Prepare home directory
   -d $home
or mkdir $home
or die "Cannot create $home: $!\n";

# Prepare INBOX
copy $unixsrc, $inbox
or die "Cannot create $inbox: $!\n";

#
# The folder is read.
#

my $folder = Mail::Box::IMAP4->new
  ( @connect
  , folder       => 'INBOX'
  , lock_type    => 'NONE'
  , access       => 'rw'
  );

ok(defined $folder,                   'check success open folder');
exit 1 unless defined $folder;

ok($folder->writeable);