/[Frey]/trunk/lib/Frey/Test/Runner.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /trunk/lib/Frey/Test/Runner.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 486 - (hide annotations)
Mon Nov 24 15:36:00 2008 UTC (15 years, 4 months ago) by dpavlin
File size: 993 byte(s)
use Frey::SVK to test just modified tests by default
1 dpavlin 484 package Frey::Test::Runner;
2     use Moose;
3    
4     extends 'Frey';
5     with 'Frey::Web';
6 dpavlin 486 with 'Frey::Storage';
7 dpavlin 484
8     use TAP::Harness;
9     use TAP::Formatter::HTML;
10     use Data::Dump qw/dump/;
11    
12 dpavlin 486 use Frey::SVK;
13    
14 dpavlin 484 has tests => (
15     is => 'rw',
16     isa => 'ArrayRef[Str]',
17     required => 1,
18     lazy => 1, # FIXME ask users which tests to run
19 dpavlin 486 default => sub {
20     # [ glob('t/*.t') ] # all tests
21     [ Frey::SVK->modified ]
22     },
23 dpavlin 484 );
24    
25     sub as_markup {
26     my ($self) = @_;
27    
28     my $f = TAP::Formatter::HTML->new({
29     silent => 1,
30    
31     inline_css => 1,
32     inline_js => 1,
33     });
34     my $h = TAP::Harness->new({
35     merge => 1,
36     formatter => $f,
37     });
38    
39 dpavlin 486 my @tests =
40     grep { ! m{$0} } # FIXME privitive way to break recursion
41     grep { m{\.t$} } # take just tests
42     @{ $self->tests };
43 dpavlin 484 warn "testing ",dump( @tests );
44     $h->runtests( @tests );
45    
46 dpavlin 486 $self->store( 'var/test.yaml', $h );
47    
48 dpavlin 484 my $html = ${ $f->html };
49     # warn $html;
50     warn "got ",length($html), " bytes";
51     # $html =~ s{^.*<body>}{}s;
52     # $html =~ s{</body>.*$}{}s;
53     return $self->editor_links( $html );
54     }
55    
56     1;

  ViewVC Help
Powered by ViewVC 1.1.26