public function testPrerequisites()
{
R::nuke();
$bean = R::xdispense('type_with_underscore');
asrt($bean instanceof OODBBean, TRUE);
asrt(constant('BOOK'), 'tbl_book');
asrt(constant('AUTHOR'), 'tbl_author');
asrt(constant('PUBLISHER'), 'tbl_publisher');
asrt(constant('FRIEND'), 'tbl_friend');
asrt(constant('BOOKLIST'), 'ownTbl_book');
asrt(constant('FRIENDLIST'), 'sharedTbl_friend');
asrt(constant('COAUTHOR'), 'coAuthor');
}