meow.rkt

#lang racket

;; Run like: racket -t meow.rkt; pgrep -a racket
;; Welcome to Racket v8.0.0.11 [cs].

(require
 racket/engine
 rackunit)

(define exe-path (find-executable-path "racket"))

(define (doit)
  (parameterize ([current-subprocess-custodian-mode 'kill])
    (let ([e (engine (lambda (_)
                       (system*/exit-code
                        exe-path
                        "-e"
                        "((lambda (x) (x x)) (lambda (x) (x x)))")))])
      (if (engine-run 1000 e)
          (void)
          (begin
            (displayln "Timed out"))))))

;; When uncommented, this process terminates when "meow.rkt" terminates.
#;(doit)

;; When uncommented, this process terminates does NOT terminate the subprocess when "meow.rkt" terminates.

(test-case "" (doit))