moose-class/exercises/test-all-answers

   1 #!/usr/bin/env perl
   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 }