#! /usr/bin/perl -T

use strict;
use warnings;

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

use Test;
use Test::Builder;
use Fcntl;
use IO::File;

plan tests => 6;

sub _only : Test(setup => 1) {
	my $self = shift;
	$self->builder->ok(1==1);
	$self->SKIP_ALL("skippy");
};

sub test : Test(3) { die "this should never run!" };

my $io = IO::File->new_tmpfile or die "couldn't create tmp file ($!)\n";
my $Test = Test::Builder->new;				
$Test->output($io);
$Test->failure_output($io);

$ENV{TEST_VERBOSE}=0;
Local::Test->runtests;

END {
	seek $io, SEEK_SET, 0;
	while (my $actual = <$io>) {
		chomp($actual);
		my $expected=<DATA>; chomp($expected);
		ok($actual, $expected);
	};

	ok($?, 0, "exit value okay");
	$?=0;
};

__DATA__
1..4
ok 1 - test
ok 2 # skip skippy
ok 3 # skip skippy
ok 4 # skip skippy