summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorPiotr Szarmanski2022-12-30 09:00:15 +0100
committerPiotr Szarmanski2022-12-30 09:00:15 +0100
commit855e79b7ffa37ac64de51defa18104ed897576b3 (patch)
treea5dea5b592e40c20308d428e489bc57eb3c7cdda /tests
parent618ee634557122b3b3c5012405603b28c0001d13 (diff)
Initial buffer reuse encoding commit
Diffstat (limited to 'tests')
-rw-r--r--tests/encode-tests.lisp6
1 files changed, 3 insertions, 3 deletions
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)))))