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.
typesetting/pitfall/restructure/lazy-array-test.rkt

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))))