2018-01-28 01:08:45 +03:00
|
|
|
(defpackage #:cl-info-test/core
|
2021-02-03 00:11:40 +03:00
|
|
|
(:use #:cl)
|
|
|
|
|
(:import-from #:cl-info)
|
|
|
|
|
(:import-from #:hamcrest/rove
|
|
|
|
|
#:contains
|
|
|
|
|
#:assert-that)
|
|
|
|
|
(:import-from #:rove
|
|
|
|
|
#:testing
|
|
|
|
|
#:deftest))
|
2018-01-28 01:08:45 +03:00
|
|
|
(in-package cl-info-test/core)
|
|
|
|
|
|
|
|
|
|
|
2021-02-02 23:57:14 +03:00
|
|
|
(defun foo (a b)
|
2021-02-03 01:29:22 +03:00
|
|
|
(list a b))
|
2021-02-02 23:57:14 +03:00
|
|
|
|
|
|
|
|
|
2018-01-28 01:08:45 +03:00
|
|
|
(deftest test-some-staff
|
2021-02-02 23:57:14 +03:00
|
|
|
(testing "Replace this test with real staff."
|
|
|
|
|
(assert-that (foo 1 2)
|
|
|
|
|
(contains 1 2))))
|
