$ cat run2.scm

(import test svn-client (chicken file) (chicken pathname)
        (chicken process-context) (chicken io) (chicken process)
        (chicken sort))

(when (directory-exists? "testrepo")
  (delete-directory "testrepo" #t))

(when (directory-exists? "testcheckout")
  (delete-directory "testcheckout" #t))

(when (directory-exists? "testcheckout2")
  (delete-directory "testcheckout2" #t))

(define repo-dir (make-pathname (current-directory) "testrepo"))
(define repo-uri (string-append "file://" repo-dir))
(define checkout-dir (make-pathname (current-directory) "testcheckout"))
(define checkout-dir2 (make-pathname (current-directory) "testcheckout2"))

(define user "testuser")
(define user2 "different-testuser")
(define pass "testpass")

(define (svn-file f) (make-pathname checkout-dir f))
(define (repo-file f) (string-append "file://" (make-pathname repo-dir f)))
(define (write-svn-file file data)
  (with-output-to-file (svn-file file) (lambda () (print data))))

(test-begin "subversion client library")

(test-assert "Create a testrepo" (svn-repos-create "testrepo"))
(test "Make a checkout of revision 0"
      0 (svn-checkout repo-uri checkout-dir svn-opt-revision-head #t user pass))

(test "Make another checkout of revision 0, using a non-canonicalized uri"
      0 (svn-checkout (string-append repo-uri "/") checkout-dir2 svn-opt-revision-head #t user pass))

(svn-client-info checkout-dir svn-opt-revision-head svn-opt-revision-head #t user pass)


$ csi -s run2.scm 
Removing a
Removing testcheckout/
Removing testcheckout2/
Removing testrepo/

-- testing subversion client library -----------------------------------------
Create a testrepo .................................................... [ PASS]
Make a checkout of revision 0 ........................................ [ PASS]
Make another checkout of revision 0, using a non-canonicalized uri ... [ PASS]

Error: bad argument count - received 4 but expected 3: #<procedure>

        Call history:

        <syntax>          (##core#begin (svn-checkout (string-append repo-uri "/") checkout-dir2 svn-opt-revision-head #t user...
        run2.scm:35       (svn-checkout (string-append repo-uri "/") checkout-dir2 svn-opt-revision-head #t user pass)
        run2.scm:35       (string-append repo-uri "/")
        run2.scm:34       (cons73 (cons73 (quote74 name75) "Make another checkout of revision 0, using a non-canonicalized uri...
        run2.scm:34       (cons73 (quote74 name75) "Make another checkout of revision 0, using a non-canonicalized uri")
        run2.scm:34       (quote74 name75)
        run2.scm:34       (##core#quote name75)
        run2.scm:34       (quote74 ((source76 svn-checkout (string-append repo-uri "/") checkout-dir2 svn-opt-revision-head #t...
        run2.scm:34       (##core#quote ((source76 svn-checkout (string-append repo-uri "/") checkout-dir2 svn-opt-revision-he...
        run2.scm:34       (test-run71 (lambda72 () 0) (lambda72 () (svn-checkout (string-append repo-uri "/") checkout-dir2 sv...
        run2.scm:34       (cons73 (cons73 (quote74 name75) "Make another checkout of revision 0, using a non-canonicalized uri...
        run2.scm:34       (cons73 (quote74 name75) "Make another checkout of revision 0, using a non-canonicalized uri")
        run2.scm:35       (svn-checkout (string-append repo-uri "/") checkout-dir2 svn-opt-revision-head #t user pass)
        run2.scm:35       (string-append repo-uri "/")
        run2.scm:37       (svn-client-info checkout-dir svn-opt-revision-head svn-opt-revision-head #t user pass)
        run2.scm:37       (svn-client-info checkout-dir svn-opt-revision-head svn-opt-revision-head #t user pass)       <--