[clouchdb-cvs] CVS clouchdb/src
peddy
peddy at common-lisp.net
Mon Dec 17 23:18:08 UTC 2007
Update of /project/clouchdb/cvsroot/clouchdb/src
In directory clnet:/tmp/cvs-serv3658/src
Modified Files:
tests.lisp
Log Message:
Fixed utf-8 encoding bug
--- /project/clouchdb/cvsroot/clouchdb/src/tests.lisp 2007/12/14 23:22:58 1.3
+++ /project/clouchdb/cvsroot/clouchdb/src/tests.lisp 2007/12/17 23:18:07 1.4
@@ -336,6 +336,45 @@
(ensure (document-property :ok (create-document '((:a "test")) :id "http://google.com")))
(ensure-same (document-property :_id (get-document "http://google.com")) "http://google.com"))
+(addtest (clouchdb-doc-api-tests)
+ (:documentation "Test document content encoding by creating a
+ document with a field for a variety of languages, then fetching that
+ document and comparing the fecthed data with the source data")
+ encode-document-contents-glass-eating
+ (ensure
+ (let ((glass-eaters '((:middle-english . "An preost wes on leoden, LaÈamon was ihoten")
+ (:classical-greek . "á½Î±Î»Î¿Î½ Ïαγεá¿Î½ δύναμαιΠÏοῦÏο οὠμε βλάÏÏει.")
+ (:monotonic-greek . "ÎÏοÏÏ Î½Î± ÏÎ¬Ï ÏÏαÏμÎνα γÏ
αλιά ÏÏÏÎ¯Ï Î½Î± ÏÎ¬Î¸Ï ÏίÏοÏα.")
+ (:polytonic-greek . "ÎÏοÏῶ νὰ ÏÎ¬Ï ÏÏαÏμÎνα γÏ
αλιὰ ÏÏÏá½¶Ï Î½á½° ÏÎ¬Î¸Ï ÏίÏοÏα.")
+ (:french . "Je peux manger du verre, ça ne me fait pas de mal.")
+ (:provençal . "Pòdi manjar de veire, me nafrariá pas.")
+ (:walloon . "Dji pou magnî do vêre, çoula m' freut nén må.")
+ (:spanish . "Puedo comer vidrio, no me hace daño.")
+ (:romanian . "Pot sÄ mÄnânc sticlÄ Èi ea nu mÄ rÄneÈte.")
+ (:esperanto . "Mi povas manÄi vitron, Äi ne damaÄas min.")
+ (:czech . "Mohu jÃst sklo, neublÞà mi.")
+ (:lithuanian . "AÅ¡ galiu valgyti stiklÄ
ir jis manÄs nežeidžia")
+ (:polska . "MogÄ jeÅÄ szkÅo i mi nie szkodzi.")
+ (:macedonian . "Ðожам да Ñадам ÑÑакло, а не ме ÑÑеÑа.")
+ (:russian . "Я Ð¼Ð¾Ð³Ñ ÐµÑÑÑ ÑÑекло, оно мне не вÑедиÑ.")
+ (:belarusian-cyrillic . "Я Ð¼Ð°Ð³Ñ ÐµÑÑÑ Ñкло, Ñно мне не ÑкодзÑÑÑ.")
+ (:belarusian-lacinka . "Ja mahu jeÅci Å¡kÅo, jano mne ne Å¡kodziÄ.")
+ (:armenian . "Ô¿ÖÕ¶Õ¡Õ´ Õ¡ÕºÕ¡Õ¯Õ« Õ¸ÖÕ¿Õ¥Õ¬ Ö Õ«Õ¶Õ®Õ« Õ¡Õ¶Õ°Õ¡Õ¶Õ£Õ«Õ½Õ¿ Õ¹Õ¨Õ¶Õ¥ÖÖ")
+ (:hebrew . "×× × ×××× ××××× ×××××ת ××× ×× ×××ק ××")
+ (:yiddish . "××× ×§×¢× ×¢×¡× ×××Ö¸× ××× ×¢×¡ ××× ××ר × ××©× ×°×²")
+ (:chinese . "æè½åä¸ç»çèä¸ä¼¤èº«ä½ã")
+ (:chinese-traditional . "æè½åä¸ç»çèä¸å·èº«é«ã")
+ (:japanese . "ç§ã¯ã¬ã©ã¹ãé£ã¹ããã¾ããããã¯ç§ãå·ã¤ãã¾ããã")
+ (:korean . "ëë ì 리를 먹ì ì ìì´ì. ê·¸ëë ìíì§ ììì")
+ (:euro-symbol . "â¬")
+ (:georgian . "ááááá¡ áááá áá áá á áá¢áááá."))))
+ (and (document-property :ok (create-document glass-eaters :id "glass-eaters"))
+ (let ((doc (get-document "glass-eaters")))
+ (reduce #'(lambda (a b) (and a b))
+ (mapcar #'(lambda (e)
+ (equal (cdr e)
+ (document-property (car e) doc)))
+ doc)))))))
;;
;; View API Tests
;;
More information about the clouchdb-cvs
mailing list