File Coverage

blib/lib/Test/TAP/Model/File/Visual.pm

Criterion	Covered	Total	%
statement	39	40	97.5
branch	10	12	83.3
condition	8	10	80.0
subroutine	12	12	100.0
pod	6	6	100.0
total	75	80	93.7

#!/usr/bin/perl

package Test::TAP::Model::File::Visual;
use base qw/Test::TAP::Model::File/;

use strict;
use warnings;

use Test::TAP::Model::Colorful;
use Test::TAP::Model::Subtest::Visual;
use URI::file;

sub subtest_class { "Test::TAP::Model::Subtest::Visual" }

sub desc_string {
	my $self = shift;
	$self->{_desc_string} = shift if @_;
	$self->{_desc_string} ||= "";
}

sub cases {
	my $self = shift;
	return $self->SUPER::cases(@_) unless wantarray;

	my @ret = $self->SUPER::cases(@_);
	return @ret if @ret;

	# if there are no tests, return a stub that represents the whole file
	return $self->subtest_class->new({
		type => "test",
		ok => $self->ok,
		skip => $self->skipped,
		line => "stub"
	});
}

sub str_status {
	my $self = shift;
	return "SKIPPED" if $self->skipped;
	return "BAILED OUT" if $self->bailed_out;

	return "OK"
		if $self->ok
		and $self->actual_cases == $self->planned
		and $self->actual_cases > 0;

	return "FAILED";
}

sub link { URI::file->new($_[0]->name) }

sub case_rows {
	my $self = shift;
	my @cases = $self->cases;
	my @ret;

	my $rows = int(.9 + @cases / 50) || 1;
	my $per_row = int(.9 + @cases / $rows);

	push @ret, { cases => [ splice(@cases, 0, $per_row) ] } while @cases;

	\@ret;
}

__PACKAGE__

__END__