#! /usr/bin/perl -T
use strict;
use warnings;
package Local::Test;
use base qw(Test::Class);
use Test::More;
sub setup : Test(setup) {
my $self = shift;
$self->num_method_tests('test', 2);
};
sub test : Test(no_plan) {
my $self = shift;
is($self->num_tests, 2, 'test number set');
is($self->builder->expected_tests, 2, 'builder expected tests set');
};
package main;
Local::Test->runtests();