blob: f9b7e17ec39ba183401656254909c7a4e5c33a5e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(define-module (test module-introspection static-util)
:use-module (srfi srfi-64)
:use-module (srfi srfi-88)
:use-module (hnh module-introspection static-util))
(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 static-util))
|