projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change function to macro
[uffi.git]
/
tests
/
i18n.lisp
diff --git
a/tests/i18n.lisp
b/tests/i18n.lisp
index 911e41fe9d65667c13b849892d086e5f0abcaa2e..af99be987a3679d1f839e1521e12370ce00f9aaf 100644
(file)
--- a/
tests/i18n.lisp
+++ b/
tests/i18n.lisp
@@
-25,15
+25,27
@@
(uffi:string-to-octets "abc")
#(97 98 99))
(uffi:string-to-octets "abc")
#(97 98 99))
-;; Below is UTF-8 encoded, 27 octets / 20 lisp characters
(deftest :i18n/sto/4
(deftest :i18n/sto/4
+ (uffi:string-to-octets "abc" :null-terminate t)
+ #(97 98 99 0))
+
+;; Below is UTF-8 encoded, 27 octets / 20 lisp characters
+(deftest :i18n/sto/5
(uffi:string-to-octets "Iñtërnâtiônàlizætiøn" :encoding :utf-8)
#(73 195 177 116 195 171 114 110 195 162 116 105 195 180 110 195 160 108 105 122 195 166 116 105 195 184 110))
(uffi:string-to-octets "Iñtërnâtiônàlizætiøn" :encoding :utf-8)
#(73 195 177 116 195 171 114 110 195 162 116 105 195 180 110 195 160 108 105 122 195 166 116 105 195 184 110))
-(deftest :i18n/sto/5
+(deftest :i18n/sto/6
+ (uffi:string-to-octets "Iñtërnâtiônàlizætiøn" :encoding :utf-8 :null-terminate t)
+ #(73 195 177 116 195 171 114 110 195 162 116 105 195 180 110 195 160 108 105 122 195 166 116 105 195 184 110 0))
+
+(deftest :i18n/lsto/1
(length (uffi:string-to-octets "Iñtërnâtiônàlizætiøn" :encoding :utf-8))
27)
(length (uffi:string-to-octets "Iñtërnâtiônàlizætiøn" :encoding :utf-8))
27)
+(deftest :i18n/lsto/2
+ (length (uffi:string-to-octets "Iñtërnâtiônàlizætiøn" :encoding :utf-8 :null-terminate t))
+ 28)
+
(deftest :i18n/feoc/1
(uffi:foreign-encoded-octet-count "")
0)
(deftest :i18n/feoc/1
(uffi:foreign-encoded-octet-count "")
0)