From 855e79b7ffa37ac64de51defa18104ed897576b3 Mon Sep 17 00:00:00 2001
From: Piotr Szarmanski
Date: Fri, 30 Dec 2022 09:00:15 +0100
Subject: Initial buffer reuse encoding commit

---
 tests/encode-tests.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'tests/encode-tests.lisp')

diff --git a/tests/encode-tests.lisp b/tests/encode-tests.lisp
index 214eaad..36cc435 100644
--- a/tests/encode-tests.lisp
+++ b/tests/encode-tests.lisp
@@ -21,13 +21,13 @@
          (vector-encode (read-capability-to-urn
                          (eris-encode ,data
                                       ,block-size
-                                      (lambda (&rest args) (declare (ignore args)))
+                                      (lambda (block ref) (declare (ignore ref)) block)
                                       :secret ,secret)))
          (stream-encode (read-capability-to-urn
                          (with-octet-input-stream (stream ,data)
                            (eris-encode stream
                                         ,block-size
-                                        (lambda (&rest args) (declare (ignore args)))
+                                        (lambda (block ref) (declare (ignore ref)) block)
                                         :secret ,secret)))))
      (is (equalp vector-encode urn))
      (is (equalp stream-encode urn))))
@@ -60,7 +60,7 @@
                                                   ,key)
                                                  :initialization-vector (make-array 8 :element-type '(unsigned-byte 8) :initial-element 0)
                                                  :direction :input)))
-     (let ((read-capability (eris-encode chacha-stream ,block-size (lambda (&rest args) (declare (ignore args))))))
+     (let ((read-capability (eris-encode chacha-stream ,block-size (lambda (block ref) (declare (ignore ref)) block))))
        (is (equalp (read-capability-to-urn read-capability)
                    ,urn)))))
 
-- 
cgit v1.2.3