--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/_test/Test/Object/List.pm	Tue Aug 11 17:45:52 2009 +0400
@@ -0,0 +1,32 @@
+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;