package testcases::WebContent;
use strict;
use XAO::Objects;
use base qw(testcases::base);
sub test_everything {
my $self=shift;
my $cobj=XAO::Objects->new(objname => 'Web::Content');
$self->assert(ref($cobj),
"Can't load Web::Content object");
##
# Building structure
#
my $odb=$cobj->odb;
$self->assert(ref($odb),
"No database handler");
my $structure=$cobj->data_structure;
$self->assert(ref($structure) eq 'HASH',
"No database structure returned");
$odb->fetch('/')->build_structure($structure);
$odb->fetch('/')->drop_placeholder('Content');
$cobj->build_structure;
$cobj->build_structure;
# XXX - We shall have some more tests here.
}
1;