diff --git a/xenomorph/info.rkt b/xenomorph/info.rkt index 790f1c25..4864223a 100644 --- a/xenomorph/info.rkt +++ b/xenomorph/info.rkt @@ -1,8 +1,6 @@ #lang info (define collection 'multi) (define version "0.0") -(define pkg-authors '(mb)) -(define test-omit-paths 'all) (define deps '("base" "beautiful-racket-lib" "rackunit-lib" diff --git a/xenomorph/xenomorph/array.rkt b/xenomorph/xenomorph/array.rkt index 452b2e2d..9b16efa1 100644 --- a/xenomorph/xenomorph/array.rkt +++ b/xenomorph/xenomorph/array.rkt @@ -58,8 +58,6 @@ https://github.com/mbutterick/restructure/blob/master/src/Array.coffee (let* ([items (countable->list array)] [item-count (length items)] [max-items (if (number? len) len item-count)]) - (unless (= item-count max-items) - (raise-argument-error 'Array:encode (format "list or countable with ~a items" max-items) items)) (for ([item (in-list items)]) (send type encode port item ctx)))) diff --git a/xenomorph/xenomorph/info.rkt b/xenomorph/xenomorph/info.rkt index 7ef30ade..f238d403 100644 --- a/xenomorph/xenomorph/info.rkt +++ b/xenomorph/xenomorph/info.rkt @@ -1,4 +1,4 @@ #lang info (define scribblings '(("scribblings/xenomorph.scrbl" ()))) -(define compile-omit-paths '("test/test.rkt" "test/~stream.test.rkt" "private/~stream.rkt")) +(define compile-omit-paths '("test/")) diff --git a/xenomorph/xenomorph/test/test.rkt b/xenomorph/xenomorph/test/test.rkt index 0a6b5b35..0727a033 100644 --- a/xenomorph/xenomorph/test/test.rkt +++ b/xenomorph/xenomorph/test/test.rkt @@ -6,9 +6,9 @@ (list (cons 'name (make-object StringT uint8 'utf8)) (cons 'age uint8)))) -;; decode a person from a buffer -(define stream-in (make-object DecodeStream #"\4MikeA")) -(define x (send Person decode stream-in)) +;; decode a person from a port +(define ip (open-input-bytes #"\4MikeA")) +(define x (send Person decode ip)) (test-module (check-equal? (dict-ref x 'name) "Mike")