adjust tests

pull/2/head
Matthew Butterick 10 years ago
parent b180a220fe
commit daf1edd1bf

@ -3,7 +3,7 @@
(module+ test (require rackunit)) (module+ test (require rackunit))
(require "len.rkt") (require "len.rkt")
(provide ->int ->string ->list ->boolean ->symbol) (provide ->int ->string ->list ->boolean ->symbol ->path)
;; general way of coercing to integer ;; general way of coercing to integer
(define/contract (->int x) (define/contract (->int x)

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require rackunit net/url racket/set) (require rackunit net/url racket/set)
(require "coerce.rkt" "container.rkt" "string.rkt" "list.rkt") (require "coerce.rkt" "container.rkt" "string.rkt" "list.rkt" "len.rkt")
(check-equal? (->string "foo") "foo") (check-equal? (->string "foo") "foo")
(check-equal? (->string '()) "") (check-equal? (->string '()) "")

Loading…
Cancel
Save