Replace outdated function

This commit is contained in:
Josh Tilles 2012-04-27 12:12:39 -04:00 committed by fogus
parent a337c36ae9
commit 3cd870c2b3
3 changed files with 7 additions and 3 deletions

View file

@ -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))))

View file

@ -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)))

View file

@ -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)))