Revision: 3697 Author: ksprotte URL: http://bknr.net/trac/changeset/3697
forgot to check in test/poi.lisp A trunk/projects/bos/test/poi.lisp
Added: trunk/projects/bos/test/poi.lisp =================================================================== --- trunk/projects/bos/test/poi.lisp (rev 0) +++ trunk/projects/bos/test/poi.lisp 2008-07-30 13:23:06 UTC (rev 3697) @@ -0,0 +1,10 @@ +(in-package :bos.test) +(in-suite :bos.test.poi) + +(test make-poi-medium.without-poi + (with-fixture initial-bos-store () + (let ((medium (make-poi-medium 'poi-medium :language "de" + :title "a title"))) + (is (string= "a title" (slot-string medium 'title "de")))) + (signals (error) (make-poi-medium 'poi-medium :title "a title")))) +