14.07.2013, 05:58, "Anton Vodonosov" <
avodo...@yandex.ru>:
>> О©╫Hi!
>> О©╫I'd like to add some test suite adapters in cl-test-grid for CLERIC and cl-erlang-term.
>>
>> О©╫The code:
>>
>> О©╫(defmethod libtest ((library-name (eql :cleric)))
>> О©╫О©╫ ;; The test framework used: fiveam.
>> О©╫О©╫ (quicklisp:quickload :cleric-test)
>> О©╫О©╫ (cleric-test:run-all-tests))
>>
>> О©╫(defmethod libtest ((library-name (eql :erlang-term)))
>> О©╫О©╫ ;; The test framework used: fiveam.
>> О©╫О©╫ (quicklisp:quickload :erlang-term-test)
>> О©╫О©╫ (erlang-term-test:run-all-tests))
>
> Hi.
>
> I will commit it soon, in the coming days.
> The code will be a little different (by on expression),
> because it is necessary to convert FiveAM result
> into the unified test-grid format, but that's not a problem,
> we have utility for that.
Hello Markus.
I have finally added the testsuites. Sorry for the delay.
Two notes:
1. In order to convert the testsuite result into the unified format
used in cl-test-grid, cl-test-grid knows your test framework and the names of your testsuites.
If you ever change that, please inform us, we will sync the cl-test-grid adapter with you libraries.
2. (quicklisp:quickload :erlang-term-test) doesn't work. This means the ASDF system is not
indexed by Quicklisp. Probably this ASDF system didn't load when Xach assembled Quicklisp distro.
You may want to find out the reason and solve it. In cl-test-grid I use a workaround of putting the
necessary directory to asdf:*central-registry*.
The final code of your libraries test-grid adapters:
(defmethod libtest ((library-name (eql :cleric)))
;; The test framework used: fiveam.
(quicklisp:quickload :cleric)
(quicklisp:quickload :cleric-test)
(run-fiveam-test-suite (read-from-string "cleric-test::cleric")))
(defmethod libtest ((library-name (eql :cl-erlang-term)))
;; The test framework used: fiveam.
(quicklisp:quickload :erlang-term)
(let ((asdf:*central-registry* (cons (asdf:system-source-directory :erlang-term)
asdf:*central-registry*)))
(quicklisp:quickload :erlang-term-test))
(reduce #'combine-extended-libresult
(mapcar #'run-fiveam-test-suite
(mapcar #'read-from-string
'("erlang-term-test::bops"
"erlang-term-test::decode"
"erlang-term-test::encode"
"erlang-term-test::erlang-object"
"erlang-term-test::erlang-translatable")))))
Best regards,
- Anton