blob: d780c17cf523bf5f218babeaab4ce17d8ff1f98e (
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/modules ./src/unit-tests/utils/t-factory.test.scm"; -*-
(use-modules (srfi srfi-64)
(ast assembly-tree)
(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")
|
