byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

perltidy -b t/plugin_tests/auth/auth_imap

Browse Source
This commit is contained in:
Graham Todd 2014-11-15 08:40:34 -05:00
parent fc50cc2629
commit 29f12626a0
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
t/plugin_tests/auth/auth_imap
View File

@ -3,24 +3,22 @@ use Test::More tests => 2;
use strict; use strict;
use lib 't'; use lib 't';
use_ok('Net::IMAP::Simple'); use_ok('Net::IMAP::Simple');
sub auth_imap { sub auth_imap {
use Net::IMAP::Simple::SSL; use Net::IMAP::Simple::SSL;
my ($imaphost, $imapport, $imapserver); my ($imaphost, $imapport, $imapserver);
$imaphost = "imap.gmail.com"; $imaphost = "imap.gmail.com";
$imapport = "993"; $imapport = "993";
$imapserver = "$imaphost:$imapport"; $imapserver = "$imaphost:$imapport";
my $server = Net::IMAP::Simple->new($imapserver, use_ssl => 1,) my $server = Net::IMAP::Simple->new($imapserver, use_ssl => 1,)
or return ("auth_imap - could not connect to $imapserver"); or return ("auth_imap - could not connect to $imapserver");
sleep 1; sleep 1;
$server->quit; $server->quit;
} }
ok(auth_imap, "auth_imap, connected to imap.gmail.com for a sec"); ok(auth_imap, "auth_imap, connected to imap.gmail.com for a sec");