Repository navigation
Expand file tree
/
Copy pathlibrecode-test.asd
More file actions
100 lines (99 loc) · 6.12 KB
/
Copy pathlibrecode-test.asd
File metadata and controls
100 lines (99 loc) · 6.12 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
;;; -*- Mode: Lisp; Syntax: Common-Lisp; indent-tabs-mode: nil; coding: utf-8; Show-Trailing-Whitespace: t -*-
;;;
;;; librecode-test.asd — ASDF system definition for librecode-test
;;;
(asdf:defsystem #:librecode-test
:description "Unit and property-based test suite for librecode."
:author "nrd"
:license "MIT"
:depends-on (#:librecode-runner
#:librecode-meta
#:librecode-model
#:fiveam
#:check-it
#:sqlite
#:clack
#:hunchentoot
#:clack-handler-hunchentoot
#:usocket)
:serial t
:components
((:module "t"
:components
((:file "event-store-tests")
(:file "mock-provider")
(:file "agent-tests")
(:file "audit-tests")
(:file "tool-tests")
(:file "session-tests")
(:file "http-tests")
(:file "resilience-tests")
(:file "campaign-tests")
(:file "journal-tests")
(:file "harness-tests")
(:file "gate-tests")
(:file "supervision-tests")
(:file "recovery-tests")
(:file "ibc-gate-tests")
(:file "failure-relay-tests")
(:file "cross-process-tests")
(:file "provider-tests")
(:file "provider-integration-tests")
(:file "builtin-tools-tests")
(:file "child-tests")
(:file "e2e-tests")
(:file "scenario-tests")
(:file "model-tests"))))
:perform (asdf:test-op (op c)
(let ((results (append
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :event-store-suite :librecode-test.event-store))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :agent-suite :librecode-test.agent))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :audit-suite :librecode-test.audit))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :tool-suite :librecode-test.tool))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :session-suite :librecode-test.session))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :http-suite :librecode-test.http))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :resilience-suite :librecode-test.resilience))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :campaign-suite :librecode-test.campaign))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :journal-suite :librecode-test.journal))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :harness-suite :librecode-test.harness))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :gate-suite :librecode-test.gate))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :supervision-suite :librecode-test.supervision))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :recovery-suite :librecode-test.recovery))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :ibc-gate-suite :librecode-test.ibc-gate))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :failure-relay-suite :librecode-test.failure-relay))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :cross-process-suite :librecode-test.cross-process))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :provider-suite :librecode-test.provider))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :provider-integration-suite :librecode-test.provider-integration))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :builtin-tools-suite :librecode-test.builtin-tools))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :child-suite :librecode-test.child))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :e2e-suite :librecode-test.e2e))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :scenario-suite :librecode-test.scenario))
(uiop:symbol-call :fiveam :run
(uiop:find-symbol* :model-suite :librecode-test.model)))))
(uiop:symbol-call :fiveam :explain! results)
(unless (every (lambda (r)
(typep r (uiop:find-symbol* :test-passed :fiveam)))
results)
(error "Test suite failed!")))))