[bknr-cvs] ksprotte changed trunk/projects/bos/test/poi.lisp

[BKNR Commits]

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"))))
+