Add test for unrecognized file in slurp

Author: tatut

test/clj/cider/nrepl/middleware/slurp_test.clj

@@ -2,7 +2,8 @@
   (:require
    [cider.nrepl.middleware.slurp :refer [if-class slurp-url-to-content+body]]
    [clojure.java.io :as io]
-   [clojure.test :as t]))
+   [clojure.test :as t]
+   [clojure.string :as str]))
 
 ;; FIXME (arrdem 2018-04-11):
 ;;   Remove these if-classes when we have jdk1.8 min
@@ -22,3 +23,11 @@
                  (io/resource "sum-types-are-cool.jpg")))]
       (t/is (= ["image/jpeg" {}] (:content-type resp)))
       (t/is (= "base64" (:content-transfer-encoding resp))))))
+
+(if-class java.util.Base64
+  (t/deftest test-unrecognized-file
+    (let [resp (slurp-url-to-content+body
+                (.toString (io/resource "unknown.bin")))]
+      (t/is (= ["application/octet-stream" {}] (:content-type resp)))
+      (t/is (str/starts-with? (:body resp) "#binary[location="))
+      (t/is (str/ends-with? (:body resp) ",size=3]")))))

test/resources/unknown.bin

@@ -0,0 +1 @@
+foo