luciano/monger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make monger.gridfs.IOFactory implementation for String to work the same way as clojure.java.io/IOFactory one does

Browse source 
It treats string arguments as local filesystem paths
This commit is contained in:
Michael S. Klishin 2011-12-31 14:57:17 +04:00
parent bb806d5c0f
commit ced9b50153
2 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/monger/gridfs.clj
View file

@ -4,7 +4,8 @@
[clojure.java.io :as io])
(:use [monger.conversion])
(:import [com.mongodb DBObject]
[com.mongodb.gridfs GridFS GridFSInputFile]))
[com.mongodb.gridfs GridFS GridFSInputFile]
[java.io InputStream]))
;;
;; Implementation
@ -55,7 +56,7 @@
(extend-protocol GridFSInputFileFactory
String
(make-input-file [^String input]
(.createFile ^GridFS monger.core/*mongodb-gridfs* (.getBytes input))))
(.createFile ^GridFS monger.core/*mongodb-gridfs* ^InputStream (io/make-input-stream input { :encoding "UTF-8" }))))

6
test/monger/test/gridfs.clj
View file

@ -24,8 +24,8 @@
(deftest test-storing-strings-to-gridfs
(let [input "A string"]
(deftest test-storing-files-to-gridfs-using-relative-fs-paths
(let [input "./test/resources/mongo/js/mapfun1.js"]
(is (= 0 (count (gridfs/all-files))))
(gridfs/store (gridfs/make-input-file input)
(.setFilename "monger.test.gridfs.file1")
@ -37,6 +37,6 @@
(let [input (.getBytes "A string")]
(is (= 0 (count (gridfs/all-files))))
(store (make-input-file input)
(.setFilename "monger.test.gridfs.file1")
(.setFilename "monger.test.gridfs.file2")
(.setContentType "application/octet-stream"))
(is (= 1 (count (gridfs/all-files))))))