From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 13 Mar 2021 03:59:43 +0000 (+0100)
Subject: adjust example commands for testing
X-Git-Tag: v1.08~26
X-Git-Url: http://git.shiar.net/barcat.git/commitdiff_plain/38eb915e53017bb02788efc30a8650a8b322a753?ds=sidebyside

adjust example commands for testing
---

diff --git a/t/examples.t b/t/examples.t
index 19c1377..cd7f1b3 100755
--- a/t/examples.t
+++ b/t/examples.t
@@ -3,6 +3,12 @@ use 5.014;
 use warnings;
 use Test::More;
 
+my %CMDARGS = (
+	ping => '-c 1',
+	curl => '-sS',
+	'cat \Klog/' => '/var/log/apache2/',
+);
+
 my $filename = 'barcat';
 open my $input, '<', $filename
 	or die "Cannot read documentation from $filename script\n";
@@ -14,7 +20,13 @@ while (readline $input) {
 	chomp;
 
 	my ($name) = /[\h(]*([^|]+)/;
-	ok(qx($_), $name);
+
+	my $cmd = $_;
+	while (my ($subcmd, $args) = each %CMDARGS) {
+		$subcmd .= " \\K", $args .= ' ' unless $subcmd =~ m/\\K/;
+		$cmd =~ s/\b$subcmd/$args/;
+	}
+	ok(qx($cmd), $name);
 }
 
 done_testing();