/mandos/trunk

To get this branch, use:
bzr branch http://bzr.recompile.se/loggerhead/mandos/trunk

« back to all changes in this revision

Viewing changes to mandos-ctl

  • Committer: Teddy Hogeborn
  • Date: 2022-04-24 16:02:58 UTC
  • Revision ID: teddy@recompile.se-20220424160258-gotwyiwtvzi053hc
Fix testing code to handle abnormal exits

* mandos (Local variables/run-tests-in-test-buffer): Handle abnormal
  exit (i.e. exit caused by a signal) of process running tests.
* mandos-ctl (Local variables/run-tests-in-test-buffer): - '' -

Show diffs side-by-side

added added

removed removed

Lines of Context:
mandos-ctl
2858
2858
#           default-directory dir)
2859
2859
#     (erase-buffer)
2860
2860
#     (compilation-mode))
2861
 
#   (let ((inhibit-read-only t))
2862
 
#     (= (process-file-shell-command
2863
 
#         (funcall get-command-line extra)
2864
 
#         nil "*Test*") 0)))
 
2861
#   (let ((process-result
 
2862
#          (let ((inhibit-read-only t))
 
2863
#            (process-file-shell-command
 
2864
#             (funcall get-command-line extra) nil "*Test*"))))
 
2865
#     (and (numberp process-result)
 
2866
#          (= process-result 0))))
2865
2867
# get-command-line:
2866
2868
# (lambda (&optional extra)
2867
2869
#   (let ((quoted-script