fix a use of collection-path

This commit is contained in:
Robby Findler 2013-11-02 21:31:23 -05:00
parent d733926357
commit cf0fa05541

View File

@ -220,7 +220,7 @@
(htdp-test 13 'loop (recur f ([f 13]) f))
(htdp-test 14 'loop (let ([f 14]) (recur f ([f f]) f)))
(load (build-path (collection-path "tests" "racket") "shared-tests.rktl"))
(load (collection-file-path "shared-tests.rktl" "tests" "racket"))
(htdp-err/rt-test (cons 1 2) "cons: second argument must be a list, but received 1 and 2")
(htdp-err/rt-test (append (list 1) 2) "append: last argument must be a list, but received 2")