X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-basic.lisp;h=b0e85875b5dedc5fe90ebe09efbc4c806cbb68d5;hb=96cc4dd98e77b8a1f83fa850e3348219c957b7ef;hp=2c13d803f6f6d9a628cc6946805352da8c458240;hpb=cac353a1dbe8d0d6338aa4b94037df131f355538;p=clsql.git diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp index 2c13d80..b0e8587 100644 --- a/tests/test-basic.lisp +++ b/tests/test-basic.lisp @@ -7,9 +7,7 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Created: Mar 2002 ;;;; -;;;; $Id$ -;;;; -;;;; This file, part of CLSQL, is Copyright (c) 2002-2004 by Kevin M. Rosenberg +;;;; This file, part of CLSQL, is Copyright (c) 2002-2010 by Kevin M. Rosenberg ;;;; ;;;; CLSQL users are granted the rights to distribute and use this software ;;;; as governed by the terms of the Lisp Lesser GNU Public License @@ -227,16 +225,6 @@ "mismatch on a. inserted: ~a returned: ~a" len (length a))) ))) nil) - - (deftest :basic/i18n/1 - (first (query "SELECT 'Iñtërnâtiônàlizætiøn'" - :flatp t :field-names nil)) - "Iñtërnâtiônàlizætiøn") - - (deftest :basic/i18n/2 - (first (query "SELECT 'Iñtërnâtiônàližætiøn'" - :flatp t :field-names nil)) - "Iñtërnâtiônàližætiøn") ))