lib/Gruntmaster/Daemon/Generator/Run.pm

   1 package Gruntmaster::Daemon::Generator::Run;
   2
   3 use 5.014000;
   4 use strict;
   5 use warnings;
   6
   7 use Log::Log4perl qw/get_logger/;
   8
   9 our $VERSION = '5999.000_001';
  10
  11 ##################################################
  12
  13 sub generate{
  14   my ($test, $meta) = @_;
  15   my $gen = $meta->{files}{gen};
  16   get_logger->trace("Generating test $test...");
  17   $gen->{run}->($gen->{name}, args => [ $test ], fds => [qw/1 >input/]);
  18 }
  19
  20 1;
  21 __END__
  22
  23 =encoding utf-8
  24
  25 =head1 NAME
  26
  27 Gruntmaster::Daemon::Generator::Run - Generate tests from program output
  28
  29 =head1 SYNOPSIS
  30
  31   use Gruntmaster::Daemon::Generator::Run;
  32   Gruntmaster::Daemon::Generator::Run->generate(5, $meta);
  33
  34 =head1 DESCRIPTION
  35
  36 Gruntmaster::Daemon::Generator::Run is a dynamic test generator. Test C<$i> is the output of running C<< $meta->{files}{gen} >> with argument C<$i>.
  37
  38 =head1 AUTHOR
  39
  40 Marius Gavrilescu E<lt>marius@ieval.roE<gt>
  41
  42 =head1 COPYRIGHT AND LICENSE
  43
  44 Copyright (C) 2014 by Marius Gavrilescu
  45
  46 This library is free software: you can redistribute it and/or modify
  47 it under the terms of the GNU Affero General Public License as published by
  48 the Free Software Foundation, either version 3 of the License, or
  49 (at your option) any later version.
  50
  51
  52 =cut