changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate lisp/lib/cry/tests.lisp

changeset 698: 96958d3eb5b0
parent: 7120877e0453
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes
234
d7aa08025537 cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
1 
 (defpackage :cry/tests
495
7120877e0453 crypto updates
Richard Westhaver <ellis@rwest.io>
parents: 234
diff changeset
2 
   (:use :rt :std :cl :cry :cry/hotp :cry/totp :cry/crc64))
234
d7aa08025537 cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
3 
 
d7aa08025537 cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
4 
 (in-package :cry/tests)
d7aa08025537 cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
5 
 
d7aa08025537 cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
6 
 (defsuite :cry)
d7aa08025537 cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
7 
 (in-suite :cry)
d7aa08025537 cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
8 
 
495
7120877e0453 crypto updates
Richard Westhaver <ellis@rwest.io>
parents: 234
diff changeset
9 
 (deftest sanity ()
7120877e0453 crypto updates
Richard Westhaver <ellis@rwest.io>
parents: 234
diff changeset
10 
   (is (integerp (hotp "1234" 0)))
7120877e0453 crypto updates
Richard Westhaver <ellis@rwest.io>
parents: 234
diff changeset
11 
   (is (integerp (totp "1234")))
7120877e0453 crypto updates
Richard Westhaver <ellis@rwest.io>
parents: 234
diff changeset
12 
   (init-crc64 42)
7120877e0453 crypto updates
Richard Westhaver <ellis@rwest.io>
parents: 234
diff changeset
13 
   (is (integerp (crc64-sequence "aaaaaaaaaaaaaaaaaaaaaaa"))))