moose-class/exercises/answers/test_answers.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use FindBin;
   7 use TAP::Harness;
   8
   9
  10 my $harness = TAP::Harness->new(
  11     {
  12         failures => 1,
  13         exec     => sub {
  14             my ( undef, $testfile ) = @_;
  15
  16             my ($number) = $testfile =~ m{^t/(\d+)};
  17
  18             return [ $^X, $testfile ] if $number eq '00';
  19
  20             my ($libdir) = glob "answers/$number-*"
  21                 or die "Cannot find an answer dir for $testfile";
  22
  23             [ $^X, "-I$libdir", $testfile ];
  24         },
  25     }
  26 );
  27
  28 chdir "$FindBin::RealBin/../";
  29 $harness->runtests( sort glob 't/*.t' );