From 319d5e9cff92f65be30ae88e8f3679b40ec3edaa Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Wed, 26 Aug 2026 22:22:38 +0200
Subject: [PATCH] Test is prefs directory needs to be created

---
 main.rkt          |  2 +-
 tests/private.rkt | 12 ++++++++++++
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/main.rkt b/main.rkt
index 82c8298..5a74d06 100644
--- a/main.rkt
+++ b/main.rkt
@@ -43,6 +43,7 @@
 
 (define (ini->file ini file #:private? [private? #f])
   (let* ((file (get-ini-file file))
+         (_ (make-parent-directory* file))
          (out (if (and private?
                        (memq (system-type 'os) '(unix macosx)))
                   (open-output-file file
@@ -198,4 +199,3 @@
           ini)))))
 
 
-
diff --git a/tests/private.rkt b/tests/private.rkt
index 7fdcde2..46e5188 100644
--- a/tests/private.rkt
+++ b/tests/private.rkt
@@ -17,3 +17,15 @@
  (lambda ()
    (when (file-exists? tmp)
      (delete-file tmp))))
+
+(define tmp-dir
+  (make-temporary-file "simple-ini-parent-~a" 'directory))
+(define nested-file
+  (build-path tmp-dir "preferences" "simple-ini.ini"))
+(dynamic-wind
+ void
+ (lambda ()
+   (ini->file (make-ini) nested-file)
+   (check-true (file-exists? nested-file)))
+ (lambda ()
+   (delete-directory/files tmp-dir)))