blob: 7c2b496d5bfe2e5c1e69b73c23ccaa0c9594ce94 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(defpackage #:mulk.objective-cl.tests
(:use #:cl #:lift #:mulk.objective-cl))
(in-package #:mulk.objective-cl.tests)
(defun run-all-tests ()
(run-tests :suite 'objective-cl))
(deftestsuite objective-cl ()
())
(deftestsuite method-invocation (objective-cl)
()
(:equality-test #'equal)
(:tests
((ensure (functionp (fn #'+ _ 10))))
((ensure-same (mapcar (fn (cons _ _)) '(1 2 3))
'((1 . 1) (2 . 2) (3 . 3))))))
|