File Coverage

blib/lib/Test/C2FIT/TimedActionFixture.pm

Criterion	Covered	Total	%
statement	9	30	30.0
branch			n/a
condition			n/a
subroutine	3	8	37.5
pod	0	5	0.0
total	12	43	27.9

# $Id: TimedActionFixture.pm,v 1.8 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::TimedActionFixture;

use base 'Test::C2FIT::ActionFixture';
use strict;
use Test::C2FIT::Parse;

sub doTable {
    my $self = shift;
    my ($table) = shift;

    $self->SUPER::doTable($table);
    $table->parts()->parts()->last()->more( $self->td("time") );
    $table->parts()->parts()->last()->more( $self->td("split") );
}

sub formatTime($) {
    my ($value) = @_;
    my @t = localtime($value);
    my $r = sprintf( "%2d:%02d:%02d", $t[2], $t[1], $t[0] );

    #    warn "SSS: $r\n";
    return $r;
}

sub doCells {
    my $self    = shift;
    my ($cells) = @_;
    my $start   = $self->time();
    $self->SUPER::doCells($cells);
    my $split = $self->time() - $start;
    $cells->last()->more( $self->td( formatTime($start) ) );
    $cells->last()->more( $self->td($split) );    #TBD format?
}

sub time {
    my $self = shift;
    return CORE::time();
}

sub td {
    my $self = shift;
    my ($body) = @_;
    return Test::C2FIT::Parse->from( "td", $self->info($body), undef, undef );
}

1;

__END__