From 42e27fb4f7d31dd09e5a94395de2710b4560d836 Mon Sep 17 00:00:00 2001 From: Leif Andersen Date: Thu, 19 May 2016 19:41:23 -0400 Subject: [PATCH] Add tests for resolve-module-path-* with optional argument --- pkgs/racket-test-core/tests/racket/moddep.rktl | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/pkgs/racket-test-core/tests/racket/moddep.rktl b/pkgs/racket-test-core/tests/racket/moddep.rktl index c73e904164..e1f37d7c94 100644 --- a/pkgs/racket-test-core/tests/racket/moddep.rktl +++ b/pkgs/racket-test-core/tests/racket/moddep.rktl @@ -81,11 +81,15 @@ (err/rt-test (resolve-module-path "apple.ss" 'no)) (err/rt-test (resolve-module-path "/apple.ss" #f)) +(err/rt-test (resolve-module-path "/apple.ss")) (err/rt-test (resolve-module-path "apple.ss/" #f)) +(err/rt-test (resolve-module-path "apple.ss/")) (err/rt-test (resolve-module-path "app\u00E9le.ss" #f)) (err/rt-test (resolve-module-path-index "apple.ss" #f)) +(err/rt-test (resolve-module-path-index "apple.ss")) (err/rt-test (resolve-module-path-index (module-path-index-join #f #f) #f) exn:fail?) +(err/rt-test (resolve-module-path-index (module-path-index-join #f #f)) exn:fail?) (when (eq? (system-path-convention-type) 'unix) (test (expand-user-path "~/x.rkt") resolve-module-path '(file "~/x.rkt") #f))