diff Lib/IMPL/Test.pm @ 84:e568c7c8b743

Minor changes to the test infrastructure
author wizard
date Wed, 14 Apr 2010 17:38:11 +0400
parents 16ada169ca75
children f8de52d3c112
line wrap: on
line diff
--- a/Lib/IMPL/Test.pm	Tue Apr 13 20:27:56 2010 +0400
+++ b/Lib/IMPL/Test.pm	Wed Apr 14 17:38:11 2010 +0400
@@ -2,9 +2,11 @@
 use strict;
 use warnings;
 
+require IMPL::Test::SkipException;
+
 require Exporter;
 our @ISA = qw(Exporter);
-our @EXPORT_OK = qw(&test &shared &failed &cmparray);
+our @EXPORT_OK = qw(&test &shared &failed &cmparray &skip);
 
 require IMPL::Test::Unit;
 use IMPL::Class::Member;
@@ -34,6 +36,10 @@
     die new IMPL::Test::FailException(@_);
 }
 
+sub skip($;@) {
+	die new IMPL::Test::SkipException(@_);
+}
+
 sub cmparray {
     my ($a,$b) = @_;