From 6af1b3f9b55e95bfee051d73bdbb2257875d97bc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 30 Oct 2023 00:16:53 +0100 Subject: Add tests for module introspection. --- tests/test-module-tree/README.md | 4 ++++ tests/test-module-tree/a.scm | 6 ++++++ tests/test-module-tree/a/b.scm | 2 ++ tests/test-module-tree/a/c.scm | 3 +++ tests/test-module-tree/b.scm | 1 + 5 files changed, 16 insertions(+) create mode 100644 tests/test-module-tree/README.md create mode 100644 tests/test-module-tree/a.scm create mode 100644 tests/test-module-tree/a/b.scm create mode 100644 tests/test-module-tree/a/c.scm create mode 100644 tests/test-module-tree/b.scm (limited to 'tests/test-module-tree') 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)) -- cgit v1.2.3