|
Last change
on this file since 12902 was
12902,
checked in by vvoutilainen, 13 years ago
|
|
Fix reading of data containing scandinavian latin1 characters
correctly, and add a simple test for it. The utf-8 test is
just a sanity test so that umlauts as utf-8 aren't broken, the
latin1 test properly fails without this patch and passes
with this patch.
|
-
Property svn:keywords set to
id
|
|
File size:
952 bytes
|
| Rev | Line | |
|---|
| [12902] | 1 | ;;; latin1-tests.lisp |
|---|
| 2 | ;;; |
|---|
| 3 | ;;; Copyright (C) 2010 Ville Voutilainen |
|---|
| 4 | ;;; $Id$ |
|---|
| 5 | ;;; |
|---|
| 6 | ;;; This program is free software; you can redistribute it and/or |
|---|
| 7 | ;;; modify it under the terms of the GNU General Public License |
|---|
| 8 | ;;; as published by the Free Software Foundation; either version 2 |
|---|
| 9 | ;;; of the License, or (at your option) any later version. |
|---|
| 10 | ;;; |
|---|
| 11 | ;;; This program is distributed in the hope that it will be useful, |
|---|
| 12 | ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
|---|
| 13 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|---|
| 14 | ;;; GNU General Public License for more details. |
|---|
| 15 | ;;; |
|---|
| 16 | ;;; You should have received a copy of the GNU General Public License |
|---|
| 17 | ;;; along with this program; if not, write to the Free Software |
|---|
| 18 | ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
|---|
| 19 | |
|---|
| 20 | (in-package #:abcl.test.lisp) |
|---|
| 21 | |
|---|
| 22 | (deftest normal-utf8.1 |
|---|
| 23 | (load "utf8-umlauts.txt") |
|---|
| 24 | t) |
|---|
| 25 | |
|---|
| 26 | (deftest latin1.1 |
|---|
| 27 | (load "latin1-umlauts.txt") |
|---|
| 28 | t) |
|---|
| 29 | |
|---|
| 30 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
