11

我正在尝试用 Clojure 编写一些测试。其中一项测试涉及在与正在运行的测试文件相同的目录中打开一个 html 文件，以将内容用作测试输入（Python 中广泛使用的习惯用法）。我认为*file*var 可以完成这项工作，但事实并非如此，因为它是相对的。

假设我的项目使用默认的 leiningen 布局，名为demoproj. 然后我的测试在~/projects/demoproj/test. 这个目录再次复制了项目命名空间，我不是很喜欢，但无论如何。所以测试core.clj在~/projects/demoproj/test/demoproj/test/core.clj. small_page.html我在同一目录中也有一个文件。如果我将以下内容放入test/core.clj：

(println (-> (java.io.File. *file*)
             .getPath))

这是我得到的：

demoproj/test/readibility.clj

这是相对于test项目库的目录的。我尝试仅使用此相对路径读取示例 html 页面，如下所示：

(slurp (-> (java.io.File. *file*)
            .getParent
            (java.io.File. "small_page.html")
            .getPath))

这会导致 IO 错误，因为无法在该位置读取文件。我的下一个想法是获取当前工作目录并将其与相对路径连接。这是我获取工作目录的方式：

(println (-> (java.io.File. ".")
             .getCanonicalPath))

它返回了一个绝对路径：

/Path-to-home/projects/demoproj

不好的是，这两个没有加入到文件的正确路径；中间缺少一个test组件。因此，连接这两个路径会导致不正确的目录路径。

所以，我的问题是，有没有一种可靠的方法来获取当前执行的代码文件的绝对路径？如果这是不可能的，那么这个习语的替代方法是什么，即我如何解析位于相对于测试文件的位置的文件？

4

2 回答 2

18

因为 clojure 代码和相关资源可能会在 jar 中结束，并且您希望代码运行，即使您正在访问的文件可能最终作为 jar 的一部分而不是真正的文件系统，这样做的可靠方法是使用 io/resource，并确保相关文件位于资源路径中。

例如，我在当前项目中将以下内容作为我的目录结构的一部分：

|-- project.clj
|-- resources
|   |-- caribou.properties
|   |-- config
|   |   |-- boot.clj
|   |   |-- development.clj
|   |   |-- local-dumped.clj
|   |   |-- local.clj
|   |   |-- production.clj
|   |   |-- staging.clj
|   |   `-- test.clj
|   `-- logging.properties

我的 project.clj 中有以下内容：

  :resource-paths ["shared" "resources"]

然后我可以在我的 repl 中执行以下操作：

user> (do (require '[clojure.java.io :as io]) (io/resource "config/boot.clj"))
#<URL file:/Users/me/this-project/resources/config/boot.clj>
user> (slurp *1)
"(use '[caribou.config :only (read-config configure environment)])\n(require '[clojure.java.io :as io])\n..."

如您所见，io/resource 返回一个 URL，然后我可以将其传递给我要求的文件（在配置的资源路径中查找路径片段）。如果将整个应用程序打包到一个 uberjar 中进行部署，则此代码仍然有效，而在这种情况下，创建 io/file 并调用 getParent 会失败。

于 2013-04-08T16:23:58.430 回答
2

在谷歌搜索多一点后，我想出了如何做到这一点，并实际阅读了 Stackoverflow 上的所有答案。user83510 实际上在这里回答了这个问题：https ://stackoverflow.com/a/11498784/1285782 ，但答案没有被接受或正确投票。诀窍如下：

(-> (ClassLoader/getSystemResource *file*) clojure.java.io/file .getParent)

这为您提供了目录的绝对路径。不漂亮，但有效。

于 2013-04-08T10:33:24.900 回答