--- a/_test/object.t	Mon Aug 10 17:39:08 2009 +0400
+++ b/_test/object.t	Tue Aug 11 17:45:52 2009 +0400
@@ -1,30 +1,16 @@
 #!/usr/bin/perl -w
 use strict;
 use lib '../Lib';
-
-package Foo;
-use base qw(IMPL::Object);
+use lib '.';
 
-sub CTOR {
-    my ($this,%args) = @_;
-    print "CTOR Foo says $args{Name}\n";
-}
-
-sub Hello {
-    print "\tHello\n";
-}
+use IMPL::Test::Plan;
+use IMPL::Test::TAPListener;
 
-package Bar;
-use base qw(Foo);
-
-__PACKAGE__->PassThroughArgs;
+my $plan = new IMPL::Test::Plan qw(
+    Test::Object::Common
+    Test::Object::List
+);
 
-sub CTOR {
-    print "CTOR Bar\n";
-}
-
-package main;
-
-my $obj = new Bar ( Name => 'Tom') ;
-
-Hello $obj;
\ No newline at end of file
+$plan->AddListener(new IMPL::Test::TAPListener);
+$plan->Prepare();
+$plan->Run();