13 lines
479 B
Plaintext
13 lines
479 B
Plaintext
(do-test "CHARSET accepts 255 OK"
|
|
(let ((strm (IL:OPENSTREAM '{NODIRCORE} 'IL:BOTH)))
|
|
(NOT (NULL (IL:NLSETQ (IL:CHARSET strm 255))))))
|
|
|
|
|
|
(DO-TEST "CHARSET 255 == CHARSET T"
|
|
(let ((strm (IL:OPENSTREAM '{NODIRCORE} 'il:BOTH)))
|
|
(il:for ch il:in '(255 255 0 0 1 2 0 3 3) il:do (il:bout strm ch))
|
|
(il:setfileptr strm 0)
|
|
(il:charset strm 255)
|
|
(equal (list 1 512 771)
|
|
(list (il:readccode strm) (il:readccode strm) (il:readccode strm)))
|
|
) |