accept deletion of files

diff --git a/_testing/_irssi_test.pl b/_testing/_irssi_test.pl
index 4738d02b070a1f472e04daefdcae7aba866afcae..572d2709d04c05e054f0a0ad7561eeb027679b3a 100644 (file)
--- a/_testing/_irssi_test.pl
+++ b/_testing/_irssi_test.pl
@@ -21,6 +21,12 @@ if ((@tmp = grep /^\Q$tp\E::/, @packages) or (@tmp = grep /^\Q$tp\E/, @packages)
 }
 my ($package) = @packages;
 
+require Carp;
+$Carp::CarpInternal{ 'Irssi::Core' }++;
+$Carp::Internal{ (__PACKAGE__) }++;
+$Carp::Internal{ 'Perl::PrereqScanner' }++;
+$Carp::MaxEvalLen = 3;
+
 require YAML::Tiny;
 YAML::Tiny->VERSION("1.59");
 require Encode;

diff --git a/_testing/report-test.zsh b/_testing/report-test.zsh
index d3217ed00bb2e7da259fb4f1f692c392d5bd29a9..130374e5315ba334e1d0a12aa1a2a426a8ed31b8 100755 (executable)
--- a/_testing/report-test.zsh
+++ b/_testing/report-test.zsh
@@ -60,7 +60,7 @@ for scriptfile ($filelist) {
     perl -ne '$score += $1 -1 if /Severity: (\d+)/; END { printf "%3d", $score }' "Test/${scriptfile:t:r}/perlcritic.log" 2>/dev/null
     print -n '   '$T
     if [[ $pass -lt 3 ]]  {
-       if [[ -n $allow_fail[$scriptfile:t:r] ]] {
+       if [[ -n $allow_fail[$scriptfile:t:r] ]] || [[ ! -f scripts/${scriptfile:t:r}.pl ]] {
            print -n '  '$skipmark'   '
        } \
        else {

diff --git a/_testing/run-test.zsh b/_testing/run-test.zsh
index 5a508f52697238c06dbda01485c08cc763ec6c9f..11ef11622a4e1ad7156a06b990f1eb74d150e36a 100755 (executable)
--- a/_testing/run-test.zsh
+++ b/_testing/run-test.zsh
@@ -7,7 +7,11 @@ local test_script="$base_path/_testing/_irssi_test.pl"
 for scriptfile ($filelist) {
     rm -rf "Test/${scriptfile:t:r}"
     mkdir -p "Test/${scriptfile:t:r}"
-    perlcritic --theme certrule --exclude RequireEndWithOne -2 $scriptfile >"Test/${scriptfile:t:r}/perlcritic.log" 2>&1
+    if [[ ! -f scripts/${scriptfile:t:r}.pl ]] {
+       {echo "command not found: script ${scriptfile:t:r}";echo "test skipped"} >"Test/${scriptfile:t:r}/perlcritic.log"
+       continue
+    }
+    perlcritic --theme certrule --exclude RequireEndWithOne -2 scripts/${scriptfile:t:r}.pl >"Test/${scriptfile:t:r}/perlcritic.log" 2>&1
     pushd Test
     rm -fr .home
     mkdir .home