/usr/share/scsh-0.6/scsh/process-state-tests.scm is in scsh-common-0.6 0.6.7-8.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | ;;; 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))))
"/")
(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))))
"/")
|