diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-30 00:16:53 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:26 +0100 |
commit | 6af1b3f9b55e95bfee051d73bdbb2257875d97bc (patch) | |
tree | e3ce3411227955d92bf71bc3d80f9eadf68d5dfa /tests/test-module-tree | |
parent | Rename test. (diff) | |
download | calp-6af1b3f9b55e95bfee051d73bdbb2257875d97bc.tar.gz calp-6af1b3f9b55e95bfee051d73bdbb2257875d97bc.tar.xz |
Add tests for module introspection.
Diffstat (limited to 'tests/test-module-tree')
-rw-r--r-- | tests/test-module-tree/README.md | 4 | ||||
-rw-r--r-- | tests/test-module-tree/a.scm | 6 | ||||
-rw-r--r-- | tests/test-module-tree/a/b.scm | 2 | ||||
-rw-r--r-- | tests/test-module-tree/a/c.scm | 3 | ||||
-rw-r--r-- | tests/test-module-tree/b.scm | 1 |
5 files changed, 16 insertions, 0 deletions
diff --git a/tests/test-module-tree/README.md b/tests/test-module-tree/README.md new file mode 100644 index 00000000..07cdca5d --- /dev/null +++ b/tests/test-module-tree/README.md @@ -0,0 +1,4 @@ +Test module tree +================ + +This directory contains test data, primarily for the module-introspection. diff --git a/tests/test-module-tree/a.scm b/tests/test-module-tree/a.scm new file mode 100644 index 00000000..c332b884 --- /dev/null +++ b/tests/test-module-tree/a.scm @@ -0,0 +1,6 @@ +(define-module (a) + :use-module (srfi srfi-1) + :export (f)) + +(define (f x) + (* x 2)) diff --git a/tests/test-module-tree/a/b.scm b/tests/test-module-tree/a/b.scm new file mode 100644 index 00000000..3ffb0c99 --- /dev/null +++ b/tests/test-module-tree/a/b.scm @@ -0,0 +1,2 @@ +(define-module (a b) + ) diff --git a/tests/test-module-tree/a/c.scm b/tests/test-module-tree/a/c.scm new file mode 100644 index 00000000..c5a369a3 --- /dev/null +++ b/tests/test-module-tree/a/c.scm @@ -0,0 +1,3 @@ +;;; This is not a module! + +(+ 1 2) diff --git a/tests/test-module-tree/b.scm b/tests/test-module-tree/b.scm new file mode 100644 index 00000000..341fab35 --- /dev/null +++ b/tests/test-module-tree/b.scm @@ -0,0 +1 @@ +(define-module (b)) |