--- 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) = @_;