/usr/share/scsh-0.6/scsh/bug-report-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 | ;;; Test for the bug reports from user- and hacker-archives
;;; Author: Christoph Hetz
;; for testing: (certainly the path will be an other on other systems...)
;; ,open define-record-types handle
;; ,config ,load C:/cygwin/home/mephisto/cvs-scsh/scsh/scsh/test/test-packages.scm
;; ,load C:/cygwin/home/mephisto/cvs-scsh/scsh/scsh/test/test-base.scm
;; load this file
;; (test-all)
(add-test! '2002-05-86-regexp-weirdness 'archive-users
(lambda ()
(let ((x (rx "{ OK=#t }")))
(and (not (regexp-search? x "foo"))
(regexp-search? x "...{ OK=#t }...")))))
(add-test! '2003-12-74-select-ports-with-zero-timeout 'archive-users
(lambda ()
(select-ports 0 (current-input-port))))
|