blob: eda983b878f385089721ee3a0036f2788cfe641e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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")
|
