You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
pollen/test/test-inline-submodule.rkt

23 lines
542 B
Racket

#lang racket/base
(module inline pollen
(define-meta foo 42)
"Zut Alors")
(module test-main racket/base
(require rackunit)
(require (submod ".." inline))
(check-equal? doc "Zut Alors")
(check-equal? metas (hash 'foo 42)))
(module test-metas-submod racket/base
(require rackunit)
(require (submod ".." inline metas))
(let ()
(define-syntax-rule (#%top . xs)
'unbound-identifier)
(check-equal? doc 'unbound-identifier))
(check-equal? metas (hash 'foo 42)))
(require 'test-main)
(require 'test-metas-submod)