#! /usr/bin/perl -T

use strict;
use warnings;

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

sub setup : Test(setup) {
	my $self = shift;
	$self->FAIL_ALL("premature plan") if $self->builder->expected_tests;
};

sub test : Test { pass('Tests1 test') };


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

sub test : Test { pass('Tests2 test') };


package main;
use Test::More;

Test::Class->runtests('Tests1', 'Tests2', +1);
is(Tests1->builder->expected_tests, 3, 'correct number of tests');