Make sure a2x and gzip are available when needed

Author: Tyil

lib/App/Cpan6/Commands/Bootstrap/Man.pm6

@@ -34,7 +34,8 @@ multi sub MAIN(
 	my $destination = "$dir/man" ~ $page.split(".")[*-1] ~ "/$page.gz";
 
 	die "Invalid source $page" unless $source;
-	die "a2x is not installed" unless which("a2x");
+	die "'a2x' is not available on this system" unless which("a2x");
+	die "'gzip' is not available on this system" unless which("gzip");
 
 	chdir $source.IO.parent.path;
 

t/command-bootstrap-man.t

@@ -8,10 +8,20 @@ use App::Cpan6::Commands::New;
 use App::Cpan6::Config;
 use Test;
 
-plan 2;
+if (!which("a2x")) {
+	note "'a2x' is not available";
+	done-testing;
+}
+
+if (!which("gzip")) {
+	note "'gzip' is not available";
+	done-testing;
+}
 
 multi sub MAIN { 0 }
 
+plan 2;
+
 my $root = tempdir;
 
 chdir $root;