Changeset 14947 in project


Ignore:
Timestamp:
06/09/09 01:43:44 (10 years ago)
Author:
azul
Message:

fix broken test

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/svnwiki-metadata/trunk/svnwiki-metadata.scm

    r14924 r14947  
    7777  (test
    7878    (stream->list
    79       (get-svn-properties
    80         (environment ((path-in "/repos")
    81                       (path "foo/bar")))
    82         (lambda (prop file default)
    83           (unless (string=? prop "svnwiki:properties:list")
    84             (error "Code asked for unexpected property" prop))
    85           (cond
    86             ((string=? file "/repos/foo")
    87              "  p1   p2  ")
    88             ((string=? file "/repos/foo/bar")
    89              "  p1   p3  ")
    90             (else
    91               (error "Code asked for property in unexpected file" file))))))
    92     (map string->stream (list "p1" "p2" "p3"))))
     79      (stream-map
     80        stream->string
     81        (get-svn-properties
     82          (environment ((path-in "/repos")
     83                        (path "foo/bar")))
     84          (lambda (prop file default)
     85            (unless (string=? prop "svnwiki:properties:list")
     86              (error "Code asked for unexpected property" prop))
     87            (cond
     88              ((string=? file "/repos")
     89               "  p0  ")
     90              ((string=? file "/repos/foo")
     91               "  p1   p2  ")
     92              ((string=? file "/repos/foo/bar")
     93               "  p1   p3  ")
     94              (else
     95                (error "Code asked for property in unexpected file" file)))))))
     96    (list "p0" "p1" "p2" "p3")))
    9397
    9498(define (get-svn-properties env . rest)
Note: See TracChangeset for help on using the changeset viewer.