[lift-devel] Multiple values testing for the same code

[necto]

Hello, everyone!

I need the following thing:
I had a test-suite setted up for some value (class-instance). Now there are
anothe value with the same properties, and I want it to be tested in the
same test-suite. Workaround looks very ugly:

(deftestsuite percl-db-test (percl-test)
  ((*db* (make-instance 'tst-mem-db)))

(addtest (percl-db-test) store ...)
(addtest (percl-db-test) load ...)

;.....

(deftestsuite percl-db-test (percl-test)
  ((*db* (make-instance 'tst-sql-db)))

(addtest (percl-db-test) store ...)
(addtest (percl-db-test) load ...)

Is there any way to do it smart?

Regards,
 Necto.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/lift-devel/attachments/20120318/f549def4/attachment.html>