application/octet-stream
•
482 B
•
13 lines
#!/usr/bin/env nujel
;; Just testing that adler32 still works
(import (hash :as adler32) :crypto/adler32)
(def coc-hash (adler32 (file/read "CODE_OF_CONDUCT.md")))
(def lic-hash (adler32 (file/read "LICENSE")))
(when (not= coc-hash #xB5C288AD)
(throw (list :wrong-result "CoC Adler32 digest wrong" (int->string/HEX coc-hash))))
(when (not= lic-hash #x8A5056E4)
(throw (list :wrong-result "License Adler32 digest wrong" (int->string/HEX lic-hash))))
(return :success)
