changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / 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 
     1 (defpackage :cry/tests
     2   (:use :rt :std :cl :cry :cry/hotp :cry/totp :cry/crc64))
     3 
     4 (in-package :cry/tests)
     5 
     6 (defsuite :cry)
     7 (in-suite :cry)
     8 
     9 (deftest sanity ()
    10   (is (integerp (hotp "1234" 0)))
    11   (is (integerp (totp "1234")))
    12   (init-crc64 42)
    13   (is (integerp (crc64-sequence "aaaaaaaaaaaaaaaaaaaaaaa"))))