tests/test-i18n.lisp

   1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:    test-i18n.lisp
   6 ;;;; Purpose: Tests for passing non-ascii encoded strings to db and back
   7 ;;;; Author:  Nathan Bird
   8 ;;;; Created: Feb 2010
   9 ;;;;
  10 ;;;; This file, part of CLSQL, is Copyright (c) 2002-2010 by Kevin M. Rosenberg
  11 ;;;;
  12 ;;;; CLSQL users are granted the rights to distribute and use this software
  13 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
  14 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
  15 ;;;; *************************************************************************
  16
  17 (in-package #:clsql-tests)
  18
  19 (setq *rt-i18n*
  20       '(
  21
  22 ;;; The point of these two is to require proper encoding support
  23 ;;; UTF-8 for example can handle these easily.
  24 ;; I show this as a 20char string and 27 bytes in utf-8
  25 (deftest :basic/i18n/1
  26     (first (query "SELECT 'Iñtërnâtiônàlizætiøn'"
  27                   :flatp t :field-names nil))
  28   "Iñtërnâtiônàlizætiøn")
  29
  30 ;; the z in this one is even stronger
  31 ;; I show this as a 20char string and 28 bytes in utf-8
  32 (deftest :basic/i18n/2
  33     (first (query "SELECT 'Iñtërnâtiônàližætiøn'"
  34                   :flatp t :field-names nil))
  35   "Iñtërnâtiônàližætiøn")
  36
  37 ))