blob: 48e1fbac44a5f08468f1828d7c959b1d94712a78 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(define-module (test module-introspection)
:use-module (srfi srfi-64)
:use-module (srfi srfi-88)
;; :use-module ((hnh util) :select (->))
:use-module (hnh module-introspection))
(test-equal "Unique Symbols"
'(* +)
(unique-symbols '(+ (* 2 (+ 3 4))
5)))
(test-equal
'(my module)
(find-module-declaration
'((define-module (my module)
:export (nothing))
(define nothing '()))))
'((hnh module-introspection))
|