Commit | Line | Data |
58e5f081 |
1 | #!/usr/bin/env perl |
1f9a53e7 |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use autodie qw( :all ); |
6 | |
7 | use Path::Class qw( dir ); |
8 | |
9 | system( qw( prove -v t/00-prereq.t ) ); |
10 | |
11 | for my $t_file ( |
12 | sort grep { !$_->is_dir() && $_->basename() =~ /^(?:0[1-9]|[1-9])/ } |
13 | dir('t')->children() ) { |
14 | |
15 | ( my $t_less = $t_file->basename() ) =~ s/\.t$//; |
16 | |
17 | my $lib = dir('answers')->subdir($t_less); |
18 | |
19 | die "No lib dir for $t_file" unless -d $lib; |
20 | |
21 | system( 'prove', '-I', $lib, '-v', $t_file ); |
22 | } |