From 38eb915e53017bb02788efc30a8650a8b322a753 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Sat, 13 Mar 2021 04:59:43 +0100 Subject: [PATCH] adjust example commands for testing --- t/examples.t | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) 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(); -- 2.30.0