version 1.9, 2018/12/16 00:17:04 |
version 1.11, 2019/07/01 22:56:26 |
Line 27 use IPC::Open3 qw(open3); |
|
Line 27 use IPC::Open3 qw(open3); |
|
# Define this at one place such that it can easily be changed |
# Define this at one place such that it can easily be changed |
# if diff(1) does not support the -a option. |
# if diff(1) does not support the -a option. |
my @diff = qw(diff -au); |
my @diff = qw(diff -au); |
|
system @diff, '/dev/null', '/dev/null' and @diff = qw(diff -u); |
|
|
# --- utility functions ------------------------------------------------ |
# --- utility functions ------------------------------------------------ |
|
|
Line 423 if ($count_total == 1) { |
|
Line 424 if ($count_total == 1) { |
|
print "\n"; |
print "\n"; |
} else { |
} else { |
print "No tests were run.\n"; |
print "No tests were run.\n"; |
} |
} |
if ($targets{clean}) { |
if ($targets{clean}) { |
if ($count_rm) { |
if ($count_rm) { |
print "Deleted $count_rm test output files.\n"; |
print "Deleted $count_rm test output files.\n"; |