File Coverage

blib/lib/Test/C2FIT/ActionFixture.pm

Criterion	Covered	Total	%
statement	15	47	31.9
branch	0	8	0.0
condition			n/a
subroutine	5	14	35.7
pod	0	7	0.0
total	20	76	26.3

# $Id: ActionFixture.pm,v 1.6 2006/06/16 15:20:56 tonyb Exp $
#
# Copyright (c) 2002-2005 Cunningham & Cunningham, Inc.
# Released under the terms of the GNU General Public License version 2 or later.
#
# Perl translation by Dave W. Smith
# Modified by Tony Byrne

package Test::C2FIT::ActionFixture;

use base 'Test::C2FIT::Fixture';

use strict;
use Test::C2FIT::TypeAdapter;
use Error qw( :try );

use vars qw($actor);
$actor = undef;

sub new {
    my $pkg = shift;
    return $pkg->SUPER::new( cells => undef, empty => undef, @_ );
}

sub doCells {
    my $self = shift;
    my ($cells) = @_;

    $self->{'cells'} = $cells;
    try {

        # N.B. "do_" is prepended to avoid a method collision on "check"
        my $method = "do_" . $cells->text();
        $self->$method();
      }
      otherwise {
        my $e = shift;
        $self->exception( $cells, $e );
      };
}

# Actions

sub do_start {
    my $self = shift;
    my $pkg  = $self->{'cells'}->more()->text();
    $actor = $self->_createNewInstance($pkg);
}

sub do_enter {
    my $self = shift;

    throw Test::C2FIT::Exception("no actor") unless defined($actor);

    my $method      = $self->method();
    my $text        = $self->{'cells'}->more()->more()->text();
    my $typeAdapter = Test::C2FIT::TypeAdapter->onSetter( $actor, $method );
    $actor->$method( $typeAdapter->parse($text) );
}

sub do_press {
    my $self   = shift;
    my $method = $self->method();
    $actor->$method();
}

sub do_check {
    my $self = shift;

    throw Test::C2FIT::Exception("no actor") unless defined($actor);
    my $method = $self->method();
    my $adapter = Test::C2FIT::TypeAdapter->onMethod( $actor, $self->method() );
    $self->check( $self->{'cells'}->more()->more(), $adapter );
}

# Utility

sub method {
    my $self   = shift;
    my $method = $self->camel( $self->{'cells'}->more()->text() );
    throw Test::C2FIT::Exception("no actor") unless defined($actor);
    throw Test::C2FIT::Exception("no such method: $method on $actor\n")
      unless $actor->can($method);
    return $method;
}

1;

=pod

=head1 NAME

Test::C2FIT::ActionFixture - An action fixture interprets rows as a sequence of commands to be performed in order.

=head1 SYNOPSIS

Normally, you do not use this class directly, rather you use its name in your FIT-document.

=head1 SEE ALSO

Extensive and up-to-date documentation on FIT can be found at:
http://fit.c2.com/


=cut

__END__