You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
92 lines
3.2 KiB
Racket
92 lines
3.2 KiB
Racket
7 years ago
|
#lang restructure/racket
|
||
|
|
(require "number.rkt" "buffer.rkt" "stream.rkt" rackunit)
|
||
|
|
|
||
|
|
#|
|
||
|
|
approximates
|
||
|
|
https://github.com/mbutterick/restructure/blob/master/test/DecodeStream.coffee
|
||
|
|
|#
|
||
|
|
|
||
|
|
;describe 'DecodeStream', ->
|
||
|
|
; it 'should read a buffer', ->
|
||
|
|
; buf = new Buffer [1,2,3]
|
||
|
|
; stream = new DecodeStream buf
|
||
|
|
; stream.readBuffer(buf.length).should.deep.equal new Buffer [1,2,3]
|
||
|
|
|
||
|
|
(define buf (+Buffer (bytes 1 2 3)))
|
||
|
|
(define stream (+DecodeStream buf))
|
||
|
|
|
||
|
|
;
|
||
|
|
; it 'should readUInt16BE', ->
|
||
|
|
; buf = new Buffer [0xab, 0xcd]
|
||
|
|
; stream = new DecodeStream buf
|
||
|
|
; stream.readUInt16BE().should.deep.equal 0xabcd
|
||
|
|
;
|
||
|
|
; it 'should readUInt16LE', ->
|
||
|
|
; buf = new Buffer [0xab, 0xcd]
|
||
|
|
; stream = new DecodeStream buf
|
||
|
|
; stream.readUInt16LE().should.deep.equal 0xcdab
|
||
|
|
;
|
||
|
|
; it 'should readUInt24BE', ->
|
||
|
|
; buf = new Buffer [0xab, 0xcd, 0xef]
|
||
|
|
; stream = new DecodeStream buf
|
||
|
|
; stream.readUInt24BE().should.deep.equal 0xabcdef
|
||
|
|
;
|
||
|
|
; it 'should readUInt24LE', ->
|
||
|
|
; buf = new Buffer [0xab, 0xcd, 0xef]
|
||
|
|
; stream = new DecodeStream buf
|
||
|
|
; stream.readUInt24LE().should.deep.equal 0xefcdab
|
||
|
|
;
|
||
|
|
; it 'should readInt24BE', ->
|
||
|
|
; buf = new Buffer [0xff, 0xab, 0x24]
|
||
|
|
; stream = new DecodeStream buf
|
||
|
|
; stream.readInt24BE().should.deep.equal -21724
|
||
|
|
;
|
||
|
|
; it 'should readInt24LE', ->
|
||
|
|
; buf = new Buffer [0x24, 0xab, 0xff]
|
||
|
|
; stream = new DecodeStream buf
|
||
|
|
; stream.readInt24LE().should.deep.equal -21724
|
||
|
|
;
|
||
|
|
; describe 'readString', ->
|
||
|
|
; it 'should decode ascii by default', ->
|
||
|
|
; buf = new Buffer 'some text', 'ascii'
|
||
|
|
; stream = new DecodeStream buf
|
||
|
|
; stream.readString(buf.length).should.equal 'some text'
|
||
|
|
;
|
||
|
|
; it 'should decode ascii', ->
|
||
|
|
; buf = new Buffer 'some text', 'ascii'
|
||
|
|
; stream = new DecodeStream buf
|
||
|
|
; stream.readString(buf.length, 'ascii').should.equal 'some text'
|
||
|
|
;
|
||
|
|
; it 'should decode utf8', ->
|
||
|
|
; buf = new Buffer 'unicode! 👍', 'utf8'
|
||
|
|
; stream = new DecodeStream buf
|
||
|
|
; stream.readString(buf.length, 'utf8').should.equal 'unicode! 👍'
|
||
|
|
;
|
||
|
|
; it 'should decode utf16le', ->
|
||
|
|
; buf = new Buffer 'unicode! 👍', 'utf16le'
|
||
|
|
; stream = new DecodeStream buf
|
||
|
|
; stream.readString(buf.length, 'utf16le').should.equal 'unicode! 👍'
|
||
|
|
;
|
||
|
|
; it 'should decode ucs2', ->
|
||
|
|
; buf = new Buffer 'unicode! 👍', 'ucs2'
|
||
|
|
; stream = new DecodeStream buf
|
||
|
|
; stream.readString(buf.length, 'ucs2').should.equal 'unicode! 👍'
|
||
|
|
;
|
||
|
|
; it 'should decode utf16be', ->
|
||
|
|
; buf = new Buffer 'unicode! 👍', 'utf16le'
|
||
|
|
; for i in [0...buf.length - 1] by 2
|
||
|
|
; byte = buf[i]
|
||
|
|
; buf[i] = buf[i + 1]
|
||
|
|
; buf[i + 1] = byte
|
||
|
|
;
|
||
|
|
; stream = new DecodeStream buf
|
||
|
|
; stream.readString(buf.length, 'utf16be').should.equal 'unicode! 👍'
|
||
|
|
;
|
||
|
|
; it 'should decode macroman', ->
|
||
|
|
; buf = new Buffer [0x8a, 0x63, 0x63, 0x65, 0x6e, 0x74, 0x65, 0x64, 0x20, 0x63, 0x68, 0x87, 0x72, 0x61, 0x63, 0x74, 0x65, 0x72, 0x73]
|
||
|
|
; stream = new DecodeStream buf
|
||
|
|
; stream.readString(buf.length, 'mac').should.equal 'äccented cháracters'
|
||
|
|
;
|
||
|
|
; it 'should return a buffer for unsupported encodings', ->
|
||
|
|
; stream = new DecodeStream new Buffer [1, 2, 3]
|
||
|
|
; stream.readString(3, 'unsupported').should.deep.equal new Buffer [1, 2, 3]
|