#! /usr/bin/perl

use strict;
use warnings;

package Foo;
use Test::More;
use base qw(Test::Class);

sub test_not_filtered : Test(1) {
    pass( "test_not_filtered doesn't meet any filters, so is run" );
};

sub test_filter_me : Test(1) {
    fail( "shouldn't run, due to filtering of /filter_me/" );
}

sub test_me_too : Test(1) {
    fail( "shouldn't run, due to filtering of /me_too/" );
}

sub test_filter_me_as_well : Test(1) {
    fail( "shouldn't run, due to filtering of /filter_me/" );
}

sub test_another_not_matching : Test(1) {
    pass( "test_another_not_matching doesn't meet any filters, so is run" );
}

package main;

Test::Class->add_filter( sub { $_[1] !~ /filter_me/ } );
Test::Class->add_filter( sub { $_[1] !~ /me_too/ } );

Test::Class->runtests;