X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fi18n.lisp;h=af99be987a3679d1f839e1521e12370ce00f9aaf;hb=refs%2Ftags%2Fv2.0.0;hp=911e41fe9d65667c13b849892d086e5f0abcaa2e;hpb=e6419ce97079be93787ea6b57a239be60ad9beca;p=uffi.git

diff --git a/tests/i18n.lisp b/tests/i18n.lisp
index 911e41f..af99be9 100644
--- a/tests/i18n.lisp
+++ b/tests/i18n.lisp
@@ -25,15 +25,27 @@
     (uffi:string-to-octets "abc")
   #(97 98 99))
 
-;; Below is UTF-8 encoded, 27 octets / 20 lisp characters
 (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))
 
-(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)
 
+(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)