diff options
Diffstat (limited to '')
-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)) |