1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Patch the digest tests for the new, DFSG-compliant Debian logo we use instead
of the non-free Clojure one.
Index: clj-digest-clojure/test/digest_test.clj
===================================================================
--- clj-digest-clojure.orig/test/digest_test.clj
+++ clj-digest-clojure/test/digest_test.clj
@@ -26,12 +26,12 @@
(is (= '([message])
(:arglists (meta #'md5)))))
-(def ^:dynamic *logo-md5* "38cf20fa3c9dc72be56965eb1c311dfa")
+(def ^:dynamic *logo-md5* "59ef6e166bab377a48a348be2ac46c15")
(def ^:dynamic *logo-sha256*
- "42c2af2a0509832f39d0cef3ecd1612b7857c55abbe2170470eabb2a0318701c")
+ "ff83aa6a4f8597ef45742e4c4837f1964fa14bd64a950388bce0bfe987acbd32")
(deftest file-test
- (let [f (File. "test/clojure.png")]
+ (let [f (File. "test/debian.png")]
(is (= (md5 f) *logo-md5*))
(is (= (sha-256 f) *logo-sha256*))))
|
