this gives the 5th unmoderated...

use My::Community::Testing;

my $test = My::Community::Testing->new;

my $schema = $test->schema;

$schema->current_user($schema->resultset('User')->find({ username => 'Harry'}));

my $article_rs = $schema->resultset('Article');

isa_ok( $article_rs, 'DBIx::Class::ResultSet' );

my @articles = $article_rs->all;

my @results = map {
    {   title  => $_->title,
        body   => $_->body,
        author => $_->author->username,
        forum  => $_->forum->name,
    }
} @articles;

diag( Dumper(@results) );