blob: 4387e3ce02259e51111678e1fdbb882ddcab8406 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
(require "asdf")
(push (uiop/os:getcwd) asdf:*central-registry*)
(pushnew :md5-testing cl:*features*)
(asdf:load-system "md5")
(unless (md5::test-rfc1321)
(uiop:quit 1))
(uiop:quit (if (md5::test-other) 0 1))
|