#! /usr/bin/perl -T

use strict;
use warnings;

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

sub test1 : Test { ok(1) };
sub test2 : Test { ok(1) };

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

$ENV{TEST_VERBOSE}=1;
test_diag("");
test_diag("Local::Test->test1");
test_out("ok 1 - test1");
test_diag("");
test_diag("Local::Test->test2");
test_out("ok 2 - test2");
Local::Test->runtests;
test_test("TEST_VERBOSE outputs method diagnostic");