aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/unit/module-introspection/module-introspection.scm9
-rw-r--r--tests/unit/module-introspection/static-util.scm15
2 files changed, 9 insertions, 15 deletions
diff --git a/tests/unit/module-introspection/module-introspection.scm b/tests/unit/module-introspection/module-introspection.scm
index 48e1fbac..f51aacde 100644
--- a/tests/unit/module-introspection/module-introspection.scm
+++ b/tests/unit/module-introspection/module-introspection.scm
@@ -16,4 +16,13 @@
: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))
diff --git a/tests/unit/module-introspection/static-util.scm b/tests/unit/module-introspection/static-util.scm
deleted file mode 100644
index f9b7e17e..00000000
--- a/tests/unit/module-introspection/static-util.scm
+++ /dev/null
@@ -1,15 +0,0 @@
-(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))