yogsototh/clj-jwt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

see #9 Merge branch 'ShaneKilkelly-master'

Browse source
This commit is contained in:
liquidz 2014-09-15 23:24:02 +09:00
commit e48d4b39e2
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/clj_jwt/core.clj
View file

@ -69,7 +69,7 @@
([this key]
(let [alg (-> this :header :alg keyword)]
(cond
(= :none alg) (= "" (:signature this))
(= :none alg) (= "" key (:signature this))
(supported-algorithm? alg)
(let [verify-fn (get-verify-fn alg)
@ -88,4 +88,3 @@
(->JWT (encoded-json->map header)
(encoded-json->map claims)
(or signature ""))))

1
test/clj_jwt/core_test.clj
View file

@ -93,6 +93,7 @@
(fact "Plain JWT should be verified."
(-> claim jwt verify) => true
(-> claim jwt to-str str->jwt verify) => true
(-> claim jwt to-str str->jwt (verify "foo")) => false
(-> claim jwt (assoc :signature "foo") verify) => false)
(fact "HS256 signed JWT should be verified."