Test is prefs directory needs to be created

2026-08-26 22:22:38 +02:00
parent f8349e9a11
commit 319d5e9cff
2 changed files with 13 additions and 1 deletions
@@ -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)))