diff Lib/IMPL/Test.pm @ 159:f8de52d3c112

IMPL::Test::Unit minor changes
author wizard
date Mon, 27 Dec 2010 01:37:44 +0300
parents e568c7c8b743
children 76515373dac0
line wrap: on
line diff
--- 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;