# Copyright (c) 2009 bivio Software, Inc.  All Rights Reserved.
# $Id: wiki-validator.btest,v 1.7 2009/12/26 23:03:19 nagler Exp $
test_setup('PetShop', 'groupware');
home_page();
verify_text('inline WikiText btest');
visit_uri('/site/bp/WikiValidator_OK?validate=1');
verify_no_text(qr{wiki error}i);
visit_uri('/site/bp/WikiValidator_NOT_OK?validate=1');
verify_no_text(qr{wiki error}i);
login_as('root');
home_page();
verify_text('inline WikiText btest');
visit_uri('/site/bp/WikiValidator_OK?validate=1');
verify_no_text(qr{wiki error}i);
visit_uri('/site/bp/WikiValidator_NOT_OK?validate=1');
verify_text(qr{wiki error.*Base.*line \d+:.*invalidwikitag:}is);
my($e) = generate_local_email('root');
do_test_backdoor(Wiki => '-realm site-reports validate_all_realms');
my($msg) = verify_local_mail($e, qr{wiki error}i);
$msg =~ s{Errors in wiki_bunit:\s+Internal server error}{}i;
b_die("server error reported in email:\n", $msg)
    if $msg =~ /server.error/i;
my($unknown) = [grep(
    !/base.css: Not a valid|: Not found|: Same name|Errors in site:/i,
    split(/\s*\n+\s*/i, ($msg =~ /\n\n(.*)/)[0]),
)];
b_die("unknown error: ", $unknown)
    if @$unknown;