Changeset 32316 in project for release/5


Ignore:
Timestamp:
04/18/15 03:48:42 (4 years ago)
Author:
evhan
Message:

srfi-13: Add srfi-14 import and remove ports dependency from tests

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/srfi-13/trunk/tests/run.scm

    r31377 r32316  
    1 (use srfi-13 test)
     1(use srfi-13 srfi-14 test)
    22
    33(define (fill text)
     
    642642          (steps (cdddr test-case))
    643643          (rv (make-kmp-restart-vector pat)))
    644      (call-with-input-string
    645       str
    646       (lambda (p)
    647         (let lp ((i 0)
    648                  (step 0)
    649                  (steps steps))
    650           (cond
     644     (let ((p (open-input-string str)))
     645       (let lp ((i 0)
     646                (step 0)
     647                (steps steps))
     648         (cond
    651649           ((or (= i n) (eof-object? (peek-char p)))
    652650            (test-assert (sprintf "KMP match? ~S, case: ~S" match? test-case)
     
    661659                      step expected-i i test-case)
    662660                    expected-i i)
    663               (lp new-i (add1 step) (cdr steps))))))))))
     661              (lp new-i (add1 step) (cdr steps)))))))))
    664662 kmp-cases)
    665663
Note: See TracChangeset for help on using the changeset viewer.