adjust tests

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

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

@ -1,7 +1,7 @@
#lang racket/base
(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 '()) "")

Loading…
Cancel
Save