# HG changeset patch
# User wizard
# Date 1293403064 -10800
# Node ID f8de52d3c112ddf15137c95e3a96ef21b33257a9
# Parent  a9f4ba4783eb094e1c21bb719683950bbcbd1804
IMPL::Test::Unit minor changes

diff -r a9f4ba4783eb -r f8de52d3c112 Lib/IMPL/Test.pm
--- a/Lib/IMPL/Test.pm	Tue Nov 02 20:17:22 2010 +0300
+++ b/Lib/IMPL/Test.pm	Mon Dec 27 01:37:44 2010 +0300
@@ -6,9 +6,11 @@
 
 require Exporter;
 our @ISA = qw(Exporter);
-our @EXPORT_OK = qw(&test &shared &failed &cmparray &skip);
+our @EXPORT_OK = qw(&test &shared &failed &cmparray &skip &run_plan);
 
 require IMPL::Test::Unit;
+require IMPL::Test::Plan;
+require IMPL::Test::TAPListener;
 use IMPL::Class::Member;
 
 sub test($$) {
@@ -51,4 +53,14 @@
     
     return 1;
 }
+
+sub run_plan {
+	my (@units) = @_;
+	
+	my $plan = new IMPL::Test::Plan(@units);
+	
+	$plan->Prepare;
+	$plan->AddListener(new IMPL::Test::TAPListener);
+	$plan->Run;
+}
 1;
diff -r a9f4ba4783eb -r f8de52d3c112 Lib/IMPL/Test/Unit.pm
--- a/Lib/IMPL/Test/Unit.pm	Tue Nov 02 20:17:22 2010 +0300
+++ b/Lib/IMPL/Test/Unit.pm	Mon Dec 27 01:37:44 2010 +0300
@@ -32,10 +32,6 @@
     $self->toString;
 }
 
-sub Setup {
-    1;
-}
-
 sub Cleanup {
     my ($this,$session) = @_;
     
@@ -74,7 +70,6 @@
     my $t = [gettimeofday];
     return try {
         $this->InitTest($session);
-        $this->Setup;
         my $code = $this->Code;