blob: f51aacde2ec02fd80c4a0f8531438946a9a35a45 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(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 '()))))
(test-equal "All forms"
'((define (f x)
(* x 2))
(define-module (a)
:use-module (srfi srfi-1)
:export (f)))
(call-with-input-file "tests/test-module-tree/a.scm" get-forms))
'((hnh module-introspection))
|