use Mail::Cclient qw(set_callback);
print "1..6\n";
print "ok 1\n";
my $pwd = `pwd`;
chomp($pwd);
my $mailbox = "$pwd/testmbx/test.mbox";
my @sequence = ();
set_callback(
'searched' => sub {
my ($stream, $number) = @_;
push(@sequence, $number); } );
print "ok 2\n";
my $c = Mail::Cclient->new($mailbox, 'readonly') or print "not ";
print "ok 3\n";
$c->search(
SEARCH => "ALL NOT FROM \"hdias\"",
FLAG => ["uid"]);
print "ok 4\n";
unless(@sequence) { print "not "; }
print "ok 5\n";
$c->close();
print "ok 6\n";
undef($c);