Version 1.8.2: Test suite and more functions for foreign string encoding

[uffi.git] / tests / i18n.lisp

diff --git a/tests/i18n.lisp b/tests/i18n.lisp
new file mode 100644 (file)
index 0000000..911e41f
--- /dev/null
+++ b/tests/i18n.lisp
@@ -0,0 +1,79 @@
+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          i18n.lisp
+;;;; Purpose:       UFFI test file of i18n functions
+;;;; Author:        Kevin M. Rosenberg
+;;;; Date Started:  Feb 2010
+;;;;
+;;;; This file, part of UFFI, is Copyright (c) 2010 by Kevin M. Rosenberg
+;;;;
+;;;; *************************************************************************
+
+(in-package #:uffi-tests)
+
+(deftest :i18n/sto/1
+    (uffi:string-to-octets "")
+  #())
+
+(deftest :i18n/sto/2
+    (uffi:string-to-octets "A")
+  #(65))
+
+(deftest :i18n/sto/3
+    (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 "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
+    (length (uffi:string-to-octets "Iñtërnâtiônàlizætiøn" :encoding :utf-8))
+  27)
+
+(deftest :i18n/feoc/1
+    (uffi:foreign-encoded-octet-count "")
+  0)
+
+(deftest :i18n/feoc/2
+    (uffi:foreign-encoded-octet-count "A")
+  1)
+
+(deftest :i18n/feoc/3
+    (uffi:foreign-encoded-octet-count "abc")
+  3)
+
+(deftest :i18n/feoc/4
+    (uffi:foreign-encoded-octet-count "Iñtërnâtiônàlizætiøn"
+                                      :encoding :utf-8)
+  27)
+
+
+(deftest :i18n/ots/1
+    (let ((octets '()))
+      (uffi:octets-to-string (make-array (list (length octets)) :element-type '(unsigned-byte 8)
+                                         :initial-contents octets)))
+  "")
+
+(deftest :i18n/ots/2
+    (let ((octets '(65)))
+      (uffi:octets-to-string (make-array (list (length octets)) :element-type '(unsigned-byte 8)
+                                         :initial-contents octets)))
+  "A")
+
+(deftest :i18n/ots/3
+    (let ((octets '(97 98 99)))
+      (uffi:octets-to-string (make-array (list (length octets)) :element-type '(unsigned-byte 8)
+                                         :initial-contents octets)))
+  "abc")
+
+(deftest :i18n/ots/4
+    (let ((octets '(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:octets-to-string (make-array (list (length octets)) :element-type '(unsigned-byte 8)
+                                         :initial-contents octets)
+                             :encoding :utf-8))
+  "Iñtërnâtiônàlizætiøn")