#!/usr/bin/env perl
#
# Test the user manager, which extends the normal manager
use strict;
use warnings;
use Test::More;
use lib qw(. .. tests);
use Tools;
use Mail::Box::Manage::User;
BEGIN
{ plan tests => 11;
}
my $id = User::Identity->new('markov');
ok(defined $id, "Identity created");
isa_ok($id, 'User::Identity');
my $user = Mail::Box::Manage::User->new(identity => $id);
ok(defined $user, "User manager created");
isa_ok($user, "Mail::Box::Manager");
isa_ok($user, "Mail::Box::Manage::User");
my $i = $user->identity;
ok(defined $i, "Identity defined");
isa_ok($i, 'User::Identity');
cmp_ok($id->name, 'eq', $i->name, "Same id object");
my $f = $user->topfolder;
ok(defined $f, "Folder structure created");
isa_ok($f, 'Mail::Box::Identity');
isa_ok($f, 'User::Identity::Item');