#!/usr/bin/perl -w

use strict;

use Test::More qw(no_plan);
use Data::Dumper;
use Log::Log4perl qw(:levels);

use HPA::LT_Utils::File; # the module under test

Log::Log4perl->init_and_watch('generic_log.conf', 10);

my $logger = get_logger('File');

my $file = HPA::LT_Utils::File->new(undef);

is(scalar @{$file->[HPA::LT_Utils::File::_CP]}, 0) or $logger->debug(Dumper($file)); # check internal state
is($file->output, '') or $logger->debug('the output() method seems to have been borked - ', Dumper($file)); # check interface correctness
...

##</code><code>##

# test requirement X
is(....);
is(....);
is(....);

$logger->debug('X OK, now test Y ', Dumper($obj));
# test requirement Y
is(....);
is(....);
is(....);