1;;;; -*- mode: lisp; indent-tabs-mode: nil -*- 2(in-package :crypto-tests) 3 4#.(loop for mac in (crypto:list-all-macs) 5 collect `(rtest:deftest ,mac 6 (run-test-vector-file ',mac *mac-tests*) t) 7 into forms 8 finally (return `(progn ,@forms))) 9 10#.(loop for mac in (crypto:list-all-macs) 11 collect `(rtest:deftest ,(intern (format nil "~A/~A" mac '#:incremental)) 12 (run-test-vector-file ',mac *mac-incremental-tests*) t) 13 into forms 14 finally (return `(progn ,@forms))) 15 16#.(if (boundp '*mac-stream-tests*) 17 (loop for mac in (crypto:list-all-macs) 18 collect `(rtest:deftest ,(intern (format nil "~A/~A" mac '#:stream)) 19 (run-test-vector-file ',mac *mac-stream-tests*) t) 20 into forms 21 finally (return `(progn ,@forms))) 22 nil) 23 24#.(loop for mac in (crypto:list-all-macs) 25 collect `(rtest:deftest ,(intern (format nil "~A/~A" mac '#:reinitialize-instance)) 26 (run-test-vector-file ',mac *mac-reinitialize-instance-tests*) t) 27 into forms 28 finally (return `(progn ,@forms))) 29