module - 运行其他模块的子模块

Question

我想有选择地从另一个模块运行 Racket 模块的子模块。请帮我填空!

文件 1

#lang racket/base

;; <big file, lots of code>

(module+ small-tests
   ;; basic correctness checks
   (displayln "Small tests pass!")
)

(module+ big-tests
   ;; heavy duty stress tests
   (displayln "Big tests pass!")
)

文件 2

#lang racket/base

(module+ main
  ;; Trigger either the small-tests or the big-tests,
  ;; depending on what's written here.
  (require '???)
)

如果运行大型测试也能自动运行小型测试，那就太好了。

Answer 1

submod表单用于要求模块的子模块。

举个例子:

#lang racket

(module A racket
  (module+ main
    (displayln "Hello World")))

(module B racket
  (require (submod ".." A main)))

(require 'B)