Changeset 2774

Show
Ignore:
Timestamp:
03/20/08 11:47:13 (10 months ago)
Author:
ksprotte
Message:

removed a confusing check from string.decode-utf-8

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r2770 r2774  
    110110    ;; #\? is the substitution char 
    111111    (test:is (string-equal "<?>" (decode-string-from-octets #(1 3 60 188 62)))) 
    112     (test:for-all ((octets (test:gen-buffer))) 
    113       (test:finishes (decode-string-from-octets (concatenate 'vector (vector 1 (length octets)) octets)))))) 
     112    ;; kilian 2008-03-20: the following for-all test failed on ccl, 
     113    ;; because the correct utf-8 sequence could produce a char-code 
     114    ;; above char-code-limit - bknr.datastore::%decode-string should 
     115    ;; throw an error in this case, but I dont know how to test this 
     116    ;; (test:for-all ((octets (test:gen-buffer))) 
     117    ;;       (test:finishes (decode-string-from-octets (concatenate 'vector (vector 1 (length octets)) octets)))) 
     118    )) 
    114119 
    115120;; #+(or (and sbcl sb-unicode) lispworks clisp acl)