git.shiar.nl
/
barcat.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
logarithmic repeat markers multiply by 10
[barcat.git]
/
t
/
examples.t
diff --git
a/t/examples.t
b/t/examples.t
index cfe0e3f73e2c75e76618c47389933c1306015b55..0f313ece5b636417432a3382653e4f7f705eed8f 100755
(executable)
--- a/
t/examples.t
+++ b/
t/examples.t
@@
-11,8
+11,10
@@
use Test::More;
}
my %CMDARGS = (
}
my %CMDARGS = (
- ping => '-c 1',
+ ping => '-c 1
',
'cat \Khttpd/' => '/var/log/apache2/',
'cat \Khttpd/' => '/var/log/apache2/',
+ ' \K\*(?=\h*\|)' => 'sample/media/*.*',
+ find => 'sample/media -name \*.\* ',
);
my $filename = 'barcat';
);
my $filename = 'barcat';
@@
-68,8
+70,8
@@
SKIP: {
# prepare shell command to execute
while (my ($subcmd, $args) = each %CMDARGS) {
# prepare shell command to execute
while (my ($subcmd, $args) = each %CMDARGS) {
- $subcmd .= " \\K"
, $args .= ' '
unless $subcmd =~ m/\\K/;
- $cmd =~ s/
\b
$subcmd/$args/;
+ $subcmd .= " \\K" unless $subcmd =~ m/\\K/;
+ $cmd =~ s/$subcmd/$args/;
}
for my $param ($cmd =~ m{^[(\h]* (\w\S*)}gx) {
}
for my $param ($cmd =~ m{^[(\h]* (\w\S*)}gx) {