More Test::DescribeMe

nigelhorne · Nov 22, 2024 · ea8869e · ea8869e
1 parent 392f177
commit ea8869e
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 19 deletions.
diff --git a/t/no404s.t b/t/no404s.t
@@ -1,16 +1,11 @@
-#!perl -wT
+#!perl -w
 
 use strict;
 use warnings;
+
+use Test::DescribeMe qw(author);
 use Test::Most;
+use Test::Needs 'Test::Pod::No404s';
 
-if($ENV{AUTHOR_TESTING}) {
-	eval 'use Test::Pod::No404s';
-	if($@) {
-		plan(skip_all => 'Test::Pod::No404s required for testing POD');
-	} else {
-		all_pod_files_ok();
-	}
-} else {
-	plan(skip_all => 'Author tests not required for installation');
-}
+Test::Pod::No404s->import();
+all_pod_files_ok();
diff --git a/t/noplan.t b/t/noplan.t
@@ -3,15 +3,13 @@
 use strict;
 use warnings;
 
+use Test::DescribeMe qw(author);
 use Test::Most;
 
-if($ENV{AUTHOR_TESTING}) {
-	eval 'use Test::NoPlan qw / all_plans_ok /';
-	if($@) {
-		plan(skip_all => 'Test::NoPlan required for test verification');
-	} else {
-		all_plans_ok();
-	}
+eval 'use Test::NoPlan qw / all_plans_ok /';
+
+if($@) {
+	plan(skip_all => 'Test::NoPlan required for test verification');
 } else {
-	plan(skip_all => 'Author tests not required for installation');
+	all_plans_ok();
 }