Changeset 32706 in project


Ignore:
Timestamp:
08/17/15 04:54:59 (5 years ago)
Author:
evhan
Message:

test: Remove regex dependency (patch from Arthur Maciel)

Location:
release/4/test/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/test/trunk/test-support.scm

    r31453 r32706  
    66;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    77
    8 (require-library regex data-structures extras ports)
    9 (import scheme chicken regex data-structures extras ports)
     8(require-library irregex data-structures extras ports)
     9(import scheme chicken irregex data-structures extras ports)
    1010
    1111;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
    494494
    495495(define (string->info-matcher str)
    496   (let ((rx (regexp str)))
     496  (let ((rx (irregex str)))
    497497    (lambda (info)
    498498      (cond ((test-get-name! info)
    499              => (lambda (n) (string-search rx n)))
     499             => (lambda (n) (irregex-search rx n)))
    500500            (else #f)))))
    501501
    502502(define (string->group-matcher str)
    503   (let ((rx (regexp str)))
     503  (let ((rx (irregex str)))
    504504    (lambda (group)
    505       (string-search rx (car group)))))
     505      (irregex-search rx (car group)))))
    506506
    507507(define (getenv-filter-list proc name . o)
  • release/4/test/trunk/test.meta

    r23255 r32706  
    66 (author "Alex Shinn")
    77 (doc-from-wiki)
    8  (depends regex)
    98 (files "test-support.scm" "test.scm" "test.meta" "test.release-info" "test.setup"))
Note: See TracChangeset for help on using the changeset viewer.