# Copyright (c) 2008-2009 bivio Software, Inc.  All Rights Reserved.
# $Id: xapian.btest,v 1.12 2011/02/01 23:19:37 schellj Exp $
test_setup('PetShop', 'groupware');
my($f, $uri) = create_forum();
visit_uri("$uri/mail");
follow_link('new_topic');
my($code) = random_string(16, ['a' .. 'z']);
submit_form(Send => {
    topic => $code,
    text => 'hello goodbye telephone',
});
poll_page(verify_text => $code);
visit_uri("$uri/files");
follow_link_in_table("Name", "Name", "/", "Actions", "Modify");
fixup_files_uri('ADD_SUBFOLDER');
submit_form(OK => {'Name:' => "Wiki"});
follow_link_in_table("Name", "Name", "Wiki", "Actions", "Modify");
fixup_files_uri('TEXT_FILE');
my($unique) = random_string();
submit_form(OK => {
    'Name:' => "cool_$code",
    _anon => "This is some really cool $code. Uniquifier $unique",
    comments => "nc",
});

submit_form({
    _anon => $code,
});
verify_form({
    _anon => $code,
});
verify_text(qr{>$code.*hello goodbye telephone}s);
verify_text(qr{>cool $code<.*>This is some really cool $code}s);
verify_text("$f/bp");
follow_link(qr{^$code});
verify_link('new_topic');
go_back();
follow_link(qr{^cool $code});
verify_text(qr{edit this page}i);