[gitmo/moose-presentations.git] / moose-class / exercises / test-all-answers

#!/usr/bin/env perl

use strict;
use warnings;
use autodie qw( :all );

use Path::Class qw( dir );

system( qw( prove -v t/00-prereq.t ) );

for my $t_file (
    sort grep { !$_->is_dir() && $_->basename() =~ /^(?:0[1-9]|[1-9])/ }
    dir('t')->children() ) {

    ( my $t_less = $t_file->basename() ) =~ s/\.t$//;

    my $lib = dir('answers')->subdir($t_less);

    die "No lib dir for $t_file" unless -d $lib;

    system( 'prove', '-I', $lib, '-v', $t_file );
}
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	}