many count');
is ($c2+2, $cs->{has_many_icache_count}, 'icache count');
sleep(2);
isnt ($bs, $e->bookmarks, 'same instance');
is ($c1+3, $cs->{has_many_count}, 'has many count');
s->{has_many_icache_count}, 'icache count');
my $bs10 = $e->bookmarks(0,10);
isnt ($bs, $bs10, 'isnt in offset cond');
is ($c1+4, $cs->{has_many_count}, 'has many count');
is ($c
many count');
is ($c2+4, $cs->{has_many_icache_count}, 'icache count');
sleep(2);
isnt ($bs10, $e->bookmarks(0,10), 'cache bs10');
is ($c1+6, $cs->{has_many_count}, 'has many coun
$bs3->size, 'same size');
isnt $bs4, $bs;
my $b = Blog::Bookmark->create(
user_id => 2,
entry_id => 3,
);
my $bs5 = $u->bookmarks;
isnt $bs5, $bs;
is $bs5->size
, $bs->size + 1;
my $bs6 = $e->bookmarks;
isnt $bs6, $bs3;
is $bs6->size, $bs3->size + 1;
}
sub list_methods : Tests {
my $es = Blog::User->retrieve(1)->entries;
my $e = $es->pop;
e, 'jkontan';
isnt $u->name, $name;
ok ($u->{to_be_updated});
my ($u2) = Blog::User->search(where => {user_id => 1});
ok $u2;
is $u2->name, $name;
isnt $u2->name, $u->nam
entry->bookmarks({ with => 'user' });
my $cnt_before = $DBIx::MoCo::DataBase::SQL_COUNT;
isnt $cnt_before, 0;
ok $bookmarks->first->user;
isa_ok $bookmarks->first->user, 'Blog::User';
{ with => [qw/user entry/] })->first;
my $cnt_before = $DBIx::MoCo::DataBase::SQL_COUNT;
isnt $cnt_before, 0;
isa_ok $bookmark->user, 'Blog::User';
isa_ok $bookmark->entry, 'Blog::E