Commit 376f60f6 authored by Erik Enge's avatar Erik Enge

adding a small test suite

parent f7d76171
;;;; $Id$
;;;; $Source$
;;;; $Id: cl-cracklib.asd,v 1.1.1.1 2003/12/02 10:45:59 eenge Exp $
;;;; $Source: /project/cl-cracklib/cvsroot/cl-cracklib/cl-cracklib.asd,v $
;;;; See the LICENSE file for licensing information.
......@@ -13,7 +13,7 @@
(defsystem cl-cracklib
:name "cl-cracklib"
:author "Erik Enge"
:version "0.1.0"
:version "0.9.0"
:licence "MIT"
:description "Common Lisp interface to cracklib"
:depends-on (:uffi)
......
;;;; $Id$
;;;; $Source$
;;;; See the LICENSE file for licensing information.
(in-package #:cl-user)
(defpackage #:cl-cracklib-test-system
(:use #:cl #:asdf))
(in-package #:cl-cracklib-test-system)
(defsystem cl-cracklib-test
:name "cl-cracklib-test"
:author "Erik Enge"
:version "0.9.0"
:licence "MIT"
:description "Tests for cl-cracklib"
:depends-on (:rt :cl-cracklib)
:components ((:file "package")
(:file "test-cl-cracklib"
:depends-on ("package"))))
;;;; $Id$
;;;; $Source$
;;;; See the LICENSE file for licensing information.
(in-package :cl-user)
(eval-when (:execute :load-toplevel :compile-toplevel)
(defpackage :cl-cracklib-test
(:use :cl :rt)
(:nicknames :cl-cracklib-test)
(:export :do-tests)))
;;;; $Id: cl-cracklib.lisp,v 1.1.1.1 2003/12/02 10:45:59 eenge Exp $
;;;; $Source: /project/cl-cracklib/cvsroot/cl-cracklib/cl-cracklib.lisp,v $
;;;; See LICENSE for licensing information.
(in-package :cl-cracklib-test)
(deftest fascistcheck.1 (cracklib:fascistcheck "mypassword")
nil "it is based on a dictionary word")
(deftest fascistcheck.2 (cracklib:fascistcheck "a")
nil "it's WAY too short")
(deftest fascistcheck.3 (cracklib:fascistcheck "aaaaa")
nil "it is too short")
\ No newline at end of file
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