From 9b629cd073531f0ea41b7bbab966a76da671b1c9 Mon Sep 17 00:00:00 2001
From: Nikolay Puzanov <np@embddr.com>
Date: Tue, 13 Sep 2022 15:52:01 +0300
Subject: [PATCH] Add UTEST_TESTBENCH predefined macro

---
 README.md | 1 +
 utest.scm | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index 88bc036..853f5f4 100644
--- a/README.md
+++ b/README.md
@@ -209,6 +209,7 @@ UTest об ошибке в симуляции. К сожалению, в Icarus
   на файл с входными данными для теста.
 - `UTEST_WORK_DIR` - путь ко временной рабочей папке теста. Сюда можно сохранить результаты тестбенча для последующей
   проверки в коде сценария.
+- `UTEST_TESTBENCH` - флаг для определения того, что код выполняется в среде UTest (`ifdef UTEST_TESTBENCH ...`).
 
 Примеры
 -------
diff --git a/utest.scm b/utest.scm
index c901402..67223da 100755
--- a/utest.scm
+++ b/utest.scm
@@ -649,7 +649,8 @@
 ;;;
 (define (utest-verilog-defines)
   (append
-   `((UTEST_BASE_DIR ,(format "'\"~a\"'" (utest/base-path)))
+   `(UTEST_TESTBENCH
+     (UTEST_BASE_DIR ,(format "'\"~a\"'" (utest/base-path)))
      (UTEST_WORK_DIR ,(format "'\"~a\"'" (utest/work-path))))
 
    (fold (lambda (x l)