From 93063d8a35060d5467e2d056bd4496e51f17ddc1 Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Sun, 10 May 2026 16:36:17 -0500
Subject: test: harden test dependency and temp-dir setup

---
 tests/test-testutil-general.el | 49 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 tests/test-testutil-general.el

(limited to 'tests/test-testutil-general.el')

diff --git a/tests/test-testutil-general.el b/tests/test-testutil-general.el
new file mode 100644
index 0000000..7b4e445
--- /dev/null
+++ b/tests/test-testutil-general.el
@@ -0,0 +1,49 @@
+;;; test-testutil-general.el --- Tests for shared test file utilities -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2026 Craig Jennings
+
+;;; Commentary:
+
+;; Tests for the shared filesystem helpers in testutil-general.el.
+
+;;; Code:
+
+(require 'test-bootstrap (expand-file-name "test-bootstrap.el"))
+(require 'testutil-general (expand-file-name "testutil-general.el"))
+
+(ert-deftest test-chime-test-default-base-dir-uses-env-override ()
+  "Normal: CHIME_TEST_TMPDIR selects an explicit test root."
+  (cl-letf (((symbol-function 'getenv)
+             (lambda (name)
+               (when (string= name "CHIME_TEST_TMPDIR")
+                 "/tmp/chime-explicit-root"))))
+    (should (equal "/tmp/chime-explicit-root/"
+                   (chime-test--default-base-dir)))))
+
+(ert-deftest test-chime-test-default-base-dir-uses-temporary-directory ()
+  "Normal: absent override uses a unique temp-directory path."
+  (let ((temporary-file-directory "/tmp/chime-parent/"))
+    (cl-letf (((symbol-function 'getenv) (lambda (_name) nil)))
+      (should (string-prefix-p
+               "/tmp/chime-parent/chime-tests-"
+               (chime-test--default-base-dir))))))
+
+(ert-deftest test-chime-test-base-dir-is-not-fixed-home-path ()
+  "Regression: default test root is no longer ~/.temp-chime-tests/."
+  (skip-unless (not (getenv "CHIME_TEST_TMPDIR")))
+  (should-not
+   (equal (expand-file-name "~/.temp-chime-tests/")
+          chime-test-base-dir)))
+
+(ert-deftest test-chime-test-base-dir-create-and-delete-roundtrip ()
+  "Normal: create and delete work for the configured test root."
+  (unwind-protect
+      (progn
+        (should (equal (file-name-as-directory chime-test-base-dir)
+                       (chime-create-test-base-dir)))
+        (should (file-directory-p chime-test-base-dir)))
+    (chime-delete-test-base-dir))
+  (should-not (file-exists-p chime-test-base-dir)))
+
+(provide 'test-testutil-general)
+;;; test-testutil-general.el ends here
-- 
cgit v1.2.3