view release on metacpan or  search on metacpan

t/10client-read.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 imaptest.users /var/mail/imaptest
#   chmod 0664           /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 imaptest.users /var/mail/imaptest
#   chmod 0664           /var/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
{ 
   $ENV{MARKOV_DEVEL}
       or plan skip_all => 'Only tested on markov\'s platform';

   plan tests => 40;
}

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
my $src      = "../Mail-Box/$unixsrc";
copy $src, $inbox
	or die "Cannot create $inbox: $!\n";

ok(Mail::Box::IMAP4->foundIn(folder => 'imap://'), 'check foundIn');

#
# The folder is read.
#

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

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