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.
114 lines
3.5 KiB
Racket
114 lines
3.5 KiB
Racket
#lang restructure/racket
|
|
(require "lazy-array.rkt" "array.rkt" "stream.rkt" "number.rkt" "buffer.rkt" rackunit)
|
|
|
|
#|
|
|
approximates
|
|
https://github.com/mbutterick/restructure/blob/master/test/LazyArray.coffee
|
|
|#
|
|
|
|
;describe 'LazyArray', ->
|
|
; describe 'decode', ->
|
|
; it 'should decode items lazily', ->
|
|
; stream = new DecodeStream new Buffer [1, 2, 3, 4, 5]
|
|
; array = new LazyArray uint8, 4
|
|
;
|
|
; arr = array.decode(stream)
|
|
; arr.should.not.be.an.instanceof Array
|
|
; arr.should.have.length 4
|
|
; stream.pos.should.equal 4
|
|
;
|
|
; arr.get(0).should.equal 1
|
|
; arr.get(1).should.equal 2
|
|
; arr.get(2).should.equal 3
|
|
; arr.get(3).should.equal 4
|
|
;
|
|
; should.not.exist arr.get(-1)
|
|
; should.not.exist arr.get(5)
|
|
|
|
(let* ([stream (+DecodeStream (+Buffer '(1 2 3 4 5)))]
|
|
[array (+LazyArray uint8 4)])
|
|
(define arr (send array decode stream))
|
|
(check-false (Array? arr))
|
|
(check-equal? (ref arr 'len) 4)
|
|
(check-equal? (send stream pos) 4)
|
|
(check-equal? (send arr get 0) 1)
|
|
(check-equal? (send arr get 1) 2)
|
|
(check-equal? (send arr get 2) 3)
|
|
(check-equal? (send arr get 3) 4))
|
|
|
|
|
|
|
|
;
|
|
; it 'should be able to convert to an array', ->
|
|
; stream = new DecodeStream new Buffer [1, 2, 3, 4, 5]
|
|
; array = new LazyArray uint8, 4
|
|
;
|
|
; arr = array.decode(stream)
|
|
; arr.toArray().should.deep.equal [1, 2, 3, 4]
|
|
|
|
(let* ([stream (+DecodeStream (+Buffer '(1 2 3 4 5)))]
|
|
[array (+LazyArray uint8 4)])
|
|
(define arr (send array decode stream))
|
|
(check-equal? (send arr to-list) '(1 2 3 4)))
|
|
|
|
;
|
|
; it 'should have an inspect method', ->
|
|
; stream = new DecodeStream new Buffer [1, 2, 3, 4, 5]
|
|
; array = new LazyArray uint8, 4
|
|
;
|
|
; arr = array.decode(stream)
|
|
; arr.inspect().should.equal '[ 1, 2, 3, 4 ]'
|
|
|
|
#;(let* ([stream (+DecodeStream (+Buffer '(1 2 3 4 5)))]
|
|
[array (+LazyArray uint8 4)])
|
|
(define arr (send array decode stream))
|
|
(check-equal? (send arr inspect) (format "~a" '(1 2 3 4))))
|
|
|
|
;
|
|
; it 'should decode length as number before array', ->
|
|
; stream = new DecodeStream new Buffer [4, 1, 2, 3, 4, 5]
|
|
; array = new LazyArray uint8, uint8
|
|
; arr = array.decode(stream)
|
|
;
|
|
; arr.toArray().should.deep.equal [1, 2, 3, 4]
|
|
|
|
(let* ([stream (+DecodeStream (+Buffer '(4 1 2 3 4 5)))]
|
|
[array (+LazyArray uint8 uint8)])
|
|
(define arr (send array decode stream))
|
|
(check-equal? (send arr to-list) '(1 2 3 4)))
|
|
|
|
;
|
|
; describe 'size', ->
|
|
; it 'should work with LazyArrays', ->
|
|
; stream = new DecodeStream new Buffer [1, 2, 3, 4, 5]
|
|
; array = new LazyArray uint8, 4
|
|
; arr = array.decode(stream)
|
|
;
|
|
; array.size(arr).should.equal 4
|
|
|
|
(let* ([stream (+DecodeStream (+Buffer '(1 2 3 4 5)))]
|
|
[array (+LazyArray uint8 4)])
|
|
(define arr (send array decode stream))
|
|
(check-equal? (send array size arr) 4))
|
|
|
|
;
|
|
; describe 'encode', ->
|
|
; it 'should work with LazyArrays', (done) ->
|
|
; stream = new DecodeStream new Buffer [1, 2, 3, 4, 5]
|
|
; array = new LazyArray uint8, 4
|
|
; arr = array.decode(stream)
|
|
;
|
|
; enc = new EncodeStream
|
|
; enc.pipe concat (buf) ->
|
|
; buf.should.deep.equal new Buffer [1, 2, 3, 4]
|
|
; done()
|
|
;
|
|
; array.encode(enc, arr)
|
|
; enc.end()
|
|
|
|
(let* ([stream (+DecodeStream (+Buffer '(1 2 3 4 5)))]
|
|
[array (+LazyArray uint8 4)])
|
|
(define arr (send array decode stream))
|
|
(define enc (+EncodeStream))
|
|
(send array encode enc arr)
|
|
(check-equal? (send enc dump) (+Buffer '(1 2 3 4)))) |