From abb2e56a1d0cded9827561531fcc915d141994ae Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 28 Nov 2013 09:10:32 -0700 Subject: [PATCH] Fixing broken test Strings are resolved based on the current-directory. This test suite is not robust against mzlib/etc being moved around, so I changed the module to one that is unlikely to move out of collects --- .../xrepl-test/tests/xrepl/known-module.rkt | 30 +++++++++---------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/pkgs/xrepl-pkgs/xrepl-test/tests/xrepl/known-module.rkt b/pkgs/xrepl-pkgs/xrepl-test/tests/xrepl/known-module.rkt index cb1aa718a7..ae779ba57b 100644 --- a/pkgs/xrepl-pkgs/xrepl-test/tests/xrepl/known-module.rkt +++ b/pkgs/xrepl-pkgs/xrepl-test/tests/xrepl/known-module.rkt @@ -9,10 +9,10 @@ (define-namespace-anchor a) (parameterize ([current-namespace (namespace-anchor->namespace a)]) (for-each eval '[(module top-module racket/base) - (module mzlib/etc racket/base)])) + (module version/utils racket/base)])) -(define etc-path (collection-file-path "etc.rkt" "mzlib")) -(define etc-pathstr (path->string etc-path)) +(define utils-path (collection-file-path "utils.rkt" "version")) +(define utils-pathstr (path->string utils-path)) (define base-path (collection-file-path "base.rkt" "racket")) (define base-pathstr (path->string base-path)) @@ -29,10 +29,10 @@ (known-module '#%kernel) => ''#%kernel ; same here (known-module 'racket/base) => 'racket/base (known-module ''racket/base) => #f ; the quoted name doesn't work - (known-module 'mzlib/etc) => 'mzlib/etc ; symbol known, no guessing - (known-module ''mzlib/etc) => ''mzlib/etc - (known-module "mzlib/etc.rkt") => "mzlib/etc.rkt" - (known-module `(file ,etc-pathstr)) => `(file ,etc-pathstr) + (known-module 'version/utils) => 'version/utils ; symbol known, no guessing + (known-module ''version/utils) => ''version/utils + (known-module "version/utils.rkt") => "version/utils.rkt" + (known-module `(file ,utils-pathstr)) => `(file ,utils-pathstr) ;; path mode (known-module 'does-not-exist 'path) => #f (known-module ''top-module 'path) => #f @@ -41,10 +41,10 @@ (known-module '#%kernel 'path) => #f (known-module 'racket/base 'path) => base-path (known-module ''racket/base 'path) => #f - (known-module 'mzlib/etc 'path) => etc-path - (known-module ''mzlib/etc 'path) => #f - (known-module "mzlib/etc.rkt" 'path) => etc-path - (known-module `(file ,etc-pathstr) 'path) => etc-path + (known-module 'version/utils 'path) => utils-path + (known-module ''version/utils 'path) => #f + (known-module "version/utils.rkt" 'path) => utils-path + (known-module `(file ,utils-pathstr) 'path) => utils-path ;; path/sym mode (known-module 'does-not-exist 'path/sym) => #f (known-module ''top-module 'path/sym) => 'top-module @@ -53,8 +53,8 @@ (known-module '#%kernel 'path/sym) => '#%kernel (known-module 'racket/base 'path/sym) => base-path (known-module ''racket/base 'path/sym) => #f - (known-module 'mzlib/etc 'path/sym) => etc-path - (known-module ''mzlib/etc 'path/sym) => 'mzlib/etc ; we have it too - (known-module "mzlib/etc.rkt" 'path/sym) => etc-path - (known-module `(file ,etc-pathstr) 'path/sym) => etc-path + (known-module 'version/utils 'path/sym) => utils-path + (known-module ''version/utils 'path/sym) => 'version/utils ; we have it too + (known-module "version/utils.rkt" 'path/sym) => utils-path + (known-module `(file ,utils-pathstr) 'path/sym) => utils-path )))