}
ok((my ($new_sid) = $mech->content =~ /New sid: ([0-9a-f]+)/)
, "New sid");
isnt($cur_sid, $new_sid, "sid is changed");
$cur_sid = $new_sid;
#---------------------------
}
ok((my ($new_sid) = $mech->content =~ /New sid: ([0-9a-f]+)/)
, "New sid");
isnt($cur_sid, $new_sid, "sid is changed");
$cur_sid = $new_sid;
#---------------------------
, 1, "Author create name=Foo");
is $foo->in_storage, 1, "created author is in_storage";
isnt $author->find({name => 'Foo'}), $foo
, "author->find returns different instance";
{
is