#! /usr/bin/perl

use strict;
use warnings;
use Test::More tests => 1;

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

    sub test_filtered_startup : Test( startup => 1 ) {
        fail( "startup test not run, as no normal tests are unfiltered" );
    }

    sub test_filtered_setup : Test( setup => 1 ) {
        fail( "setup test not run, as no normal tests are unfiltered" );
    }

    sub test_filtered_teardown : Test( teardown => 1 ) {
        fail( "teardown test not run, as no normal tests are unfiltered" );
    }

    sub test_filtered_shutdown : Test( shutdown => 1 ) {
        fail( "shutdown test not run, as no normal tests are unfiltered" );
    }

    sub test_filtered : Test( 1 ) {
        fail( "shouldn't run, due to matching filter" );
    }
}

Test::Class->add_filter( sub { 0 } );

is( Test::Class->expected_tests, 0, 'setup/teardown not run when no test methods' );