Mercurial > pub > Impl
annotate _test/object.t @ 175:9057e4b95d10
corrected cloning method
| author | sourcer |
|---|---|
| date | Wed, 05 Oct 2011 00:48:43 +0300 |
| parents | 76515373dac0 |
| children | ad93c9f4dd93 |
| rev | line source |
|---|---|
| 49 | 1 #!/usr/bin/perl -w |
| 2 use strict; | |
| 3 use lib '../Lib'; | |
| 4 use lib '.'; | |
| 5 | |
| 6 use IMPL::Test::Plan; | |
| 7 use IMPL::Test::TAPListener; | |
| 8 | |
| 9 my $plan = new IMPL::Test::Plan qw( | |
| 90 | 10 Test::Class::Meta |
| 165 | 11 Test::Class::Template |
| 49 | 12 Test::Object::Common |
| 13 Test::Object::List | |
| 164 | 14 Test::Object::Fields |
| 49 | 15 ); |
| 16 | |
| 17 $plan->AddListener(new IMPL::Test::TAPListener); | |
| 18 $plan->Prepare(); | |
| 19 $plan->Run(); |