#!/usr/bin/perl

use strict;
use warnings;

use Test::TAP::HTMLMatrix;
use Test::TAP::Model::Visual;
use Test::TAP::Model::Consolidated;

# make a successful test run
my $model_ok = Test::TAP::Model::Visual->new_with_tests(
  glob("t/*/*.t")
);
$model_ok->desc_string("real run");

my $v = Test::TAP::HTMLMatrix->new(
  Test::TAP::Model::Consolidated->new( $model_ok )
);
$v->has_inline_css(1);

# this is the most popular view:
print $v->detail_html;