#! /usr/bin/perl 

use strict;
use warnings;

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

    sub startup_that_dies : Test( startup ) { die "oops!\n" }

    sub my_test_method : Tests {
        fail('should be skipped because of the startup exception');
    }
}

use Test::Builder::Tester tests => 1;

test_out("not ok 1 - startup_that_dies died (oops!)");
test_fail( +2 );
test_err( "#   (in StartMethodThatDies->startup_that_dies)" );
Test::Class->runtests;
test_test("exception in startup method causes all tests to be skipped");