skip_all_meta for optionally skipping entire files
Arthur Axel 'fREW' Schmidt [Sat, 5 Sep 2009 06:48:52 +0000 (01:48 -0500)]
t/lib/MetaTest.pm

index 7f0e678..f7a571d 100644 (file)
@@ -2,7 +2,7 @@ package MetaTest;
 
 use Exporter 'import';
 use Test::More;
-our @EXPORT = qw{skip_meta meta_can_ok};
+our @EXPORT = qw{skip_meta meta_can_ok skip_all_meta};
 
 sub SKIP_META_MESSAGE() {
    'meta-tests disabled';
@@ -12,6 +12,12 @@ sub skip_meta_condition {
    $ENV{SKIP_META_TESTS};
 }
 
+sub skip_all_meta {
+   my $plan = shift;
+    plan skip_all => SKIP_META_MESSAGE if skip_meta_condition;
+    plan tests => $plan;
+}
+
 sub skip_meta (&$) {
    my $fn = shift;
    my $amount = shift;