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.
23 lines
542 B
Racket
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) |