Update of /cvsroot/scsh/scsh-0.6/scsh/test
In directory usw-pr-cvs1:/tmp/cvs-serv32311
Modified Files:
test-packages.scm
Added Files:
process-state-tests.scm
Log Message:
Added tests for some process-state functions.
--- NEW FILE ---
;;; Tests for the functions in section 3.5 of the scsh-manual "Process state"
;;; Author: David Frese
;; Notes: Only umask and cwd stuff, everything else isn't implemented yet.
;; --- umask stuff ---
(add-test! 'with-umask 'process-state
(lambda (new-umask)
(let ((old-umask (umask)))
(and
(with-umask new-umask
(= (umask) new-umask))
(= (umask) old-umask))))
0)
(add-test! 'set-umask 'process-state
(lambda (new-umask)
(let ((old-umask (umask)))
(set-umask new-umask)
(let ((res (umask)))
(set-umask old-umask)
(= res new-umask))))
7)
;; --- cwd stuff ---
(add-test! 'with-cwd 'process-state
(lambda (new-cwd)
(let ((old-cwd (cwd)))
(and
(with-cwd new-cwd
(equal? (cwd) new-cwd))
(equal? (cwd) old-cwd))))
"/bin")
(add-test! 'chdir 'process-state
(lambda (new-cwd)
(let ((old-cwd (cwd)))
(chdir new-cwd)
(let ((res (cwd)))
(chdir old-cwd)
(equal? res new-cwd))))
"/tmp")
Index: test-packages.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/test/test-packages.scm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** test-packages.scm 2001/03/13 17:18:25 1.1
--- test-packages.scm 2001/03/20 14:36:54 1.2
***************
*** 19,21 ****
scheme
scsh-test)
! (files file-system-tests))
\ No newline at end of file
--- 19,27 ----
scheme
scsh-test)
! (files file-system-tests))
!
! (define-structure process-state-test (export)
! (open scsh
! scheme
! scsh-test)
! (files process-state-tests))
\ No newline at end of file
|