[rucksack-devel] Tests

[Levente Mészáros]

Hi,

We have started to work on a test suite for rucksack. Please find the
first version attached. I know that it introduces some new dependency
(namely stefil and its dependencies) at least for the test system.
Maybe tests could go into a separate directory so dependencies could
cause less headache.

I had to modify the test package and the asd file too.

(defpackage :rucksack-test
  (:nicknames :rs-test)
  (:use :common-lisp :rucksack
        #+allegro :mop
        #+lispworks :clos
        #+sbcl :sb-mop
        #+openmcl :openmcl-mop))

You can use the test suite as follows:

CL-USER> (asdf:oos 'asdf:test-op :rucksack)
.............................................................
NIL

or

RS-TEST> (rucksack-test-suite)
.............................................................
#<results :tests 12 :assertions 61 :failures 0>
RS-TEST>

or

RS-TEST> (serialize-deserialize 12)
.
T
#<results :tests 1 :assertions 1 :failures 0>


RS-TEST> (with-transaction/rollback)
..
T
#<results :tests 1 :assertions 2 :failures 0>

etc...

When tests fail you can use the debugger and the inspector.

Cheers,
levy

-- 
There's no perfectoin
-------------- next part --------------
A non-text attachment was scrubbed...
Name: unit-test.lisp
Type: application/octet-stream
Size: 6496 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/rucksack-devel/attachments/20070116/478bacf1/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: rucksack.asd
Type: application/octet-stream
Size: 1330 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/rucksack-devel/attachments/20070116/478bacf1/attachment-0001.obj>