From 141c9fb71c7518712be67fdf06a6c7e843eccc18 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 3 Jul 2019 20:29:01 -0700 Subject: [PATCH] devops: Tolerate make check failures. --- src/devops/devops.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/devops/devops.scm b/src/devops/devops.scm index b6b25ae7d..154996276 100644 --- a/src/devops/devops.scm +++ b/src/devops/devops.scm @@ -855,7 +855,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (trun "cd src/ && make tags") (trun "cd src/ && make all") (lndir "../tests") - (trun "cd src/ && make check") + (trun-noerror "cd src/ && make check") (trun "cd src/ && umask 022 && make install") (let ((plugin-errors @@ -991,6 +991,13 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (log "# "(emacs-friendly-timestamp)"\n") (apply run strings)) +(define (trun-noerror . strings) + (log "# "(emacs-friendly-timestamp)"\n") + (let* ((cmdln (string* strings)) + (status (run-noerror cmdln))) + (if (not (zero? status)) + (warn "Shell command failed:" status cmdln)))) + (define (emacs-friendly-timestamp) (let ((dt (local-decoded-time))) (define (pad num) (string-pad-left (number->string num) 2 #\0)) -- 2.25.1