Replace outdated function
This commit is contained in:
parent
a337c36ae9
commit
3cd870c2b3
3 changed files with 7 additions and 3 deletions
|
@ -1,6 +1,7 @@
|
|||
(ns marginalia.test.helpers
|
||||
(:use clojure.test)
|
||||
(:use [clojure.java.io :only (file delete-file)]))
|
||||
(:use [clojure.java.io :only (file delete-file)])
|
||||
(:require marginalia.core))
|
||||
|
||||
|
||||
;; copied from http://clojuredocs.org/clojure_contrib/clojure.contrib.io/delete-file-recursively
|
||||
|
@ -15,6 +16,9 @@
|
|||
(delete-file-recursively child silently)))
|
||||
(delete-file f silently)))
|
||||
|
||||
(defn find-clojure-file-paths [source-dir]
|
||||
(marginalia.core/find-processable-file-paths source-dir #".clj$"))
|
||||
|
||||
(defn files-in [dir]
|
||||
(seq (.listFiles (file dir))))
|
||||
|
||||
|
|
|
@ -6,7 +6,7 @@
|
|||
(with-project "multi_page"
|
||||
(fn [source-dir output-dir metadata]
|
||||
(marginalia.core/multidoc! output-dir
|
||||
(marginalia.core/find-clojure-file-paths source-dir)
|
||||
(find-clojure-file-paths source-dir)
|
||||
metadata))
|
||||
|
||||
(is (= number-of-generated-pages 3)))
|
||||
|
|
|
@ -6,7 +6,7 @@
|
|||
(with-project "single_page"
|
||||
(fn [source-dir output-dir metadata]
|
||||
(marginalia.core/uberdoc! (clojure.java.io/file output-dir "index.html")
|
||||
(marginalia.core/find-clojure-file-paths source-dir)
|
||||
(find-clojure-file-paths source-dir)
|
||||
metadata))
|
||||
|
||||
(is (= number-of-generated-pages 1)))
|
||||
|
|
Loading…
Reference in a new issue