Login

Ben / Nujel

Overview Code Talk CI Settings
7 branches 0 tags
Ben (X13/Arch) Automatic [defmodule] wrapping for stdlib_modules a24f7cf 3 years ago 719 Commits
nujel / tests / fast / digest.nuj
Raw
application/octet-stream • 428 B • 9 lines 
#!/usr/bin/env nujel
;; Just testing that adler32 still works
[def coc-hash [hash/adler32 [file/read "CODE_OF_CONDUCT.md"]]]
[def lic-hash [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 #xE98856BD]
      [throw [list :wrong-result "License Adler32 digest wrong" [int->string/HEX lic-hash]]]]