File Coverage

blib/lib/Test/C2FIT/PrimitiveFixture.pm

Criterion	Covered	Total	%
statement	9	14	64.2
branch	0	2	0.0
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	21	61.9

# $Id: PrimitiveFixture.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::PrimitiveFixture;

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

sub checkValue {
    my $self = shift;
    my ( $cell, $value ) = @_;

    if ( Test::C2FIT::TypeAdapter->equals( $cell->text(), $value ) ) {
        $self->right($cell);
    }
    else {
        $self->wrong( $cell, $value );
    }
}

1;

__END__