use Text::Lorem;
use Text::Autoformat;

my $text = Text::Lorem->new;

for my $i (1..(5000)) {
    BarnOwl::admin_message('', autoformat($text->paragraphs(1)));
}


DB::enable_profile();

BarnOwl::view('all');
BarnOwl::filter('none', 'false');
BarnOwl::view('none');
BarnOwl::view('all');
BarnOwl::view('-d', 'not', 'filter', 'all');
BarnOwl::view('all');
BarnOwl::view('-d', 'type', 'admin');

my $id;
do {
    $id = BarnOwl::getcurmsg()->{id};
    BarnOwl::command('recv:pagedown');
} while($id != BarnOwl::getcurmsg()->{id});

DB::finish_profile();
BarnOwl::quit();