Frey/Test/Runner.pm

package Frey::Test::Runner;
use Moose;

extends 'Frey';
with 'Frey::Web';
with 'Frey::Storage';

use TAP::Harness;
use TAP::Formatter::HTML;
use Data::Dump qw/dump/;

use Frey::SVK;
use Frey::PPI;

has tests => (
        is => 'rw',
        isa => 'ArrayRef[Str]',
        required => 1,
        lazy => 1, # FIXME ask users which tests to run
        default => sub {
#               [ glob('t/*.t') ] # all tests
                [ Frey::SVK->modified ]
        },
);

sub as_markup {
        my ($self) = @_;

        my $f = TAP::Formatter::HTML->new({
#               silent => 1,

                inline_css => 1,
                inline_js  => 0,
        });
        my $h = TAP::Harness->new({
                merge => 1,
                formatter => $f,
        });

        my $tests;

        map {
                $tests->{$_}++ if m{\.t$};
        } @{ $self->tests };

        map {
                if ( m{(.+)\.pm$} ) {
                        my $class = $1;
                        $class =~ s{^lib/}{};
                        $class =~ s{/}{::}g;
                        warn "extract tests from $_ class $class";
                        $tests->{$_}++ foreach Frey::PPI->new( class => $class )->has_tests;
                }
        } @{ $self->tests };

        my @tests = grep {
                ! m{$0} # break recursion       
        } sort keys %$tests;
        die "no tests for files ", dump( $self->tests ),dump( $tests ) unless @tests;

        warn "testing ",dump( @tests );
        $h->runtests( @tests );

        $self->store( 'var/test/' . time() . '.yaml', $h );

        my $html = ${ $f->html };
#       warn $html;
        warn "got ",length($html), " bytes";
#       $html =~ s{^.*<body>}{}s;
#       $html =~ s{</body>.*$}{}s;
        return $self->editor_links( $html );
}

1;
1	package Frey::Test::Runner;
2	use Moose;
3
4	extends 'Frey';
5	with 'Frey::Web';
6	with 'Frey::Storage';
7
8	use TAP::Harness;
9	use TAP::Formatter::HTML;
10	use Data::Dump qw/dump/;
11
12	use Frey::SVK;
13	use Frey::PPI;
14
15	has tests => (
16	is => 'rw',
17	isa => 'ArrayRef[Str]',
18	required => 1,
19	lazy => 1, # FIXME ask users which tests to run
20	default => sub {
21	# [ glob('t/*.t') ] # all tests
22	[ Frey::SVK->modified ]
23	},
24	);
25
26	sub as_markup {
27	my ($self) = @_;
28
29	my $f = TAP::Formatter::HTML->new({
30	# silent => 1,
31
32	inline_css => 1,
33	inline_js => 0,
34	});
35	my $h = TAP::Harness->new({
36	merge => 1,
37	formatter => $f,
38	});
39
40	my $tests;
41
42	map {
43	$tests->{$_}++ if m{\.t$};
44	} @{ $self->tests };
45
46	map {
47	if ( m{(.+)\.pm$} ) {
48	my $class = $1;
49	$class =~ s{^lib/}{};
50	$class =~ s{/}{::}g;
51	warn "extract tests from $_ class $class";
52	$tests->{$_}++ foreach Frey::PPI->new( class => $class )->has_tests;
53	}
54	} @{ $self->tests };
55
56	my @tests = grep {
57	! m{$0} # break recursion
58	} sort keys %$tests;
59	die "no tests for files ", dump( $self->tests ),dump( $tests ) unless @tests;
60
61	warn "testing ",dump( @tests );
62	$h->runtests( @tests );
63
64	$self->store( 'var/test/' . time() . '.yaml', $h );
65
66	my $html = ${ $f->html };
67	# warn $html;
68	warn "got ",length($html), " bytes";
69	# $html =~ s{^.*<body>}{}s;
70	# $html =~ s{</body>.*$}{}s;
71	return $self->editor_links( $html );
72	}
73
74	1;