#!/usr/bin/perl

use strict;
use warnings;

use lib '../lib';
use Mail::Box::IMAP4;

my $f = Mail::Box::IMAP4->new(
 folder => 'INBOX',
 server_name => 'localhost', username => 'imaptest', password => 'testje',
 trace => 'PROGRESS') or die;

print $f->messages. " messages\n";
my $m = $f->message(0) or die;

print ref $m, "\n";
print $m->size;

print $f->transporter->imapClient->message_string(3);
