/usr/share/scheme48-1.9/srfi/srfi-13-check.scm is in scheme48 1.9-5.
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 | ; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Mike Sperber
(define-test-suite srfi-13-tests)
(define-test-case string-contains srfi-13-tests
(check (string-contains "ab" "ab") => 0)
(check (string-contains "xabc" "ab") => 1)
(check (string-contains "aabc" "ab") => 1)
(check (string-contains "abaabaaabaaaa" "aaa") => 5)
(check-that (string-contains "abcdef" "cdf") (is-false)))
|