Contents

#lang racket

(require "grep.rkt")

(module+ test
  (require rackunit rackunit/text-ui)

  (define-syntax-rule (grep-this-file pat-str)
    (grep-file "./grep-test.rkt" (regexp pat-str)))

  (define suite
    (test-suite "grep tests"

     (test-equal? "no-matches"
                  (grep-this-file "^#!/usr/bin/env perl")
                  '())

     (test-equal? "one match"
                  (grep-this-file "^#lang racket$")
                  '((1 . "#lang racket")))

     (test-equal? "a few matches"
                  (map car (grep-this-file "require .*"))
                  '(3 6 23))

     (test-equal? "many matches"
                  (+ 1
                     (length (grep-this-file "\\("))
                     (length (grep-this-file "^$")))
                  (length (file->lines "grep-test.rkt")))))

  (run-tests suite))

Version data entries

180 entries across 180 versions & 1 rubygems

Version	Path
trackler-2.1.0.24	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.23	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.22	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.21	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.20	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.19	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.18	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.17	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.16	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.15	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.14	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.13	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.12	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.11	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.10	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.9	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.8	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.7	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.6	tracks/racket/exercises/grep/grep-test.rkt
trackler-2.1.0.5	tracks/racket/exercises/grep/grep-test.rkt