Commit 0335409a authored by Maciek Pasternacki maciej at pasternacki.net's avatar Maciek Pasternacki maciej at pasternacki.net
Browse files

Add unit test for parsing the nonce.

darcs-hash:fac12e3a4fef4be33eb9167affeb02dec7a8d1ce
parent 20c5ca5c
......@@ -54,6 +54,7 @@
(:file "message" :depends-on ("suite"))
(:file "association" :depends-on ("suite"))
(:file "authproc" :depends-on ("suite"))
(:file "relying-party" :depends-on ("suite"))
(:file "provider" :depends-on ("suite")))))
:depends-on (#:cl-openid #:fiveam))
......
(in-package #:cl-openid)
(in-suite :cl-openid)
(test nonce-universal-time
(is (= (encode-universal-time 23 42 17 9 11 2007 0)
(nonce-universal-time "2007-11-09T17:42:23Zfoobar42"))))
(test nonce-universal-time/random
(for-all ((sec (gen-integer :min 0 :max 60))
(min (gen-integer :min 0 :max 60))
(hr (gen-integer :min 0 :max 23))
(day (gen-integer :min 1 :max 28))
(mon (gen-integer :min 1 :max 12))
(year (gen-integer :min 1970 :max 2100))
(uniq (gen-string)))
(is (= (encode-universal-time sec min hr day mon year 0)
(nonce-universal-time (format nil "~4,'0D-~2,'0D-~2,'0DT~2,'0D:~2,'0D:~2,'0DZ~A"
year mon day hr min sec uniq))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment