Abstract
This is a very simple fuzz testing framework. The code comes with a BSD-style license so you can basically do with it whatever you want.Download shortcut:
git clone https://github.com/ndantam/cl-fuzz
[Function]
run-tests generator tester &key formatter log count => result
Perform a series of fuzz tests. GENERATOR: (lambda ()) => fuzz. TESTER: (lambda (fuzz)) => nil, performs one set of fuzz tests.
[Function]
test-eq name expected-function test-function => result
Call EXPECTED-FUNCTION and TEST-FUNCTION and test if results are #'EQ.
[Function]
test-eql name expected-function test-function => result
Call EXPECTED-FUNCTION and TEST-FUNCTION and test if results are #'EQL.
[Function]
test-equal name expected-function test-function => result
Call EXPECTED-FUNCTION and TEST-FUNCTION and test if results are #'EQUAL.
[Function]
test-equalp name expected-function test-function => result
Call EXPECTED-FUNCTION and TEST-FUNCTION and test if results are #'EQUALP.
[Function]
test-false name test-function => result
Call TEST-FUNCTION and test if result is false.
[Function]
test-true name test-function => result
Call TEST-FUNCTION with no arguments. If result is true, mark successful test. If result is false, print an error message. NAME: name of this test TEST-FUNCTION: (lambda ()) => (or nil RESULT) RESULT: the result of TEST-FUNCTION
[Function]
test= name expected-function test-function => result
Call EXPECTED-FUNCTION and TEST-FUNCTION and test if results are #'=.
This documentation was prepared with DOCUMENTATION-TEMPLATE.