From: Ailin Nemui <redacted>
Date: Thu, 29 Mar 2018 14:24:50 +0000 (+0200)
Subject: accept deletion of files
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=fbf2de2b07e88cc20e1eb2c6ce653fc5f6d1d9cf;p=irssi-scripts.irssi.org.git

accept deletion of files
---

diff --git a/_testing/_irssi_test.pl b/_testing/_irssi_test.pl
index 4738d02..572d270 100644
--- 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 d3217ed..130374e 100755
--- 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 5a508f5..11ef116 100755
--- 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