view _test/Test/Object/List.pm @ 24:7f00786f8210

Первая рабочая реазизация схемы и навигаторов
author Sergey
date Mon, 05 Oct 2009 00:48:49 +0400
parents 2e546a5175dd
children 16ada169ca75
line wrap: on
line source

package Test::Object::List;
use strict;
use warnings;

use base qw(IMPL::Test::Unit);
use IMPL::Test qw(test cmparray failed);
use IMPL::Object::List;
__PACKAGE__->PassThroughArgs;

test Creation => sub {
    my $list = new IMPL::Object::List();
    
    failed "Failed to create an empty list" unless $list;
};

test FilledByRef => sub {
    my $data = [map rand 100, 1 .. 300];
    my $list = new IMPL::Object::List($data);
    
    failed("List filled incorrectlty") unless cmparray($data,$list);
};

test FilledByWrongRef => sub {
    eval {
        my $list = new IMPL::Object::List({});
    };
    unless ($@) {
        failed("List can be initialized only by an ARRAY reference");
    }
};

1;