-
Notifications
You must be signed in to change notification settings - Fork 0
/
fmt.asd
32 lines (29 loc) · 921 Bytes
/
fmt.asd
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
;;;; fmt.asd
(cl:in-package :asdf)
(defsystem :fmt
:serial t
:depends-on (:fiveam
:rnrs-compat
:srfi-1
:srfi-5
:srfi-6
:srfi-13
:srfi-23
:srfi-26
:srfi-61
:srfi-69)
:components ((:file "package")
(:file "util")
(:file "decls")
(:file "mantissa")
(:file "fmt")
(:file "fmt-pretty")
(:file "test")))
(defmethod perform ((o test-op) (c (eql (find-system :fmt))))
(load-system :fmt)
(or (flet ((_ (pkg sym)
(intern (symbol-name sym) (find-package pkg))))
(let ((result (funcall (_ :fiveam :run) (_ :fmt.internal :fmt))))
(funcall (_ :fiveam :explain!) result)
(funcall (_ :fiveam :results-status) result)))
(error "test-op failed") ))