# Copyright (c) 2008 bivio Software Inc.  All Rights Reserved.
# $Id: blog.btest,v 1.4 2009/05/26 20:22:31 nagler Exp $
test_setup('PetShop', 'groupware');
my($search_key) = random_string();
my($f, $uri) = create_forum();
visit_uri($uri = "$uri/blog");
verify_text(qr{no entries}i);
login_as('root');
visit_uri($uri);
follow_link(qr{new blog entry}i);
submit_form({
    title => "post $search_key",
    anon => "body $search_key",
});
follow_link('edit');
verify_text("post $search_key");
submit_form({
    title => "post2 $search_key",
    anon => "body2 $search_key",
});
verify_text("body2 $search_key");
visit_uri("$uri.atom");