Megatest

Diff
Login

Differences From Artifact [eedc08b57c]:

To Artifact [7f265d3900]:


646
647
648
649
650
651
652




653




      ;; (megatest-gui)
      (set! *didsomething* #t)))

(if (not *didsomething*)
    (print help))

(if (not (eq? *globalexitstatus* 0))




    (exit *globalexitstatus*))











>
>
>
>
|
>
>
>
>
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
      ;; (megatest-gui)
      (set! *didsomething* #t)))

(if (not *didsomething*)
    (print help))

(if (not (eq? *globalexitstatus* 0))
    (if (or (args:get-arg "-runtests")(args:get-arg "-runall"))
        (begin
           (print "NOTE: Subprocesses with non-zero exit code detected: " *globalexitstatus*)
           (exit 0))
        (case *globalexitstatus*
         ((0)(exit 0))
         ((1)(exit 1))
         ((2)(exit 2))
         (else (exit 3)))))