#! /usr/bin/perl
use strict;
use warnings;
package Foo;
use Test::More;
use base qw(Test::Class);
sub test_run : Test(1) {
pass( "test_run not filtered, so is run" );
};
package Bar;
use Test::More;
use base qw(Test::Class);
sub test_filter_due_to_class : Test(1) {
fail( "shouldn't run, due to class filter" );
}
package main;
Test::Class->add_filter( sub { $_[0] eq 'Foo' } );
Test::Class->runtests;