File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 88 (chezscheme)
99 (srfi :64 testing)
1010 (scheme-langserver)
11+ (scheme-langserver protocol server)
1112 (scheme-langserver util io) )
1213
1314(define (process result target )
Original file line number Diff line number Diff line change 1818 (let* ( [target-path (string-append (current-directory) " /.akku/lib/srfi/%3a13" )]
1919 [root-file-node (init-virtual-file-system target-path '() (generate-akku-acceptable-file-filter (string-append (current-directory) " /.akku/list" )))]
2020 [target-file-node (walk-file root-file-node (string-append target-path " /srfi-13.scm" ))])
21- (test-equal #f (null? (docuent -index-node-list (file-node-document target-file-node)))))
21+ (test-equal #f (null? (document -index-node-list (file-node-document target-file-node)))))
2222(test-end)
2323
2424(exit (if (zero? (test-runner-fail-count (test-runner-get))) 0 1 ))
You can’t perform that action at this time.
0 commit comments