(defun start-file-process-test ()
  (interactive)
  (let* ((buf (get-buffer-create "*test*"))
         (process (start-file-process "foo" buf
                                      (executable-find "sh")
                                      "./test.sh")))
    (set-process-sentinel
     process
     (lambda (proc status)
       (message "process done!")))
    (sleep-for 3)
    (message "sleeping done!")))