;; -*- 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")