qpsmtpd/t/plugin_tests/auth/auth_imap

#!perl -w
use Test::More tests => 2;
use strict;
use lib 't';

use_ok('Net::IMAP::Simple');

sub auth_imap {

    use Net::IMAP::Simple::SSL;

    my ($imaphost, $imapport, $imapserver);

    $imaphost   = "imap.gmail.com";
    $imapport   = "993";
    $imapserver = "$imaphost:$imapport";

    my $server = Net::IMAP::Simple->new($imapserver, use_ssl => 1,)
      or return ("auth_imap - could not connect to $imapserver");
    sleep 1;
    $server->quit;
}

ok(auth_imap, "auth_imap, connected to imap.gmail.com for a sec");