Changeset 3188

Show
Ignore:
Timestamp:
05/26/08 17:05:34 (8 months ago)
Author:
ksprotte
Message:

changed test string.decode-utf-8 to expect flexi-streams:external-format-encoding-error
instead of a flexi-streams:*substitution-char* inserted

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

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