refactoring

jlangch · Dec 7, 2023 · ef6d0df · ef6d0df
1 parent f757d8e
commit ef6d0df
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/doc/examples/scripts/aes-speed.venice b/doc/examples/scripts/aes-speed.venice
@@ -81,14 +81,17 @@
 
   (defn run [size-kb] 
     (let [size               (* size-kb 1024)
-          dir                (io/file "/Users/juerg/Desktop/aes-test")
+          dir                (io/file (io/user-home-dir) "Desktop/aes-test")
           data-file          (io/file dir "test.data")
           aes-file-cbc-enc   (io/file dir "test.data.aes-cbc.enc")
           aes-file-cbc-dec   (io/file dir "test.data.aes-cbc.dec")
           aes-file-gcm-enc   (io/file dir "test.data.aes-gcm.enc")
           aes-file-gcm-dec   (io/file dir "test.data.aes-gcm.dec")
           aes-file-zip       (io/file dir "test.data.zip")
           aes-file-unzip     (io/file dir "test.data.unzip")]
+      (when-not (io/exists-dir? dir)
+        (throw (ex :VncException (str "The dir " dir " doesnot exist!)"))))
+
       (println "Testing file:" data-file (str size-kb "KB"))
       (println "        size:" size)