Author: koutou
Date: Mon Dec 15 04:09:10 2008
New Revision: 5681
Added:
trunk/test/test-iconv.scm
Log:
* test/test-iconv.scm: add a test for iconv bindings.
Added: trunk/test/test-iconv.scm
==============================================================================
--- (empty file)
+++ trunk/test/test-iconv.scm Mon Dec 15 04:09:10 2008
@@ -0,0 +1,57 @@
+;;; -*- coding: utf-8 -*-
+;;;
+;;; Copyright (c) 2003-2008 uim Project http://code.google.com/p/uim/
+;;;
+;;; All rights reserved.
+;;;
+;;; Redistribution and use in source and binary forms, with or without
+;;; modification, are permitted provided that the following conditions
+;;; are met:
+;;; 1. Redistributions of source code must retain the above copyright
+;;; notice, this list of conditions and the following disclaimer.
+;;; 2. Redistributions in binary form must reproduce the above copyright
+;;; notice, this list of conditions and the following disclaimer in the
+;;; documentation and/or other materials provided with the distribution.
+;;; 3. Neither the name of authors nor the names of its contributors
+;;; may be used to endorse or promote products derived from this
software
+;;; without specific prior written permission.
+;;;
+;;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
``AS IS'' AND
+;;; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+;;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE
+;;; ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
CONTRIBUTORS BE LIABLE
+;;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
CONSEQUENTIAL
+;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+;;; OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+;;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
STRICT
+;;; LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY
WAY
+;;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+;;; SUCH DAMAGE.
+;;;
+
+(define-module test.iconv
+ (use gauche.charconv)
+ (use test.unit.test-case)
+ (use test.uim-test))
+(select-module test.iconv)
+
+(define (setup)
+ (uim-test-setup)
+ (uim-eval '(define iconv #f)))
+
+(define (teardown)
+ (uim-eval '(if iconv
+ (iconv-release iconv)))
+ (uim-test-teardown))
+
+(define (test-conv)
+ (assert-equal "あいうえお"
+ (uim-read-from-string
+ (ces-convert
+ (uim-eval '(begin
+ (set! iconv (iconv-open "eucJP" "utf-8"))
+ (iconv-code-conv iconv "あいうえお")))
+ "eucJP" "utf-8")))
+ #f)
+
+(provide "test/iconv")
