Welcome to the CHICKEN Scheme pasting service

$ csi -s run.scm

-- 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 ... 
Warning: error in group outside of tests
[ PASS]

Error: bad argument count - received 4 but expected 3: #<procedure>
    1 test completed in 0.001 seconds.
    1 error (100%).
    0 out of 1 (0%) tests passed.
    -- done testing initial state --------------------------------------------


    -- testing adding files --------------------------------------------------
    File can be added ................................................ [ PASS]
    File can be committed ............................................ 
Warning: error in group outside of tests
[ PASS]

Error: bad argument count - received 4 but expected 3: #<procedure>
    3 tests completed in 0.028 seconds.
    1 error (333/10%).
    2 out of 3 (667/10%) tests passed.
    -- done testing adding files ---------------------------------------------


    -- testing listing -------------------------------------------------------
    Files and directories are all listed ............................. [ERROR]
        
Error: bad argument count - received 8 but expected 7: #<procedure>
        (map svn-file-path
             (svn-client-list checkout-dir svn-opt-revision-head #t user pass))
    Files are marked as such ......................................... [ERROR]
        
Error: bad argument count - received 8 but expected 7: #<procedure>
        (map (lambda (f) (and (eq? (svn-file-kind f) 'file) (svn-file-path f)))
             (svn-client-list checkout-dir svn-opt-revision-head #t user pass))
    secondary checkout still empty ................................... [ERROR]
        
Error: bad argument count - received 8 but expected 7: #<procedure>
        (map svn-file-path
             (svn-client-list checkout-dir2 svn-opt-revision-unspecified #t user pass))
    Everything listed after update of secondary checkout ............. 
Warning: error in group outside of tests

Warning: error in group outside of tests
svn: E200005: '/home/mario/tmp/crash-debug/work/svn-client/tests/testcheckout/testdir/bar' is not under version control

Warning: error in group outside of tests
svn: E155010: The node '/home/mario/tmp/crash-debug/work/svn-client/tests/testcheckout/testdir' was not found.
[ERROR]
        
Error: bad argument count - received 8 but expected 7: #<procedure>
        (map svn-file-path
             (svn-client-list checkout-dir2 svn-opt-revision-unspecified #t user pass))
    4 tests completed in 0.023 seconds.
    4 errors (100%).
    0 out of 4 (0%) tests passed.
    -- done testing listing --------------------------------------------------


Error: (open-output-file) cannot open file - No such file or directory: "/home/mario/tmp/crash-debug/work/svn-client/tests/testcheckout/testdir/bar"
    1 test completed in 0.001 seconds.
    1 error (100%).
    0 out of 1 (0%) tests passed.
    -- done testing modification ---------------------------------------------


Error: bad argument count - received 3 but expected 2: #<procedure>
    1 test completed in 0.001 seconds.
    1 error (100%).
    0 out of 1 (0%) tests passed.
    -- done testing basic log ------------------------------------------------


Error: (open-input-file) bad argument type - not a string: #f
    1 test completed in 0.001 seconds.
    1 error (100%).
    0 out of 1 (0%) tests passed.
    -- done testing catenation -----------------------------------------------


    -- testing properties ----------------------------------------------------
    After setting property, it can be retrieved ...................... svn: E200005: '/home/mario/tmp/crash-debug/work/svn-client/tests/testcheckout/testdir/bar' is not under version control
[ FAIL]
        expected (("/home/mario/tmp/crash-debug/work/svn-client/tests/testcheckout/testdir/bar" "123")) but got #f
        (svn-propget
          "testing"
          (svn-file "testdir/bar")
          svn-opt-revision-unspecified
          #t
          user
          pass)
    1 test completed in 0.002 seconds.
    1 failure (100%).
    0 out of 1 (0%) tests passed.
    -- done testing properties -----------------------------------------------

3 tests and 7 subgroups completed in 0.356 seconds.
3 out of 3 (100%) tests passed.
0 out of 7 (0%) subgroups passed.
-- done testing subversion client library ------------------------------------

$ 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)       <--