Expansion of complex expressions into set of instructions

1 files changed, 19 insertions, 0 deletions

diff --git a/src/unit-tests/utils/t-factory.test.scm b/src/unit-tests/utils/t-factory.test.scm
new file mode 100644
index 0000000..eda983b
--- /dev/null
+++ b/src/unit-tests/utils/t-factory.test.scm
@@ -0,0 +1,19 @@
+;; -*- compile-command: "guile -L ./src ./src/unit-tests/utils/t-factory.test.scm"; -*-
+(use-modules (srfi srfi-64)
+	     (modules ast assembly-tree)
+	     (modules utils t-factory))
+
+
+(test-begin "t-factory-harness")
+
+
+(test-equal "make first temporary"
+  't.101
+  (temporary-name (make-t)))
+
+(test-equal "make second temporary"
+  't.102
+  (temporary-name (make-t)))
+
+
+(test-end "t-factory-harness")