Permalink
Browse files

uncomment and fix unicode string test

  • Loading branch information...
1 parent f0c1377 commit 2d6990d080a77c0526e375b11d3fbb86d8f8ed8c @galdor galdor committed Oct 5, 2011
Showing with 5 additions and 5 deletions.
  1. +5 −5 test/main.lisp
View
@@ -30,11 +30,11 @@
(is (string= (zmq:msg-data-string msg) ""))
(is (equalp (zmq:msg-data-array msg) (byte-array #())))))
-;;; (test unicode-messages
-;;; (zmq:with-msg-init-data (msg "été")
-;;; (is (= (zmq:msg-size msg) 5))
-;;; (is (string= (zmq:msg-data-string msg) "été"))
-;;; (is (equal (zmq:msg-data-array msg) #(195 137 116 195 137)))))
+(test unicode-messages
+ (zmq:with-msg-init-data (msg "été")
+ (is (= (zmq:msg-size msg) 5))
+ (is (string= (zmq:msg-data-string msg) "été"))
+ (is (equalp (zmq:msg-data-array msg) #(195 169 116 195 169)))))
(test binary-messages
(zmq:with-msg-init-data (msg (byte-array #(97 98 99)))

0 comments on commit 2d6990d

Please sign in to comment.