Test::AutoBuild::Stage::Iterator - Run a set of stages for each module

  use Test::AutoBuild::Stage::Iterator

  {
    name = build
    label = Build iterator
    module = Test::AutoBuild::Stage::Iterator
    # Don't abort entire cycle if the module build fails
    critical = 0
    stages = (
      # Basic build
      {
	name = build
	label = Build
	module = Test::AutoBuild::Stage::Build
	options = {
	  ...snip build options...
	}
      }
      # Status pages
      {
	name = html
	label = HTML status pages
	module = Test::AutoBuild::Stage::HTMLStatus
	options = {
	  ...snip status options...
	}
      }
    )
  }

# -*- perl -*-
#
# Test::AutoBuild::Stage::Iterator
#
# Daniel Berrange <dan@berrange.com>
# Dennis Gregorovic <dgregorovic@alum.mit.edu>
#
# Copyright (C) 2004 Red Hat, Inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
# $Id: Iterator.pm,v 1.12 2007/12/08 17:35:16 danpb Exp $

package Test::AutoBuild::Stage::Iterator;

use base qw(Test::AutoBuild::Stage);
use warnings;
use strict;
use Log::Log4perl;

sub init {
    my $self = shift;
    my %params = @_;

    $self->SUPER::init(@_);

    $self->{stages} = exists $params{stages} ? $params{stages} : [];
    $self->{module_results} = {};
}

sub stages {
    my $self = shift;
    return @{$self->{stages}};
}

sub add_stage {
    my $self = shift;
    my $stage = shift;
    push @{$self->{stages}}, $stage;
}



sub prepare {
    my $self = shift;
    my $runtime = shift;
    my $context = shift;

    die "cannot nest iterators" if defined $context;


    my $result = $self->SUPER::prepare($runtime, $context);

    my @ordered_modules = $runtime->sorted_modules();
    foreach my $name (@ordered_modules) {
	my $modres = Test::AutoBuild::Result->new(name => $self->name . " [$name]",
						  label => $self->label . " [" . $runtime->module($name)->label . "]");
	$result->add_result($modres);
	$self->{module_results}->{$name} = $modres;

	foreach my $stage ($self->stages) {
	    my $subres = $stage->prepare($runtime, $name);
	    $modres->add_result($subres);
	}
    }
    return $result;
}

sub process {
    my $self = shift;
    my $runtime = shift;

    my $log = Log::Log4perl->get_logger();
    my @ordered_modules = $runtime->sorted_modules();

    if ($log->is_debug()) {
	$log->debug("Iterator module order: " . join("\n  ", @ordered_modules) . "\nEnd");
    }

    foreach my $name (@ordered_modules) {
	my $failed = 0;
	my $start = time;
	foreach my $stage (@{$self->{stages}}) {
	    $stage->run($runtime, $name);
	    if ($stage->aborted()) {
		die $stage->log;
	    } elsif ($stage->failed()) {
		if ($stage->is_critical()) {
		    $self->fail("stage " . $stage->name() . " " . $stage->log());
		    return;
		} else {
		    $failed = 1;
		}
	    }
	}
	my $modres = $self->{module_results}->{$name};
	$modres->status($failed ? "failed" : "success");
	$modres->log($failed ? "one or more stages failed" : "");
	$modres->start_time($start);
	$modres->end_time(time);
    }
}

1 # So that the require or use succeeds.

__END__