~ chicken-core (chicken-5) /tests/private-repository-test.scm

 1;;;; private-repository-test.scm
 2
 3
 4(import (chicken pathname)
 5	(chicken platform)
 6        (chicken process-context)
 7        (chicken file)
 8        (chicken file posix))
 9
10(define read-symbolic-link*
11  (cond-expand
12   ((and windows (not cygwin)) (lambda (filename _) filename))
13   (else read-symbolic-link)))
14
15(define repo (normalize-pathname (read-symbolic-link* (car (repository-path)) #t)))
16(define dir (normalize-pathname (read-symbolic-link* (car (command-line-arguments)) #t)))
17
18(print (list dir repo))
19
20(assert (string=? repo dir))
21