Changeset 30528 in project


Ignore:
Timestamp:
03/06/14 14:53:32 (6 years ago)
Author:
Alex Shinn
Message:

Ending tests with (test-exit).

Location:
release/4/pty
Files:
1 deleted
4 edited
5 copied

Legend:

Unmodified
Added
Removed
  • release/4/pty/tags/1.7/pty.scm

    r30523 r30528  
    176176    }
    177177    if (err) {
    178       return(0);
     178      return(-1);
    179179    } else {
    180180      return(amaster*1024 + aslave);
     
    206206                   (string-split command)
    207207                   command)))
    208     (when (and (pair? res) (integer? (car res)) (integer? (cadr res)))
     208    (cond
     209     ((and (pair? res) (integer? (car res)) (not (negative? (car res))) (integer? (cadr res)))
    209210      ;; run slave process
    210211      (let* ((master (car res))
     
    215216                    (login-tty slave)
    216217                    (if (pair? command)
    217                       (process-execute (car command) (cdr command))
    218                       (process-execute command))))))
     218                        (process-execute (car command) (cdr command))
     219                        (process-execute command))))))
    219220        ;; make non-blocking
    220221        (fcntl-set! master open/nonblock)
    221222        ;; return master I/O and child PID
    222         (list master pid)))))
     223        (list master pid)))
     224      (else (error "couldn't open pty" command res)))))
    223225
    224226
  • release/4/pty/tags/1.7/pty.setup

    r30526 r30528  
    99(install-extension 'pty
    1010  '("pty.so" "pty.import.so")
    11   '((version 1.6)))
     11  '((version 1.7)))
  • release/4/pty/tags/1.7/tests/run.scm

    r30523 r30528  
    66(test-begin "pty")
    77
    8 (test-error (call-with-pty-process-io "foo" 'foo))
     8;(test-error
     9; (call-with-pty-process-io "nosuchfoo"
     10;  (lambda (in out pid) (read-line in))))
    911
    1012;** PROBLEM **
     
    4042
    4143(test-end)
     44(test-exit)
     45
  • release/4/pty/trunk/pty.scm

    r30523 r30528  
    176176    }
    177177    if (err) {
    178       return(0);
     178      return(-1);
    179179    } else {
    180180      return(amaster*1024 + aslave);
     
    206206                   (string-split command)
    207207                   command)))
    208     (when (and (pair? res) (integer? (car res)) (integer? (cadr res)))
     208    (cond
     209     ((and (pair? res) (integer? (car res)) (not (negative? (car res))) (integer? (cadr res)))
    209210      ;; run slave process
    210211      (let* ((master (car res))
     
    215216                    (login-tty slave)
    216217                    (if (pair? command)
    217                       (process-execute (car command) (cdr command))
    218                       (process-execute command))))))
     218                        (process-execute (car command) (cdr command))
     219                        (process-execute command))))))
    219220        ;; make non-blocking
    220221        (fcntl-set! master open/nonblock)
    221222        ;; return master I/O and child PID
    222         (list master pid)))))
     223        (list master pid)))
     224      (else (error "couldn't open pty" command res)))))
    223225
    224226
  • release/4/pty/trunk/pty.setup

    r30526 r30528  
    99(install-extension 'pty
    1010  '("pty.so" "pty.import.so")
    11   '((version 1.6)))
     11  '((version 1.7)))
  • release/4/pty/trunk/tests/run.scm

    r30523 r30528  
    66(test-begin "pty")
    77
    8 (test-error (call-with-pty-process-io "foo" 'foo))
     8;(test-error
     9; (call-with-pty-process-io "nosuchfoo"
     10;  (lambda (in out pid) (read-line in))))
    911
    1012;** PROBLEM **
     
    4042
    4143(test-end)
     44(test-exit)
     45
Note: See TracChangeset for help on using the changeset viewer.