Changeset unicode,6


Ignore:
Timestamp:
02/16/2008 06:51:26 PM (18 years ago)
Author:
David Owen <dsowen@…>
branch-nick:
unicode
revision id:
dsowen@fugue88.ws-20080216185126-o4jw3arsc8jw1ihd
Message:

Convert test strings to unicode.

Location:
unicode/src/test
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • unicode/src/test/test-oracle.lisp

    r5 r6  
    144144                                '(:string :in)
    145145                                '(:string :out))))
    146     (let ((str "lölkälkäölkälhjajhgfsjgakjhgfjfjhgffdtrtreztr"))
     146    (let ((str "lölkÀlkÀölkÀlhjajhgfsjgakjhgfjfjhgffdtrtreztr"))
    147147      (assert (equal str (first (exec-prepared-command stm str))))
    148148      (free-statement stm)))

  • unicode/src/test/test-sql-server.lisp

    r5 r6  
    245245                            '(:string :in)
    246246                            '(:unicode-string :in))
    247     (let* ((strings '("hjgkhgkzt65646&%2" "nnvfdsfsfz6tztß0#="))
     247    (let* ((strings '("hjgkhgkzt65646&%2" "nnvfdsfsfz6tztß0#="))
    248248           (res (exec-prepared-query stm (first strings) (second strings))))
    249249      (assert (equal res (list strings))))))
Note: See TracChangeset for help on using the changeset viewer.