for my $file ( <*.pl> ) {
    ok( my $class = do $file, "Loaded $file" );
    my $p = MyApp::Processor->new(
        filename    => $class->filename,
        content     => $class->content,
    );
    eq_or_diff( $p->store, $class->store );
}