Changeset 3381

Show
Ignore:
Timestamp:
06/30/08 12:06:03 (6 months ago)
Author:
hans
Message:

Adopt test. We don't signal errors from
bknr.datastore::%decode-string. Instead, we substitute the offending
characters by #\? if we can.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3188 r3381  
    117117    (test:is (string-equal "<=>" (decode-string-from-octets #(1 3 60 61 62)))) 
    118118    ;; #\? is the substitution char 
    119     (test:signals flexi-streams:external-format-encoding-error 
    120       (string-equal "<?>" (decode-string-from-octets #(1 3 60 188 62)))) 
     119    (string-equal "<?>" (decode-string-from-octets #(1 3 60 188 62))) 
    121120    ;; kilian 2008-03-20: the following for-all test failed on ccl, 
    122121    ;; because the correct utf-8 sequence could produce a char-code