suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing broken test

Browse Source 
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
This commit is contained in:
Jay McCarthy 2013-11-28 09:10:32 -07:00
parent 56518f0615
commit abb2e56a1d
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
pkgs/xrepl-pkgs/xrepl-test/tests/xrepl/known-module.rkt
View File

@ -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
)))