Version 2.0.0 for new API foreign encoding functions

[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))
 
-;; 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)