Changeset 2769

Show
Ignore:
Timestamp:
03/19/08 18:30:48 (10 months ago)
Author:
ksprotte
Message:

for encoding / decoding strings have to be only string=

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/datastore/src/data/encoding-test.lisp

    r2765 r2769  
    9898(test-encoding char.4 (code-char 255)) 
    9999 
    100 ;; various strings 
    101 (test-encoding string.1 "foobar") 
    102 (test-encoding string.2 "how are you") 
    103 (test-encoding string.3 "foo 
    104 bar") 
    105  
    106 (test-encoding (string.4 :skip "will be fixed later - http://trac.common-lisp.net/bknr/ticket/30") 
    107                (make-array 10 :initial-element #\f :element-type 'character 
    108                            :fill-pointer 3)) 
    109  
     100;; strings 
    110101(test:test string.random 
    111102  (test:for-all ((string (test:gen-string))) 
    112     (test:is (congruent-p string (copy-by-encoding string))))) 
     103    (test:is (string= string (copy-by-encoding string))))) 
    113104 
    114105(test:test string.decode-utf-8